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

tree := Tree(Tree(Tree(Tree(Tree(Tree(Leaf(Color(green,IXOSC),-31.3217,62),
-6.0555,Tree(Tree(Leaf(Color(green,DAPPU),-34.0099,43),-9.1415,Tree(Tree(Tree(
Leaf(Color(green,BOMMO),-34.9881,73),-13.9198,Tree(Tree(Tree(Leaf(Color(green,
CULQU),-36.8625,72),-31.6665,Leaf(Color(green,AEDAE),-36.4760,29),100),-28.1959,
Leaf(Color(green,ANOGA),-37.3968,3),100),-19.8649,Tree(Tree(Leaf(Color(green,
DROWI),-39.4327,67),-34.1758,Tree(Leaf(Color(green,DROPS),-39.7419,20),-34.9836,
Leaf(Color(green,DROME),-39.6721,2),100),100),-33.8108,Tree(Leaf(Color(green,
DROGR),-39.8598,71),-36.0805,Leaf(Color(green,DROVI),-39.3101,69),100),100),100)
,100),-13.1881,Leaf(Color(green,APIME),-31.4369,9),95),-12.3570,Tree(Leaf(Color(
green,PEDHC),-35.0849,70),-13.2183,Leaf(Color(green,ACYPI),-39.3565,75),92),100)
,100),-6.4404,Tree(Tree(Leaf(Color(MediumBlue,PRIPA),-45.5364,50),-27.2409,Tree(
Leaf(Color(MediumBlue,CAEJA),-50.5598,56),-44.2528,Tree(Leaf(Color(MediumBlue,
CAEEL),-50.5994,1),-45.8931,Tree(Tree(Leaf(Color(MediumBlue,CAERE),-50.1445,38),
-46.8294,Leaf(Color(MediumBlue,CAEBR),-51.0204,15),98),-46.3767,Leaf(Color(
MediumBlue,CAEBE),-50.7062,60),98),100),100),100),-8.8180,Leaf(Color(DarkGreen,
SCHMA),-43.2751,76),100),89),100),-4.3297,Leaf(Color(green,HELRO),-32.3609,44),
72),-3.3947,Tree(Leaf(Color(green,CAPI1),-27.3270,66),-5.6663,Leaf(Color(green,
LOTGI),-27.7928,45),75),100),-2.3555,Tree(Leaf(Color(LightSeaGreen,STRPU),
-26.7327,77),-3.0403,Tree(Tree(Leaf(Color(orange,CIOSA),-33.1380,21),-25.6602,
Leaf(Color(orange,CIOIN),-34.1197,13),100),-3.2470,Tree(Leaf(Color(red4,BRAFL),
-24.2390,47),-4.5730,Tree(Tree(Leaf(Color(cyan,DANRE),-25.9193,5),-19.4208,Tree(
Tree(Leaf(Color(cyan,GASAC),-27.5374,26),-22.3352,Tree(Leaf(Color(cyan,TAKRU),
-27.5053,14),-25.0775,Leaf(Color(cyan,TETNG),-27.7514,12),100),100),-22.0186,
Leaf(Color(cyan,ORYLA),-27.1043,27),100),100),-16.1755,Tree(Leaf(Color(IndianRed
,XENTR),-27.8950,8),-18.7731,Tree(Tree(Leaf(Color(black,ORNAN),-26.0112,28),
-21.8733,Tree(Tree(Leaf(Color(red,MONDO),-26.5035,18),-24.6824,Tree(Leaf(Color(
red,MACEU),-27.2640,61),-24.8356,Leaf(Color(red,SARHA),-26.1774,78),98),100),
-22.5871,Tree(Tree(Leaf(Color(red,DIPOR),-27.1586,53),-24.5840,Tree(Tree(Tree(
Tree(Tree(Tree(Tree(Tree(Leaf(Color(red,TARSY),-27.0828,54),-25.0586,Tree(Tree(
Leaf(Color(red,MACMU),-26.4784,19),-25.9267,Tree(Leaf(Color(red,NOMLE),-26.5280,
79),-26.0607,Tree(Leaf(Color(red,PONAB),-26.4830,41),-26.0843,Tree(Leaf(Color(
red,GORGO),-26.5432,55),-26.1961,Tree(Leaf(Color(red,PANTR),-26.3689,17),
-26.2034,Leaf(Color(red,HUMAN),-26.3508,6),58),100),94),100),100),-25.6597,Leaf(
Color(red,CALJA),-26.6635,65),100),51),-25.0524,Tree(Leaf(Color(red,MICMU),
-26.8628,39),-25.3642,Leaf(Color(red,OTOGA),-27.6353,32),100),100),-24.9475,Leaf
(Color(red,SPETR),-27.2913,33),61),-24.9270,Leaf(Color(red,TUPGB),-27.1612,34),
82),-24.8425,Tree(Tree(Leaf(Color(red,SORAR),-28.1614,37),-25.1109,Leaf(Color(
red,ERIEU),-28.7357,31),72),-24.9620,Tree(Tree(Leaf(Color(red,PTEVA),-27.0469,49
),-25.2562,Leaf(Color(red,MYOLU),-27.1280,35),100),-25.0457,Tree(Tree(Tree(Leaf(
Color(red,PIGXX),-26.6211,63),-25.3773,Tree(Leaf(Color(red,TURTR),-26.9352,48),
-25.4960,Leaf(Color(red,BOVIN),-26.8099,16),100),88),-25.3352,Leaf(Color(red,
LAMPA),-26.8045,51),100),-25.0819,Tree(Tree(Leaf(Color(red,FELCA),-26.7247,30),
-25.4616,Tree(Leaf(Color(red,AILME),-26.4411,74),-25.6184,Leaf(Color(red,CANFA),
-26.4421,10),100),100),-25.0949,Leaf(Color(red,HORSE),-26.3867,42),70),100),100)
,90),66),-24.7949,Tree(Tree(Leaf(Color(red,DASNO),-27.8974,24),-25.3287,Leaf(
Color(red,CHOHO),-27.6244,57),99),-24.8657,Tree(Leaf(Color(red,ECHTE),-28.9847,
25),-25.2308,Tree(Leaf(Color(red,LOXAF),-26.8946,22),-25.5904,Leaf(Color(red,
PROCA),-27.9414,52),100),100),79),83),-24.7145,Tree(Leaf(Color(red,OCHPR),
-27.6342,40),-25.2964,Leaf(Color(red,RABIT),-26.9926,23),100),92),-24.6379,Leaf(
Color(red,CAVPO),-27.0468,36),72),63),-24.5093,Tree(Leaf(Color(red,RATNO),
-27.1419,11),-26.1594,Leaf(Color(red,MOUSE),-27.0644,7),100),100),100),100),
-20.4248,Tree(Leaf(Color(purple,ANOCA),-26.9694,58),-21.2238,Tree(Leaf(Color(
purple,TAEGU),-25.8261,59),-23.3878,Tree(Leaf(Color(purple,MELGA),-25.1395,68),
-24.8402,Leaf(Color(purple,CHICK),-25.5293,4),100),100),100),100),100),100),100)
,83),100),100),-0.00112292,Leaf(Color(MidnightBlue,NEMVE),-23.7796,46),100),0,
Leaf(Color(brown,TRIAD),-30.8652,64)) :
title := 'All Metazoa (max Length)  (only 1 isoform used)  (VPs consistent per genome-pair) , Sat Jan  7 16:03:00 2012, 79 species, 163698 orthologs, 26 top groups, 850 used here, Arithmetic, BestSubset, DimlessQual: best: 0.032241, ave: 0.04851 +- 0.00015, var: 5.783e-06, Z=-6.767':
Xref := [LTEXT(110,3,'Theria',color = [1,0,0]),LTEXT(110,6,'Protostomia',color = [0,1,0]),LTEXT(110,9,'Pseudocoelomata',color = [0,0,0.8039]),LTEXT(110,12,'Actinopterygii',color = [0,1,1]),LTEXT(110,15,'Sauropsida',color = [0.6275,0.1255,0.9412]),LTEXT(110,18,'Tunicata',color = [1,0.6471,0]),LTEXT(110,21,'Prototheria',color = [0,0,0]),LTEXT(110,24,'Amphibia',color = [0.8039,0.3608,0.3608]),LTEXT(110,27,'Cephalochordata',color = [0.5451,0,0]),LTEXT(110,30,'Echinodermata',color = [0.1255,0.6980,0.6667]),LTEXT(110,33,'Acoelomata',color = [0,0.3922,0]),LTEXT(110,36,'Cnidaria',color = [0.09803922,0.09803922,0.4392]),LTEXT(110,39,'Placozoa',color = [0.6471,0.1647,0.1647])]:

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