# Darwin script to draw distance trees of
#    70 Metazoa
# Downloaded from http://www.biorecipes.com/Orthologues/status.html
# (C) 2010 CBRG, ETH Zurich

tree := Tree(Tree(Tree(Tree(Tree(Tree(Leaf(Color(MediumBlue,PRIPA),-40.8030,50),
-24.4053,Tree(Leaf(Color(MediumBlue,CAEJA),-47.0224,56),-41.2763,Tree(Tree(Tree(
Leaf(Color(MediumBlue,CAERE),-46.8338,38),-43.7727,Leaf(Color(MediumBlue,CAEBR),
-47.5987,15),94),-43.3866,Leaf(Color(MediumBlue,CAEBE),-47.5309,60),98),-42.9433
,Leaf(Color(MediumBlue,CAEEL),-47.3036,1),100),100),100),-5.3699,Tree(Tree(Leaf(
Color(green,DAPPU),-31.1073,43),-8.4624,Tree(Tree(Leaf(Color(green,APIME),
-29.2192,9),-12.8096,Leaf(Color(green,PEDHC),-33.6257,70),99),-11.5524,Tree(Tree
(Leaf(Color(green,AEDAE),-33.7518,29),-26.2866,Leaf(Color(green,ANOGA),-34.9098,
3),100),-18.1949,Tree(Tree(Leaf(Color(green,DROVI),-36.8242,69),-31.3949,Tree(
Leaf(Color(green,DROPS),-36.7266,20),-32.1638,Leaf(Color(green,DROME),-36.3986,2
),100),56),-31.3370,Leaf(Color(green,DROWI),-36.2079,67),100),100),100),100),
-5.9052,Leaf(Color(green,IXOSC),-29.8501,62),98),100),-3.1251,Tree(Leaf(Color(
green,LOTGI),-26.5320,45),-4.8249,Tree(Leaf(Color(green,HELRO),-29.7412,44),
-5.7888,Leaf(Color(green,CAPI1),-25.7697,66),100),100),100),-2.0072,Tree(Leaf(
Color(DarkGreen,NEMVE),-27.0925,46),-4.5119,Leaf(Color(MidnightBlue,TRIAD),
-33.6181,64),100),100),-1.1366,Tree(Tree(Tree(Leaf(Color(cyan,DANRE),-22.6613,5)
,-16.5014,Tree(Leaf(Color(cyan,ORYLA),-23.7884,27),-19.0578,Tree(Tree(Leaf(Color
(cyan,TAKRU),-24.4459,14),-22.0484,Leaf(Color(cyan,TETNG),-24.8066,12),100),
-19.3398,Leaf(Color(cyan,GASAC),-24.3377,26),100),100),100),-13.4230,Tree(Leaf(
Color(red4,XENTR),-23.5652,8),-15.6693,Tree(Tree(Leaf(Color(purple,ANOCA),
-23.4860,58),-18.1194,Tree(Leaf(Color(purple,TAEGU),-22.5897,59),-20.2978,Tree(
Leaf(Color(purple,MELGA),-22.1312,68),-21.7716,Leaf(Color(purple,CHICK),-22.4187
,4),100),100),100),-17.3687,Tree(Tree(Tree(Leaf(Color(orange,MACEU),-24.1071,61)
,-21.5444,Leaf(Color(orange,MONDO),-23.3302,18),100),-19.4825,Tree(Tree(Leaf(
Color(red,DIPOR),-23.9446,53),-21.3518,Tree(Tree(Leaf(Color(red,SPETR),-23.5837,
33),-21.4563,Tree(Tree(Tree(Tree(Tree(Tree(Leaf(Color(red,HORSE),-23.0760,42),
-21.8481,Tree(Tree(Tree(Tree(Leaf(Color(red,TURTR),-23.6698,48),-22.2700,Leaf(
Color(red,BOVIN),-23.6359,16),100),-22.1425,Leaf(Color(red,PIGXX),-23.4910,63),
85),-22.1054,Leaf(Color(red,LAMPA),-23.5358,51),100),-21.8629,Tree(Leaf(Color(
red,FELCA),-23.5523,30),-22.2392,Leaf(Color(red,CANFA),-23.1766,10),100),64),82)
,-21.8239,Tree(Leaf(Color(red,MYOLU),-24.4780,35),-22.0413,Leaf(Color(red,PTEVA)
,-23.8333,49),100),100),-21.7348,Tree(Leaf(Color(red,ERIEU),-25.3820,31),
-21.9692,Leaf(Color(red,SORAR),-24.8267,37),95),97),-21.6392,Tree(Tree(Leaf(
Color(red,ECHTE),-25.5572,25),-22.0058,Tree(Leaf(Color(red,PROCA),-24.6705,52),
-22.3827,Leaf(Color(red,LOXAF),-23.6477,22),100),100),-21.7376,Tree(Leaf(Color(
red,DASNO),-24.8906,24),-22.1669,Leaf(Color(red,CHOHO),-24.2801,57),100),97),77)
,-21.6055,Tree(Leaf(Color(red,TUPGB),-23.9104,34),-21.6569,Tree(Tree(Tree(Leaf(
Color(red,CALJA),-23.3530,65),-22.3758,Tree(Leaf(Color(red,MACMU),-23.1228,19),
-22.6133,Tree(Leaf(Color(red,PONAB),-23.1713,41),-22.7724,Tree(Leaf(Color(red,
GORGO),-23.3543,55),-22.8649,Tree(Leaf(Color(red,PANTR),-23.0536,17),-22.8915,
Leaf(Color(red,HUMAN),-23.0336,6),73),97),100),100),100),-21.8215,Leaf(Color(red
,TARSY),-23.9748,54),80),-21.7918,Tree(Leaf(Color(red,MICMU),-23.7260,39),
-22.1304,Leaf(Color(red,OTOGA),-24.4610,32),100),100),80),93),-21.5110,Tree(Leaf
(Color(red,OCHPR),-24.3818,40),-22.1295,Leaf(Color(red,RABIT),-23.7612,23),100),
75),62),-21.4129,Leaf(Color(red,CAVPO),-23.6934,36),77),64),-21.2811,Tree(Leaf(
Color(red,RATNO),-23.7787,11),-22.8650,Leaf(Color(red,MOUSE),-23.7602,7),100),
100),100),-18.8555,Leaf(Color(IndianRed,ORNAN),-22.9272,28),100),100),100),100),
-2.3102,Leaf(Color(LightSeaGreen,BRAFL),-21.5534,47),100),100),0,Tree(Leaf(Color
(black,CIOSA),-26.6007,21),-20.1258,Leaf(Color(black,CIOIN),-28.4694,13),100)) :
title := 'All Metazoa (max Length)  (only 1 isoform used) , Wed Aug  4 02:05:49 2010, 70 species, 149311 orthologs, 22 top groups, 757 used here, Arithmetic, BestSubset, DimlessQual: best: 0.026988, ave: 0.04760 +- 0.00019, var: 9.644e-06, Z=-6.636':
Xref := [LTEXT(110,3,'Eutheria',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,'Metatheria',color = [1, 0.6471, 0]), LTEXT(110,21,'Urochordata',color = [0, 0, 0]), LTEXT(110,24,'Prototheria',color = [0.8039, 0.3608, 0.3608]), LTEXT(110,27,'Amphibia',color = [0.5451, 0, 0]), LTEXT(110,30,'Cephalochordata',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])]:

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