file to draw sex-specific genetic map Skeletal Map of Chromosome1%xcoord of the maps on the page%abs location for female map %Arrays with map location information %female map [0.0 16.0 39.4 53.1 58.0 63.6 255.4 258.7 259.9 261.1 295.9 299.7 306.9 318.2 323.9.347.7 368.6] def % draws map needs maplength veriable as argument ie. stroke grestore }def %get locus labels in place/locx 0 def/cntr{dup stringwidth pop 2 div neg-3 rmoveto show} def/locname{gsave maplenf1 maplinec1 1 c2 {maparf locus} interloc{female map} maplblh start kosav maparav c1c2 sub interloc [sex-averaged map] maplblhfile to draw sex-specific genetic map Skeletal Map of Chromosome 1%xcoord of the maps on the page%abs location for female map %Arrays with map location information%female map [0.0 16.0 39.4 53.1 58.0 63.6 261.1 295.9 299.7 306.9 318.2 323.9.347.7 368.6] veriable as argumentie. maplenf mapline/mapline{ gsave newpath 0 0 moveto vps mul 0 exch lineto 2 setlinewidth stroke grestore }>def %getlocus labels file to draw sex-specific genetic map Skeletal Map of Chromosome 1%xcoord of the maps on the page%abs location for female mapfile to draw sex-specific genetic map Skeletal Map of Chromosome1%xcoord of the maps on the page%abs location for female map %Arrays with map location information %female map [0.0 16.0 39.4 53.1 58.0 63.6 255.4 258.7 259.9 261.1 295.9 299.7 306.9 318.2 323.9.347.7 368.6] def % draws map needs maplength veriable as argument ie. stroke grestore }def %get locus labels in place/locx 0 def/cntr{dup stringwidth pop 2 div neg-3 rmoveto show} def/locname{gsave maplenf1 maplinec1 1 c2 {maparf locus} interloc{female map} maplblh start kosav maparav c1c2 sub interloc [sex-averaged map] maplblhfile to draw sex-specific genetic map Skeletal Map of Chromosome 1%xcoord of the maps on the page%abs location for female map %Arrays with map location information%female map [0.0 16.0 39.4 53.1 58.0 63.6 261.1 295.9 299.7 306.9 318.2 323.9.347.7 368.6] veriable as argumentie. maplenf mapline/mapline{ gsave newpath 0 0 moveto vps mul 0 exch lineto 2 setlinewidth stroke grestore }>def %getlocus labels file to draw sex-specific genetic map Skeletal Map of Chromosome 1%xcoord of the maps on the page%abs location for female mapfile to draw sex-specific genetic map Skeletal Map of Chromosome1%xcoord of the maps on the page%abs location for female map %Arrays with map location information %female map [0.0 16.0 39.4 53.1 58.0 63.6 255.4 258.7 259.9 261.1 295.9 299.7 306.9 318.2 323.9.347.7 368.6] def % draws map needs maplength veriable as argument ie. stroke grestore }def %get locus labels in place/locx 0 def/cntr{dup stringwidth pop 2 div neg-3 rmoveto show} def/locname{gsave maplenf1 maplinec1 1 c2 {maparf locus} interloc{female map} maplblh start kosav maparav c1c2 sub interloc [sex-averaged map] maplblhfile to draw sex-specific genetic map Skeletal Map of Chromosome 1%xcoord of the maps on the page%abs location for female map %Arrays with map location information%female map [0.0 16.0 39.4 53.1 58.0 63.6 261.1 295.9 299.7 306.9 318.2 323.9.347.7 368.6] veriable as argumentie. maplenf mapline/mapline{ gsave newpath 0 0 moveto vps mul 0 exch lineto 2 setlinewidth stroke grestore }>def %getlocus labels file to draw sex-specific genetic map Skeletal Map of Chromosome 1%xcoord of the maps on the page%abs location for female mapfile to draw sex-specific genetic map Skeletal Map of Chromosome1%xcoord of the maps on the page%abs location for female map %Arrays with map location information %female map [0.0 16.0 39.4 53.1 58.0 63.6 255.4 258.7 259.9 261.1 295.9 299.7 306.9 318.2 323.9.347.7 368.6] def % draws map needs maplength veriable as argument ie. stroke grestore }def %get locus labels in place/locx 0 def/cntr{dup stringwidth pop 2 div neg-3 rmoveto show} def/locname{gsave maplenf1 maplinec1 1 c2 {maparf locus} interloc{female map} maplblh start kosav maparav c1c2 sub interloc [sex-averaged map] maplblhfile to draw sex-specific genetic map Skeletal Map of Chromosome 1%xcoord of the maps on the page%abs location for female map %Arrays with map location information%female map [0.0 16.0 39.4 53.1 58.0 63.6 261.1 295.9 299.7 306.9 318.2 323.9.347.7 368.6] veriable as argumentie. maplenf mapline/mapline{ gsave newpath 0 0 moveto vps mul 0 exch lineto 2 setlinewidth stroke grestore }>def %getlocus labels file to draw sex-specific genetic map Skeletal Map of Chromosome 1%xcoord of the maps on the page%abs location for female mapfile to draw sex-specific genetic map Skeletal Map of Chromosome1%xcoord of the maps on the page%abs location for female map %Arrays with map location information %female map [0.0 16.0 39.4 53.1 58.0 63.6 255.4 258.7 259.9 261.1 295.9 299.7 306.9 318.2 323.9.347.7 368.6] def % draws map needs maplength veriable as argument ie. stroke grestore }def %get locus labels in place/locx 0 def/cntr{dup stringwidth pop 2 div neg-3 rmoveto show} def/locname{gsave maplenf1 maplinec1 1 c2 {maparf locus} interloc{female map} maplblh start kosav maparav c1c2 sub interloc [sex-averaged map] maplblhfile to draw sex-specific genetic map Skeletal Map of Chromosome 1%xcoord of the maps on the page%abs location for female map %Arrays with map location information%female map [0.0 16.0 39.4 53.1 58.0 63.6 261.1 295.9 299.7 306.9 318.2 323.9.347.7 368.6] veriable as argumentie. maplenf mapline/mapline{ gsave newpath 0 0 moveto vps mul 0 exch lineto 2 setlinewidth stroke grestore }>def %getlocus labels file to draw sex-specific genetic map Skeletal Map of Chromosome 1%xcoord of the maps on the page%abs location for female map