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

tree := Tree(Tree(Tree(Tree(Tree(Leaf(Color(red,SYNJB),-32.0527,13),-29.4872,
Leaf(Color(red,SYNJA),-32.2430,11),100),-11.2898,Leaf(Color(red,GLOVI),-34.9291,
5),100),-8.2729,Tree(Tree(Tree(Leaf(Color(red,CYAP4),-25.0629,33),-13.0245,Leaf(
Color(red,THEEB),-26.9035,32),100),-11.4730,Leaf(Color(cyan,ACAM1),-26.6093,25),
100),-10.0818,Tree(Tree(Leaf(Color(purple,TRIEI),-27.7750,22),-11.9117,Tree(Leaf
(Color(MediumBlue,NOSP7),-25.8867,30),-20.8807,Tree(Leaf(Color(MediumBlue,ANAVT)
,-25.2178,12),-24.7224,Leaf(Color(MediumBlue,ANASP),-25.2448,4),100),100),100),
-11.0924,Tree(Leaf(Color(red,SYNP2),-28.0979,28),-13.0619,Tree(Tree(Tree(Leaf(
Color(red,CYAP0),-26.3477,34),-18.4146,Leaf(Color(red,CYAA5),-26.9305,29),100),
-15.2673,Leaf(Color(red,MICAN),-27.3657,26),100),-14.4989,Leaf(Color(red,SYNY3),
-27.6130,1),100),100),100),100),100),-6.0400,Leaf(Color(red,SYNP6),-20.4872,6),
100),0,Tree(Tree(Leaf(Color(red,SYNR3),-26.6016,24),-15.0069,Tree(Tree(Leaf(
Color(green,PROM3),-24.5915,18),-24.0875,Leaf(Color(green,PROMM),-24.6381,8),100
),-15.7937,Tree(Tree(Leaf(Color(red,SYNS9),-25.9373,15),-20.4674,Tree(Leaf(Color
(red,SYNSC),-25.0854,10),-21.7372,Leaf(Color(red,SYNPX),-25.5045,2),100),100),
-17.9690,Tree(Leaf(Color(red,SYNPW),-24.4218,21),-19.0069,Leaf(Color(red,SYNS3),
-25.2101,16),100),100),97),100),-13.2226,Tree(Tree(Tree(Leaf(Color(green,PROM4),
-26.3075,31),-19.0395,Leaf(Color(green,PROMA),-26.3585,7),100),-16.1253,Tree(
Tree(Tree(Leaf(Color(green,PROM2),-30.6699,27),-29.4788,Tree(Leaf(Color(green,
PROM0),-30.3581,23),-29.6764,Leaf(Color(green,PROMS),-30.4456,19),100),100),
-28.9879,Leaf(Color(green,PROM9),-30.4890,14),100),-26.4356,Tree(Leaf(Color(
green,PROM5),-30.9178,17),-28.7093,Leaf(Color(green,PROMP),-30.8852,3),100),100)
,54),-15.9473,Tree(Leaf(Color(green,PROM1),-27.5510,20),-27.2330,Leaf(Color(
green,PROMT),-27.6398,9),100),100),100)) :
title := 'All Cyanobacteria (max Length)  (only 1 isoform used) , Fri Dec  4 11:42:08 2009, 34 species, 13324 orthologs, 1 top groups, 223 used here, Weighted, BestSubset, DimlessQual: best: 1.9656, ave: 2.1143 +- 0.0090, var: 0.021, Z=-1.026':
Xref := [LTEXT(110,3,'Chroococcales',color = [1, 0, 0]), LTEXT(110,6,'Prochlorales',color = [0, 1, 0]), LTEXT(110,9,'Nostocales',color = [0, 0, 0.8039]), LTEXT(110,12,'Acaryochloris',color = [0, 1, 1]), LTEXT(110,15,'Oscillatoriales',color = [0.6275, 0.1255, 0.9412])]:

# Uncomment the desired draw command
# or type ?DrawTree for help on the options
DrawTree(tree,Unrooted,Legend,LengthFormat = '',Title = title,Xref) :
# DrawTree( tree, Phylogram, Legend, LengthFormat='', OrderLeaves=LeftHeavy, Title=title, Xref )):
ViewPlot():