]> 3.6a2 drawtree - Plots an unrooted tree diagram &phylip_header; drawtree drawtree perl "drawtree < params" 0 treefile Tree File perl "ln -sf $treefile intree; " -10 phylip_tree perl 1 screen_type perl "0\\n" params -1 options Drawtree options plotter Which plotter or printer will the tree be drawn on perl (defined $value && $value ne $vdef) ? "P\\n$value\\n" : "" L 2 L L: Postscript printer file format M M: PICT format J J: HP Laserjet PCL file format W W: MS-Windows Bitmap K K: TeKtronix 4010 graphics terminal H H: Hewlett-Packard pen plotter (HPLG) D D: DEC ReGIS graphics (VT240 terminal) B B: Houston Instruments plotter E E: Epson MX-80 dot-matrix printer C C: Prowriter/Imagewriter dot-matrix printer O O: Okidata dot-matrix printer T T: Toshiba 24-pin dot-matrix printer P P: PCX file format X X: X Bitmap format F F: FIG 2.0 drawing program format A A: Idraw drawing program format Z Z: VRML Virtual Reality Markup Language file V V: POVRAY 3D rendering program file R R: Rayshade 3D rendering program file params bitmap_options Bitmap options perl $plotter eq "X" or $plotter eq "W" xxres X resolution perl "$value\\n" 500 3 perl $plotter eq "X" or $plotter eq "W" params xyres Y resolution perl "$value\\n" 500 4 perl $plotter eq "X" or $plotter eq "W" params laserjet_options Laserjet options perl $plotter eq "J" laserjet_resolution Laserjet resolution perl "$value\\n" 3 3 1 1: 75 DPI 2 2: 150 DPI 3 3: 300 DPI perl $plotter eq "J" params pcx_options Paintbrush options perl $plotter eq "P" pcx_resolution Paintbrush PCX resolution perl "$value\\n" 3 3 1 1: EGA 640 X 350 2 2: VGA 800 X 600 3 3: VGA 1024 X 768 perl $plotter eq "P" params preview perl "V\\nN\\n" 1 params branch_lengths Use branch lengths perl ($value)? "" : "B\\n" 1 5 params angle Angle of labels M 5 F F: Fixed R R: Radial A A: Along M M: Middle "" A "L\\nA\\n" R "L\\nR\\n" F "" M "" params fixed_angle Fixed angle: Are the labels to be plotted vertically (90), horizontally (0), or downwards (-90)? perl (defined $value && $value != $vdef)? "L\\nF\\n$value\\n" : "" 0.0 7 The value must be comprised between -90 and 90 perl $value < -90.0 || $value > 90.0 perl $angle eq "" || $angle eq "F" params rotation Rotation of tree (in degrees from 360 to -360) perl (defined $value && $value != $vdef)? "R\\n$value\\n" : "" 0.0 5 params -360 360 1 The value must be comprised between -360 and +360 perl $value < -360.0 || $value > 360.0 arc Angle of arc for tree (in degrees from 0 to 360) perl (defined $value && $value != $vdef)? "A\\n$value\\n" : "" 0.0 5 params 0 360 1 The value must be comprised between 0 and 360 perl $value < 0.0 || $value > 360.0 iterate Iterate to improve tree E E Equal-Daylight algorithm B n-Body algorithm N No E "" B "I\\n" N "I\\nI\\n" 5 params scale Scale of branch length (default: Automatically rescaled) perl (defined $value)? "S\\n$value\\n" : "" 5 params horizontal_margins Horizontal margins perl (defined $value && $value != $vdef)? "M\\n$value\\n$vertical_margins\\n" : "" 1.73 10 params vertical_margins Vertical margins perl "" 2.24 9 params character_height Relative character height perl (defined $value && $value != $vdef)? "C\\n$value\\n" : "" 0.3333 5 params font Font (PostScript only) perl ($value && $value ne $vdef)? "F\\n$value\\n" : "" Hershey 5 perl $plotter eq "L" params 50 Possible values: courier, helvetica, avantgarde_demi, souvenir_demi, ... (depends on local web server configuration) plotfile perl $plotter ne "L" plotfile psfile perl $plotter eq "L" plotfile.ps pictfile perl $plotter eq "M" plotfile.pict xbmfile perl $plotter eq "X" plotfile.xbm params params tops perl ($plotter eq "L") ? " ; ln -sf plotfile plotfile.ps" : "" 10 topict perl ($plotter eq "M") ? " ; cp plotfile plotfile.pict" : "" 10 toxbm perl ($plotter eq "X") ? " ; ln -sf plotfile plotfile.xbm" : "" 10 confirm perl "Y\\n" 1000 params