# chromo

How to download and try this example

    Usage: pl -gif chromo.htm

    Uses the data file chromo.dat

    #setifnotgiven DATAFILE = "chromo.dat"

    #proc page
    #if @DEVICE = x11
      pagesize: 5 2
    #endif

    #proc getdata
     file: @DATAFILE
     fieldnames: studyid fld ch cM startcM stopcM plotpos r n
    #endproc

    #if @NRECORDS < 1
      #proc annotate
       location: 2.5 1
       text:  No SNP map correlations available.
    	  Perhaps there were not enough strains
    	  in common with the SNP map.
      #exit
    #endif

    #proc areadef
     rectangle: 1 0.7 4 1.4
     xrange: 1 21
     yrange: -0.5 0.5
     // yautorange: datafield=r
     xaxis.stubs: list 1\n2\n3\n4\n5\n6\n7\n8\n9\n10\n11\n12\n13\n14\n15\n16\n17\n18\n19\nX
     xaxis.stubrange: 1 20
     xaxis.stubdetails: size=6
     xaxis.stubslide: 0.5(s)
     xaxis.grid: color=pink
     xaxis.tics: none
     xaxis.axisline: none
     xaxis.gridlineextent: min-0.2 max
     yaxis.stubs: inc .5
     // yaxis.stubs: inc
     xaxis.label: Chromosome
     xaxis.labeldetails: size=6 adjust=0,0.1

    #proc bars
     locfield: plotpos
     lenfield: r
     thinbarline: color=green
     crossover: 0.0

    #set N = $dataitem( 1, n )
    #proc annotate
     location: max-0.6 min-0.4
     textdetails: size=6
     text: @N strains