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

tree := Tree(Tree(Leaf(Color(DarkGreen,NEMVE),-25.2530,46),-1.5981,Leaf(Color(
MidnightBlue,TRIAD),-32.0912,64),100),0,Tree(Tree(Tree(Tree(Leaf(Color(green,
IXOSC),-29.1369,62),-5.0759,Tree(Tree(Leaf(Color(green,APIME),-30.2927,9),
-11.3171,Tree(Tree(Leaf(Color(green,AEDAE),-33.9271,29),-26.0085,Leaf(Color(
green,ANOGA),-34.9076,3),100),-17.4204,Tree(Leaf(Color(green,DROWI),-35.9268,67)
,-31.0589,Tree(Leaf(Color(green,DROPS),-36.9089,20),-31.9937,Leaf(Color(green,
DROME),-36.1775,2),100),100),100),100),-7.5213,Leaf(Color(green,DAPPU),-31.3874,
43),100),100),-4.1267,Tree(Leaf(Color(MediumBlue,PRIPA),-43.4959,50),-24.7662,
Tree(Leaf(Color(MediumBlue,CAEJA),-48.8523,56),-42.0940,Tree(Leaf(Color(
MediumBlue,CAEEL),-48.0932,1),-43.4756,Tree(Tree(Leaf(Color(MediumBlue,CAEBR),
-48.4396,15),-44.3267,Leaf(Color(MediumBlue,CAERE),-47.4484,38),98),-43.8856,
Leaf(Color(MediumBlue,CAEBI),-48.1823,60),96),100),100),100),100),-2.0728,Tree(
Leaf(Color(green,LOTGI),-26.1823,45),-3.9756,Tree(Leaf(Color(green,CAPI1),
-25.6289,66),-4.7903,Leaf(Color(green,HELRO),-29.8016,44),99),100),100),-0.9868,
Tree(Tree(Leaf(Color(black,CIOSA),-30.6377,21),-23.9923,Leaf(Color(black,CIOIN),
-32.4954,13),100),-1.9457,Tree(Leaf(Color(LightSeaGreen,BRAFL),-23.1064,47),
-3.1189,Tree(Tree(Leaf(Color(cyan,DANRE),-24.6714,5),-17.9704,Tree(Tree(Leaf(
Color(cyan,GASAC),-25.9962,26),-20.7928,Tree(Leaf(Color(cyan,FUGRU),-25.9398,14)
,-23.5998,Leaf(Color(cyan,TETNG),-26.4595,12),100),100),-20.4504,Leaf(Color(cyan
,ORYLA),-25.5166,27),100),100),-14.5896,Tree(Leaf(Color(red4,XENTR),-25.2925,8),
-16.9527,Tree(Tree(Tree(Tree(Leaf(Color(orange,MACEU),-25.7204,61),-23.0742,Leaf
(Color(orange,MONDO),-24.8367,18),100),-20.9741,Tree(Tree(Leaf(Color(red,RATNO),
-25.3868,11),-24.4512,Leaf(Color(red,MOUSE),-25.3800,7),100),-22.8246,Tree(Leaf(
Color(red,DIPOR),-25.4084,53),-22.9016,Tree(Leaf(Color(red,CAVPO),-25.3644,36),
-22.9853,Tree(Tree(Tree(Tree(Tree(Tree(Leaf(Color(red,ERIEU),-26.9227,31),
-23.5634,Leaf(Color(red,SORAR),-26.5991,37),99),-23.2936,Tree(Tree(Tree(Leaf(
Color(red,HORSE),-24.6371,42),-23.4264,Tree(Leaf(Color(red,FELCA),-25.0182,30),
-23.7993,Leaf(Color(red,CANFA),-24.7586,10),100),68),-23.4120,Tree(Leaf(Color(
red,PTEVA),-25.4317,49),-23.6399,Leaf(Color(red,MYOLU),-26.2182,35),100),59),
-23.3951,Tree(Tree(Leaf(Color(red,PIGXX),-25.1192,63),-23.7134,Tree(Leaf(Color(
red,TURTR),-25.2214,48),-23.8227,Leaf(Color(red,BOVIN),-25.1733,16),100),96),
-23.6605,Leaf(Color(red,LAMPA),-25.1568,51),100),100),99),-23.1716,Tree(Tree(
Tree(Leaf(Color(red,MICMU),-25.2534,39),-23.6353,Leaf(Color(red,OTOGA),-25.9945,
32),100),-23.3421,Tree(Leaf(Color(red,TARSY),-25.6242,54),-23.3815,Tree(Leaf(
Color(red,CALJA),-24.9250,65),-23.9563,Tree(Leaf(Color(red,MACMU),-24.7384,19),
-24.2143,Tree(Leaf(Color(red,PONAB),-24.7692,41),-24.3582,Tree(Leaf(Color(red,
GORGO),-24.8643,55),-24.4267,Tree(Leaf(Color(red,PANTR),-24.6495,17),-24.4788,
Leaf(Color(red,HUMAN),-24.6251,6),91),94),100),100),100),93),100),-23.2311,Leaf(
Color(red,TUPGB),-25.4927,34),90),39),-23.1464,Tree(Tree(Leaf(Color(red,ECHTE),
-27.2086,25),-23.5859,Tree(Leaf(Color(red,PROCA),-26.2071,52),-23.9511,Leaf(
Color(red,LOXAF),-25.7567,22),100),100),-23.2281,Tree(Leaf(Color(red,CHOHO),
-25.8417,57),-23.7929,Leaf(Color(red,DASNO),-26.5312,24),100),75),92),-23.0671,
Tree(Leaf(Color(red,OCHPR),-26.0242,40),-23.7180,Leaf(Color(red,RABIT),-25.4554,
23),100),85),-22.9975,Leaf(Color(red,SPETR),-25.1685,33),53),81),73),100),100),
-20.2447,Leaf(Color(IndianRed,ORNAN),-24.2033,28),100),-18.7858,Tree(Leaf(Color(
purple,ANOCA),-25.1590,58),-19.4978,Tree(Leaf(Color(purple,TAEGU),-24.1555,59),
-21.7440,Leaf(Color(purple,CHICK),-23.7813,4),100),100),100),100),100),100),100)
,100)) :
title := 'All Metazoa (max Length)  (only 1 isoform used) , Tue Mar  2 20:59:21 2010, 67 species, 145537 orthologs, 22 top groups, 807 used here, Arithmetic, BestSubset, DimlessQual: best: 0.023166, ave: 0.04044 +- 0.00015, var: 6.024e-06, Z=-7.039':
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():