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

tree := Tree(Tree(Tree(Leaf(Color(HotPink,NANEQ),-44.3012,13),-0.9657,Tree(Tree(
Tree(Tree(Leaf(Color(purple,THEON),-38.2230,23),-33.3608,Tree(Leaf(Color(purple,
THEGJ),-38.0454,65),-34.1564,Leaf(Color(purple,PYRKO),-37.9282,21),100),100),
-29.6598,Tree(Leaf(Color(purple,PYRFU),-39.9122,17),-35.2854,Tree(Leaf(Color(
purple,PYRAB),-39.5643,16),-36.7974,Leaf(Color(purple,PYRHO),-39.3269,11),100),
100),98),-28.5078,Leaf(Color(purple,THESM),-39.5442,68),100),-5.9992,Tree(Tree(
Leaf(Color(DarkGreen,METKA),-45.4813,10),-8.6858,Tree(Tree(Tree(Tree(Tree(Tree(
Leaf(Color(green,METHJ),-52.5002,28),-32.9130,Tree(Tree(Leaf(Color(green,METMJ),
-50.8348,40),-34.9058,Tree(Leaf(Color(green,METPE),-52.5869,55),-37.1676,Leaf(
Color(green,METB6),-51.9290,48),100),100),-33.4475,Leaf(Color(green,METP4),
-51.4573,92),74),100),-31.0446,Leaf(Color(green,METLZ),-54.1125,34),100),
-18.8279,Tree(Tree(Leaf(Color(MidnightBlue,UNCMA),-48.4908,30),-36.4663,Leaf(
Color(green,METPS),-48.1747,72),100),-20.8872,Tree(Leaf(Color(green,METTP),
-47.5195,31),-22.1137,Tree(Tree(Leaf(Color(green,METEZ),-48.5039,89),-31.4764,
Tree(Leaf(Color(green,METBU),-48.4481,29),-34.1401,Leaf(Color(green,METMS),
-48.5488,86),100),91),-30.3447,Tree(Tree(Leaf(Color(green,METMA),-47.7979,2),
-45.1808,Leaf(Color(green,METAC),-48.1691,5),100),-43.1710,Leaf(Color(green,
METBF),-47.8876,25),100),100),99),100),96),-17.9962,Tree(Tree(Leaf(Color(
MediumBlue,HALS3),-59.5413,50),-59.5413,Leaf(Color(MediumBlue,HALSA),-59.5986,8)
,100),-43.7584,Tree(Tree(Tree(Tree(Leaf(Color(MediumBlue,NATMM),-58.1461,75),
-53.1910,Leaf(Color(MediumBlue,HALTV),-57.8425,74),100),-45.4549,Leaf(Color(
MediumBlue,HALJB),-58.4499,90),62),-44.8586,Tree(Leaf(Color(MediumBlue,NATPD),
-58.4721,24),-45.9874,Tree(Tree(Leaf(Color(MediumBlue,HALMD),-58.6389,63),
-50.4201,Leaf(Color(MediumBlue,HALMA),-58.5507,20),100),-47.8089,Leaf(Color(
MediumBlue,HALUD),-59.4397,64),100),100),96),-44.2393,Tree(Tree(Leaf(Color(
MediumBlue,HALVD),-58.3338,80),-47.0537,Leaf(Color(MediumBlue,HALWD),-59.5378,27
),99),-46.1488,Leaf(Color(MediumBlue,HALLT),-58.8777,57),100),86),100),100),
-13.7185,Tree(Tree(Leaf(Color(IndianRed,ARCFU),-42.4379,7),-28.2865,Leaf(Color(
IndianRed,ARCPA),-42.9259,73),94),-27.8476,Leaf(Color(IndianRed,FERPA),-41.6578,
79),100),100),-9.3021,Tree(Tree(Leaf(Color(black,METST),-47.9294,26),-24.9752,
Tree(Tree(Leaf(Color(black,METTM),-44.0742,87),-42.1175,Leaf(Color(black,METTH),
-44.2647,9),100),-26.0837,Tree(Leaf(Color(black,METRM),-47.6575,77),-33.9179,
Leaf(Color(black,METS3),-47.9938,41),100),100),100),-12.5393,Tree(Tree(Leaf(
Color(cyan,META3),-48.6109,43),-32.6675,Tree(Tree(Leaf(Color(cyan,METVS),
-48.9140,44),-41.5178,Tree(Tree(Leaf(Color(cyan,METM5),-48.6080,47),-47.3415,
Tree(Leaf(Color(cyan,METM6),-48.5239,53),-47.8248,Leaf(Color(cyan,METM7),
-48.7046,42),100),100),-46.8412,Tree(Leaf(Color(cyan,METMI),-48.7069,93),
-48.5152,Leaf(Color(cyan,METMP),-48.7855,15),100),100),100),-36.2194,Leaf(Color(
cyan,METV3),-48.9005,82),100),100),-26.5289,Tree(Leaf(Color(orange,METIM),
-45.5219,85),-34.9910,Tree(Leaf(Color(orange,METVM),-44.6077,69),-40.0417,Tree(
Tree(Leaf(Color(orange,METSF),-43.5707,76),-42.3260,Leaf(Color(orange,METJA),
-43.6509,1),100),-41.0515,Leaf(Color(orange,METFA),-43.3978,66),100),100),100),
100),100),86),97),-7.2600,Tree(Leaf(Color(LightSeaGreen,ACIB4),-42.0847,78),
-15.9230,Tree(Leaf(Color(red4,PICTO),-54.3662,19),-32.8637,Tree(Leaf(Color(red4,
THEAC),-52.4387,14),-45.2564,Leaf(Color(red4,THEVO),-52.5236,12),100),100),100),
98),100),65),-0.5448,Tree(Tree(Tree(Tree(Tree(Leaf(Color(red,METS5),-46.1593,49)
,-28.6975,Tree(Tree(Leaf(Color(red,SULAC),-45.9848,22),-32.4657,Leaf(Color(red,
SULTO),-43.4999,18),100),-28.9990,Tree(Tree(Leaf(Color(red,SULS9),-45.7145,70),
-45.5532,Leaf(Color(red,SULSO),-45.5532,4),100),-44.7217,Tree(Tree(Leaf(Color(
red,SULID),-45.9087,71),-45.8550,Tree(Tree(Leaf(Color(red,SULIN),-45.9856,62),
-45.8779,Leaf(Color(red,SULIY),-45.9204,59),90),-45.8626,Tree(Tree(Leaf(Color(
red,SULIA),-46.0434,58),-45.9811,Leaf(Color(red,SULIM),-46.0264,61),99),-45.9587
,Leaf(Color(red,SULIK),-46.0004,67),99),53),72),-45.7965,Leaf(Color(red,SULIL),
-45.7965,60),100),100),52),100),-12.6355,Tree(Tree(Tree(Tree(Leaf(Color(red,
STAHD),-43.1626,81),-40.6950,Leaf(Color(red,STAMF),-42.7912,39),100),-25.9363,
Tree(Leaf(Color(red,THEAM),-46.2464,83),-31.4098,Leaf(Color(red,DESK1),-46.4000,
56),100),100),-15.0069,Tree(Tree(Leaf(Color(red,ACIS3),-47.7798,88),-22.0713,
Leaf(Color(red,AERPE),-46.3615,6),100),-16.2660,Leaf(Color(red,HYPBU),-40.5583,
36),89),96),-13.9448,Leaf(Color(red,IGNAA),-45.7074,84),84),89),-11.4833,Leaf(
Color(red,IGNH4),-41.4610,45),100),-7.5635,Tree(Leaf(Color(red,THEPD),-43.5107,
35),-9.5590,Tree(Tree(Leaf(Color(red,CALMQ),-50.2629,46),-27.9014,Leaf(Color(red
,VULDI),-47.6663,91),100),-23.8059,Tree(Tree(Leaf(Color(red,THENV),-49.8056,52),
-45.1741,Leaf(Color(red,PYRIL),-49.6150,32),100),-42.1786,Tree(Leaf(Color(red,
PYRCJ),-49.7997,33),-42.5196,Tree(Leaf(Color(red,PYRAR),-49.0196,38),-42.8274,
Leaf(Color(red,PYRAE),-48.5125,3),48),70),100),100),81),100),-4.5723,Leaf(Color(
brown,KORCO),-49.2454,51),100),100),0,Tree(Leaf(Color(red,NITMS),-47.8958,54),
-37.8346,Leaf(Color(red,CENSY),-48.1938,37),100)) :
title := 'All Archaeal genomes, Mon Dec 12 17:36:17 2011, 93 species, 25553 orthologs, 33 top groups, 123 used here, Weighted, BestSubset, DimlessQual: best: 0.8214, ave: 0.9904 +- 0.0051, var: 0.006658, Z=-2.072':
Xref := [LTEXT(110,3,'Crenarchaeota',color = [1, 0, 0]), LTEXT(110,6,'Methanomicrobia',color = [0, 1, 0]), LTEXT(110,9,'Halobacteria',color = [0, 0, 0.8039]), LTEXT(110,12,'Methanococcaceae',color = [0, 1, 1]), LTEXT(110,15,'Thermococci',color = [0.6275, 0.1255, 0.9412]), LTEXT(110,18,'Methanocaldococcaceae',color = [1, 0.6471, 0]), LTEXT(110,21,'Methanobacteria',color = [0, 0, 0]), LTEXT(110,24,'Archaeoglobi',color = [0.8039, 0.3608, 0.3608]), LTEXT(110,27,'Thermoplasmata',color = [0.5451, 0, 0]), LTEXT(110,30,'Aciduliprofundum',color = [0.1255, 0.6980, 0.6667]), LTEXT(110,33,'Methanopyri',color = [0, 0.3922, 0]), LTEXT(110,36,'environmental samples',color = [0.09803922, 0.09803922, 0.4392]), LTEXT(110,39,'Korarchaeota',color = [0.6471, 0.1647, 0.1647]), LTEXT(110,42,'Nanoarchaeota',color = [1, 0.4118, 0.7059])]:

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