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

tree := Tree(Tree(Leaf(Color(red,SORAR),-3.5021,21),-0.1917,Tree(Tree(Tree(Tree(
Tree(Leaf(Color(MediumBlue,CAVPO),-3.4002,20),-0.9187,Tree(Tree(Tree(Leaf(Color(
MediumBlue,RATNO),-4.0014,4),-2.9460,Leaf(Color(MediumBlue,MOUSE),-3.8303,2),100
),-1.0363,Leaf(Color(MediumBlue,DIPOR),-3.7150,30),100),-0.9384,Leaf(Color(
MediumBlue,SPETR),-3.0257,17),75),100),-0.7558,Tree(Leaf(Color(MediumBlue,RABIT)
,-3.0167,10),-1.4697,Leaf(Color(MediumBlue,OCHPR),-4.0259,23),100),100),-0.6735,
Tree(Tree(Tree(Leaf(Color(orange,MICMU),-2.5648,22),-1.0661,Leaf(Color(orange,
OTOGA),-3.4311,16),100),-0.8472,Tree(Leaf(Color(green,TARSY),-2.9142,31),-0.9076
,Tree(Leaf(Color(green,CALJA),-2.2873,36),-1.4213,Tree(Leaf(Color(green,MACMU),
-2.1012,8),-1.6322,Tree(Leaf(Color(green,NOMLE),-2.0580,39),-1.7172,Tree(Leaf(
Color(green,PONAB),-2.0490,24),-1.7467,Tree(Leaf(Color(green,GORGO),-2.0872,32),
-1.8423,Tree(Leaf(Color(green,PANTR),-2.0007,6),-1.8547,Leaf(Color(green,HUMAN),
-1.9738,1),96),100),99),100),100),100),100),100),-0.7183,Leaf(Color(IndianRed,
TUPGB),-2.9937,18),100),100),-0.5517,Tree(Tree(Tree(Leaf(Color(red4,ORNAN),
-11.2595,13),-3.3086,Tree(Leaf(Color(purple,MONDO),-6.9949,7),-5.5115,Tree(Leaf(
Color(purple,SARHA),-7.0953,38),-5.7396,Leaf(Color(purple,MACEU),-8.0336,34),100
),100),100),-0.7439,Tree(Leaf(Color(black,DASNO),-3.2399,11),-1.0947,Leaf(Color(
black,CHOHO),-3.3392,33),100),90),-0.6944,Tree(Leaf(Color(cyan,ECHTE),-4.9702,12
),-1.0192,Tree(Leaf(Color(cyan,LOXAF),-2.6037,9),-1.3831,Leaf(Color(cyan,PROCA),
-3.7943,29),100),100),100),100),-0.4076,Tree(Tree(Leaf(Color(red,MYOLU),-2.5422,
19),-0.6744,Leaf(Color(red,PTEVA),-2.2514,27),100),-0.4527,Tree(Tree(Leaf(Color(
red,HORSE),-1.6465,25),-0.4694,Tree(Leaf(Color(red,FELCA),-2.1927,14),-0.8800,
Tree(Leaf(Color(red,AILME),-1.7572,37),-0.9775,Leaf(Color(red,CANFA),-1.7782,3),
100),100),53),-0.4649,Tree(Leaf(Color(red,LAMPA),-2.3554,28),-0.7567,Tree(Tree(
Leaf(Color(red,TURTR),-2.2607,26),-0.9387,Leaf(Color(red,BOVIN),-2.2420,5),100),
-0.7985,Leaf(Color(red,PIGXX),-2.0868,35),99),100),92),100),100),100),0,Leaf(
Color(red,ERIEU),-3.3532,15)) :
title := 'All Mammalia (max Length)  (only 1 isoform used)  (VPs consistent per genome-pair) , Fri Dec 23 22:20:39 2011, 39 species, 61714 orthologs, 4 top groups, 479 used here, AveVarWeighted, BestSubset, DimlessQual: best: 0.27374, ave: 0.4133 +- 0.0021, var: 0.001156, Z=-4.102':
Xref := [LTEXT(110,3,'Laurasiatheria',color = [1, 0, 0]), LTEXT(110,6,'Haplorrhini',color = [0, 1, 0]), LTEXT(110,9,'Glires',color = [0, 0, 0.8039]), LTEXT(110,12,'Afrotheria',color = [0, 1, 1]), LTEXT(110,15,'Metatheria',color = [0.6275, 0.1255, 0.9412]), LTEXT(110,18,'Strepsirrhini',color = [1, 0.6471, 0]), LTEXT(110,21,'Xenarthra',color = [0, 0, 0]), LTEXT(110,24,'Scandentia',color = [0.8039, 0.3608, 0.3608]), LTEXT(110,27,'Prototheria',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():