]> CIRDNA Draws circular maps of DNA constructs (EMBOSS) display http://bioweb.pasteur.fr/docs/EMBOSS/cirdna.html cirdna &emboss_init; graphout graphout [device to be displayed on] (-graphout) x11 hp7470 postscript cps hp7580 null data colourps text none tek4107t tekt xwindows hpgl xterm meta ps tek png tektronics postscript perl ($value)? " -graphout=$value" : "" 1 infile input file containing mapping data (-infile) perl " -infile=$value" 2 ruler do you want a ruler (-ruler) 1 perl ($value)? "" : " -noruler" 3 blocktype type of blocks (-blocktype) 1 2 3 Filled perl ($value && $value ne $vdef)? " -blocktype=$value" : "" 4 type of blocks: Open, Filled, or Outline. Option 'Outline' draws filled blocks surrounded by a black border originangle position of the molecule's origin on the circle (enter a number in the range 0 - 360) (-originangle) 90 perl (defined $value && $value != $vdef)? " -originangle=$value" : "" 5 360 posticks ticks inside or outside the circle (enter In or Out) (-posticks) 1 2 Out perl ($value && $value ne $vdef)? " -posticks=$value" : "" 6 posblocks text inside or outside the blocks (enter In or Out) (-posblocks) 1 2 In perl ($value && $value ne $vdef)? " -posblocks=$value" : "" 7 intersymbol do you want horizontal junctions between blocks (-intersymbol) 1 perl ($value)? "" : " -nointersymbol" 8 intercolour colour of junctions between blocks (enter a colour number) (-intercolour) 1 perl (defined $value && $value != $vdef)? " -intercolour=$value" : "" 9 15 interticks do you want horizontal junctions between ticks (-interticks) 0 perl ($value)? " -interticks" : "" 10 gapsize interval between ticks in the ruler (enter an integer) (-gapsize) 500 perl (defined $value && $value != $vdef)? " -gapsize=$value" : "" 11 ticklines do you want vertical lines at the ruler's ticks (-ticklines) 0 perl ($value)? " -ticklines" : "" 12 textheight height of text (enter a number to multiply the default height) (-textheight) 1 perl (defined $value && $value != $vdef)? " -textheight=$value" : "" 13 height of text. Enter a number <1 or >1 to decrease or increase the size, respectively textlength length of text (enter a number to multiply the default length) (-textlength) 1 perl (defined $value && $value != $vdef)? " -textlength=$value" : "" 14 length of text. Enter a number <1 or >1 to decrease or increase the size, respectively tickheight height of ticks (enter a number to multiply the default height) (-tickheight) 1 perl (defined $value && $value != $vdef)? " -tickheight=$value" : "" 15 height of ticks. Enter a number <1 or >1 to decrease or increase the size, respectively blockheight height of blocks (enter a number to multiply the default height) (-blockheight) 1 perl (defined $value && $value != $vdef)? " -blockheight=$value" : "" 16 height of blocks. Enter a number <1 or >1 to decrease or increase the size, respectively rangeheight height of range ends (enter a number to multiply the default height) (-rangeheight) 1 perl (defined $value && $value != $vdef)? " -rangeheight=$value" : "" 17 height of range ends. Enter a number <1 or >1 to decrease or increase the size, respectively gapgroup space between groups (enter a number to multiply the default space) (-gapgroup) 1 perl (defined $value && $value != $vdef)? " -gapgroup=$value" : "" 18 space between groups. Enter a number <1 or >1 to decrease or increase the size, respectively postext space between text and ticks, blocks, and ranges (enter a number to multiply the default space) (-postext) 1 perl (defined $value && $value != $vdef)? " -postext=$value" : "" 19 space between text and ticks, blocks, and ranges. Enter a number <1 or >1 to decrease or increase the size, respectively auto perl " -auto -stdout" 20 psresults_graphout perl $graphout eq "postscript" || $graphout eq "ps" || $graphout eq "colourps" || $graphout eq "cps" *.ps metaresults_graphout perl $graphout eq "meta" *.meta dataresults_graphout perl $graphout eq "data" *.dat pngresults_graphout perl $graphout eq "png" *.png *.2 *.3 hpglresults_graphout perl $graphout =~ /hp/ *.hpgl