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

tree := Tree(Tree(Tree(Leaf(Color(grey50,GIALA),-73.1779,94),-9.4628,Tree(Tree(
Leaf(Color(orange,LEIBR),-66.8087,56),-60.5306,Tree(Leaf(Color(orange,LEIIN),
-64.9377,60),-63.7749,Leaf(Color(orange,LEIMA),-65.8166,33),100),100),-39.4681,
Leaf(Color(orange,TRYBB),-65.2852,35),100),82),-0.9269,Tree(Tree(Tree(Tree(Leaf(
Color(green,PUCGT),-49.5768,118),-17.2874,Tree(Leaf(Color(green,USTMA),-46.5675,
66),-19.2716,Tree(Leaf(Color(green,CRYNE),-50.7655,20),-20.6201,Tree(Leaf(Color(
green,AGABI),-49.8813,113),-36.6035,Leaf(Color(green,LACBI),-49.3282,77),100),96
),100),100),-12.1098,Tree(Tree(Tree(Leaf(Color(green,YARLI),-54.8658,4),-23.1612
,Tree(Tree(Tree(Leaf(Color(green,PICST),-57.1355,59),-44.6989,Leaf(Color(green,
DEBHA),-58.4222,14),100),-42.7001,Tree(Leaf(Color(green,LODEL),-58.5353,64),
-45.1216,Leaf(Color(green,CANAL),-58.6089,2),100),100),-30.3744,Tree(Tree(Leaf(
Color(green,CANGA),-59.6115,13),-43.6390,Leaf(Color(green,YEAST),-58.7105,3),100
),-40.3813,Tree(Leaf(Color(green,KLULA),-59.6230,7),-42.2655,Leaf(Color(green,
ASHGO),-60.0764,1),100),100),100),100),-16.6113,Tree(Tree(Tree(Leaf(Color(green,
ASPFU),-50.8697,34),-42.7511,Leaf(Color(green,EMENI),-51.0748,106),100),-30.7082
,Tree(Leaf(Color(green,PHANO),-55.3119,65),-32.9531,Leaf(Color(green,MYCGR),
-53.4452,105),100),81),-30.0213,Tree(Leaf(Color(green,BOTFB),-49.9054,63),
-34.3296,Tree(Leaf(Color(green,MAGGR),-54.3240,62),-38.5276,Leaf(Color(green,
NEUCR),-52.5732,102),100),100),100),82),-16.0430,Leaf(Color(green,SCHPO),
-54.7634,6),100),100),-5.4084,Tree(Leaf(Color(IndianRed,ENCCU),-82.5345,10),
-22.4222,Leaf(Color(purple4,GUITH),-78.3099,22),79),80),-1.5235,Tree(Leaf(Color(
HotPink,MONBE),-45.6960,98),-5.8607,Tree(Tree(Leaf(Color(LightSeaGreen,SCHMA),
-49.4330,121),-10.5356,Tree(Tree(Tree(Leaf(Color(MediumBlue,DAPPU),-43.0703,73),
-16.5726,Tree(Leaf(Color(MediumBlue,ACYPI),-47.4686,117),-19.5254,Tree(Tree(Leaf
(Color(MediumBlue,BOMMO),-44.7734,115),-21.4114,Tree(Tree(Tree(Leaf(Color(
MediumBlue,AEDAE),-45.6297,47),-40.2013,Leaf(Color(MediumBlue,CULQU),-45.9765,
114),100),-36.3748,Leaf(Color(MediumBlue,ANOGA),-46.3377,15),100),-27.5415,Tree(
Tree(Leaf(Color(MediumBlue,DROVI),-47.8869,107),-44.3959,Leaf(Color(MediumBlue,
DROGR),-48.4875,109),100),-41.8221,Tree(Leaf(Color(MediumBlue,DROWI),-48.1731,
101),-42.1894,Tree(Leaf(Color(MediumBlue,DROPS),-47.9561,38),-43.0941,Leaf(Color
(MediumBlue,DROME),-48.4272,12),100),100),100),100),100),-20.3205,Tree(Leaf(
Color(MediumBlue,PEDHC),-45.0239,108),-21.9495,Leaf(Color(MediumBlue,APIME),
-40.6313,23),96),100),100),100),-14.2082,Leaf(Color(MediumBlue,IXOSC),-40.6796,
95),100),-11.6986,Tree(Leaf(Color(MidnightBlue,TRIAD),-46.1955,97),-12.6975,Tree
(Tree(Leaf(Color(DarkGreen,NEMVE),-42.7474,78),-14.0215,Tree(Tree(Leaf(Color(
red4,STRPU),-42.0986,122),-14.9331,Tree(Leaf(Color(red,BRAFL),-38.6577,79),
-16.3735,Tree(Tree(Leaf(Color(red,DANRE),-40.5365,17),-32.9872,Tree(Tree(Leaf(
Color(red,GASAC),-42.2722,44),-36.6139,Tree(Leaf(Color(red,TAKRU),-42.5278,28),
-39.7184,Leaf(Color(red,TETNG),-42.6718,26),100),100),-36.1657,Leaf(Color(red,
ORYLA),-41.9754,45),100),100),-29.3246,Tree(Leaf(Color(red,XENTR),-43.1292,21),
-32.5323,Tree(Tree(Tree(Tree(Tree(Leaf(Color(red,RATNO),-41.9171,25),-40.8686,
Leaf(Color(red,MOUSE),-41.9105,19),100),-38.9297,Tree(Leaf(Color(red,DIPOR),
-41.8730,85),-39.0502,Tree(Leaf(Color(red,CAVPO),-41.9053,54),-39.0873,Tree(Tree
(Tree(Tree(Leaf(Color(red,CHOHO),-42.3259,89),-39.8951,Leaf(Color(red,DASNO),
-42.3023,42),100),-39.4038,Tree(Leaf(Color(red,ECHTE),-43.8708,43),-39.8054,Tree
(Leaf(Color(red,PROCA),-42.7298,84),-40.1938,Leaf(Color(red,LOXAF),-41.6218,40),
100),100),78),-39.2992,Tree(Tree(Leaf(Color(red,TUPGB),-41.9542,52),-39.4409,
Tree(Leaf(Color(red,SPETR),-42.1568,51),-39.4762,Tree(Tree(Leaf(Color(red,MICMU)
,-41.5324,69),-39.9004,Leaf(Color(red,OTOGA),-42.4127,50),100),-39.6033,Tree(
Leaf(Color(red,TARSY),-41.6663,86),-39.6372,Tree(Leaf(Color(red,CALJA),-41.3951,
99),-40.3048,Tree(Leaf(Color(red,MACMU),-41.1281,37),-40.5872,Tree(Tree(Leaf(
Color(red,PONAB),-41.1706,71),-40.7755,Tree(Tree(Leaf(Color(red,GORGO),-41.3154,
87),-40.9458,Leaf(Color(red,HUMAN),-41.0879,18),80),-40.9341,Leaf(Color(red,
PANTR),-41.1180,31),100),99),-40.7351,Leaf(Color(red,NOMLE),-41.1548,124),100),
100),100),86),100),82),94),-39.3590,Tree(Tree(Leaf(Color(red,ERIEU),-43.2422,49)
,-39.6019,Leaf(Color(red,SORAR),-43.2166,55),86),-39.4903,Tree(Tree(Leaf(Color(
red,PTEVA),-41.8394,81),-39.8391,Leaf(Color(red,MYOLU),-41.9392,53),100),
-39.5826,Tree(Tree(Leaf(Color(red,HORSE),-41.1069,72),-39.6519,Tree(Leaf(Color(
red,FELCA),-41.4923,48),-40.1060,Tree(Leaf(Color(red,AILME),-41.1842,116),
-40.2574,Leaf(Color(red,CANFA),-41.2212,24),100),100),100),-39.6208,Tree(Tree(
Leaf(Color(red,PIGXX),-41.5757,96),-40.0124,Tree(Leaf(Color(red,TURTR),-41.6978,
80),-40.1083,Leaf(Color(red,BOVIN),-41.6421,30),100),98),-39.9515,Leaf(Color(red
,LAMPA),-41.4498,83),100),100),100),96),78),95),-39.2004,Tree(Leaf(Color(red,
OCHPR),-42.4304,70),-39.9537,Leaf(Color(red,RABIT),-41.8548,41),100),99),63),89)
,100),-36.8165,Tree(Leaf(Color(red,MONDO),-41.2037,36),-39.1798,Tree(Leaf(Color(
red,SARHA),-40.8298,123),-39.4376,Leaf(Color(red,MACEU),-41.9365,93),100),100),
100),-36.0716,Leaf(Color(red,ORNAN),-40.5203,46),100),-34.4289,Tree(Leaf(Color(
red,ANOCA),-41.6214,90),-35.2938,Tree(Leaf(Color(red,TAEGU),-40.4666,91),
-37.6541,Tree(Leaf(Color(red,MELGA),-39.7224,103),-39.2819,Leaf(Color(red,CHICK)
,-39.9364,16),100),100),100),100),100),100),100),88),-14.6310,Tree(Leaf(Color(
red,CIOSA),-46.2573,39),-38.2007,Leaf(Color(red,CIOIN),-47.8144,27),100),100),97
),-13.0281,Tree(Tree(Leaf(Color(MediumBlue,CAPI1),-40.6996,100),-16.9312,Leaf(
Color(MediumBlue,HELRO),-43.8675,74),100),-15.6151,Leaf(Color(MediumBlue,LOTGI),
-40.5839,75),100),87),100),100),100),-8.6226,Tree(Leaf(Color(purple,PRIPA),
-47.7331,82),-26.5294,Tree(Leaf(Color(purple,CAEJA),-50.9761,88),-43.9762,Tree(
Tree(Tree(Leaf(Color(purple,CAERE),-50.6480,67),-46.8080,Leaf(Color(purple,CAEBR
),-51.3399,29),97),-46.3757,Leaf(Color(purple,CAEBE),-51.1595,92),93),-46.0057,
Leaf(Color(purple,CAEEL),-51.2546,8),100),100),100),100),100),49),97),0,Tree(
Leaf(Color(brown,DICDI),-41.7564,32),-0.4122,Tree(Tree(Leaf(Color(gold,EMIHU),
-40.6590,111),-4.3476,Tree(Tree(Tree(Tree(Leaf(Color(cyan,MAIZE),-43.9582,119),
-42.4707,Leaf(Color(cyan,SORBI),-44.5545,76),100),-38.6611,Leaf(Color(cyan,ORYSJ
),-43.5881,11),100),-29.6819,Tree(Tree(Leaf(Color(cyan,VITVI),-44.1264,68),
-35.4273,Tree(Leaf(Color(cyan,POPTR),-43.6062,61),-37.2136,Leaf(Color(cyan,MANES
),-43.2318,112),100),100),-33.5932,Tree(Leaf(Color(cyan,ARALY),-45.7492,104),
-44.5872,Leaf(Color(cyan,ARATH),-46.0056,5),100),100),100),-9.3078,Tree(Leaf(
Color(cyan,CHLRE),-43.5963,120),-11.6768,Tree(Leaf(Color(cyan,OSTLU),-51.7366,58
),-39.6328,Leaf(Color(cyan,OSTTA),-50.4911,110),100),97),100),100),-1.4355,Tree(
Leaf(Color(black,PLAF7),-62.8794,9),-19.5809,Leaf(Color(black,CRYPV),-64.4725,57
),100),90),97)) :
title := 'All Eukaryotal genomes, Thu Dec 22 16:38:15 2011, 124 species, 258439 orthologs, 77 top groups, 1316 used here, Arithmetic, BestSubset, DimlessQual: best: 0.045328, ave: 0.06715 +- 0.00015, var: 5.889e-06, Z=-8.993':
Xref := [LTEXT(110,3,'Chordata',color = [1, 0, 0]), LTEXT(110,6,'Dikarya',color = [0, 1, 0]), LTEXT(110,9,'Protostomia',color = [0, 0, 0.8039]), LTEXT(110,12,'Viridiplantae',color = [0, 1, 1]), LTEXT(110,15,'Pseudocoelomata',color = [0.6275, 0.1255, 0.9412]), LTEXT(110,18,'Euglenozoa',color = [1, 0.6471, 0]), LTEXT(110,21,'Alveolata',color = [0, 0, 0]), LTEXT(110,24,'Microsporidia',color = [0.8039, 0.3608, 0.3608]), LTEXT(110,27,'Echinodermata',color = [0.5451, 0, 0]), LTEXT(110,30,'Acoelomata',color = [0.1255, 0.6980, 0.6667]), LTEXT(110,33,'Cnidaria',color = [0, 0.3922, 0]), LTEXT(110,36,'Placozoa',color = [0.09803922, 0.09803922, 0.4392]), LTEXT(110,39,'Amoebozoa',color = [0.6471, 0.1647, 0.1647]), LTEXT(110,42,'Choanoflagellida',color = [1, 0.4118, 0.7059]), LTEXT(110,45,'Cryptophyta',color = [0.3333, 0.1020, 0.5451]), LTEXT(110,48,'Fornicata',color = [0.4980, 0.4980, 0.4980]), LTEXT(110,51,'Haptophyceae',color = [1, 0.8431, 0])]:

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