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

tree := Tree(Tree(Tree(Tree(Tree(Leaf(Color(red,UREP2),-85.5136,71),-85.4981,
Leaf(Color(red,UREPA),-85.5320,31),97),-77.8007,Leaf(Color(red,UREU1),-80.8624,
26),68),-20.5136,Tree(Tree(Tree(Leaf(Color(red,MYCCR),-85.0400,117),-56.3583,
Tree(Leaf(Color(red,MYCHJ),-86.7064,38),-86.7064,Tree(Leaf(Color(red,MYCH7),
-87.6436,39),-87.4256,Leaf(Color(red,MYCH2),-87.6434,30),45),68),68),-24.1878,
Tree(Tree(Leaf(Color(red,MYCGH),-90.5824,137),-90.5824,Leaf(Color(red,MYCGA),
-90.6319,29),96),-42.7942,Tree(Leaf(Color(red,MYCPN),-94.2553,3),-67.9025,Leaf(
Color(red,MYCGE),-93.5498,2),71),66),29),-21.4960,Tree(Leaf(Color(red,MYCA5),
-85.2279,98),-46.0626,Leaf(Color(red,MYCHP),-78.8973,139),68),32),44),-16.7768,
Leaf(Color(red,MYCMO),-80.8553,21),44),0,Tree(Leaf(Color(red,MYCPU),-13.3614,22)
,-0.2840,Tree(Leaf(Color(red,MYCS5),-18.2844,40),-3.0148,Tree(Tree(Tree(Leaf(
Color(red,MYCAP),-77.6280,81),-14.1554,Tree(Tree(Tree(Tree(Leaf(Color(red,PHYAS)
,-68.0287,103),-53.9580,Tree(Leaf(Color(red,AYWBP),-73.8885,57),-70.7636,Leaf(
Color(red,ONYPE),-73.1683,16),100),100),-43.6690,Leaf(Color(red,PHYMT),-74.8458,
106),94),-33.9358,Leaf(Color(red,ACHLI),-65.7428,68),75),-29.2987,Tree(Tree(Tree
(Tree(Leaf(Color(red,LEPBD),-77.8446,130),-57.5132,Leaf(Color(red,SEBTE),
-77.7177,134),100),-54.5734,Leaf(Color(red,STRM9),-79.1290,132),100),-48.3422,
Leaf(Color(red,FUSNN),-77.8245,1),89),-38.6930,Tree(Leaf(Color(red,BRAHW),
-80.8290,118),-39.5841,Tree(Tree(Tree(Tree(Leaf(Color(red,UNCTG),-85.8799,70),
-50.5935,Leaf(Color(red,ELUMP),-89.7624,89),98),-45.1297,Tree(Tree(Tree(Leaf(
Color(red,TREDE),-92.6734,24),-69.1627,Tree(Leaf(Color(red,TREPS),-95.7169,92),
-95.6887,Leaf(Color(red,TREPA),-95.7155,17),100),100),-54.4056,Tree(Tree(Tree(
Leaf(Color(red,BORDL),-93.2322,102),-93.0612,Leaf(Color(red,BORRA),-93.3927,101)
,100),-87.8386,Tree(Leaf(Color(red,BORT9),-93.8479,105),-90.5024,Leaf(Color(red,
BORHD),-94.7515,86),100),100),-80.7452,Tree(Tree(Leaf(Color(red,BORGA),-93.1475,
35),-90.4531,Tree(Leaf(Color(red,BORBZ),-92.9217,108),-92.9217,Leaf(Color(red,
BORBU),-93.3208,13),100),83),-89.9729,Leaf(Color(red,BORAP),-91.4551,49),100),
100),98),-46.4675,Tree(Leaf(Color(red,PARUW),-93.5771,23),-62.6521,Tree(Tree(
Tree(Leaf(Color(red,CHLFF),-95.0317,46),-90.8364,Tree(Leaf(Color(red,CHLAB),
-96.8140,34),-91.3645,Leaf(Color(red,CHLCV),-95.0209,15),93),100),-84.6268,Tree(
Leaf(Color(red,CHLPP),-98.8506,127),-98.4302,Leaf(Color(red,CHLPN),-98.5051,14),
100),100),-81.1474,Tree(Tree(Tree(Leaf(Color(red,CHLTB),-97.2088,78),-97.1812,
Leaf(Color(red,CHLT2),-97.2275,76),93),-97.0742,Tree(Tree(Leaf(Color(red,CHLTJ),
-97.5496,123),-97.4692,Leaf(Color(red,CHLTA),-97.5381,58),100),-97.3809,Leaf(
Color(red,CHLTR),-97.4797,28),100),100),-92.2145,Leaf(Color(red,CHLMU),-96.6193,
4),100),100),100),76),66),-43.5289,Tree(Tree(Tree(Tree(Leaf(Color(red,LEPBP),
-92.3332,80),-92.2752,Leaf(Color(red,LEPBA),-92.2752,79),100),-70.2002,Tree(Tree
(Leaf(Color(red,LEPBJ),-93.4205,56),-93.3056,Leaf(Color(red,LEPBL),-93.3125,52),
100),-88.9529,Tree(Leaf(Color(red,LEPIC),-93.4699,27),-93.3528,Leaf(Color(red,
LEPIN),-93.4218,10),100),100),100),-44.9128,Tree(Tree(Tree(Leaf(Color(red,METI4)
,-88.3125,37),-50.0849,Tree(Leaf(Color(red,OPITP),-89.4301,69),-52.4842,Leaf(
Color(red,AKKM8),-90.2306,84),94),62),-46.1617,Tree(Tree(Leaf(Color(red,SOLUE),
-85.5044,55),-56.9717,Tree(Leaf(Color(red,ACIBL),-85.7445,47),-63.1826,Leaf(
Color(red,ACIC5),-87.1218,110),100),100),-47.4213,Tree(Tree(Leaf(Color(red,RHOBA
),-92.2294,18),-60.2988,Leaf(Color(red,PLAL2),-89.7959,141),100),-47.6318,Tree(
Tree(Tree(Leaf(Color(red,THET1),-87.8458,138),-52.9589,Tree(Tree(Leaf(Color(red,
HERA2),-90.6081,90),-64.1277,Tree(Tree(Leaf(Color(red,ROSCS),-87.8744,73),
-83.2016,Leaf(Color(red,ROSS1),-87.8213,66),100),-68.2619,Tree(Leaf(Color(red,
CHLAD),-88.6016,109),-83.5863,Tree(Leaf(Color(red,CHLSY),-88.9270,113),-88.9270,
Leaf(Color(red,CHLAA),-89.0142,65),100),100),100),100),-55.0538,Tree(Leaf(Color(
red,THERP),-86.8556,104),-67.8294,Leaf(Color(red,SPHTD),-86.5850,144),100),98),
97),-51.7506,Tree(Tree(Leaf(Color(red,DEHSB),-91.4533,77),-91.3089,Leaf(Color(
red,DEHSC),-91.6268,42),100),-87.7022,Tree(Leaf(Color(red,DEHSV),-90.9375,129),
-88.5774,Leaf(Color(red,DEHE1),-91.0754,41),100),100),100),-48.8240,Tree(Tree(
Leaf(Color(red,MEIRD),-90.0877,136),-70.9599,Tree(Leaf(Color(red,THET8),-88.8908
,33),-88.6195,Leaf(Color(red,THET2),-88.9733,11),100),100),-59.5370,Tree(Leaf(
Color(red,DEIGD),-90.9312,45),-81.4101,Tree(Leaf(Color(red,DEIDV),-91.0477,114),
-81.9111,Leaf(Color(red,DEIRA),-90.4546,9),60),100),100),100),66),95),58),
-45.2909,Tree(Leaf(Color(red,FIBSS),-93.0841,122),-46.2896,Tree(Tree(Leaf(Color(
red,SALRD),-90.0985,43),-50.0616,Tree(Leaf(Color(red,CHLT3),-86.1792,94),
-64.0185,Tree(Tree(Leaf(Color(red,CHLPB),-89.9261,88),-76.2020,Leaf(Color(red,
PROA2),-88.9351,97),100),-72.5339,Tree(Tree(Leaf(Color(red,CHLCH),-88.9873,44),
-75.3663,Tree(Tree(Leaf(Color(red,PROVI),-89.9887,82),-79.5191,Leaf(Color(red,
PELLD),-89.2375,48),100),-75.9265,Tree(Leaf(Color(red,PELPB),-88.3524,100),
-77.0820,Tree(Leaf(Color(red,CHLL2),-88.9468,87),-77.5694,Leaf(Color(red,CHLPD),
-89.5463,53),100),92),82),100),-73.4187,Tree(Leaf(Color(red,CHLP8),-88.8191,95),
-83.0497,Leaf(Color(red,CHLTE),-88.5805,6),100),100),100),100),50),-49.7287,Tree
(Tree(Tree(Leaf(Color(red,SULMW),-90.5335,64),-82.0063,Leaf(Color(red,SULMS),
-95.5177,140),100),-69.6517,Leaf(Color(red,BLASB),-96.4061,124),97),-59.4178,
Tree(Tree(Tree(Leaf(Color(red,AMOA5),-96.2007,85),-64.4765,Tree(Leaf(Color(red,
CHIPD),-91.0658,126),-66.0353,Tree(Leaf(Color(red,PEDHD),-92.5566,121),-67.1854,
Tree(Leaf(Color(red,CYTH3),-91.2135,54),-68.9994,Tree(Leaf(Color(red,SPILD),
-92.7365,133),-76.2008,Leaf(Color(red,DYAFD),-92.4137,119),100),100),86),94),48)
,-63.7388,Tree(Tree(Tree(Tree(Leaf(Color(red,FLAJ1),-92.6267,75),-83.4231,Leaf(
Color(red,FLAPJ),-92.8633,61),100),-76.4165,Leaf(Color(red,GRAFK),-91.6010,51),
100),-74.4110,Leaf(Color(red,CAPOD),-91.9125,120),100),-66.9796,Leaf(Color(red,
FLAB3),-93.4185,135),99),87),-61.0489,Tree(Leaf(Color(red,AZOPC),-97.7073,107),
-72.6455,Tree(Tree(Leaf(Color(red,PORG3),-97.4084,91),-97.3586,Leaf(Color(red,
PORGI),-97.8082,19),100),-74.1301,Tree(Leaf(Color(red,PARD8),-92.9949,60),
-78.0915,Tree(Leaf(Color(red,BACV8),-93.7593,59),-84.2104,Tree(Tree(Leaf(Color(
red,BACFN),-93.9253,36),-93.6999,Leaf(Color(red,BACFR),-93.6999,12),100),
-88.0887,Leaf(Color(red,BACTN),-93.5466,5),100),100),100),98),100),90),100),99),
85),26),75),-43.8248,Tree(Leaf(Color(red,THEAS),-87.5704,131),-59.2058,Leaf(
Color(red,AMICL),-89.3347,143),100),53),61),-42.5741,Tree(Tree(Tree(Leaf(Color(
red,PETMO),-85.0061,74),-52.1893,Tree(Leaf(Color(red,THELT),-85.7453,63),
-59.4102,Tree(Tree(Tree(Leaf(Color(red,THEAB),-84.4663,112),-74.7501,Leaf(Color(
red,THEM4),-86.3872,67),100),-65.2254,Leaf(Color(red,FERNB),-85.6760,62),100),
-60.0773,Tree(Tree(Leaf(Color(red,THENR),-82.9197,128),-82.4799,Leaf(Color(red,
THEP1),-83.1911,83),100),-82.2246,Tree(Leaf(Color(red,THESQ),-83.0233,72),
-82.5470,Leaf(Color(red,THEMA),-83.3510,8),100),100),77),99),99),-44.9961,Tree(
Leaf(Color(red,DICT6),-82.9720,99),-78.0291,Leaf(Color(red,DICTD),-83.7222,111),
100),99),-42.7960,Tree(Tree(Leaf(Color(red,THEYD),-78.7146,125),-46.1089,Leaf(
Color(red,DEFDS),-78.3648,142),98),-44.7461,Tree(Tree(Leaf(Color(red,PERMH),
-80.1552,115),-64.6484,Tree(Leaf(Color(red,SULSY),-80.5268,93),-71.7759,Leaf(
Color(red,SULAA),-80.4285,116),100),100),-53.1162,Tree(Leaf(Color(red,HYDS0),
-85.2123,96),-58.1731,Leaf(Color(red,AQUAE),-82.8655,7),100),100),100),65),82),
66),68),50),18),-8.7231,Leaf(Color(red,MYCPE),-33.1647,20),34),-8.2947,Tree(Tree
(Leaf(Color(red,MYCCT),-47.3622,50),-46.7424,Leaf(Color(red,MYCMS),-50.0964,32),
97),-21.6439,Leaf(Color(red,MESFL),-48.4248,25),90),18),17),44)) :
title := 'Other Bacteria (max Length)  (only 1 isoform used) , Tue Dec 21 17:52:38 2010, 144 species, 42857 orthologs, 96 top groups, 208 used here, AveVarWeighted, BestSubset, DimlessQual: best: 1.3648, ave: 2.441 +- 0.073, var: 1.403, Z=-0.9087':
Xref := [LTEXT(110,3,'Bacteria',color = [1, 0, 0])]:

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