# Darwin script to draw distance trees of
#    236 other Proteobacteria
# Downloaded from status.html
# (C) 2011 CBRG, ETH Zurich

tree := Tree(Tree(Tree(Leaf(Color(cyan,NITSB),-44.6386,123),-21.7851,Tree(Tree(
Tree(Tree(Tree(Leaf(Color(cyan,HELHP),-61.6263,34),-35.9805,Tree(Leaf(Color(cyan
,HELAH),-66.2972,99),-63.5585,Tree(Leaf(Color(cyan,HELPS),-66.3715,180),-65.0422
,Tree(Leaf(Color(cyan,HELPJ),-67.0683,37),-65.3289,Tree(Tree(Leaf(Color(cyan,
HELPH),-66.8131,75),-65.6460,Tree(Tree(Leaf(Color(cyan,HELPY),-66.9324,20),
-65.7532,Leaf(Color(cyan,HELPB),-66.8362,223),49),-65.6856,Leaf(Color(cyan,HELP2
),-66.8363,212),24),50),-65.5261,Leaf(Color(cyan,HELPG),-66.3434,192),52),58),99
),100),100),-32.0299,Leaf(Color(cyan,WOLSU),-55.5413,19),100),-24.3066,Tree(Leaf
(Color(cyan,SULD5),-48.7309,231),-27.2627,Tree(Tree(Tree(Tree(Leaf(Color(cyan,
CAMC5),-54.9059,154),-45.6691,Leaf(Color(cyan,CAMC1),-55.6832,155),100),-36.1409
,Leaf(Color(cyan,CAMFF),-51.6835,90),41),-35.9660,Leaf(Color(cyan,CAMHC),
-58.4820,164),99),-31.8997,Tree(Leaf(Color(cyan,CAMLR),-53.9000,202),-40.2123,
Tree(Tree(Leaf(Color(cyan,CAMJR),-52.5739,31),-52.0489,Tree(Tree(Leaf(Color(cyan
,CAMJ8),-52.6274,136),-52.3777,Leaf(Color(cyan,CAMJD),-54.0698,131),35),-52.2360
,Leaf(Color(cyan,CAMJJ),-52.4737,109),45),44),-51.8675,Leaf(Color(cyan,CAMJE),
-52.0376,6),100),100),100),100),58),-24.0115,Leaf(Color(cyan,ARCB4),-51.7189,140
),67),-22.5946,Tree(Leaf(Color(cyan,SULNB),-49.7798,127),-25.6735,Leaf(Color(
cyan,SULDN),-52.1212,63),61),53),82),-20.3565,Leaf(Color(cyan,NAUPA),-48.1694,
198),100),0,Tree(Tree(Tree(Tree(Leaf(Color(MediumBlue,SORC5),-53.0705,143),
-18.9897,Tree(Tree(Tree(Tree(Leaf(Color(MediumBlue,ANASK),-52.3257,184),-51.9886
,Leaf(Color(MediumBlue,ANAD2),-52.5563,224),100),-51.1311,Leaf(Color(MediumBlue,
ANADE),-52.4029,110),100),-42.9928,Leaf(Color(MediumBlue,ANADF),-51.8205,149),
100),-24.1718,Leaf(Color(MediumBlue,MYXXD),-51.1910,106),100),98),-15.8578,Tree(
Tree(Tree(Leaf(Color(MediumBlue,DESMR),-58.7057,232),-33.5883,Tree(Leaf(Color(
MediumBlue,LAWIP),-61.3423,77),-36.3528,Tree(Leaf(Color(MediumBlue,DESDG),
-59.7873,95),-41.8097,Tree(Leaf(Color(MediumBlue,DESVM),-55.9170,221),-44.9108,
Tree(Leaf(Color(MediumBlue,DESVV),-57.3865,111),-57.3865,Leaf(Color(MediumBlue,
DESVH),-57.6776,13),100),100),100),100),100),-19.2642,Tree(Tree(Tree(Leaf(Color(
MediumBlue,DESAA),-54.0029,197),-28.2654,Tree(Leaf(Color(MediumBlue,DESAH),
-57.6032,207),-30.2089,Leaf(Color(MediumBlue,DESOH),-56.8431,178),100),100),
-22.4457,Leaf(Color(MediumBlue,SYNFM),-56.3222,115),76),-21.8097,Leaf(Color(
MediumBlue,DESPS),-61.4029,8),97),43),-17.6558,Tree(Tree(Leaf(Color(MediumBlue,
PELCD),-52.8596,53),-26.2521,Tree(Tree(Leaf(Color(MediumBlue,PELPD),-53.4796,103
),-37.0827,Leaf(Color(MediumBlue,GEOLS),-52.7581,179),100),-33.8582,Tree(Tree(
Tree(Leaf(Color(MediumBlue,GEOBB),-52.6989,193),-51.0995,Leaf(Color(MediumBlue,
GEOSM),-52.1385,219),100),-37.9158,Tree(Leaf(Color(MediumBlue,GEOUR),-51.5422,
144),-43.2960,Leaf(Color(MediumBlue,GEOSF),-51.5831,227),100),93),-36.3615,Tree(
Leaf(Color(MediumBlue,GEOMG),-50.2389,57),-41.5867,Leaf(Color(MediumBlue,GEOSL),
-51.1009,2),100),100),100),100),-19.6428,Leaf(Color(MediumBlue,SYNAS),-52.5017,
84),55),99),100),-13.9438,Leaf(Color(MediumBlue,BDEBA),-52.0478,11),86),-12.6473
,Tree(Leaf(Color(grey30,MAGSM),-51.1373,94),-16.0562,Tree(Tree(Tree(Tree(Tree(
Leaf(Color(MidnightBlue,DECAR),-54.8827,47),-36.3719,Tree(Leaf(Color(
MidnightBlue,AZOSE),-53.5341,42),-43.8597,Tree(Leaf(Color(MidnightBlue,AZOSB),
-54.2954,100),-44.8905,Leaf(Color(MidnightBlue,THASP),-53.5022,222),100),100),
100),-33.5549,Tree(Leaf(Color(magenta2,THIDA),-54.6879,60),-34.8014,Tree(Tree(
Leaf(Color(purple4,NITMU),-55.1041,61),-40.6261,Tree(Leaf(Color(purple4,NITEC),
-57.4356,105),-51.2968,Leaf(Color(purple4,NITEU),-56.4151,27),100),100),-35.0562
,Tree(Tree(Leaf(Color(HotPink,METFK),-55.5318,83),-45.5288,Leaf(Color(HotPink,
METSD),-56.3010,208),100),-43.2342,Leaf(Color(HotPink,METML),-56.1839,234),100),
59),100),92),-32.4793,Tree(Tree(Tree(Tree(Leaf(Color(green,DELAS),-58.0954,177),
-48.0797,Tree(Tree(Leaf(Color(green,ACIAC),-57.4585,91),-50.0329,Tree(Leaf(Color
(green,ACIET),-57.4881,200),-57.0734,Leaf(Color(green,ACISJ),-57.5704,121),100),
100),-48.4768,Leaf(Color(green,VEREI),-58.4826,96),67),100),-46.0138,Tree(Leaf(
Color(green,RHOFD),-57.8676,88),-47.0408,Tree(Leaf(Color(green,POLNA),-58.6015,
97),-52.2928,Leaf(Color(green,POLSJ),-57.9003,86),100),100),100),-42.2848,Tree(
Leaf(Color(green,METPP),-57.0723,108),-45.1208,Leaf(Color(green,LEPCP),-57.5277,
170),100),100),-35.5167,Tree(Tree(Leaf(Color(green,BORA1),-56.7205,59),-49.6610,
Tree(Leaf(Color(green,BORPD),-56.2652,145),-50.2634,Tree(Leaf(Color(green,BORPA)
,-56.5311,18),-56.3624,Tree(Leaf(Color(green,BORBR),-56.4408,16),-56.3745,Leaf(
Color(green,BORPE),-56.6648,15),46),100),100),100),-35.8414,Tree(Tree(Leaf(Color
(green,POLSQ),-57.6386,141),-53.0978,Leaf(Color(green,POLNS),-55.7953,182),100),
-37.6771,Tree(Tree(Leaf(Color(green,JANMA),-55.0648,124),-51.1756,Leaf(Color(
green,HERAR),-55.8562,119),100),-37.8014,Tree(Tree(Tree(Leaf(Color(green,RALME),
-54.8314,81),-49.8207,Tree(Tree(Leaf(Color(green,CUPTR),-54.9288,167),-52.9647,
Leaf(Color(green,RALEH),-54.8317,114),100),-51.0430,Leaf(Color(green,RALEJ),
-54.7930,46),100),100),-44.7303,Tree(Leaf(Color(green,RALSO),-55.2045,28),
-51.5555,Tree(Leaf(Color(green,RALPJ),-55.3469,191),-54.5439,Leaf(Color(green,
RALP1),-55.1089,220),100),100),100),-40.3733,Tree(Tree(Leaf(Color(green,BURP8),
-56.1739,175),-51.2415,Tree(Leaf(Color(green,BURXL),-55.8567,101),-54.7034,Leaf(
Color(green,BURPP),-56.2889,176),100),100),-48.8013,Tree(Leaf(Color(green,BURGB)
,-56.3314,226),-50.4749,Tree(Tree(Leaf(Color(green,BURM1),-55.5150,174),-53.6362
,Tree(Tree(Tree(Leaf(Color(green,BURA4),-56.0635,161),-55.8106,Leaf(Color(green,
BURCM),-56.0741,87),100),-54.4871,Tree(Leaf(Color(green,BURS3),-56.1086,64),
-54.8422,Tree(Leaf(Color(green,BURCJ),-55.7874,189),-55.3846,Tree(Leaf(Color(
green,BURCC),-56.0103,158),-55.8274,Tree(Leaf(Color(green,BURCH),-56.0092,98),
-55.9511,Leaf(Color(green,BURCA),-55.9597,67),100),100),100),100),100),-54.2416,
Leaf(Color(green,BURVG),-56.0881,133),100),100),-51.1114,Tree(Leaf(Color(green,
BURTA),-55.7617,104),-54.5814,Tree(Leaf(Color(green,BURP1),-55.7734,71),-55.7691
,Tree(Leaf(Color(green,BURP0),-55.9047,118),-55.8289,Tree(Leaf(Color(green,BURP6
),-55.9404,146),-55.8313,Tree(Tree(Leaf(Color(green,BURMA),-55.9264,21),-55.9135
,Tree(Leaf(Color(green,BURMS),-55.9514,163),-55.9296,Tree(Leaf(Color(green,BURM9
),-55.9666,162),-55.9394,Leaf(Color(green,BURM7),-55.9632,139),100),98),99),
-55.8348,Leaf(Color(green,BURPS),-55.8989,9),38),38),88),100),100),100),100),100
),100),53),100),79),100),100),-30.8034,Tree(Tree(Leaf(Color(black,CHRVO),
-53.3250,30),-38.2625,Leaf(Color(black,LARHH),-53.3555,205),100),-35.0004,Tree(
Tree(Leaf(Color(black,NEIG2),-58.0536,187),-57.9028,Leaf(Color(black,NEIG1),
-58.0153,49),100),-56.5966,Tree(Leaf(Color(black,NEIMA),-57.6092,38),-57.0352,
Tree(Leaf(Color(black,NEIML),-57.6789,236),-57.1460,Tree(Tree(Leaf(Color(black,
NEIM0),-57.8819,153),-57.2331,Leaf(Color(black,NEIMB),-57.9661,5),43),-57.2061,
Leaf(Color(black,NEIMF),-57.7707,120),62),78),100),100),100),100),-16.9276,Tree(
Tree(Tree(Tree(Tree(Tree(Leaf(Color(IndianRed,ANAPZ),-65.7060,72),-51.7452,Leaf(
Color(IndianRed,ANAMM),-67.9755,40),100),-44.4485,Tree(Tree(Leaf(Color(IndianRed
,EHRCR),-64.7664,79),-58.7887,Leaf(Color(IndianRed,EHRCJ),-64.0716,51),100),
-55.7699,Tree(Leaf(Color(IndianRed,EHRRG),-65.0080,45),-65.0080,Leaf(Color(
IndianRed,EHRRW),-65.6271,39),100),100),100),-40.8914,Tree(Leaf(Color(DarkGreen,
WOLTR),-65.4869,33),-59.2842,Tree(Leaf(Color(DarkGreen,WOLPP),-66.2783,183),
-61.1111,Tree(Leaf(Color(DarkGreen,WOLWR),-66.0059,204),-65.1460,Leaf(Color(
DarkGreen,WOLPM),-65.8458,10),100),100),100),100),-33.3312,Tree(Leaf(Color(
IndianRed,NEOSM),-69.1772,58),-66.3093,Leaf(Color(IndianRed,NEORI),-68.3694,214)
,100),100),-29.3019,Tree(Tree(Leaf(Color(grey50,ORITI),-67.9643,181),-67.0766,
Leaf(Color(grey50,ORITB),-68.3659,122),100),-37.0733,Tree(Tree(Leaf(Color(purple
,RICB8),-62.3102,137),-62.0923,Leaf(Color(purple,RICBR),-62.1159,65),100),
-55.4906,Tree(Tree(Leaf(Color(purple,RICPR),-63.2493,25),-61.2988,Leaf(Color(
purple,RICTY),-63.8651,14),100),-57.5757,Tree(Leaf(Color(purple,RICCK),-63.0560,
151),-58.4858,Tree(Leaf(Color(purple,RICAH),-62.0866,138),-58.9517,Tree(Leaf(
Color(purple,RICFE),-61.4265,48),-59.5237,Tree(Leaf(Color(purple,RICM5),-61.7223
,132),-60.8293,Tree(Tree(Leaf(Color(purple,RICAE),-61.9432,215),-61.5913,Leaf(
Color(purple,RICCN),-61.9122,4),100),-61.4295,Tree(Tree(Leaf(Color(purple,RICRO)
,-62.1194,148),-62.0473,Leaf(Color(purple,RICRS),-62.0599,130),100),-61.5040,
Leaf(Color(purple,RICPU),-61.8999,211),96),100),100),100),100),100),100),100),
100),100),-22.8099,Tree(Leaf(Color(gold,PELUB),-59.8179,44),-24.7169,Tree(Tree(
Leaf(Color(SpringGreen,PUNMI),-57.7758,235),-28.1577,Tree(Tree(Leaf(Color(red4,
ACICJ),-56.7451,159),-36.6306,Tree(Leaf(Color(red4,GRABC),-56.0351,78),-37.7508,
Tree(Tree(Leaf(Color(red4,GLUDA),-56.9453,152),-43.0486,Leaf(Color(red4,ACEP3),
-57.6139,213),100),-41.7156,Leaf(Color(red4,GLUOX),-58.8153,43),100),90),100),
-29.2910,Tree(Tree(Leaf(Color(red4,RHORT),-54.8134,68),-33.6027,Leaf(Color(red4,
MAGSA),-52.4036,89),100),-31.2542,Leaf(Color(red4,RHOCS),-51.9420,194),100),100)
,67),-27.3653,Tree(Tree(Tree(Tree(Leaf(Color(brown,PHEZH),-55.9028,190),-43.3050
,Tree(Leaf(Color(brown,CAUSK),-56.8170,168),-49.7481,Tree(Leaf(Color(brown,CAUCN
),-56.4872,209),-56.4356,Leaf(Color(brown,CAUCR),-56.4370,3),100),100),100),
-32.6813,Tree(Leaf(Color(orange,MARMM),-57.3447,76),-33.3111,Tree(Leaf(Color(
orange,HYPNA),-58.5616,82),-37.7405,Leaf(Color(orange,HIRBI),-58.9760,210),100),
94),100),-29.2590,Tree(Tree(Tree(Leaf(Color(orange,PARDP),-57.3477,92),-44.4315,
Tree(Leaf(Color(orange,RHOS5),-57.7396,134),-54.9733,Tree(Leaf(Color(orange,
RHOSK),-57.8425,203),-57.7837,Tree(Leaf(Color(orange,RHOS1),-58.2662,112),
-58.0772,Leaf(Color(orange,RHOS4),-58.3519,54),100),100),100),98),-43.2452,Tree(
Leaf(Color(orange,JANSC),-58.6390,56),-44.4216,Tree(Leaf(Color(orange,DINSH),
-57.7828,169),-44.6389,Tree(Leaf(Color(orange,ROSDO),-58.7407,93),-47.0222,Tree(
Leaf(Color(orange,SILST),-59.0802,69),-49.1908,Leaf(Color(orange,SILPO),-58.4207
,29),100),100),72),100),100),-29.5401,Tree(Tree(Tree(Tree(Leaf(Color(red,BARBK),
-58.1406,107),-49.7235,Tree(Tree(Leaf(Color(red,BART1),-57.8906,156),-55.4381,
Leaf(Color(red,BARGA),-58.1540,230),100),-52.8523,Tree(Leaf(Color(red,BARQU),
-58.6629,36),-53.9622,Leaf(Color(red,BARHE),-58.0188,26),100),100),100),-39.7652
,Tree(Tree(Tree(Leaf(Color(red,MESSB),-55.1089,116),-43.9404,Leaf(Color(red,
RHILO),-55.5321,23),100),-41.8271,Tree(Leaf(Color(red,OCHA4),-54.8598,128),
-51.2229,Tree(Tree(Tree(Leaf(Color(red,BRUA2),-54.7253,52),-54.7009,Tree(Leaf(
Color(red,BRUA1),-54.7281,185),-54.7031,Leaf(Color(red,BRUAB),-54.7366,35),57),
100),-54.6032,Tree(Tree(Tree(Tree(Leaf(Color(red,BRUC2),-54.8046,160),-54.7308,
Leaf(Color(red,BRUSU),-54.7984,12),100),-54.6976,Leaf(Color(red,BRUSI),-54.8251,
147),100),-54.6688,Leaf(Color(red,BRUMC),-54.7413,217),94),-54.6510,Leaf(Color(
red,BRUO2),-54.8256,125),56),27),-54.5996,Tree(Leaf(Color(red,BRUMB),-54.7343,
218),-54.6742,Leaf(Color(red,BRUME),-54.7575,22),99),100),100),100),-40.9445,
Tree(Tree(Leaf(Color(red,RHISN),-56.0536,233),-51.8188,Tree(Leaf(Color(red,SINMW
),-56.1122,135),-53.7759,Leaf(Color(red,RHIME),-55.8448,17),100),100),-46.2727,
Tree(Tree(Leaf(Color(red,AGRT5),-56.8417,7),-46.9868,Tree(Leaf(Color(red,AGRRK),
-56.9553,32),-50.2413,Tree(Tree(Leaf(Color(red,RHIE6),-56.6202,186),-54.9979,
Leaf(Color(red,RHIEC),-56.8089,73),100),-54.4511,Tree(Tree(Leaf(Color(red,RHILS)
,-56.8371,216),-56.0830,Leaf(Color(red,RHIL3),-56.9453,66),100),-54.9649,Leaf(
Color(red,RHILW),-56.6634,199),100),100),100),89),-46.6890,Leaf(Color(red,AGRVS)
,-57.0898,228),78),100),100),100),-33.4838,Tree(Tree(Tree(Leaf(Color(red,METSB),
-56.0069,201),-43.1332,Leaf(Color(red,BEII9),-56.5594,157),100),-36.5172,Tree(
Tree(Leaf(Color(red,METNO),-55.0369,206),-51.1899,Leaf(Color(red,METS4),-55.1737
,173),100),-45.3900,Tree(Leaf(Color(red,METRJ),-56.3310,172),-48.1896,Tree(Tree(
Leaf(Color(red,METED),-56.3777,229),-56.1497,Tree(Leaf(Color(red,METC4),-56.4740
,196),-56.2033,Tree(Leaf(Color(red,METEA),-56.5096,225),-56.2172,Leaf(Color(red,
METEP),-56.4884,166),51),65),100),-54.0822,Leaf(Color(red,METPB),-56.1856,171),
100),100),100),100),-35.5803,Tree(Tree(Leaf(Color(red,AZOC5),-54.0360,129),
-44.4311,Leaf(Color(red,XANP2),-54.1472,165),100),-36.6781,Tree(Leaf(Color(red,
OLICO),-55.1925,195),-44.9059,Tree(Tree(Tree(Leaf(Color(red,RHOP5),-56.1822,102)
,-49.6238,Leaf(Color(red,RHOPB),-55.6465,62),100),-48.2380,Tree(Tree(Leaf(Color(
red,RHOPS),-55.3168,80),-52.2385,Leaf(Color(red,RHOP2),-55.5221,74),100),
-50.7365,Tree(Leaf(Color(red,RHOPT),-55.2216,188),-54.9635,Leaf(Color(red,RHOPA)
,-55.2218,24),100),100),100),-46.2533,Tree(Tree(Leaf(Color(red,NITHX),-55.7828,
70),-51.3874,Leaf(Color(red,NITWN),-55.5415,50),100),-46.5764,Tree(Tree(Leaf(
Color(red,BRASB),-55.2604,117),-53.1516,Leaf(Color(red,BRASO),-55.3347,113),100)
,-48.1958,Leaf(Color(red,BRAJA),-55.3199,1),100),78),100),100),100),100),100),
-31.5056,Leaf(Color(red,PARL1),-52.5497,142),100),85),100),-27.8979,Tree(Leaf(
Color(LightSeaGreen,ZYMMO),-60.5388,41),-38.4242,Tree(Tree(Leaf(Color(
LightSeaGreen,SPHAL),-57.7599,126),-41.5885,Tree(Leaf(Color(LightSeaGreen,ERYLH)
,-58.9581,85),-44.5145,Leaf(Color(LightSeaGreen,NOVAD),-58.2113,55),100),98),
-40.5674,Leaf(Color(LightSeaGreen,SPHWW),-57.0890,150),100),100),100),100),93),
100),65),100),100)) :
title := 'Other Proteobacteria (max Length)  (only 1 isoform used) , Tue Mar  8 06:10:21 2011, 236 species, 89463 orthologs, 156 top groups, 451 used here, AveVarWeighted, BestSubset, DimlessQual: best: 0.41814, ave: 0.5786 +- 0.0025, var: 0.001664, Z=-3.934':
Xref := [LTEXT(110,3,'Rhizobiales',color = [1, 0, 0]), LTEXT(110,6,'Burkholderiales',color = [0, 1, 0]), LTEXT(110,9,'Deltaproteobacteria',color = [0, 0, 0.8039]), LTEXT(110,12,'Epsilonproteobacteria',color = [0, 1, 1]), LTEXT(110,15,'Rickettsia',color = [0.6275, 0.1255, 0.9412]), LTEXT(110,18,'Rhodobacterales',color = [1, 0.6471, 0]), LTEXT(110,21,'Neisseriales',color = [0, 0, 0]), LTEXT(110,24,'Anaplasmataceae',color = [0.8039, 0.3608, 0.3608]), LTEXT(110,27,'Rhodospirillales',color = [0.5451, 0, 0]), LTEXT(110,30,'Sphingomonadales',color = [0.1255, 0.6980, 0.6667]), LTEXT(110,33,'Wolbachieae',color = [0, 0.3922, 0]), LTEXT(110,36,'Rhodocyclales',color = [0.09803922, 0.09803922, 0.4392]), LTEXT(110,39,'Caulobacterales',color = [0.6471, 0.1647, 0.1647]), LTEXT(110,42,'Methylophilales',color = [1, 0.4118, 0.7059]), LTEXT(110,45,'Nitrosomonadales',color = [0.3333, 0.1020, 0.5451]), LTEXT(110,48,'Orientia',color = [0.4980, 0.4980, 0.4980]), LTEXT(110,51,'SAR11 cluster',color = [1, 0.8431, 0]), LTEXT(110,54,'Hydrogenophilales',color = [0.9333, 0, 0.9333]), LTEXT(110,57,'SAR116 cluster',color = [0, 1, 0.4980]), LTEXT(110,60,'Magnetococcus',color = [0.3020, 0.3020, 0.3020])]:

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