# Darwin script to draw distance trees of
#    45 other Eukaryota
# Downloaded from status.html
# (C) 2012 CBRG, ETH Zurich

tree := Tree(Tree(Tree(Tree(Leaf(Color(orange,MONBE),-44.0804,33),-12.3010,Leaf(
Color(red4,CAEEL),-49.9303,45),100),-10.3906,Tree(Tree(Tree(Leaf(Color(cyan,
PLAF7),-53.0151,8),-21.2282,Leaf(Color(cyan,CRYPV),-53.6648,19),100),-11.9027,
Tree(Leaf(Color(purple,DICDI),-47.7537,14),-12.0743,Tree(Leaf(Color(IndianRed,
EMIHU),-47.8136,39),-14.4729,Tree(Tree(Tree(Leaf(Color(green,ORYSJ),-46.6443,10)
,-42.3442,Tree(Leaf(Color(green,SORBI),-46.8217,30),-45.1949,Leaf(Color(green,
MAIZE),-46.7142,43),100),100),-35.2090,Tree(Tree(Tree(Leaf(Color(green,MANES),
-45.2915,40),-40.2713,Leaf(Color(green,POPTR),-45.8537,23),100),-39.0979,Leaf(
Color(green,VITVI),-45.5293,29),100),-37.8080,Tree(Leaf(Color(green,ARALY),
-48.1904,35),-46.9681,Leaf(Color(green,ARATH),-48.1477,5),100),100),100),
-19.9313,Tree(Tree(Leaf(Color(green,OSTTA),-50.6373,38),-41.8208,Leaf(Color(
green,OSTLU),-49.9579,20),100),-21.0990,Leaf(Color(green,CHLRE),-45.6212,44),92)
,100),100),65),94),-11.3122,Tree(Tree(Leaf(Color(MediumBlue,TRYBB),-62.6958,17),
-42.4871,Tree(Leaf(Color(MediumBlue,LEIBR),-62.6311,18),-57.9452,Tree(Leaf(Color
(MediumBlue,LEIIN),-62.3956,22),-61.1524,Leaf(Color(MediumBlue,LEIMA),-62.7240,
15),100),100),100),-14.5506,Leaf(Color(black,GIALA),-67.1668,32),100),100),100),
-8.5613,Tree(Tree(Leaf(Color(red,PUCGT),-45.0976,42),-20.0342,Tree(Leaf(Color(
red,USTMA),-42.5542,28),-20.7375,Tree(Leaf(Color(red,CRYNE),-44.6886,13),
-22.2840,Tree(Leaf(Color(red,LACBI),-43.5037,31),-33.3871,Leaf(Color(red,AGABI),
-44.3003,41),100),100),100),100),-14.9092,Tree(Tree(Tree(Tree(Tree(Leaf(Color(
red,PHANO),-45.7802,27),-30.2617,Leaf(Color(red,MYCGR),-46.0794,36),100),
-28.5653,Tree(Leaf(Color(red,EMENI),-45.5467,37),-38.1579,Leaf(Color(red,ASPFU),
-44.8248,16),100),99),-28.1593,Tree(Leaf(Color(red,BOTFB),-43.2598,25),-30.7368,
Tree(Leaf(Color(red,MAGGR),-45.8345,24),-34.4357,Leaf(Color(red,NEUCR),-46.6937,
34),100),100),100),-18.6708,Tree(Leaf(Color(red,YARLI),-46.0592,4),-23.6536,Tree
(Tree(Tree(Leaf(Color(red,CANGA),-49.4437,11),-38.5796,Leaf(Color(red,YEAST),
-49.2174,3),100),-35.6946,Tree(Leaf(Color(red,KLULA),-48.5615,7),-36.3469,Leaf(
Color(red,ASHGO),-50.1534,1),99),100),-28.0721,Tree(Tree(Leaf(Color(red,LODEL),
-48.8818,26),-38.6796,Leaf(Color(red,CANAL),-47.6464,2),100),-36.6288,Tree(Leaf(
Color(red,PICST),-46.8998,21),-37.8546,Leaf(Color(red,DEBHA),-48.4868,12),100),
100),100),100),100),-17.7501,Leaf(Color(red,SCHPO),-45.9237,6),100),100),100),0,
Leaf(Color(red,ENCCU),-48.9254,9)) :
title := 'Eukaryota excluding Metazoa (max Length)  (only 1 isoform used)  (VPs consistent per genome-pair) , Thu Jan 12 17:12:11 2012, 45 species, 92647 orthologs, 24 top groups, 489 used here, Arithmetic, BestSubset, DimlessQual: best: 0.44355, ave: 0.8184 +- 0.0036, var: 0.003351, Z=-6.475':
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,'Haptophyceae',color = [0.8039, 0.3608, 0.3608]), LTEXT(110,27,'Metazoa',color = [0.5451, 0, 0])]:

# 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():