# Darwin script to draw distance trees of
#    34 other Eukaryota
# Downloaded from http://www.biorecipes.com/Orthologues/status.html
# (C) 2009 CBRG, ETH Zurich

tree := Tree(Tree(Tree(Tree(Leaf(Color(red,USTMA),-41.5533,28),-22.3215,Tree(
Leaf(Color(red,CRYNE),-43.5164,13),-23.9912,Leaf(Color(red,LACBI),-43.0784,31),
100),100),-16.5665,Tree(Leaf(Color(red,SCHPO),-43.6119,6),-19.2086,Tree(Tree(
Leaf(Color(red,YARLI),-44.7065,4),-24.7623,Tree(Tree(Tree(Leaf(Color(red,CANGA),
-49.1576,11),-39.3326,Leaf(Color(red,YEAST),-48.5473,3),100),-36.8817,Tree(Leaf(
Color(red,KLULA),-48.5525,7),-37.7336,Leaf(Color(red,ASHGO),-49.3343,1),100),100
),-29.4386,Tree(Tree(Leaf(Color(red,LODEL),-47.9795,26),-38.7692,Leaf(Color(red,
CANAL),-46.2748,2),100),-36.7747,Tree(Leaf(Color(red,PICST),-45.6285,21),
-37.9161,Leaf(Color(red,DEBHA),-46.8054,12),100),100),100),100),-20.3567,Tree(
Tree(Leaf(Color(red,MAGGR),-44.8250,24),-31.2737,Leaf(Color(red,BOTFB),-42.9450,
25),100),-29.5239,Tree(Leaf(Color(red,ASPFU),-44.4371,16),-29.7362,Leaf(Color(
red,PHANO),-45.0210,27),70),100),100),100),100),-10.3334,Tree(Tree(Tree(Tree(
Leaf(Color(MediumBlue,TRYBB),-63.0346,17),-45.1495,Tree(Leaf(Color(MediumBlue,
LEIBR),-63.6415,18),-59.3125,Tree(Leaf(Color(MediumBlue,LEIIN),-63.5381,22),
-62.3623,Leaf(Color(MediumBlue,LEIMA),-63.7044,15),100),100),100),-16.5343,Leaf(
Color(black,GIALA),-71.3636,32),100),-12.4876,Tree(Tree(Leaf(Color(cyan,PLAF7),
-52.9322,8),-21.9056,Leaf(Color(cyan,CRYPV),-51.0725,19),100),-13.3000,Tree(Tree
(Leaf(Color(green,OSTLU),-47.0427,20),-19.9153,Tree(Tree(Leaf(Color(green,SORBI)
,-46.0453,30),-42.1837,Leaf(Color(green,ORYSA),-45.8789,10),100),-34.9014,Tree(
Tree(Leaf(Color(green,VITVI),-43.5427,29),-37.5602,Leaf(Color(green,POPTR),
-44.0671,23),100),-36.5420,Leaf(Color(green,ARATH),-45.8453,5),100),100),100),
-14.2004,Leaf(Color(purple,DICDI),-47.6373,14),100),99),98),-11.2266,Tree(Leaf(
Color(IndianRed,CAEEL),-47.3739,34),-13.4872,Leaf(Color(orange,MONBE),-43.6923,
33),100),93),100),0,Leaf(Color(red,ENCCU),-48.9814,9)) :
title := 'Eukaryota excluding Metazoa (max Length)  (only 1 isoform used) , Fri Dec  4 14:59:16 2009, 34 species, 58671 orthologs, 14 top groups, 309 used here, Arithmetic, BestSubset, DimlessQual: best: 0.45587, ave: 0.7163 +- 0.0033, var: 0.002875, Z=-4.857':
Xref := [LTEXT(110,3,'Fungi',color = [1, 0, 0]), LTEXT(110,6,'Viridiplantae',color = [0, 1, 0]), LTEXT(110,9,'Euglenozoa',color = [0, 0, 0.8039]), LTEXT(110,12,'Alveolata',color = [0, 1, 1]), LTEXT(110,15,'Amoebozoa',color = [0.6275, 0.1255, 0.9412]), LTEXT(110,18,'Choanoflagellida',color = [1, 0.6471, 0]), LTEXT(110,21,'Fornicata',color = [0, 0, 0]), LTEXT(110,24,'Metazoa',color = [0.8039, 0.3608, 0.3608])]:

# Uncomment the desired draw command
# or type ?DrawTree for help on the options
DrawTree(tree,Unrooted,Legend,LengthFormat = '',Title = title,Xref) :
# DrawTree( tree, Phylogram, Legend, LengthFormat='', OrderLeaves=LeftHeavy, Title=title, Xref )):
ViewPlot():