]> 3.6a2 drawgram - Plots a cladogram- or phenogram-like rooted tree &phylip_header; drawgram drawgram perl "drawgram < params" 0 treefile Tree File perl "ln -s $treefile intree; " -10 phylip_tree perl 1 screen_type perl "0\\n" params -1 options Drawgram options plotter Which plotter or printer will the tree be drawn on perl (defined $value and $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 (HPGL) 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 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 xbitmap_options Bitmap options perl $plotter eq "X" or $plotter eq "W" xres X resolution perl "$value\\n" 500 3 perl $plotter eq "X" or $plotter eq "W" params yres 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 screen perl "V\\nN\\n" 1 params grows Tree grows... perl ($value ne $vdef) ? "H\\n" : "" Horizontally 5 Vertically Vertically Horizontally Horizontally params tree_style Tree style C 5 C C: Cladogram P P: Phenogram V V: Curvogram E E: Eurogram S S: Swoopogram O O: Circular tree P "S\\nP\\n" C S "S\\nS\\n" E "S\\nE\\n" V "S\\nV\\n" O "S\\nO\\n" params branch_lengths Use branch lengths perl ($value) ? "" : "B\\n" 1 5 params horizontal_margins Horizontal margins perl (defined $value and $value != $vdef)? "M\\n$value\\n$vertical_margins\\n" : "" 1.65 10 params vertical_margins Vertical margins perl "" 2.16 9 params scale Scale of branch length (default: Automatically rescaled) perl (defined $value) ? "R\\n$value\\n" : "" 5 params depth Depth/Breadth of tree perl (defined $value and $value != $vdef)? "D\\n$value\\n" : "" 1.00 5 params stem Stem-length/tree-depth perl (defined $value and $value != $vdef)? "T\\n$value\\n" : "" 0.05 5 Enter the stem length as fraction of tree depth (a value between 0 and 1). You should enter a value between 0 and 1. perl $value < 0 || $value >= 1 params character_height Character ht / tip space perl (defined $value and $value != $vdef)? "C\\n$value\\n" : "" 0.3333 5 Enter character height as fraction of tip spacing. params ancestral Ancestral nodes perl ($value and $value ne $vdef)? "A\\n$value\\n" : "" I 5 I I: Intermediate W W: Weighted C C: Centered N N: Inner V V: So tree is V-shaped params font Font (PostScript only) perl ($value and $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 params params tops perl ($plotter eq "L") ? " ; ln -s plotfile plotfile.ps" : "" 10 topict perl ($plotter eq "M") ? " ; cp plotfile plotfile.pict" : "" 10 confirm perl "Y\\n" 1000 params