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

tree := Tree(Tree(Tree(Tree(Tree(Tree(Leaf(Color(cyan,NITSB),-47.5829,123),
-27.5276,Tree(Tree(Leaf(Color(cyan,SULDN),-51.5464,63),-28.8241,Leaf(Color(cyan,
SULNB),-50.3431,127),70),-28.1882,Leaf(Color(cyan,ARCB4),-51.6611,140),76),100),
-25.1838,Tree(Tree(Leaf(Color(cyan,WOLSU),-50.7654,19),-30.2800,Tree(Leaf(Color(
cyan,HELHP),-53.1886,34),-32.8197,Tree(Leaf(Color(cyan,HELAH),-56.4596,99),
-53.9816,Tree(Leaf(Color(cyan,HELPS),-56.5214,180),-55.3212,Tree(Leaf(Color(cyan
,HELPJ),-57.0925,37),-55.5301,Tree(Tree(Leaf(Color(cyan,HELPG),-56.5862,192),
-55.6715,Tree(Leaf(Color(cyan,HELPY),-56.6075,20),-55.7694,Leaf(Color(cyan,HELPH
),-56.7196,75),80),56),-55.6154,Leaf(Color(cyan,HELP2),-56.4698,212),62),85),100
),100),100),100),-25.3802,Tree(Tree(Leaf(Color(cyan,CAMHC),-52.5086,164),
-34.9943,Tree(Leaf(Color(cyan,CAMFF),-51.6700,90),-36.0873,Tree(Leaf(Color(cyan,
CAMC5),-51.0682,154),-43.1561,Leaf(Color(cyan,CAMC1),-51.1799,155),100),100),100
),-32.4516,Tree(Leaf(Color(cyan,CAMLR),-53.0813,202),-42.2392,Tree(Leaf(Color(
cyan,CAMJD),-53.2522,131),-52.5702,Tree(Leaf(Color(cyan,CAMJ8),-53.4870,136),
-53.1996,Tree(Tree(Leaf(Color(cyan,CAMJE),-53.7877,6),-53.5167,Leaf(Color(cyan,
CAMJR),-53.9474,31),99),-53.3228,Leaf(Color(cyan,CAMJJ),-53.6795,109),89),100),
100),100),100),56),98),-24.0626,Leaf(Color(cyan,NAUPA),-48.4591,198),100),
-3.2607,Tree(Leaf(Color(purple,BDEBA),-47.4170,11),-5.3071,Tree(Tree(Leaf(Color(
purple,SORC5),-45.6264,143),-9.8127,Tree(Tree(Leaf(Color(purple,ANADF),-43.2316,
149),-34.2260,Tree(Leaf(Color(purple,ANADE),-43.4551,110),-42.0696,Leaf(Color(
purple,ANASK),-43.2937,184),100),100),-16.3182,Leaf(Color(purple,MYXXD),-44.3566
,106),100),100),-6.0329,Tree(Tree(Tree(Leaf(Color(purple,PELCD),-42.5748,53),
-15.9683,Tree(Tree(Leaf(Color(purple,PELPD),-41.8811,103),-25.7132,Leaf(Color(
purple,GEOLS),-41.3616,179),100),-23.2358,Tree(Tree(Leaf(Color(purple,GEOMG),
-39.9047,57),-31.5634,Leaf(Color(purple,GEOSL),-40.4387,2),100),-26.8226,Tree(
Leaf(Color(purple,GEOUR),-41.2903,144),-28.6233,Leaf(Color(purple,GEOBB),
-41.2598,193),63),100),100),100),-8.9221,Tree(Tree(Leaf(Color(purple,SYNAS),
-44.5036,84),-11.6936,Tree(Tree(Leaf(Color(purple,DESAA),-45.8345,197),-19.2368,
Tree(Leaf(Color(purple,DESAH),-47.3344,207),-20.1082,Leaf(Color(purple,DESOH),
-46.2796,178),98),100),-12.5406,Leaf(Color(purple,SYNFM),-46.1016,115),88),98),
-10.6192,Leaf(Color(purple,DESPS),-49.3534,8),100),96),-7.6716,Tree(Leaf(Color(
purple,LAWIP),-50.0665,77),-25.4185,Tree(Leaf(Color(purple,DESDG),-46.7900,95),
-31.4528,Tree(Leaf(Color(purple,DESVV),-48.0299,111),-47.9476,Leaf(Color(purple,
DESVH),-48.1698,13),100),100),100),100),96),100),100),-0.1493,Tree(Tree(Tree(
Tree(Leaf(Color(brown,DECAR),-39.4094,47),-20.2693,Tree(Leaf(Color(brown,AZOSB),
-38.6137,100),-28.4304,Leaf(Color(brown,AZOSE),-38.6267,42),100),100),-17.2649,
Tree(Tree(Leaf(Color(purple4,THIDA),-39.5287,60),-19.0541,Tree(Leaf(Color(
HotPink,METFK),-40.3714,83),-29.1882,Leaf(Color(HotPink,METSD),-40.2345,208),100
),62),-18.7685,Tree(Leaf(Color(MidnightBlue,NITMU),-40.1132,61),-24.4827,Tree(
Leaf(Color(MidnightBlue,NITEC),-42.2864,105),-36.0214,Leaf(Color(MidnightBlue,
NITEU),-41.8576,27),100),100),100),58),-15.8189,Tree(Tree(Tree(Leaf(Color(red,
LEPCP),-42.3243,170),-29.0609,Leaf(Color(red,METPP),-42.1180,108),100),-25.7209,
Tree(Tree(Leaf(Color(red,VEREI),-43.5573,96),-32.1450,Tree(Leaf(Color(red,DELAS)
,-42.9141,177),-32.6754,Tree(Leaf(Color(red,ACIAC),-41.6380,91),-33.8712,Tree(
Leaf(Color(red,ACISJ),-41.7642,121),-41.4518,Leaf(Color(red,DIAST),-41.9793,200)
,100),100),95),100),-29.7705,Tree(Leaf(Color(red,RHOFD),-42.7546,88),-31.1209,
Tree(Leaf(Color(red,POLNA),-42.8179,97),-36.2005,Leaf(Color(red,POLSJ),-42.4162,
86),100),100),100),100),-18.8914,Tree(Tree(Leaf(Color(red,BORA1),-41.8348,59),
-34.5361,Tree(Leaf(Color(red,BORPD),-41.5795,145),-35.2783,Tree(Tree(Leaf(Color(
red,BORPA),-41.8177,18),-41.6082,Leaf(Color(red,BORBR),-41.6400,16),94),-41.5001
,Leaf(Color(red,BORPE),-41.6972,15),100),100),100),-19.4029,Tree(Tree(Leaf(Color
(red,POLNS),-40.9764,182),-37.7749,Leaf(Color(red,POLSQ),-42.3164,141),100),
-21.1511,Tree(Tree(Leaf(Color(red,JANMA),-40.4960,124),-36.0253,Leaf(Color(red,
HERAR),-40.6484,119),100),-21.5364,Tree(Tree(Tree(Leaf(Color(red,RALME),-39.7522
,81),-34.4088,Tree(Tree(Leaf(Color(red,CUPTR),-39.6433,167),-37.6714,Leaf(Color(
red,RALEH),-39.6270,114),100),-35.7401,Leaf(Color(red,RALEJ),-39.6837,46),100),
100),-28.8885,Tree(Leaf(Color(red,RALPJ),-40.1859,191),-36.0818,Leaf(Color(red,
RALSO),-39.7105,28),100),100),-24.3093,Tree(Tree(Leaf(Color(red,BURP8),-40.3404,
175),-35.3961,Tree(Leaf(Color(red,BURPP),-40.4980,176),-39.0379,Leaf(Color(red,
BURXL),-40.3558,101),100),100),-32.8983,Tree(Tree(Leaf(Color(red,BURM1),-40.0860
,174),-38.0316,Tree(Tree(Tree(Leaf(Color(red,BURA4),-40.5997,161),-40.3280,Leaf(
Color(red,BURCM),-40.6134,87),100),-38.9728,Tree(Leaf(Color(red,BURS3),-40.5580,
64),-39.3505,Tree(Tree(Leaf(Color(red,BURCC),-40.5583,158),-40.3731,Tree(Leaf(
Color(red,BURCH),-40.5678,98),-40.5334,Leaf(Color(red,BURCA),-40.5705,67),100),
100),-39.9711,Leaf(Color(red,BURCJ),-40.4427,189),100),100),100),-38.6514,Leaf(
Color(red,BURVG),-40.6334,133),100),100),-35.4746,Tree(Leaf(Color(red,BURTA),
-40.4603,104),-39.1676,Tree(Leaf(Color(red,BURP1),-40.4296,71),-40.4027,Tree(
Tree(Tree(Leaf(Color(red,BURMS),-40.5407,163),-40.5247,Tree(Tree(Leaf(Color(red,
BURM9),-40.5778,162),-40.5470,Leaf(Color(red,BURM7),-40.5683,139),100),-40.5310,
Leaf(Color(red,BURMA),-40.5548,21),61),96),-40.4610,Tree(Leaf(Color(red,BURP0),
-40.5569,118),-40.4796,Leaf(Color(red,BURPS),-40.5448,9),88),46),-40.4527,Leaf(
Color(red,BURP6),-40.5717,146),77),100),100),100),100),100),92),100),94),100),
100),-13.6269,Tree(Tree(Leaf(Color(black,LARHH),-37.7029,205),-22.0635,Leaf(
Color(black,CHRVO),-38.0513,30),100),-18.2371,Tree(Tree(Leaf(Color(black,NEIG2),
-43.4653,187),-43.2446,Leaf(Color(black,NEIG1),-43.3274,49),100),-41.6991,Tree(
Tree(Leaf(Color(black,NEIMA),-42.7597,38),-42.1778,Tree(Leaf(Color(black,NEIM0),
-43.0161,153),-42.2813,Leaf(Color(black,NEIMB),-42.9754,5),95),71),-42.1155,Leaf
(Color(black,NEIMF),-42.6618,120),100),100),100),100),89),0,Tree(Leaf(Color(
grey50,MAGSM),-36.1877,94),-0.4778,Tree(Tree(Tree(Leaf(Color(red4,ZYMMO),
-45.7814,41),-22.4423,Tree(Leaf(Color(red4,SPHWW),-42.3343,150),-24.1704,Tree(
Leaf(Color(red4,SPHAL),-43.1003,126),-25.4677,Tree(Leaf(Color(red4,NOVAD),
-43.5980,55),-28.8089,Leaf(Color(red4,ERYLH),-44.4723,85),100),100),99),100),
-11.2733,Tree(Tree(Tree(Leaf(Color(IndianRed,RHOCS),-38.2528,194),-16.1070,Tree(
Leaf(Color(IndianRed,RHORT),-40.7032,68),-18.0568,Leaf(Color(IndianRed,MAGMM),
-38.7065,89),100),100),-13.4612,Tree(Tree(Tree(Tree(Leaf(Color(IndianRed,ACEP3),
-43.5453,213),-28.3437,Leaf(Color(IndianRed,GLUDA),-42.6994,152),100),-27.1467,
Leaf(Color(IndianRed,GLUOX),-44.7402,43),100),-22.6954,Leaf(Color(IndianRed,
GRABC),-41.7768,78),99),-21.5350,Leaf(Color(IndianRed,ACICJ),-42.6870,159),100),
98),-11.3525,Tree(Tree(Tree(Leaf(Color(LightSeaGreen,PHEZH),-41.9178,190),
-28.3376,Tree(Leaf(Color(LightSeaGreen,CAUSK),-43.6137,168),-35.4792,Tree(Leaf(
Color(LightSeaGreen,CAUCN),-42.9601,209),-42.9242,Leaf(Color(LightSeaGreen,CAUCR
),-42.9410,3),100),100),100),-16.4816,Tree(Leaf(Color(DarkGreen,MARMM),-43.6025,
76),-17.3500,Tree(Leaf(Color(DarkGreen,HIRBI),-45.9141,210),-22.3401,Leaf(Color(
DarkGreen,HYPNA),-45.4262,82),100),100),100),-12.7920,Tree(Tree(Tree(Tree(Leaf(
Color(orange,RHOS5),-43.7917,134),-40.7184,Tree(Tree(Leaf(Color(orange,RHOS4),
-44.3706,54),-44.0775,Leaf(Color(orange,RHOS1),-44.2965,112),95),-43.9517,Leaf(
Color(orange,RHOSK),-44.2215,203),100),100),-29.0756,Leaf(Color(orange,PARDP),
-42.9785,92),97),-27.7831,Tree(Leaf(Color(orange,JANSC),-44.8026,56),-28.6807,
Tree(Tree(Leaf(Color(orange,ROSDO),-44.6173,93),-31.6258,Tree(Leaf(Color(orange,
SILST),-44.6671,69),-33.9264,Leaf(Color(orange,SILPO),-43.6586,29),100),100),
-29.1401,Leaf(Color(orange,DINSH),-43.7244,169),100),98),100),-13.1244,Tree(Leaf
(Color(green,PARL1),-39.1640,142),-15.5567,Tree(Tree(Tree(Tree(Leaf(Color(green,
BEII9),-42.7820,157),-28.3060,Leaf(Color(green,METSB),-42.5000,201),100),
-21.0239,Tree(Tree(Leaf(Color(green,METNO),-41.5695,206),-37.2559,Leaf(Color(
green,METS4),-41.6818,173),100),-30.7337,Tree(Leaf(Color(green,METRJ),-42.2360,
172),-33.3167,Tree(Tree(Leaf(Color(green,METEP),-42.7450,166),-42.2961,Leaf(
Color(green,METC4),-42.4945,196),100),-40.3424,Leaf(Color(green,METPB),-42.6723,
171),100),100),100),100),-19.9128,Tree(Tree(Leaf(Color(green,XANP2),-40.9272,165
),-30.2635,Leaf(Color(green,AZOC5),-40.7828,129),100),-21.2975,Tree(Leaf(Color(
green,OLICO),-42.2615,195),-30.3965,Tree(Tree(Tree(Leaf(Color(green,NITHX),
-42.1368,70),-37.6103,Leaf(Color(green,NITWN),-42.2301,50),100),-32.1213,Tree(
Tree(Leaf(Color(green,RHOP5),-42.5394,102),-35.9430,Leaf(Color(green,RHOPB),
-42.4198,62),100),-34.1681,Tree(Tree(Leaf(Color(green,RHOPS),-42.1088,80),
-38.7434,Leaf(Color(green,RHOP2),-42.1874,74),100),-36.7309,Tree(Leaf(Color(
green,RHOPT),-41.8210,188),-41.5693,Leaf(Color(green,RHOPA),-41.8444,24),100),
100),100),65),-31.9945,Tree(Tree(Leaf(Color(green,BRASB),-41.9344,117),-39.3447,
Leaf(Color(green,BRASO),-41.8999,113),100),-33.9169,Leaf(Color(green,BRAJA),
-42.0216,1),100),100),100),100),100),-17.6209,Tree(Tree(Tree(Tree(Leaf(Color(
green,MESSB),-41.6476,116),-29.2043,Leaf(Color(green,RHILO),-41.9583,23),100),
-26.7381,Tree(Leaf(Color(green,OCHA4),-41.7324,128),-37.8509,Tree(Leaf(Color(
green,BRUO2),-41.7313,125),-41.6507,Tree(Tree(Tree(Leaf(Color(green,BRUA2),
-41.9668,52),-41.9461,Tree(Leaf(Color(green,BRUA1),-41.9807,185),-41.9535,Leaf(
Color(green,BRUAB),-41.9830,35),87),100),-41.8355,Leaf(Color(green,BRUME),
-41.9964,22),99),-41.7881,Tree(Tree(Leaf(Color(green,BRUC2),-41.9470,160),
-41.8773,Leaf(Color(green,BRUSU),-41.9432,12),100),-41.8390,Leaf(Color(green,
BRUSI),-41.9737,147),99),98),100),100),100),-25.6614,Tree(Tree(Leaf(Color(green,
SINMW),-42.5106,135),-39.9593,Leaf(Color(green,RHIME),-42.0920,17),100),-32.0116
,Tree(Tree(Tree(Tree(Leaf(Color(green,RHIE6),-42.8081,186),-40.9553,Leaf(Color(
green,RHIEC),-42.8150,73),100),-40.3625,Tree(Leaf(Color(green,RHIL3),-42.9644,66
),-40.9618,Leaf(Color(green,RHILW),-42.8764,199),100),100),-35.7710,Leaf(Color(
green,AGRRK),-43.1556,32),100),-32.6805,Leaf(Color(green,AGRT5),-43.0094,7),100)
,100),100),-24.4023,Tree(Leaf(Color(green,BARBK),-44.1697,107),-35.5560,Tree(
Leaf(Color(green,BART1),-44.8017,156),-39.2332,Tree(Leaf(Color(green,BARQU),
-45.4691,36),-40.7308,Leaf(Color(green,BARHE),-45.1572,26),100),100),100),100),
100),100),95),100),53),100),-6.2517,Tree(Leaf(Color(MediumBlue,PELUB),-49.3954,
44),-9.1059,Tree(Tree(Tree(Tree(Tree(Leaf(Color(MediumBlue,ANAPZ),-52.2450,72),
-36.1031,Leaf(Color(MediumBlue,ANAMM),-53.3249,40),100),-27.7150,Tree(Tree(Leaf(
Color(MediumBlue,EHRCR),-49.9829,79),-44.4516,Leaf(Color(MediumBlue,EHRCJ),
-50.5729,51),100),-41.1349,Tree(Leaf(Color(MediumBlue,EHRRG),-51.2389,45),
-51.0727,Leaf(Color(MediumBlue,EHRRW),-51.4459,39),100),100),100),-24.2017,Tree(
Leaf(Color(MediumBlue,WOLTR),-49.4314,33),-42.8988,Tree(Leaf(Color(MediumBlue,
WOLPP),-49.9724,183),-44.6884,Tree(Leaf(Color(MediumBlue,WOLWR),-50.0104,204),
-49.2394,Leaf(Color(MediumBlue,WOLPM),-49.9808,10),100),100),100),100),-16.2793,
Leaf(Color(MediumBlue,NEOSM),-55.5602,58),100),-12.4757,Tree(Tree(Leaf(Color(
MediumBlue,ORITB),-52.7182,122),-51.6545,Leaf(Color(MediumBlue,ORITI),-52.6158,
181),100),-21.0462,Tree(Tree(Leaf(Color(MediumBlue,RICB8),-47.9666,137),-47.7502
,Leaf(Color(MediumBlue,RICBR),-47.7780,65),100),-40.8251,Tree(Tree(Leaf(Color(
MediumBlue,RICPR),-48.7160,25),-46.7369,Leaf(Color(MediumBlue,RICTY),-49.2389,14
),100),-42.9967,Tree(Leaf(Color(MediumBlue,RICCK),-48.3055,151),-43.8002,Tree(
Leaf(Color(MediumBlue,RICAH),-47.6583,138),-44.5805,Tree(Leaf(Color(MediumBlue,
RICFE),-46.9440,48),-45.0971,Tree(Leaf(Color(MediumBlue,RICM5),-47.5385,132),
-46.5089,Tree(Leaf(Color(MediumBlue,RICCN),-47.5268,4),-47.0529,Tree(Leaf(Color(
MediumBlue,RICPU),-47.4902,211),-47.1024,Tree(Leaf(Color(MediumBlue,RICRO),
-47.6625,148),-47.6121,Leaf(Color(MediumBlue,RICRS),-47.6455,130),100),64),100),
100),100),100),100),100),100),100),100),99),100),89)) :
title := 'Other Proteobacteria (max Length)  (only 1 isoform used) , Fri Jan 15 21:23:29 2010, 213 species, 83162 orthologs, 136 top groups, 674 used here, Arithmetic, BestDimless, DimlessQual: best: 1.0858, ave: 1.2386 +- 0.0031, var: 0.00253, Z=-3.038':
Xref := [LTEXT(110,3,'Burkholderiales',color = [1, 0, 0]), LTEXT(110,6,'Rhizobiales',color = [0, 1, 0]), LTEXT(110,9,'Rickettsiales',color = [0, 0, 0.8039]), LTEXT(110,12,'Epsilonproteobacteria',color = [0, 1, 1]), LTEXT(110,15,'Deltaproteobacteria',color = [0.6275, 0.1255, 0.9412]), LTEXT(110,18,'Rhodobacteraceae',color = [1, 0.6471, 0]), LTEXT(110,21,'Neisseriales',color = [0, 0, 0]), LTEXT(110,24,'Rhodospirillales',color = [0.8039, 0.3608, 0.3608]), LTEXT(110,27,'Sphingomonadales',color = [0.5451, 0, 0]), LTEXT(110,30,'Caulobacterales',color = [0.1255, 0.6980, 0.6667]), LTEXT(110,33,'Hyphomonadaceae',color = [0, 0.3922, 0]), LTEXT(110,36,'Nitrosomonadales',color = [0.09803922, 0.09803922, 0.4392]), LTEXT(110,39,'Rhodocyclales',color = [0.6471, 0.1647, 0.1647]), LTEXT(110,42,'Methylophilales',color = [1, 0.4118, 0.7059]), LTEXT(110,45,'Hydrogenophilales',color = [0.3333, 0.1020, 0.5451]), LTEXT(110,48,'Magnetococcus',color = [0.4980, 0.4980, 0.4980])]:

# 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():