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

tree := Tree(Tree(Tree(Tree(Leaf(Color(red4,ORNAN),-14.7913,13),-4.4889,Tree(
Leaf(Color(black,MACEU),-11.7140,34),-8.0155,Leaf(Color(black,MONDO),-10.4133,7)
,100),100),-0.8036,Tree(Tree(Leaf(Color(orange,DASNO),-4.9363,11),-1.5429,Leaf(
Color(orange,CHOHO),-4.4117,33),100),-0.8442,Tree(Tree(Tree(Leaf(Color(red,SORAR
),-6.2769,21),-1.6774,Leaf(Color(red,ERIEU),-6.7348,15),100),-1.2793,Tree(Tree(
Leaf(Color(red,MYOLU),-5.3208,19),-1.6898,Leaf(Color(red,PTEVA),-4.0127,27),100)
,-1.3398,Tree(Leaf(Color(red,HORSE),-3.2437,25),-1.3867,Tree(Tree(Tree(Leaf(
Color(red,LAMPA),-4.1680,28),-1.8864,Leaf(Color(red,PIGXX),-3.8818,35),56),
-1.8599,Tree(Leaf(Color(red,BOVIN),-4.2849,5),-2.1252,Leaf(Color(red,TURTR),
-3.9485,26),100),100),-1.4013,Tree(Leaf(Color(red,FELCA),-3.9972,14),-2.0543,
Leaf(Color(red,CANFA),-3.4577,3),100),74),99),100),100),-1.0622,Tree(Tree(Tree(
Leaf(Color(MediumBlue,RABIT),-5.0559,10),-2.5053,Leaf(Color(MediumBlue,OCHPR),
-6.3670,23),100),-1.3599,Tree(Leaf(Color(MediumBlue,CAVPO),-5.4745,20),-1.6172,
Tree(Leaf(Color(MediumBlue,SPETR),-4.4072,17),-1.6624,Tree(Leaf(Color(MediumBlue
,DIPOR),-5.4540,30),-1.8210,Tree(Leaf(Color(MediumBlue,RATNO),-6.1423,4),-4.6748
,Leaf(Color(MediumBlue,MOUSE),-5.9546,2),100),100),93),100),100),-1.2388,Tree(
Leaf(Color(IndianRed,TUPGB),-4.6367,18),-1.3369,Tree(Tree(Leaf(Color(green,TARSY
),-4.4028,31),-1.6147,Tree(Leaf(Color(green,CALJA),-3.7766,36),-2.5129,Tree(Leaf
(Color(green,MACMU),-3.5335,8),-2.8648,Tree(Leaf(Color(green,PONAB),-3.4499,24),
-3.0505,Tree(Leaf(Color(green,GORGO),-3.6778,32),-3.1769,Tree(Leaf(Color(green,
PANTR),-3.4202,6),-3.2230,Leaf(Color(green,HUMAN),-3.3879,1),85),100),100),100),
100),96),-1.5582,Tree(Leaf(Color(purple,OTOGA),-5.0315,16),-1.9816,Leaf(Color(
purple,MICMU),-4.1388,22),100),100),100),100),100),78),100),-0.3699,Tree(Leaf(
Color(cyan,LOXAF),-3.1802,9),-0.9115,Leaf(Color(cyan,PROCA),-4.2577,29),100),100
),0,Leaf(Color(cyan,ECHTE),-5.1812,12)) :
title := 'All Mammalia (max Length)  (only 1 isoform used) , Tue Dec 15 14:53:22 2009, 36 species, 61247 orthologs, 4 top groups, 330 used here, Arithmetic, BestSubset, DimlessQual: best: 0.42623, ave: 0.6226 +- 0.0030, var: 0.002405, Z=-4.005':
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,'Strepsirrhini',color = [0.6275, 0.1255, 0.9412]), LTEXT(110,18,'Xenarthra',color = [1, 0.6471, 0]), LTEXT(110,21,'Metatheria',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():