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

tree := Tree(Tree(Tree(Tree(Tree(Tree(Leaf(Color(IndianRed,LACLM),-39.7098,70),
-39.4878,Leaf(Color(IndianRed,LACLS),-39.6976,67),100),-38.4590,Leaf(Color(
IndianRed,LACLA),-39.1503,30),100),-19.2048,Tree(Tree(Tree(Tree(Leaf(Color(red,
STRSY),-39.4772,81),-39.4383,Tree(Tree(Leaf(Color(red,STRSE),-39.4717,146),
-39.4430,Leaf(Color(red,STRS4),-39.4833,175),27),-39.4412,Leaf(Color(red,STRSX),
-39.4690,144),43),78),-39.3820,Leaf(Color(red,STRS2),-39.3820,74),100),-29.4818,
Tree(Tree(Leaf(Color(red,STRGC),-39.0501,87),-37.4813,Leaf(Color(red,STRSV),
-39.4362,72),100),-32.8503,Tree(Leaf(Color(red,STRP4),-38.9810,128),-38.8917,
Tree(Leaf(Color(red,STRPI),-39.1080,117),-38.9351,Tree(Tree(Leaf(Color(red,STRZT
),-39.0814,157),-38.9541,Tree(Tree(Tree(Leaf(Color(red,STRPS),-39.1383,118),
-38.9947,Tree(Leaf(Color(red,STRZJ),-39.1539,142),-39.0599,Leaf(Color(red,STRPJ)
,-39.1562,152),100),56),-38.9870,Tree(Tree(Leaf(Color(red,STRP2),-39.1134,77),
-39.0902,Leaf(Color(red,STRR6),-39.1199,39),100),-39.0046,Leaf(Color(red,STRPN),
-39.1248,8),85),44),-38.9823,Leaf(Color(red,STRZP),-39.1196,137),95),26),
-38.9471,Leaf(Color(red,STRP7),-39.0817,168),30),41),100),100),100),-27.8386,
Tree(Tree(Tree(Leaf(Color(red,STRTD),-39.0210,68),-38.8786,Tree(Leaf(Color(red,
STRT2),-39.0245,40),-38.9745,Leaf(Color(red,STRT1),-39.0718,25),99),100),
-29.3384,Tree(Leaf(Color(red,STRG3),-38.2708,176),-30.2894,Tree(Tree(Tree(Leaf(
Color(red,STRA3),-39.2722,31),-39.1250,Leaf(Color(red,STRA5),-39.1430,33),64),
-39.0651,Leaf(Color(red,STRA1),-39.0938,44),100),-31.5591,Tree(Leaf(Color(red,
STRU0),-39.7076,151),-33.4884,Tree(Tree(Tree(Leaf(Color(red,STRE4),-40.3210,134)
,-40.0215,Leaf(Color(red,STREM),-40.3208,126),58),-39.9537,Leaf(Color(red,STRS7)
,-40.1779,136),100),-34.4997,Tree(Tree(Tree(Tree(Tree(Tree(Leaf(Color(red,STRPD)
,-39.8251,52),-39.6675,Tree(Leaf(Color(red,STRPF),-39.8461,53),-39.6796,Tree(
Leaf(Color(red,STRP8),-39.8877,37),-39.7337,Tree(Leaf(Color(red,STRPG),-39.8637,
82),-39.7356,Leaf(Color(red,STRP6),-39.8700,24),48),100),67),39),-39.6600,Tree(
Leaf(Color(red,STRP1),-39.8300,36),-39.6763,Leaf(Color(red,STRPZ),-39.8579,127),
53),26),-39.6544,Leaf(Color(red,STRPM),-39.8110,45),30),-39.6503,Leaf(Color(red,
STRP3),-39.8086,13),58),-39.6000,Tree(Leaf(Color(red,STRPB),-39.6885,64),
-39.6642,Leaf(Color(red,STRPC),-39.6985,55),73),100),-38.3095,Leaf(Color(red,
STRDG),-39.2926,148),100),100),100),100),100),66),-29.1538,Tree(Leaf(Color(red,
STRMN),-40.1937,170),-39.9797,Leaf(Color(red,STRMU),-40.1121,14),100),100),100),
100),-11.0298,Leaf(Color(gold,ENTFA),-30.7204,3),100),-7.9815,Tree(Tree(Tree(
Tree(Leaf(Color(purple,LACDB),-44.6071,78),-44.4351,Leaf(Color(purple,LACDA),
-44.4860,57),100),-28.4658,Tree(Tree(Leaf(Color(purple,LACH4),-44.0037,95),
-40.5782,Leaf(Color(purple,LACAC),-44.2341,29),100),-32.2900,Tree(Leaf(Color(
purple,LACGA),-43.7028,63),-42.1005,Leaf(Color(purple,LACJO),-43.1937,16),100),
100),100),-12.3445,Tree(Tree(Leaf(Color(purple,LACS1),-34.9727,54),-15.5064,Tree
(Leaf(Color(MidnightBlue,PEDPA),-39.7563,83),-17.1810,Tree(Tree(Leaf(Color(
purple,LACF3),-41.7074,123),-27.8925,Tree(Leaf(Color(purple,LACRD),-39.8815,125)
,-39.8646,Leaf(Color(purple,LACRJ),-39.8985,89),100),100),-18.1009,Tree(Tree(
Leaf(Color(purple,LACPJ),-37.3141,154),-37.2252,Leaf(Color(purple,LACPL),
-37.2939,22),100),-20.9751,Leaf(Color(purple,LACBA),-39.3194,65),100),81),100),
95),-14.6610,Tree(Leaf(Color(purple,LACSS),-35.9601,49),-17.6372,Tree(Tree(Leaf(
Color(purple,LACCB),-38.9776,124),-38.8535,Leaf(Color(purple,LACC3),-38.9469,80)
,100),-35.9928,Tree(Leaf(Color(purple,LACRG),-38.8646,172),-38.6751,Leaf(Color(
purple,LACRL),-38.8231,177),100),100),100),100),92),-11.6388,Tree(Leaf(Color(
magenta2,OENOB),-48.8060,69),-19.1635,Tree(Leaf(Color(DarkGreen,LEUMM),-44.0321,
66),-35.6211,Leaf(Color(DarkGreen,LEUCK),-44.8447,116),100),100),100),100),0,
Tree(Tree(Tree(Tree(Tree(Leaf(Color(black,COPPD),-65.8447,129),-11.8405,Tree(
Tree(Tree(Leaf(Color(green,FINM2),-61.1878,114),-30.6433,Leaf(Color(green,ANAPD)
,-65.1704,149),100),-16.7893,Tree(Tree(Leaf(Color(green,CLOPH),-54.2310,93),
-31.5218,Tree(Leaf(Color(green,EUBR3),-55.0418,167),-33.5857,Leaf(Color(green,
EUBE2),-55.4401,147),100),100),-17.1529,Tree(Tree(Tree(Tree(Leaf(Color(black,
THEPX),-47.6896,120),-47.5912,Leaf(Color(black,THEP3),-47.7889,119),100),
-40.6382,Leaf(Color(black,THETN),-49.1155,19),100),-19.2243,Tree(Tree(Tree(Tree(
Leaf(Color(green,CLODR),-53.3269,173),-53.3269,Leaf(Color(green,CLOD6),-53.4905,
73),100),-23.0984,Tree(Leaf(Color(green,ALKOO),-52.3866,86),-34.0936,Leaf(Color(
green,ALKMQ),-50.4265,85),100),100),-19.9175,Tree(Tree(Tree(Leaf(Color(green,
CLOB8),-53.0206,91),-42.6010,Tree(Leaf(Color(green,CLOBA),-53.6269,121),-53.0352
,Leaf(Color(green,CLOBB),-53.9115,122),100),100),-35.5148,Tree(Leaf(Color(green,
CLOPS),-52.4383,56),-52.2490,Tree(Leaf(Color(green,CLOP1),-52.5721,60),-52.4167,
Leaf(Color(green,CLOPE),-52.5717,2),98),100),100),-31.1764,Tree(Tree(Leaf(Color(
green,CLONN),-52.0026,62),-33.3901,Tree(Leaf(Color(green,CLOK5),-54.3507,102),
-35.0972,Tree(Leaf(Color(green,CLOTE),-55.1469,11),-35.3647,Tree(Leaf(Color(
green,CLOB6),-52.8253,169),-52.2362,Tree(Tree(Tree(Tree(Leaf(Color(green,CLOB1),
-52.7773,94),-52.7295,Leaf(Color(green,CLOBH),-52.7440,90),100),-52.5543,Leaf(
Color(green,CLOBJ),-52.7388,160),99),-52.4771,Tree(Leaf(Color(green,CLOBL),
-52.7685,110),-52.6118,Leaf(Color(green,CLOBK),-52.8118,103),100),100),-52.2485,
Leaf(Color(green,CLOBM),-52.8240,111),44),100),63),100),100),-32.1911,Leaf(Color
(green,CLOAB),-52.3770,17),94),100),64),-19.5497,Tree(Leaf(Color(green,CLOTH),
-49.5171,76),-30.4316,Leaf(Color(green,CLOCE),-51.3908,135),100),66),98),
-17.6334,Tree(Leaf(Color(green,ANATD),-51.9151,130),-47.5749,Leaf(Color(green,
CALS8),-52.0509,106),100),74),69),100),-12.9217,Leaf(Color(brown,HALOH),-48.0915
,131),93),45),-11.6394,Tree(Tree(Tree(Tree(Leaf(Color(green,SYNWW),-56.1569,58),
-16.2989,Tree(Leaf(Color(green,CARHZ),-49.0715,48),-18.4147,Tree(Tree(Leaf(Color
(green,DESRM),-45.8880,113),-23.1113,Tree(Leaf(Color(green,DESAP),-54.1432,112),
-24.2920,Tree(Leaf(Color(green,DESAS),-47.3525,163),-25.3903,Leaf(Color(green,
PELTS),-47.8963,109),75),86),100),-19.1627,Tree(Leaf(Color(green,HELMI),-48.4541
,115),-19.7058,Leaf(Color(black,MOOTA),-50.5129,71),55),80),100),73),-15.9123,
Tree(Leaf(Color(green,DESHY),-48.0185,59),-47.9847,Leaf(Color(green,DESHD),
-48.1802,155),100),100),-13.9521,Leaf(Color(green,SYMTH),-50.5736,10),82),
-12.3603,Leaf(Color(HotPink,NATTJ),-51.8690,105),63),100),-6.6283,Leaf(Color(
purple4,ALIAD),-46.4686,158),100),-3.7779,Tree(Tree(Leaf(Color(MediumBlue,GEOS4)
,-34.2011,171),-18.3550,Leaf(Color(LightSeaGreen,PAESJ),-34.5296,156),100),
-7.2461,Leaf(Color(LightSeaGreen,BREBN),-32.2163,141),99),99),-0.2881,Tree(Tree(
Leaf(Color(grey50,MACCJ),-32.4744,140),-14.6205,Tree(Leaf(Color(cyan,STACT),
-33.3552,150),-23.4675,Tree(Leaf(Color(cyan,STAS1),-33.6795,47),-24.7703,Tree(
Tree(Tree(Leaf(Color(cyan,STAES),-33.6510,26),-33.5923,Leaf(Color(cyan,STAEQ),
-33.6764,23),100),-27.5350,Leaf(Color(cyan,STAHJ),-33.6811,42),74),-26.7398,Tree
(Tree(Tree(Tree(Leaf(Color(cyan,STAA8),-33.3246,61),-33.2858,Tree(Tree(Leaf(
Color(cyan,STAAT),-33.3176,99),-33.2929,Leaf(Color(cyan,STAA3),-33.3226,50),93),
-33.2860,Tree(Leaf(Color(cyan,STAAE),-33.3184,98),-33.2898,Leaf(Color(cyan,STAAC
),-33.3182,46),76),37),93),-33.2420,Tree(Leaf(Color(cyan,STAAS),-33.3253,34),
-33.2920,Leaf(Color(cyan,STAAW),-33.3227,32),100),88),-33.2255,Tree(Leaf(Color(
cyan,STAAR),-33.4492,43),-33.2657,Leaf(Color(cyan,STAAB),-33.4911,51),96),55),
-33.2164,Tree(Leaf(Color(cyan,STAAD),-33.3120,161),-33.2741,Tree(Tree(Leaf(Color
(cyan,STAA9),-33.3085,97),-33.2857,Leaf(Color(cyan,STAA2),-33.3123,96),99),
-33.2760,Tree(Leaf(Color(cyan,STAAN),-33.3055,35),-33.2789,Tree(Leaf(Color(cyan,
STAA1),-33.3070,88),-33.2813,Leaf(Color(cyan,STAAM),-33.3060,21),96),90),78),100
),100),100),100),100),100),-2.0983,Tree(Tree(Leaf(Color(red4,EXIS2),-31.4280,100
),-17.1886,Leaf(Color(red4,EXISA),-31.6689,153),100),-3.7068,Tree(Tree(Leaf(
Color(orange,LISW6),-27.3104,75),-26.5416,Tree(Leaf(Color(orange,LISIN),-27.0910
,20),-26.6137,Tree(Tree(Tree(Leaf(Color(orange,LISMC),-27.2197,139),-27.1759,
Leaf(Color(orange,LISMF),-27.2455,38),100),-27.0447,Tree(Leaf(Color(orange,LISM2
),-27.3566,174),-27.2841,Leaf(Color(orange,LISMO),-27.3594,5),100),97),-26.9844,
Leaf(Color(orange,LISMH),-27.1847,133),100),82),100),-4.2162,Tree(Leaf(Color(
MediumBlue,LYSSC),-29.7209,108),-6.0104,Tree(Leaf(Color(MediumBlue,OCEIH),
-31.0687,15),-6.2170,Tree(Tree(Leaf(Color(MediumBlue,BACSK),-30.2139,28),
-13.3036,Leaf(Color(MediumBlue,BACHD),-27.0502,18),100),-7.1531,Tree(Tree(Leaf(
Color(MediumBlue,BACCN),-26.7607,104),-23.7800,Tree(Leaf(Color(MediumBlue,BACWK)
,-27.5185,101),-26.0932,Tree(Tree(Leaf(Color(MediumBlue,BACC2),-27.3391,132),
-26.9320,Tree(Leaf(Color(MediumBlue,BACC4),-27.0618,143),-27.0272,Leaf(Color(
MediumBlue,BACCR),-27.1781,6),100),100),-26.5947,Tree(Tree(Tree(Leaf(Color(
MediumBlue,BACC7),-27.1304,138),-27.0660,Leaf(Color(MediumBlue,BACCQ),-27.1240,
165),99),-27.0271,Leaf(Color(MediumBlue,BACC1),-27.2157,9),100),-26.9062,Tree(
Leaf(Color(MediumBlue,BACCZ),-27.1351,41),-27.0262,Tree(Tree(Leaf(Color(
MediumBlue,BACC0),-27.1416,159),-27.0778,Tree(Leaf(Color(MediumBlue,BACAC),
-27.1770,164),-27.1459,Leaf(Color(MediumBlue,BACAN),-27.1702,4),100),95),
-27.0594,Tree(Leaf(Color(MediumBlue,BACHK),-27.1405,7),-27.0678,Tree(Leaf(Color(
MediumBlue,BACAH),-27.1980,84),-27.1470,Leaf(Color(MediumBlue,BACC3),-27.1977,
162),100),76),100),100),100),100),100),100),-9.8073,Tree(Tree(Leaf(Color(
MediumBlue,GEOSW),-25.3210,145),-19.4126,Tree(Leaf(Color(MediumBlue,GEOTN),
-26.8365,79),-24.0677,Tree(Leaf(Color(MediumBlue,GEOSY),-26.9420,166),-26.7289,
Leaf(Color(MediumBlue,GEOKA),-26.9537,12),100),100),100),-10.2532,Tree(Leaf(
Color(MediumBlue,BACP2),-27.0587,107),-19.3892,Tree(Leaf(Color(MediumBlue,BACLD)
,-26.6128,27),-20.2625,Tree(Leaf(Color(MediumBlue,BACA2),-26.9679,92),-23.3627,
Leaf(Color(MediumBlue,BACSU),-26.3282,1),100),100),100),93),100),100),69),100),
69),100),99),100)) :
title := 'All Firmicutes (max Length)  (only 1 isoform used) , Wed Oct 27 09:21:52 2010, 177 species, 45611 orthologs, 59 top groups, 228 used here, Weighted, BestSubset, DimlessQual: best: 0.26287, ave: 0.3001 +- 0.0010, var: 0.0002853, Z=-2.203':
Xref := [LTEXT(110,3,'Streptococcus',color = [1, 0, 0]), LTEXT(110,6,'Clostridiales',color = [0, 1, 0]), LTEXT(110,9,'Bacillaceae',color = [0, 0, 0.8039]), LTEXT(110,12,'Staphylococcaceae',color = [0, 1, 1]), LTEXT(110,15,'Lactobacillus',color = [0.6275, 0.1255, 0.9412]), LTEXT(110,18,'Listeriaceae',color = [1, 0.6471, 0]), LTEXT(110,21,'Thermoanaerobacterales',color = [0, 0, 0]), LTEXT(110,24,'Lactococcus',color = [0.8039, 0.3608, 0.3608]), LTEXT(110,27,'Bacillales Family XII. Incertae Sedis',color = [0.5451, 0, 0]), LTEXT(110,30,'Paenibacillaceae',color = [0.1255, 0.6980, 0.6667]), LTEXT(110,33,'Leuconostoc',color = [0, 0.3922, 0]), LTEXT(110,36,'Pediococcus',color = [0.09803922, 0.09803922, 0.4392]), LTEXT(110,39,'Halanaerobiales',color = [0.6471, 0.1647, 0.1647]), LTEXT(110,42,'Natranaerobiales',color = [1, 0.4118, 0.7059]), LTEXT(110,45,'Alicyclobacillaceae',color = [0.3333, 0.1020, 0.5451]), LTEXT(110,48,'Macrococcus',color = [0.4980, 0.4980, 0.4980]), LTEXT(110,51,'Enterococcaceae',color = [1, 0.8431, 0]), LTEXT(110,54,'Oenococcus',color = [0.9333, 0, 0.9333])]:

# Uncomment the desired draw command
# or type ?DrawTree for help on the options
DrawTree(tree,ArcRadial,RadialLabels,LengthFormat = '',Title = title,Xref) :
# DrawTree( tree, Phylogram, Legend, LengthFormat='', OrderLeaves=LeftHeavy, Title=title, Xref )):
ViewPlot():