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

tree := Tree(Tree(Tree(Leaf(Color(red,BRAFD),-31.4839,61),-3.2705,Tree(Tree(Tree
(Tree(Leaf(Color(red,TROW8),-54.9313,15),-54.8272,Leaf(Color(red,TROWT),-54.8842
,11),100),-10.0207,Tree(Tree(Leaf(Color(red,CLAMS),-32.1670,42),-31.5580,Leaf(
Color(red,CLAM3),-32.3235,38),100),-17.3337,Leaf(Color(red,LEIXX),-31.4496,9),
100),100),-5.6558,Tree(Tree(Leaf(Color(red,RENSM),-29.2435,40),-17.5979,Tree(
Leaf(Color(red,ARTAT),-29.4244,35),-24.3196,Tree(Leaf(Color(red,ARTCA),-28.8406,
54),-24.8211,Leaf(Color(red,ARTS2),-28.8451,24),98),100),100),-11.1988,Tree(Leaf
(Color(red,ROTMD),-34.5395,80),-14.0084,Leaf(Color(red,KOCRD),-31.1116,46),100),
100),100),-3.8782,Tree(Leaf(Color(red,KINRD),-25.7934,41),-4.2737,Tree(Tree(Tree
(Tree(Tree(Tree(Leaf(Color(MediumBlue,SLAHD),-76.6026,59),-61.5476,Leaf(Color(
MediumBlue,CRYCD),-77.3441,67),100),-22.3372,Leaf(Color(orange,RUBXD),-65.2848,
19),99),-18.9452,Leaf(Color(purple,ACIFD),-58.4282,63),100),-7.2109,Tree(Tree(
Tree(Tree(Tree(Leaf(Color(red,SALTO),-33.6660,45),-31.0247,Leaf(Color(red,SALAI)
,-33.3737,43),100),-16.0731,Leaf(Color(red,STANL),-35.9275,79),100),-9.5128,Tree
(Tree(Tree(Tree(Tree(Tree(Tree(Leaf(Color(red,CORU7),-46.1685,51),-34.5739,Leaf(
Color(red,CORJK),-45.0007,16),100),-27.6027,Leaf(Color(red,CORK4),-46.1966,65),
92),-27.1006,Tree(Leaf(Color(red,CORA7),-46.1967,57),-30.9704,Tree(Tree(Leaf(
Color(red,CORPF),-45.6356,85),-38.0465,Leaf(Color(red,CORDI),-45.8089,7),100),
-32.2750,Tree(Leaf(Color(red,COREF),-44.1403,8),-38.3157,Tree(Leaf(Color(red,
CORGB),-45.2033,31),-44.9350,Leaf(Color(red,CORGL),-44.9562,3),100),100),100),
100),100),-17.1397,Tree(Tree(Tree(Leaf(Color(red,RHOE4),-35.5305,56),-29.6014,
Tree(Leaf(Color(red,RHOOB),-34.8011,55),-34.0279,Leaf(Color(red,RHOSR),-34.5979,
34),100),100),-24.8670,Leaf(Color(red,NOCFA),-34.7742,5),100),-21.9998,Tree(Tree
(Tree(Tree(Leaf(Color(red,MYCA1),-37.3736,21),-37.2819,Leaf(Color(red,MYCPA),
-37.4952,12),100),-32.5484,Tree(Tree(Tree(Leaf(Color(red,MYCMM),-38.0230,49),
-38.0163,Leaf(Color(red,MYCUA),-38.4739,27),100),-32.9381,Tree(Leaf(Color(red,
MYCTF),-38.3655,28),-38.3655,Tree(Tree(Tree(Leaf(Color(red,MYCBT),-38.4694,83),
-38.4427,Leaf(Color(red,MYCBP),-38.4702,29),100),-38.4313,Leaf(Color(red,MYCBO),
-38.4571,14),100),-38.3989,Tree(Leaf(Color(red,MYCTA),-38.4291,36),-38.4035,Leaf
(Color(red,MYCTU),-38.4273,13),67),82),100),81),-32.7198,Tree(Leaf(Color(red,
MYCLB),-40.7253,53),-40.7010,Leaf(Color(red,MYCLE),-40.7273,4),100),71),100),
-28.2456,Tree(Tree(Tree(Leaf(Color(red,MYCGI),-37.5532,44),-33.7527,Leaf(Color(
red,MYCVP),-36.9462,26),100),-30.8194,Tree(Leaf(Color(red,MYCSJ),-36.5447,30),
-36.4663,Tree(Leaf(Color(red,MYCSK),-36.5532,37),-36.5266,Leaf(Color(red,MYCSS),
-36.5502,20),100),100),87),-30.3862,Leaf(Color(red,MYCS2),-36.3985,32),100),100)
,-26.2500,Leaf(Color(red,MYCA9),-36.7827,52),100),100),100),-14.5585,Tree(Tree(
Leaf(Color(red,SACVD),-34.2264,64),-19.9440,Leaf(Color(red,SACEN),-33.3749,39),
94),-19.3113,Leaf(Color(red,ACTMD),-32.4854,62),100),100),-12.9334,Leaf(Color(
red,NAKMY),-35.5224,81),100),-10.2914,Leaf(Color(red,GEOOG),-32.6839,78),100),94
),-8.5198,Tree(Tree(Leaf(Color(red,FRASN),-34.1486,48),-26.3458,Tree(Leaf(Color(
red,FRAAA),-34.0540,33),-29.7167,Leaf(Color(red,FRASC),-34.9154,18),100),100),
-10.0371,Tree(Leaf(Color(red,ACIC1),-34.7852,25),-10.9712,Tree(Tree(Tree(Leaf(
Color(red,THECD),-31.4799,72),-16.8471,Leaf(Color(red,STRRD),-32.2692,75),97),
-15.5963,Leaf(Color(red,THEFY),-33.0598,17),100),-11.6322,Tree(Leaf(Color(red,
CATAD),-33.3357,73),-13.4720,Tree(Leaf(Color(red,STRGG),-31.8261,47),-25.9410,
Tree(Leaf(Color(red,STRCO),-31.8309,10),-27.7211,Tree(Leaf(Color(red,STRSW),
-31.8725,66),-28.3595,Leaf(Color(red,STRAW),-31.7165,1),100),100),100),100),87),
98),90),71),-7.5190,Leaf(Color(red,NOCSJ),-31.2394,22),76),98),-6.4364,Leaf(
Color(red,PROAC),-39.7594,6),100),-5.2030,Leaf(Color(red,KYTSD),-32.9421,71),100
),92),88),92),-2.5353,Tree(Leaf(Color(red,BEUC1),-23.9951,82),-5.7843,Tree(Leaf(
Color(red,XYLCX),-23.9962,68),-8.5731,Tree(Leaf(Color(red,JONDD),-26.4045,58),
-10.3091,Leaf(Color(red,SANKS),-23.1879,70),100),100),100),100),0,Tree(Leaf(
Color(cyan,GARV4),-39.7745,74),-24.9337,Tree(Tree(Tree(Leaf(Color(green,BIFAA),
-36.4814,23),-32.7858,Leaf(Color(green,BIFDB),-36.1902,76),100),-28.7665,Tree(
Leaf(Color(green,BIFLD),-37.4641,50),-37.3002,Leaf(Color(green,BIFLO),-37.3620,2
),100),100),-25.9600,Tree(Tree(Leaf(Color(green,BIFAV),-37.8745,84),-37.8544,
Tree(Leaf(Color(green,BIFA0),-37.8949,69),-37.8612,Leaf(Color(green,BIFLB),
-37.8824,60),67),88),-37.8257,Leaf(Color(green,BIFAB),-37.8257,77),100),91),100)
) :
title := 'All Actinobacteria (max Length)  (only 1 isoform used) , Thu Dec 16 03:44:52 2010, 85 species, 42935 orthologs, 20 top groups, 214 used here, Weighted, BestSubset, DimlessQual: best: 0.66372, ave: 0.7152 +- 0.0021, var: 0.001103, Z=-1.549':
Xref := [LTEXT(110,3,'Actinomycetales',color = [1, 0, 0]), LTEXT(110,6,'Bifidobacterium',color = [0, 1, 0]), LTEXT(110,9,'Coriobacteridae',color = [0, 0, 0.8039]), LTEXT(110,12,'Gardnerella',color = [0, 1, 1]), LTEXT(110,15,'Acidimicrobidae',color = [0.6275, 0.1255, 0.9412]), LTEXT(110,18,'Rubrobacteridae',color = [1, 0.6471, 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():