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

tree := Tree(Tree(Tree(Leaf(Color(red,BRAFD),-28.5157,62),-1.7078,Tree(Tree(Tree
(Tree(Leaf(Color(red,RENSM),-27.6226,41),-16.1858,Tree(Leaf(Color(red,ARTAT),
-27.3090,36),-22.5191,Tree(Leaf(Color(red,ARTCA),-26.8973,55),-22.9403,Leaf(
Color(red,ARTS2),-26.8490,25),93),100),100),-9.9384,Leaf(Color(red,KOCRD),
-29.1850,47),100),-4.2909,Tree(Tree(Tree(Leaf(Color(red,CLAMS),-30.1444,43),
-29.4955,Leaf(Color(red,CLAM3),-30.3782,39),100),-15.3615,Leaf(Color(red,LEIXX),
-29.2437,10),100),-7.9571,Tree(Leaf(Color(red,TROW8),-50.6543,16),-50.6543,Leaf(
Color(red,TROWT),-50.8091,12),100),100),100),-2.5683,Tree(Tree(Leaf(Color(red,
PROAC),-36.7021,7),-4.7530,Tree(Leaf(Color(red,NOCSJ),-28.6725,23),-5.6359,Tree(
Tree(Tree(Tree(Leaf(Color(red,THEFY),-30.2720,18),-9.2880,Tree(Leaf(Color(red,
STRGG),-30.0055,48),-24.0907,Tree(Leaf(Color(red,STRCO),-29.9205,11),-25.7709,
Tree(Leaf(Color(red,STRSW),-30.0004,67),-26.3862,Leaf(Color(red,STRAW),-29.6543,
1),100),100),100),94),-8.3254,Tree(Tree(Leaf(Color(red,SALTO),-31.4653,46),
-29.0042,Leaf(Color(red,SALAI),-31.2119,44),100),-8.9891,Tree(Tree(Tree(Leaf(
Color(red,FRAAA),-33.1697,34),-28.7903,Leaf(Color(red,FRASC),-33.4431,19),100),
-24.9456,Leaf(Color(red,FRASN),-32.6856,49),100),-9.9876,Leaf(Color(red,ACIC1),
-33.4808,26),91),69),70),-7.0029,Tree(Tree(Tree(Tree(Tree(Leaf(Color(red,RHOE4),
-33.0300,57),-27.4987,Tree(Leaf(Color(red,RHOOB),-32.0019,56),-31.3092,Leaf(
Color(red,RHOSR),-31.9412,35),100),100),-22.0345,Leaf(Color(red,NOCFA),-32.0803,
6),100),-19.4211,Tree(Leaf(Color(red,MYCA9),-33.9291,53),-23.5616,Tree(Tree(Leaf
(Color(red,MYCS2),-33.6476,33),-27.6277,Tree(Tree(Leaf(Color(red,MYCGI),-34.8174
,45),-31.0738,Leaf(Color(red,MYCVP),-34.2907,27),100),-28.1671,Tree(Leaf(Color(
red,MYCSJ),-33.7751,31),-33.6891,Tree(Leaf(Color(red,MYCSK),-33.7774,38),
-33.7505,Leaf(Color(red,MYCSS),-33.7747,21),100),100),91),100),-25.7133,Tree(
Tree(Tree(Tree(Leaf(Color(red,MYCLB),-38.3027,54),-38.2748,Leaf(Color(red,MYCLE)
,-38.2985,4),100),-30.1945,Tree(Leaf(Color(red,MYCTF),-35.5200,29),-35.5200,Tree
(Tree(Leaf(Color(red,MYCTA),-35.5851,37),-35.5608,Leaf(Color(red,MYCTU),-35.5872
,14),87),-35.5556,Tree(Leaf(Color(red,MYCBP),-35.6279,30),-35.5891,Leaf(Color(
red,MYCBO),-35.6186,15),100),88),100),86),-29.8936,Tree(Leaf(Color(red,MYCMM),
-35.3274,50),-35.2558,Leaf(Color(red,MYCUA),-35.6197,28),100),99),-29.5152,Tree(
Leaf(Color(red,MYCA1),-34.5815,22),-34.5268,Leaf(Color(red,MYCPA),-34.7565,13),
100),100),100),100),100),-15.0427,Tree(Tree(Tree(Leaf(Color(red,CORU7),-42.4987,
52),-32.5814,Leaf(Color(red,CORJK),-41.6095,17),100),-25.4641,Leaf(Color(red,
CORK4),-43.1895,66),72),-24.7968,Tree(Leaf(Color(red,CORA7),-42.8816,58),
-28.3641,Tree(Leaf(Color(red,CORDI),-42.2855,8),-29.8868,Tree(Leaf(Color(red,
COREF),-41.0089,9),-35.3068,Tree(Leaf(Color(red,CORGB),-41.6666,32),-41.5264,
Leaf(Color(red,CORGL),-41.6667,3),100),100),100),100),100),100),-12.2460,Tree(
Leaf(Color(red,ACTMD),-30.0126,63),-16.9962,Tree(Leaf(Color(red,SACVD),-31.2036,
65),-17.3931,Leaf(Color(red,SACEN),-30.7105,40),66),100),100),74),-5.8105,Tree(
Tree(Leaf(Color(purple,RUBXD),-65.2456,20),-23.7936,Tree(Tree(Leaf(Color(
MediumBlue,SLAHD),-77.1254,60),-54.7379,Leaf(Color(MediumBlue,CRYCD),-75.3888,68
),100),-27.1835,Leaf(Color(orange,SYMTH),-68.6589,5),95),100),-18.9526,Leaf(
Color(cyan,ACIFD),-58.2290,64),100),49),88),100),-2.7911,Leaf(Color(red,KINRD),
-23.8994,42),52),87),84),-0.9353,Tree(Leaf(Color(red,JONDD),-24.5825,59),-5.8605
,Leaf(Color(red,XYLCX),-21.5708,69),100),100),0,Tree(Leaf(Color(green,BIFLB),
-36.4173,61),-25.1013,Tree(Leaf(Color(green,BIFAA),-36.5268,24),-28.4141,Tree(
Leaf(Color(green,BIFLD),-36.5299,51),-36.4621,Leaf(Color(green,BIFLO),-36.5947,2
),100),100),100)) :
title := 'All Actinobacteria (max Length)  (only 1 isoform used) , Thu Feb 25 23:24:04 2010, 69 species, 37025 orthologs, 12 top groups, 188 used here, Weighted, BestSubset, DimlessQual: best: 0.60068, ave: 0.6400 +- 0.0016, var: 0.0006466, Z=-1.548':
Xref := [LTEXT(110,3,'Actinomycetales',color = [1, 0, 0]), LTEXT(110,6,'Bifidobacteriales',color = [0, 1, 0]), LTEXT(110,9,'Coriobacteridae',color = [0, 0, 0.8039]), LTEXT(110,12,'Acidimicrobidae',color = [0, 1, 1]), LTEXT(110,15,'Rubrobacteridae',color = [0.6275, 0.1255, 0.9412]), LTEXT(110,18,'Symbiobacterium',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():