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

tree := Tree(Tree(Leaf(Color(purple4,FUSNN),-42.7502,1),-5.4455,Tree(Tree(Tree(
Tree(Leaf(Color(brown,UNCTG),-46.4599,70),-15.7236,Leaf(Color(brown,ELUMP),
-50.0948,89),100),-7.7326,Tree(Tree(Tree(Leaf(Color(MediumBlue,TREDE),-50.5411,
24),-32.0030,Tree(Leaf(Color(MediumBlue,TREPS),-53.0364,92),-53.0364,Leaf(Color(
MediumBlue,TREPA),-53.0914,17),100),100),-17.4211,Tree(Tree(Tree(Leaf(Color(
MediumBlue,BORHD),-54.6502,86),-52.0014,Leaf(Color(MediumBlue,BORT9),-54.9562,
105),67),-51.4828,Tree(Leaf(Color(MediumBlue,BORDL),-56.5940,102),-56.5618,Leaf(
Color(MediumBlue,BORRA),-56.8588,101),100),100),-44.0074,Tree(Leaf(Color(
MediumBlue,BORGA),-51.6495,35),-50.6102,Tree(Leaf(Color(MediumBlue,BORAP),
-52.1483,49),-50.9064,Tree(Leaf(Color(MediumBlue,BORBZ),-52.2620,108),-52.2620,
Leaf(Color(MediumBlue,BORBU),-52.4579,13),100),88),100),100),100),-10.2062,Tree(
Tree(Tree(Leaf(Color(MediumBlue,LEPBP),-53.5695,80),-53.5020,Leaf(Color(
MediumBlue,LEPBA),-53.5020,79),100),-35.3974,Tree(Tree(Leaf(Color(MediumBlue,
LEPBJ),-50.8973,56),-50.8973,Leaf(Color(MediumBlue,LEPBL),-51.0061,52),100),
-48.8648,Tree(Leaf(Color(MediumBlue,LEPIC),-50.9869,27),-50.9841,Leaf(Color(
MediumBlue,LEPIN),-51.1025,10),100),100),100),-10.4967,Leaf(Color(MediumBlue,
BRAHW),-50.3042,118),40),100),63),-7.4383,Tree(Tree(Tree(Leaf(Color(HotPink,
FIBSS),-51.2829,122),-11.4303,Tree(Tree(Leaf(Color(purple,CHLT3),-48.4577,94),
-29.3601,Tree(Tree(Leaf(Color(purple,CHLPB),-50.8924,88),-41.1004,Leaf(Color(
purple,PROA2),-50.9411,97),100),-37.7753,Tree(Tree(Tree(Leaf(Color(purple,PROVI)
,-51.4055,82),-44.5761,Leaf(Color(purple,PELLD),-50.7297,48),100),-41.1267,Tree(
Tree(Leaf(Color(purple,PELPB),-50.7097,100),-42.8281,Leaf(Color(purple,CHLCH),
-51.4982,44),84),-41.6180,Tree(Leaf(Color(purple,CHLPD),-50.8727,53),-43.1278,
Leaf(Color(purple,CHLL2),-50.7426,87),100),84),100),-39.1137,Tree(Leaf(Color(
purple,CHLP8),-51.0788,95),-46.9659,Leaf(Color(purple,CHLTE),-50.1310,6),100),
100),100),100),-14.4938,Tree(Leaf(Color(green,SALRD),-51.8337,43),-15.7330,Tree(
Leaf(Color(green,SULMW),-46.7335,64),-20.0437,Tree(Leaf(Color(green,AMOA5),
-51.0098,85),-23.3386,Tree(Tree(Tree(Leaf(Color(green,PEDHD),-50.4709,121),
-27.7778,Tree(Tree(Tree(Leaf(Color(green,FLAJ1),-50.7129,75),-45.2106,Leaf(Color
(green,FLAPJ),-51.2789,61),100),-38.1582,Leaf(Color(green,GRAFK),-50.8746,51),
100),-36.5018,Leaf(Color(green,CAPOD),-50.4750,120),100),66),-26.7482,Tree(Leaf(
Color(green,AZOPC),-54.6816,107),-34.2383,Tree(Tree(Leaf(Color(green,PARD8),
-51.1624,60),-39.7633,Tree(Leaf(Color(green,BACV8),-52.4346,59),-46.4005,Tree(
Tree(Leaf(Color(green,BACFN),-52.3852,36),-52.3068,Leaf(Color(green,BACFR),
-52.3431,12),100),-49.3467,Leaf(Color(green,BACTN),-52.1804,5),100),100),100),
-36.6603,Tree(Leaf(Color(green,PORG3),-53.8040,91),-53.6668,Leaf(Color(green,
PORGI),-53.7967,19),100),100),100),67),-25.6957,Tree(Leaf(Color(green,CYTH3),
-50.0373,54),-31.8481,Leaf(Color(green,DYAFD),-51.0394,119),100),100),100),100),
88),100),100),-8.9524,Tree(Tree(Leaf(Color(DarkGreen,AKKM8),-50.4110,84),
-17.7214,Tree(Leaf(Color(DarkGreen,OPITP),-52.1066,69),-17.7894,Leaf(Color(
DarkGreen,METI4),-49.3124,37),41),100),-12.9013,Tree(Leaf(Color(cyan,PARUW),
-54.1879,23),-30.7598,Tree(Tree(Tree(Tree(Leaf(Color(cyan,CHLFF),-56.5769,46),
-54.3222,Leaf(Color(cyan,CHLAB),-56.7984,34),61),-54.1808,Leaf(Color(cyan,CHLCV)
,-56.0274,15),100),-50.1958,Leaf(Color(cyan,CHLPN),-57.8193,14),100),-48.1458,
Tree(Tree(Tree(Leaf(Color(cyan,CHLTB),-57.6098,78),-57.5678,Leaf(Color(cyan,
CHLT2),-57.5956,76),100),-57.4359,Tree(Tree(Leaf(Color(cyan,CHLTJ),-57.7463,123)
,-57.6575,Leaf(Color(cyan,CHLTA),-57.6919,58),100),-57.6232,Leaf(Color(cyan,
CHLTR),-57.6956,28),100),100),-54.9797,Leaf(Color(cyan,CHLMU),-56.6440,4),100),
100),100),100),95),-8.0651,Tree(Leaf(Color(grey50,RHOBA),-53.8788,18),-8.9884,
Tree(Tree(Tree(Leaf(Color(LightSeaGreen,ACIC5),-46.0943,110),-29.6125,Leaf(Color
(LightSeaGreen,ACIBL),-45.2286,47),100),-23.7005,Leaf(Color(LightSeaGreen,SOLUE)
,-48.0230,55),100),-9.3582,Tree(Tree(Tree(Tree(Leaf(Color(orange,HERA2),-49.4657
,90),-26.8803,Tree(Tree(Tree(Leaf(Color(orange,CHLSY),-48.8713,113),-48.8713,
Leaf(Color(orange,CHLAA),-48.9473,65),100),-45.4880,Leaf(Color(orange,CHLAD),
-48.4740,109),100),-33.1116,Tree(Leaf(Color(orange,ROSCS),-48.2673,73),-44.8450,
Leaf(Color(orange,ROSS1),-47.9162,66),100),100),100),-18.7244,Leaf(Color(orange,
THERP),-47.2206,104),100),-15.1733,Tree(Tree(Leaf(Color(orange,DEHSB),-51.3084,
77),-51.1431,Leaf(Color(orange,DEHSC),-51.2706,42),100),-48.8031,Leaf(Color(
orange,DEHE1),-51.0492,41),100),100),-11.1092,Tree(Tree(Leaf(Color(red4,THET8),
-48.5377,33),-48.2932,Leaf(Color(red4,THET2),-48.3004,11),100),-24.8180,Tree(
Leaf(Color(red4,DEIGD),-51.7807,45),-44.7233,Tree(Leaf(Color(red4,DEIDV),
-51.8976,114),-45.2084,Leaf(Color(red4,DEIRA),-51.9212,9),73),100),100),100),85)
,90),90),80),-6.7440,Tree(Tree(Tree(Leaf(Color(MidnightBlue,DICT6),-45.2735,99),
-42.2674,Leaf(Color(MidnightBlue,DICTD),-45.6755,111),100),-10.1104,Tree(Leaf(
Color(black,PETMO),-49.3934,74),-19.9988,Tree(Tree(Tree(Tree(Leaf(Color(black,
THEM4),-45.5756,67),-38.6482,Leaf(Color(black,THEAB),-45.5144,112),100),-29.3817
,Leaf(Color(black,FERNB),-46.3573,62),100),-25.4984,Tree(Leaf(Color(black,THEMA)
,-45.0863,8),-44.9892,Tree(Leaf(Color(black,THEP1),-45.6331,83),-45.2772,Leaf(
Color(black,THESQ),-45.3573,72),97),100),59),-24.9019,Leaf(Color(black,THELT),
-46.5186,63),100),100),99),-8.4388,Tree(Tree(Leaf(Color(IndianRed,PERMH),
-42.9538,115),-29.2878,Tree(Leaf(Color(IndianRed,SULAA),-44.0302,116),-36.8399,
Leaf(Color(IndianRed,SULSY),-44.2825,93),100),100),-18.3355,Tree(Leaf(Color(
IndianRed,HYDS0),-46.9611,96),-22.8506,Leaf(Color(IndianRed,AQUAE),-44.1378,7),
100),100),98),66),100),0,Tree(Tree(Tree(Tree(Leaf(Color(red,MYCCR),-55.0286,117)
,-37.8016,Tree(Leaf(Color(red,MYCH7),-56.3724,39),-56.3473,Tree(Leaf(Color(red,
MYCHJ),-56.6117,38),-56.5096,Leaf(Color(red,MYCH2),-56.6834,30),84),100),100),
-24.0596,Tree(Tree(Leaf(Color(red,MYCA5),-54.4713,98),-25.6963,Leaf(Color(red,
MYCMO),-53.6833,21),43),-25.2916,Tree(Leaf(Color(red,MYCPU),-53.2669,22),
-25.9444,Tree(Leaf(Color(red,MYCS5),-55.4017,40),-30.3989,Leaf(Color(red,MYCAP),
-53.5934,81),100),67),96),100),-8.1463,Tree(Tree(Tree(Leaf(Color(red,MYCCT),
-46.7190,50),-46.5222,Leaf(Color(red,MYCMS),-49.1720,32),100),-29.8987,Leaf(
Color(red,MESFL),-46.5279,25),100),-8.9314,Tree(Tree(Tree(Tree(Leaf(Color(red,
UREP2),-53.0787,71),-53.0278,Leaf(Color(red,UREPA),-53.0278,31),100),-52.0537,
Leaf(Color(red,UREU1),-54.1250,26),100),-19.6470,Leaf(Color(red,MYCPE),-48.6790,
20),90),-17.9792,Tree(Leaf(Color(red,MYCGA),-52.8669,29),-26.4316,Tree(Leaf(
Color(red,MYCPN),-56.7699,3),-45.8010,Leaf(Color(red,MYCGE),-54.3720,2),100),100
),100),73),100),-0.9338,Tree(Leaf(Color(red,ACHLI),-39.3600,68),-11.8044,Tree(
Leaf(Color(red,PHYMT),-43.5696,106),-19.0337,Tree(Leaf(Color(red,PHYAS),-42.7536
,103),-29.2850,Tree(Leaf(Color(red,AYWBP),-41.8630,57),-39.1610,Leaf(Color(red,
ONYPE),-40.0253,16),100),100),100),100),100)) :
title := 'Other Bacteria (max Length)  (only 1 isoform used) , Thu Feb 25 23:06:59 2010, 123 species, 36062 orthologs, 76 top groups, 181 used here, Weighted, BestSubset, DimlessQual: best: 1.4217, ave: 1.911 +- 0.010, var: 0.02379, Z=-3.17':
Xref := [LTEXT(110,3,'Tenericutes',color = [1, 0, 0]), LTEXT(110,6,'Bacteroidetes',color = [0, 1, 0]), LTEXT(110,9,'Spirochaetes',color = [0, 0, 0.8039]), LTEXT(110,12,'Chlamydiae',color = [0, 1, 1]), LTEXT(110,15,'Chlorobi',color = [0.6275, 0.1255, 0.9412]), LTEXT(110,18,'Chloroflexi',color = [1, 0.6471, 0]), LTEXT(110,21,'Thermotogae',color = [0, 0, 0]), LTEXT(110,24,'Aquificae',color = [0.8039, 0.3608, 0.3608]), LTEXT(110,27,'Deinococcus-Thermus',color = [0.5451, 0, 0]), LTEXT(110,30,'Acidobacteria',color = [0.1255, 0.6980, 0.6667]), LTEXT(110,33,'Verrucomicrobia',color = [0, 0.3922, 0]), LTEXT(110,36,'Dictyoglomi',color = [0.09803922, 0.09803922, 0.4392]), LTEXT(110,39,'candidate division TG1',color = [0.6471, 0.1647, 0.1647]), LTEXT(110,42,'Fibrobacteres',color = [1, 0.4118, 0.7059]), LTEXT(110,45,'Fusobacteria',color = [0.3333, 0.1020, 0.5451]), LTEXT(110,48,'Planctomycetes',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():