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

tree := Tree(Tree(Leaf(Color(black,COPPD),-54.5857,128),-1.2464,Tree(Tree(Leaf(
Color(MidnightBlue,HALOH),-39.1658,130),-4.1930,Tree(Tree(Leaf(Color(green,ANAPD
),-53.9768,148),-19.0239,Leaf(Color(green,FINM2),-50.8199,113),100),-7.0821,Tree
(Tree(Leaf(Color(green,CLOPH),-44.8558,92),-21.9443,Leaf(Color(green,EUBE2),
-46.5758,146),100),-8.3500,Tree(Tree(Leaf(Color(green,ANATD),-44.6535,129),
-39.7561,Leaf(Color(green,CALS8),-44.5113,105),100),-8.8416,Tree(Tree(Tree(Leaf(
Color(black,THEPX),-38.6840,119),-38.6312,Leaf(Color(black,THEP3),-38.8702,118),
100),-31.2717,Leaf(Color(black,THETN),-39.6929,18),100),-9.9556,Tree(Tree(Leaf(
Color(green,CLOD6),-43.6382,72),-13.6791,Tree(Leaf(Color(green,ALKOO),-42.4863,
85),-24.7241,Leaf(Color(green,ALKMQ),-42.0660,84),100),99),-10.4900,Tree(Tree(
Tree(Leaf(Color(green,CLOAB),-43.2804,16),-23.2052,Tree(Leaf(Color(green,CLONN),
-42.8954,61),-23.9143,Tree(Tree(Tree(Tree(Tree(Leaf(Color(green,CLOB1),-44.0567,
93),-44.0017,Leaf(Color(green,CLOBH),-44.0091,89),100),-43.7327,Tree(Leaf(Color(
green,CLOBK),-44.0550,102),-43.8359,Leaf(Color(green,CLOBL),-44.0040,109),98),
100),-43.4590,Leaf(Color(green,CLOBM),-44.0406,110),100),-26.3859,Leaf(Color(
green,CLOK5),-45.4528,101),94),-25.5814,Leaf(Color(green,CLOTE),-44.5117,10),100
),96),96),-22.0864,Tree(Tree(Leaf(Color(green,CLOB8),-43.8928,90),-33.8884,Tree(
Leaf(Color(green,CLOBA),-44.2831,120),-43.8429,Leaf(Color(green,CLOBB),-44.6741,
121),100),100),-26.3856,Tree(Leaf(Color(green,CLOPS),-43.1034,55),-42.8580,Tree(
Leaf(Color(green,CLOP1),-43.1482,59),-42.9875,Leaf(Color(green,CLOPE),-43.1596,2
),96),100),100),100),-10.6652,Tree(Leaf(Color(green,CLOCE),-43.3193,134),
-21.9210,Leaf(Color(green,CLOTH),-41.2339,75),100),53),81),90),80),100),100),88)
,-3.1306,Tree(Tree(Tree(Leaf(Color(green,DESHD),-38.9058,154),-38.7067,Leaf(
Color(green,DESHY),-38.7360,58),100),-7.6403,Tree(Leaf(Color(green,SYNWW),
-47.8674,57),-8.4199,Tree(Leaf(Color(green,CARHZ),-40.6572,47),-10.2779,Tree(
Tree(Tree(Leaf(Color(green,DESRM),-38.1987,112),-15.3021,Tree(Leaf(Color(green,
PELTS),-40.2768,108),-17.3633,Leaf(Color(green,DESAP),-46.6011,111),94),100),
-11.9957,Leaf(Color(black,MOOTA),-43.4274,70),65),-11.5665,Leaf(Color(green,
HELMI),-40.7696,114),98),100),88),100),-4.4570,Leaf(Color(brown,NATTJ),-43.8973,
104),96),98),100),0,Tree(Tree(Leaf(Color(LightSeaGreen,PAESJ),-36.2089,155),
-9.3337,Leaf(Color(LightSeaGreen,BREBN),-34.0038,140),98),-5.3748,Tree(Tree(Tree
(Tree(Leaf(Color(grey50,OENOB),-56.9287,68),-27.1519,Tree(Leaf(Color(DarkGreen,
LEUMM),-52.0562,65),-43.4639,Leaf(Color(DarkGreen,LEUCK),-52.4574,115),100),100)
,-20.2758,Tree(Tree(Tree(Leaf(Color(purple,LACDB),-52.9761,77),-52.7497,Leaf(
Color(purple,LACDA),-52.7497,56),100),-37.3616,Tree(Tree(Leaf(Color(purple,LACAC
),-52.6593,28),-49.0583,Leaf(Color(purple,LACH4),-52.5456,94),100),-41.4518,Tree
(Leaf(Color(purple,LACGA),-52.5245,62),-50.8054,Leaf(Color(purple,LACJO),
-51.9052,15),100),100),100),-20.8849,Tree(Tree(Leaf(Color(purple,LACSS),-44.0421
,48),-25.7745,Tree(Leaf(Color(purple,LACCB),-47.5383,123),-47.4390,Leaf(Color(
purple,LACC3),-47.5647,79),100),100),-22.9078,Tree(Leaf(Color(purple,LACS1),
-43.5388,53),-23.8889,Tree(Leaf(Color(purple,PEDPA),-48.0302,82),-25.6936,Tree(
Tree(Leaf(Color(purple,LACBA),-47.5024,64),-29.5654,Tree(Leaf(Color(purple,LACPJ
),-45.9132,153),-45.8373,Leaf(Color(purple,LACPL),-45.9181,21),100),100),
-26.7318,Tree(Leaf(Color(purple,LACF3),-49.8975,122),-36.3671,Tree(Leaf(Color(
purple,LACRD),-48.4897,124),-48.4725,Leaf(Color(purple,LACRJ),-48.5060,88),100),
100),90),100),99),100),79),100),-15.9556,Tree(Tree(Tree(Tree(Leaf(Color(
IndianRed,LACLM),-47.7312,69),-47.5553,Leaf(Color(IndianRed,LACLS),-47.8233,66),
100),-46.6585,Leaf(Color(IndianRed,LACLA),-47.5212,29),100),-27.5478,Tree(Tree(
Leaf(Color(red,STRMU),-48.5207,13),-37.5947,Tree(Tree(Leaf(Color(red,STRTD),
-47.1358,67),-47.0608,Tree(Leaf(Color(red,STRT2),-47.2596,39),-47.2381,Leaf(
Color(red,STRT1),-47.3730,24),100),100),-37.7305,Tree(Tree(Tree(Leaf(Color(red,
STRA3),-47.5673,30),-47.4217,Leaf(Color(red,STRA5),-47.4366,32),66),-47.3431,
Leaf(Color(red,STRA1),-47.3616,43),100),-40.0957,Tree(Leaf(Color(red,STRU0),
-48.0513,150),-41.8643,Tree(Tree(Leaf(Color(red,STRS7),-48.3893,135),-48.1324,
Tree(Leaf(Color(red,STREM),-48.4485,125),-48.1683,Leaf(Color(red,STRE4),-48.5044
,133),49),100),-42.9238,Tree(Leaf(Color(red,STRDG),-47.4793,147),-46.5412,Tree(
Tree(Leaf(Color(red,STRPM),-48.0346,44),-47.8811,Tree(Tree(Tree(Leaf(Color(red,
STRP1),-48.0647,35),-47.8993,Leaf(Color(red,STRPZ),-48.0870,126),30),-47.8884,
Tree(Leaf(Color(red,STRPD),-48.0628,51),-47.8974,Tree(Leaf(Color(red,STRPF),
-48.0949,52),-47.9188,Tree(Leaf(Color(red,STRP8),-48.1294,36),-47.9728,Tree(Leaf
(Color(red,STRPG),-48.1152,81),-47.9886,Leaf(Color(red,STRP6),-48.1114,23),81),
100),84),48),20),-47.8835,Leaf(Color(red,STRP3),-48.0634,12),16),53),-47.8470,
Tree(Leaf(Color(red,STRPB),-47.9474,63),-47.9286,Leaf(Color(red,STRPC),-47.9682,
54),70),100),100),100),100),100),57),100),-36.4726,Tree(Tree(Leaf(Color(red,
STRS2),-47.7842,73),-47.7842,Tree(Tree(Leaf(Color(red,STRSY),-47.8995,80),
-47.8528,Leaf(Color(red,STRSX),-47.8718,143),34),-47.8456,Leaf(Color(red,STRSE),
-47.8678,145),81),100),-38.0158,Tree(Tree(Leaf(Color(red,STRSV),-47.5614,71),
-45.6146,Leaf(Color(red,STRGC),-47.1427,86),100),-41.2410,Tree(Leaf(Color(red,
STRP4),-47.3414,127),-47.2323,Tree(Leaf(Color(red,STRPI),-47.4573,116),-47.2721,
Tree(Tree(Leaf(Color(red,STRPS),-47.4604,117),-47.3113,Tree(Leaf(Color(red,STRZP
),-47.4771,136),-47.3176,Tree(Leaf(Color(red,STRPJ),-47.4859,151),-47.3933,Leaf(
Color(red,STRZJ),-47.4881,141),100),45),24),-47.3077,Tree(Tree(Leaf(Color(red,
STRP2),-47.4539,76),-47.4293,Leaf(Color(red,STRR6),-47.4577,38),100),-47.3246,
Leaf(Color(red,STRPN),-47.4664,8),58),62),49),100),100),100),100),100),-18.9958,
Leaf(Color(purple4,ENTFA),-38.6616,3),100),100),-8.7988,Tree(Tree(Leaf(Color(
HotPink,MACCJ),-40.8045,139),-22.5795,Tree(Leaf(Color(cyan,STACT),-41.1333,149),
-31.4534,Tree(Leaf(Color(cyan,STAS1),-41.7730,46),-32.7586,Tree(Tree(Leaf(Color(
cyan,STAHJ),-41.6100,41),-35.4864,Tree(Leaf(Color(cyan,STAES),-41.3973,25),
-41.3401,Leaf(Color(cyan,STAEQ),-41.4229,22),100),85),-34.6940,Tree(Tree(Tree(
Tree(Leaf(Color(cyan,STAA8),-41.1555,60),-41.1177,Tree(Tree(Leaf(Color(cyan,
STAAT),-41.1506,98),-41.1264,Leaf(Color(cyan,STAA3),-41.1552,49),92),-41.1182,
Tree(Leaf(Color(cyan,STAAE),-41.1498,97),-41.1213,Leaf(Color(cyan,STAAC),
-41.1496,45),63),40),89),-41.0784,Tree(Leaf(Color(cyan,STAAS),-41.1633,33),
-41.1295,Leaf(Color(cyan,STAAW),-41.1574,31),100),86),-41.0592,Tree(Tree(Leaf(
Color(cyan,STAA9),-41.1489,96),-41.1263,Leaf(Color(cyan,STAA2),-41.1531,95),92),
-41.1191,Tree(Leaf(Color(cyan,STAAN),-41.1470,34),-41.1212,Tree(Leaf(Color(cyan,
STAA1),-41.1518,87),-41.1250,Leaf(Color(cyan,STAAM),-41.1500,20),97),83),99),38)
,-41.0521,Tree(Leaf(Color(cyan,STAAR),-41.2892,42),-41.0990,Leaf(Color(cyan,
STAAB),-41.3405,50),99),100),100),100),100),100),-10.8334,Tree(Tree(Leaf(Color(
red4,EXISA),-39.9427,152),-25.3428,Leaf(Color(red4,EXIS2),-40.0545,99),100),
-12.5985,Tree(Tree(Tree(Tree(Tree(Leaf(Color(orange,LISMC),-35.8650,138),
-35.8160,Leaf(Color(orange,LISMF),-35.8844,37),100),-35.6602,Leaf(Color(orange,
LISMO),-35.9960,5),91),-35.6147,Leaf(Color(orange,LISMH),-35.8388,132),100),
-35.1798,Tree(Leaf(Color(orange,LISIN),-35.7608,19),-35.2467,Leaf(Color(orange,
LISW6),-36.1116,74),73),100),-13.2909,Tree(Leaf(Color(MediumBlue,LYSSC),-37.6015
,107),-14.8399,Tree(Leaf(Color(MediumBlue,OCEIH),-39.3368,14),-15.1690,Tree(Tree
(Leaf(Color(MediumBlue,BACSK),-38.6433,27),-21.9484,Leaf(Color(MediumBlue,BACHD)
,-35.7650,17),100),-15.9200,Tree(Tree(Leaf(Color(MediumBlue,BACCN),-35.3523,103)
,-32.3045,Tree(Leaf(Color(MediumBlue,BACWK),-35.9174,100),-34.4827,Tree(Tree(
Leaf(Color(MediumBlue,BACC2),-35.6978,131),-35.2857,Tree(Leaf(Color(MediumBlue,
BACC4),-35.4317,142),-35.3722,Leaf(Color(MediumBlue,BACCR),-35.4879,6),96),100),
-34.9551,Tree(Tree(Leaf(Color(MediumBlue,BACC7),-35.5267,137),-35.4338,Leaf(
Color(MediumBlue,BACC1),-35.6195,9),100),-35.3009,Tree(Leaf(Color(MediumBlue,
BACCZ),-35.5326,40),-35.4061,Tree(Tree(Leaf(Color(MediumBlue,BACAH),-35.5809,83)
,-35.4555,Leaf(Color(MediumBlue,BACHK),-35.5161,7),100),-35.4217,Leaf(Color(
MediumBlue,BACAN),-35.5087,4),55),100),100),100),100),100),-18.6132,Tree(Tree(
Leaf(Color(MediumBlue,GEOSW),-34.0233,144),-28.0797,Tree(Leaf(Color(MediumBlue,
GEOTN),-35.4454,78),-32.5664,Leaf(Color(MediumBlue,GEOKA),-35.3726,11),100),100)
,-19.1219,Tree(Leaf(Color(MediumBlue,BACP2),-35.4054,106),-27.8655,Tree(Leaf(
Color(MediumBlue,BACLD),-34.8850,26),-28.7184,Tree(Leaf(Color(MediumBlue,BACA2),
-35.3148,91),-31.7888,Leaf(Color(MediumBlue,BACSU),-34.7054,1),100),100),100),98
),100),100),82),100),86),100),98),98),100)) :
title := 'All Firmicutes (max Length)  (only 1 isoform used) , Fri Jan  8 08:21:57 2010, 155 species, 40396 orthologs, 45 top groups, 200 used here, Weighted, BestSubset, DimlessQual: best: 0.27701, ave: 0.31284 +- 0.00091, var: 0.0002179, Z=-2.427':
Xref := [LTEXT(110,3,'Streptococcus',color = [1, 0, 0]), LTEXT(110,6,'Clostridiales',color = [0, 1, 0]), LTEXT(110,9,'Bacillaceae',color = [0, 0, 0.8039]), LTEXT(110,12,'Staphylococcaceae',color = [0, 1, 1]), LTEXT(110,15,'Lactobacillaceae',color = [0.6275, 0.1255, 0.9412]), LTEXT(110,18,'Listeriaceae',color = [1, 0.6471, 0]), LTEXT(110,21,'Thermoanaerobacterales',color = [0, 0, 0]), LTEXT(110,24,'Lactococcus',color = [0.8039, 0.3608, 0.3608]), LTEXT(110,27,'Bacillales Family XII. Incertae Sedis',color = [0.5451, 0, 0]), LTEXT(110,30,'Paenibacillaceae',color = [0.1255, 0.6980, 0.6667]), LTEXT(110,33,'Leuconostoc',color = [0, 0.3922, 0]), LTEXT(110,36,'Halanaerobiales',color = [0.09803922, 0.09803922, 0.4392]), LTEXT(110,39,'Natranaerobiales',color = [0.6471, 0.1647, 0.1647]), LTEXT(110,42,'Macrococcus',color = [1, 0.4118, 0.7059]), LTEXT(110,45,'Enterococcaceae',color = [0.3333, 0.1020, 0.5451]), LTEXT(110,48,'Oenococcus',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():