# Darwin script to draw distance trees of
#    35 Cyanobacteria
# Downloaded from status.html
# (C) 2011 CBRG, ETH Zurich

tree := Tree(Tree(Tree(Tree(Tree(Leaf(Color(red,SYNJB),-31.0656,13),-28.6178,
Leaf(Color(red,SYNJA),-31.1821,11),100),-10.7112,Leaf(Color(red,GLOVI),-33.5472,
5),100),-7.5666,Tree(Tree(Tree(Leaf(Color(red,CYAP4),-23.4623,33),-12.1134,Leaf(
Color(red,THEEB),-24.9109,32),100),-10.4478,Leaf(Color(cyan,ACAM1),-25.0426,25),
100),-9.1848,Tree(Tree(Leaf(Color(purple,TRIEI),-26.1693,22),-10.9794,Tree(Leaf(
Color(MediumBlue,NOSP7),-24.5567,30),-19.7308,Tree(Leaf(Color(MediumBlue,ANAVT),
-23.9243,12),-23.4467,Leaf(Color(MediumBlue,NOSS1),-23.9744,4),100),100),100),
-10.3818,Tree(Leaf(Color(red,SYNP2),-26.6586,28),-12.3099,Tree(Tree(Leaf(Color(
red,MICAN),-25.8613,26),-14.4017,Tree(Tree(Leaf(Color(red,CYAP0),-24.9378,34),
-17.3981,Leaf(Color(red,CYAA5),-25.5736,29),100),-15.0283,Leaf(Color(red,CYAP7),
-24.5700,35),100),100),-13.6881,Leaf(Color(red,SYNY3),-26.3883,1),100),100),100)
,100),100),-5.4123,Leaf(Color(red,SYNP6),-19.0569,6),100),0,Tree(Tree(Leaf(Color
(red,SYNR3),-25.4922,24),-14.6761,Tree(Tree(Leaf(Color(green,PROM3),-23.5422,18)
,-23.0596,Leaf(Color(green,PROMM),-23.5187,8),100),-15.2867,Tree(Tree(Leaf(Color
(red,SYNS9),-24.8231,15),-19.7569,Tree(Leaf(Color(red,SYNSC),-24.0742,10),
-20.7550,Leaf(Color(red,SYNPX),-24.1430,2),100),100),-17.7326,Tree(Leaf(Color(
red,SYNPW),-23.2400,21),-18.4612,Leaf(Color(red,SYNS3),-24.1399,16),99),100),90)
,100),-12.9414,Tree(Tree(Tree(Leaf(Color(green,PROM1),-25.9725,20),-25.6605,Leaf
(Color(green,PROMT),-26.0188,9),100),-15.7033,Tree(Leaf(Color(green,PROM4),
-24.7485,31),-18.5062,Leaf(Color(green,PROMA),-25.0211,7),100),53),-15.4870,Tree
(Tree(Leaf(Color(green,PROM9),-28.6050,14),-27.2039,Tree(Leaf(Color(green,PROM2)
,-28.7781,27),-27.6726,Tree(Leaf(Color(green,PROM0),-28.4935,23),-27.8378,Leaf(
Color(green,PROMS),-28.5982,19),100),100),100),-24.7672,Tree(Leaf(Color(green,
PROM5),-28.8919,17),-26.8250,Leaf(Color(green,PROMP),-28.7151,3),100),100),100),
100)) :
title := 'All Cyanobacteria (max Length)  (only 1 isoform used) , Fri Apr  8 21:02:57 2011, 35 species, 13907 orthologs, 1 top groups, 214 used here, Weighted, BestSubset, DimlessQual: best: 2.0568, ave: 2.2029 +- 0.0086, var: 0.01915, Z=-1.056':
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():