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

tree := Tree(Tree(Leaf(Color(IndianRed,LEGPC),-65.1205,107),-64.7768,Tree(Tree(
Leaf(Color(IndianRed,LEGPL),-65.6075,27),-64.9650,Leaf(Color(IndianRed,LEGPH),
-65.3010,26),85),-64.8563,Leaf(Color(IndianRed,LEGPA),-65.2973,25),63),100),
-34.4055,Tree(Tree(Tree(Tree(Leaf(Color(black,FRATN),-87.4660,96),-86.8220,Tree(
Tree(Leaf(Color(black,FRATH),-87.2654,90),-87.2448,Tree(Leaf(Color(black,FRATF),
-87.3250,120),-87.2719,Leaf(Color(black,FRATO),-87.3272,86),69),99),-86.9353,
Tree(Leaf(Color(black,FRATM),-87.3145,157),-86.9726,Tree(Leaf(Color(black,FRATW)
,-87.1221,98),-87.0025,Tree(Leaf(Color(black,FRAT1),-87.1721,72),-87.1455,Leaf(
Color(black,FRATT),-87.1758,41),92),40),33),42),100),-81.3087,Leaf(Color(black,
FRAP2),-86.6301,138),100),-41.5331,Tree(Tree(Tree(Leaf(Color(green,IDILO),
-78.0558,42),-50.2137,Tree(Tree(Tree(Leaf(Color(green,PSEA6),-77.6211,73),
-60.9863,Leaf(Color(green,ALTMD),-78.3347,161),100),-53.8026,Tree(Leaf(Color(
green,PSEHT),-78.7821,54),-55.1821,Leaf(Color(green,COLP3),-78.8185,46),100),99)
,-51.4593,Tree(Tree(Tree(Tree(Leaf(Color(MidnightBlue,AERS4),-75.1185,84),
-72.7726,Leaf(Color(MidnightBlue,AERHH),-74.7752,80),100),-54.3281,Tree(Tree(
Tree(Tree(Tree(Tree(Leaf(Color(cyan,ACTPJ),-83.4475,143),-83.1829,Tree(Leaf(
Color(cyan,ACTP2),-83.5016,105),-83.2627,Leaf(Color(cyan,ACTP7),-83.5974,156),60
),100),-76.4674,Leaf(Color(cyan,HAEDU),-85.2535,47),100),-74.0036,Leaf(Color(
cyan,HAEPS),-82.6304,192),100),-67.8282,Tree(Tree(Leaf(Color(cyan,MANSM),
-81.7867,39),-73.1360,Leaf(Color(cyan,ACTSZ),-82.9599,129),100),-71.3114,Tree(
Tree(Tree(Leaf(Color(cyan,HAES1),-83.6257,75),-83.2710,Leaf(Color(cyan,HAES2),
-83.6248,144),100),-71.9434,Leaf(Color(cyan,PASMU),-81.6166,5),49),-71.6173,Tree
(Tree(Leaf(Color(cyan,HAEIE),-82.5070,104),-81.9195,Tree(Leaf(Color(cyan,HAEIN),
-82.7214,4),-82.0648,Leaf(Color(cyan,HAEI8),-82.6464,38),72),58),-81.7615,Leaf(
Color(cyan,HAEIG),-82.0522,102),100),92),100),100),-57.8841,Tree(Tree(Tree(Leaf(
Color(red,BLOFL),-100.1064,29),-78.1439,Leaf(Color(red,BLOPB),-95.6338,48),100),
-67.2082,Tree(Leaf(Color(red,WIGBR),-107.8931,23),-70.8426,Tree(Tree(Tree(Leaf(
Color(red,BUCAI),-101.2040,19),-101.1806,Tree(Leaf(Color(red,BUCA5),-101.4816,
197),-101.2959,Leaf(Color(red,BUCAT),-101.3872,191),68),100),-86.2070,Leaf(Color
(red,BUCAP),-101.7348,14),100),-75.9799,Tree(Leaf(Color(red,BUCBP),-107.8148,43)
,-78.2118,Leaf(Color(red,BUCCC),-118.2130,81),76),100),100),100),-58.9495,Tree(
Leaf(Color(HotPink,BAUCH),-88.4190,76),-62.1315,Tree(Leaf(Color(red,HAMD5),
-85.3896,206),-62.7112,Tree(Tree(Tree(Leaf(Color(red,PHOAA),-78.1955,205),
-75.1665,Leaf(Color(red,PHOLL),-78.3064,24),100),-66.2393,Tree(Leaf(Color(red,
SODGM),-78.9534,57),-66.9873,Tree(Tree(Tree(Leaf(Color(red,SERP5),-76.4118,124),
-70.4833,Tree(Leaf(Color(red,YERE8),-77.0835,83),-74.6746,Tree(Leaf(Color(red,
YERPB),-77.2677,154),-77.2366,Tree(Leaf(Color(red,YERPS),-77.2849,34),-77.2470,
Tree(Leaf(Color(red,YERP3),-77.3293,134),-77.2597,Tree(Leaf(Color(red,YERPY),
-77.3369,155),-77.2776,Tree(Leaf(Color(red,YERPP),-77.3971,95),-77.3615,Tree(
Tree(Leaf(Color(red,YERPA),-77.3941,67),-77.3677,Tree(Leaf(Color(red,YERPG),
-77.4179,160),-77.3699,Leaf(Color(red,YERPN),-77.4006,78),25),24),-77.3661,Leaf(
Color(red,YERPE),-77.3924,22),42),100),84),60),58),100),100),100),-68.8736,Leaf(
Color(red,ERWCT),-77.6230,13),100),-67.4763,Tree(Leaf(Color(red,ERWT9),-78.0715,
164),-68.5205,Tree(Leaf(Color(red,ENTS8),-77.2793,139),-71.9533,Tree(Tree(Leaf(
Color(red,KLEP7),-77.3129,121),-76.9233,Leaf(Color(red,KLEP3),-77.4891,173),100)
,-73.0357,Tree(Leaf(Color(red,ENT38),-77.8755,116),-73.2338,Tree(Tree(Leaf(Color
(red,CITK8),-77.1827,146),-74.9387,Tree(Leaf(Color(red,SALAR),-77.7985,122),
-76.8336,Tree(Leaf(Color(red,SALTI),-77.5794,8),-77.3621,Tree(Tree(Leaf(Color(
red,SALPK),-77.5492,166),-77.5293,Leaf(Color(red,SALPA),-77.5653,32),100),
-77.3728,Tree(Tree(Leaf(Color(red,SALSV),-77.5413,171),-77.4051,Leaf(Color(red,
SALA4),-77.5192,177),65),-77.3970,Tree(Tree(Leaf(Color(red,SALPC),-77.5394,202),
-77.4975,Leaf(Color(red,SALCH),-77.5896,31),100),-77.4057,Tree(Tree(Leaf(Color(
red,SALPB),-77.5516,150),-77.4209,Tree(Leaf(Color(red,SALDC),-77.5723,174),
-77.4715,Tree(Leaf(Color(red,SALG2),-77.5885,178),-77.4960,Leaf(Color(red,SALEP)
,-77.5306,172),100),100),64),-77.4079,Tree(Leaf(Color(red,SALNS),-77.5135,168),
-77.4129,Tree(Leaf(Color(red,SALHS),-77.5231,169),-77.4300,Leaf(Color(red,SALTY)
,-77.5195,44),99),61),44),72),99),63),100),100),100),-74.6289,Tree(Tree(Leaf(
Color(red,ECOLU),-77.3317,186),-77.1924,Tree(Tree(Leaf(Color(red,SHIDS),-77.5503
,61),-77.2252,Tree(Leaf(Color(red,ECO5E),-77.3887,175),-77.3512,Leaf(Color(red,
ECO57),-77.3877,17),100),73),-77.2141,Tree(Tree(Tree(Leaf(Color(red,ECO24),
-77.3523,123),-77.2729,Tree(Leaf(Color(red,ECO8A),-77.3530,201),-77.2787,Tree(
Leaf(Color(red,ECOSE),-77.3737,180),-77.2825,Leaf(Color(red,ECO55),-77.3571,190)
,63),78),99),-77.2524,Tree(Tree(Leaf(Color(red,SHISS),-77.4328,52),-77.2750,Tree
(Leaf(Color(red,SHIB3),-77.4693,158),-77.3726,Leaf(Color(red,SHIBS),-77.4876,55)
,100),99),-77.2582,Tree(Leaf(Color(red,SHIF8),-77.5349,92),-77.4584,Leaf(Color(
red,SHIFL),-77.5443,21),100),74),94),-77.2410,Tree(Tree(Leaf(Color(red,ECOLC),
-77.3424,136),-77.2754,Tree(Leaf(Color(red,ECOBB),-77.3600,204),-77.2836,Tree(
Leaf(Color(red,ECODH),-77.3772,133),-77.3469,Leaf(Color(red,ECOLI),-77.3661,1),
100),82),70),-77.2679,Leaf(Color(red,ECOHS),-77.3320,135),100),100),100),97),
-77.1750,Tree(Tree(Leaf(Color(red,ECO27),-77.4487,199),-77.2791,Tree(Leaf(Color(
red,ECOL5),-77.4273,63),-77.3073,Tree(Leaf(Color(red,ECOL6),-77.4076,10),
-77.3170,Tree(Leaf(Color(red,ECO81),-77.4361,194),-77.3330,Tree(Leaf(Color(red,
ECO45),-77.4279,195),-77.3925,Tree(Leaf(Color(red,ECOK1),-77.4485,101),-77.4013,
Leaf(Color(red,ECOUT),-77.4231,74),83),100),100),81),100),100),-77.1872,Tree(
Leaf(Color(red,ECO7I),-77.3618,189),-77.2247,Leaf(Color(red,ECOSM),-77.3537,137)
,100),79),100),100),100),100),100),100),88),100),100),-64.9591,Leaf(Color(red,
PROMH),-78.6510,167),100),98),100),100),100),-56.0488,Tree(Tree(Tree(Leaf(Color(
orange,ALISL),-78.2444,176),-73.8407,Tree(Leaf(Color(orange,VIBFM),-77.5956,170)
,-77.1946,Leaf(Color(orange,VIBF1),-77.4549,37),100),100),-65.5672,Tree(Tree(
Leaf(Color(orange,VIBC3),-77.0537,145),-76.9336,Tree(Leaf(Color(orange,VIBCM),
-77.0277,198),-76.9688,Leaf(Color(orange,VIBCH),-77.0235,11),100),100),-68.6563,
Tree(Leaf(Color(orange,VIBSL),-77.9018,193),-69.9203,Tree(Tree(Leaf(Color(orange
,VIBHB),-77.1325,151),-74.4300,Leaf(Color(orange,VIBPA),-76.6194,16),100),
-71.0689,Tree(Leaf(Color(orange,VIBVU),-76.8362,20),-76.6576,Leaf(Color(orange,
VIBVY),-76.8202,7),100),100),100),100),100),-63.2347,Leaf(Color(orange,PHOPR),
-77.0600,9),100),100),100),-52.6703,Leaf(Color(green,PSYIN),-80.4478,97),77),
-52.4728,Tree(Leaf(Color(green,SHEAM),-76.1183,109),-65.6738,Tree(Tree(Leaf(
Color(green,SHELP),-76.5965,82),-68.5480,Tree(Tree(Leaf(Color(green,SHESH),
-77.6697,119),-72.4929,Leaf(Color(green,SHEWM),-77.7971,140),100),-69.5797,Tree(
Tree(Leaf(Color(green,SHEPA),-77.1434,118),-74.8220,Leaf(Color(green,SHEHH),
-77.2753,128),100),-72.5643,Leaf(Color(green,SHEPW),-77.6898,187),100),100),100)
,-66.7974,Tree(Tree(Tree(Tree(Leaf(Color(green,SHESA),-76.5153,85),-75.9829,Tree
(Leaf(Color(green,SHESM),-76.3915,99),-76.1996,Leaf(Color(green,SHESR),-76.5238,
65),100),100),-75.0617,Leaf(Color(green,SHEON),-76.8046,12),100),-73.2390,Tree(
Tree(Leaf(Color(green,SHEPC),-76.6923,112),-76.5584,Leaf(Color(green,SHESW),
-76.6998,93),100),-74.2878,Tree(Leaf(Color(green,SHEB5),-76.9741,110),-76.7341,
Tree(Leaf(Color(green,SHEB2),-76.9763,183),-76.7493,Tree(Leaf(Color(green,SHEB9)
,-76.9714,117),-76.7693,Leaf(Color(green,SHEB8),-77.0111,111),60),64),100),100),
100),-67.8737,Tree(Leaf(Color(green,SHEDO),-77.9239,64),-69.2778,Leaf(Color(
green,SHEFN),-77.9075,71),100),100),100),100),94),100),100),-44.0173,Tree(Tree(
Tree(Tree(Tree(Leaf(Color(DarkGreen,ACIF2),-89.8149,185),-89.7536,Leaf(Color(
DarkGreen,ACIF5),-89.7536,179),100),-48.6267,Tree(Tree(Tree(Leaf(Color(purple,
STRM5),-87.3078,165),-85.7969,Leaf(Color(purple,STRMK),-86.9144,132),100),
-76.4796,Tree(Tree(Tree(Leaf(Color(purple,XANC5),-87.2441,62),-86.3944,Leaf(
Color(purple,XANAC),-87.3408,33),100),-85.6607,Tree(Leaf(Color(purple,XANOR),
-87.6381,30),-87.6381,Tree(Leaf(Color(purple,XANOM),-87.7785,68),-87.7001,Leaf(
Color(purple,XANOP),-87.8062,159),81),100),100),-84.0551,Tree(Leaf(Color(purple,
XANCB),-87.3876,131),-87.1595,Tree(Leaf(Color(purple,XANC8),-87.2671,45),
-87.2295,Leaf(Color(purple,XANCP),-87.2839,3),95),100),100),100),-74.9935,Tree(
Leaf(Color(purple,XYLFA),-89.7594,28),-88.9625,Tree(Leaf(Color(purple,XYLFM),
-89.8468,153),-89.3895,Tree(Leaf(Color(purple,XYLF2),-90.0700,152),-90.0700,Leaf
(Color(purple,XYLFT),-90.1307,2),100),100),100),100),61),-48.2308,Tree(Tree(Tree
(Leaf(Color(red4,HALHL),-83.1001,79),-58.4325,Leaf(Color(red4,ALHEH),-79.6987,
103),100),-51.0548,Leaf(Color(red4,THISH),-76.2146,196),94),-49.9069,Tree(Leaf(
Color(grey50,METCA),-78.9976,36),-50.2868,Leaf(Color(red4,NITOC),-78.5990,53),52
),71),94),-46.9165,Leaf(Color(purple4,DICNV),-91.5508,100),66),-45.0356,Tree(
Tree(Tree(Leaf(Color(MediumBlue,PSYWF),-83.7522,114),-71.8216,Tree(Leaf(Color(
MediumBlue,PSYA2),-86.2329,149),-83.8733,Leaf(Color(MediumBlue,PSYCK),-85.6094,
56),100),100),-57.9938,Tree(Leaf(Color(MediumBlue,ACIAD),-83.3951,35),-76.3345,
Tree(Tree(Tree(Leaf(Color(MediumBlue,ACIB5),-82.4027,182),-82.3905,Tree(Leaf(
Color(MediumBlue,ACIB3),-82.4681,181),-82.4221,Leaf(Color(MediumBlue,ACIBY),
-82.4431,142),97),94),-82.2674,Tree(Leaf(Color(MediumBlue,ACIBC),-82.4932,141),
-82.3526,Leaf(Color(MediumBlue,ACIBS),-82.7073,162),89),96),-81.9109,Leaf(Color(
MediumBlue,ACIBT),-81.9109,91),100),100),100),-45.7789,Tree(Leaf(Color(
LightSeaGreen,MARMS),-77.7511,127),-47.3318,Tree(Tree(Tree(Leaf(Color(MediumBlue
,CELJU),-75.2097,163),-54.0268,Tree(Leaf(Color(green,TERTT),-77.8449,203),
-59.5489,Leaf(Color(green,SACD2),-78.0575,69),100),91),-48.3852,Tree(Tree(Leaf(
Color(LightSeaGreen,HAHCH),-76.4563,60),-52.6776,Leaf(Color(green,MARAV),
-76.2350,77),100),-49.0025,Tree(Leaf(Color(LightSeaGreen,CHRSD),-78.5032,58),
-49.1370,Tree(Leaf(Color(MediumBlue,PSEU5),-74.2079,87),-64.5796,Tree(Tree(Leaf(
Color(MediumBlue,PSEMY),-74.4141,113),-65.4975,Tree(Leaf(Color(MediumBlue,PSEA7)
,-74.5785,125),-73.7231,Tree(Leaf(Color(MediumBlue,PSEA8),-74.4516,188),-74.4092
,Tree(Leaf(Color(MediumBlue,PSEAB),-74.6265,88),-74.4666,Leaf(Color(MediumBlue,
PSEAE),-74.5607,6),81),100),100),60),-64.9168,Tree(Tree(Leaf(Color(MediumBlue,
PSEE4),-75.2581,89),-72.5407,Tree(Tree(Leaf(Color(MediumBlue,PSEPG),-75.4143,126
),-74.4409,Tree(Leaf(Color(MediumBlue,PSEP1),-75.3507,115),-75.0566,Leaf(Color(
MediumBlue,PSEPK),-75.2551,40),100),100),-73.3051,Leaf(Color(MediumBlue,PSEPW),
-75.4956,130),100),100),-67.8057,Tree(Tree(Leaf(Color(MediumBlue,PSEFS),-75.5512
,200),-71.3520,Tree(Leaf(Color(MediumBlue,PSEPF),-75.2865,59),-71.5451,Leaf(
Color(MediumBlue,PSEF5),-75.0411,50),98),100),-69.3942,Tree(Leaf(Color(
MediumBlue,PSESM),-75.8716,15),-74.3908,Tree(Leaf(Color(MediumBlue,PSEU2),
-75.7392,51),-74.7612,Leaf(Color(MediumBlue,PSE14),-75.6945,49),100),100),100),
100),75),100),74),100),90),-47.5021,Leaf(Color(LightSeaGreen,ALCBS),-78.1074,66)
,61),90),90),54),65),-42.1313,Tree(Leaf(Color(black,THICR),-78.4738,70),-45.5337
,Tree(Leaf(Color(brown,RUTMC),-85.3264,106),-77.0621,Leaf(Color(brown,VESOH),
-86.4620,94),100),80),47),59),-39.0316,Tree(Tree(Leaf(Color(IndianRed,COXB2),
-72.3527,184),-72.2319,Tree(Leaf(Color(IndianRed,COXBR),-72.4685,148),-72.3585,
Leaf(Color(IndianRed,COXBU),-72.4055,18),100),59),-72.1818,Leaf(Color(IndianRed,
COXBN),-72.3302,147),100),58),100) :
title := 'All Gammaproteobacteria (max Length)  (only 1 isoform used) , Thu Jan 14 11:45:25 2010, 206 species, 53534 orthologs, 47 top groups, 262 used here, Arithmetic, BestSubset, DimlessQual: best: 0.19728, ave: 0.21386 +- 0.00077, var: 0.0001547, Z=-1.334':
Xref := [LTEXT(110,3,'Enterobacteriales',color = [1, 0, 0]), LTEXT(110,6,'Alteromonadales',color = [0, 1, 0]), LTEXT(110,9,'Pseudomonadales',color = [0, 0, 0.8039]), LTEXT(110,12,'Pasteurellales',color = [0, 1, 1]), LTEXT(110,15,'Xanthomonadales',color = [0.6275, 0.1255, 0.9412]), LTEXT(110,18,'Vibrionales',color = [1, 0.6471, 0]), LTEXT(110,21,'Thiotrichales',color = [0, 0, 0]), LTEXT(110,24,'Legionellales',color = [0.8039, 0.3608, 0.3608]), LTEXT(110,27,'Chromatiales',color = [0.5451, 0, 0]), LTEXT(110,30,'Oceanospirillales',color = [0.1255, 0.6980, 0.6667]), LTEXT(110,33,'Acidithiobacillales',color = [0, 0.3922, 0]), LTEXT(110,36,'Aeromonadales',color = [0.09803922, 0.09803922, 0.4392]), LTEXT(110,39,'sulfur-oxidizing symbionts',color = [0.6471, 0.1647, 0.1647]), LTEXT(110,42,'Baumannia',color = [1, 0.4118, 0.7059]), LTEXT(110,45,'Cardiobacteriales',color = [0.3333, 0.1020, 0.5451]), LTEXT(110,48,'Methylococcales',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():