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

tree := Tree(Tree(Tree(Tree(Leaf(Color(brown,DICDI),-45.8820,31),-5.7662,Tree(
Tree(Leaf(Color(purple,OSTLU),-50.5112,57),-13.7244,Tree(Tree(Leaf(Color(purple,
SORBI),-46.4542,75),-41.0135,Leaf(Color(purple,ORYSA),-45.1382,11),100),-32.3711
,Tree(Tree(Leaf(Color(purple,VITVI),-45.5836,67),-37.6176,Leaf(Color(purple,
POPTR),-44.9394,60),100),-35.4979,Leaf(Color(purple,ARATH),-47.3722,5),100),100)
,100),-6.0451,Tree(Leaf(Color(red4,PLAF7),-60.7186,9),-18.2374,Leaf(Color(red4,
CRYPV),-59.7960,56),100),58),92),-4.4839,Tree(Tree(Tree(Tree(Leaf(Color(black,
LEIBR),-64.6981,55),-60.7282,Tree(Leaf(Color(black,LEIIN),-67.3836,59),-66.0272,
Leaf(Color(black,LEIMA),-67.7947,32),100),100),-39.7711,Leaf(Color(black,TRYBB),
-63.2991,34),100),-13.2788,Leaf(Color(purple4,GIALA),-77.3860,93),53),-12.8157,
Leaf(Color(green,ENCCU),-108.8031,10),98),68),-3.7683,Tree(Leaf(Color(HotPink,
MONBE),-44.5140,97),-7.0268,Tree(Tree(Leaf(Color(cyan,PRIPA),-46.2681,81),
-26.8740,Tree(Leaf(Color(cyan,CAEJA),-51.0133,87),-43.8821,Tree(Leaf(Color(cyan,
CAEEL),-50.2149,8),-45.2872,Tree(Leaf(Color(cyan,CAEBI),-50.2544,91),-45.6490,
Tree(Leaf(Color(cyan,CAERE),-49.3313,66),-46.1372,Leaf(Color(cyan,CAEBR),
-50.4485,28),99),93),100),100),100),-9.8363,Tree(Tree(Leaf(Color(MediumBlue,
IXOSC),-40.0771,94),-15.3349,Tree(Tree(Leaf(Color(MediumBlue,APIME),-39.5928,22)
,-21.4542,Tree(Tree(Leaf(Color(MediumBlue,AEDAE),-44.7299,46),-35.8446,Leaf(
Color(MediumBlue,ANOGA),-44.7033,15),100),-27.0029,Tree(Leaf(Color(MediumBlue,
DROPS),-46.4188,37),-41.2982,Leaf(Color(MediumBlue,DROME),-45.6417,12),100),100)
,100),-17.1945,Leaf(Color(MediumBlue,DAPPU),-41.9837,72),100),100),-13.0707,Tree
(Leaf(Color(MidnightBlue,TRIAD),-44.7754,96),-14.0007,Tree(Tree(Tree(Leaf(Color(
MediumBlue,CAPI1),-39.9866,99),-17.9655,Leaf(Color(MediumBlue,HELRO),-43.9766,73
),100),-16.8995,Leaf(Color(MediumBlue,LOTGI),-40.0860,74),100),-14.4558,Tree(
Leaf(Color(DarkGreen,NEMVE),-41.7754,77),-15.2313,Tree(Tree(Leaf(Color(IndianRed
,CIOSA),-46.1517,38),-38.7068,Leaf(Color(IndianRed,CIOIN),-47.7475,26),100),
-16.0132,Tree(Leaf(Color(LightSeaGreen,BRAFL),-38.2423,78),-17.4091,Tree(Tree(
Tree(Leaf(Color(orange,ORYLA),-41.0945,44),-35.4184,Tree(Leaf(Color(orange,GASAC
),-41.2157,43),-35.7371,Tree(Leaf(Color(orange,FUGRU),-41.4269,27),-38.8039,Leaf
(Color(orange,TETNG),-41.7539,25),100),99),100),-32.7351,Leaf(Color(orange,DANRE
),-40.0327,17),100),-29.0724,Tree(Leaf(Color(red,XENTR),-40.5463,21),-31.7770,
Tree(Tree(Leaf(Color(red,ANOCA),-40.3229,89),-34.4230,Tree(Leaf(Color(red,TAEGU)
,-39.3334,90),-36.7296,Leaf(Color(red,CHICK),-38.8959,16),100),100),-33.7274,
Tree(Tree(Tree(Leaf(Color(red,MACEU),-41.4477,92),-38.4831,Leaf(Color(red,MONDO)
,-40.3757,35),100),-36.0825,Tree(Tree(Leaf(Color(red,RATNO),-40.9574,24),
-39.8674,Leaf(Color(red,MOUSE),-40.8523,19),100),-38.0874,Tree(Tree(Tree(Leaf(
Color(red,OCHPR),-41.5012,69),-39.0544,Leaf(Color(red,RABIT),-40.8867,40),100),
-38.3626,Tree(Tree(Tree(Tree(Tree(Tree(Leaf(Color(red,MYOLU),-41.6999,52),
-39.0310,Leaf(Color(red,PTEVA),-41.0068,80),100),-38.7739,Tree(Leaf(Color(red,
HORSE),-40.2243,71),-38.8037,Tree(Leaf(Color(red,FELCA),-40.5726,47),-39.1954,
Leaf(Color(red,CANFA),-40.2649,23),100),94),87),-38.7459,Tree(Leaf(Color(red,
LAMPA),-40.4327,82),-39.0444,Tree(Leaf(Color(red,PIGXX),-40.4879,95),-39.0801,
Tree(Leaf(Color(red,BOVIN),-40.7355,29),-39.2311,Leaf(Color(red,TURTR),-40.7348,
79),100),80),100),100),-38.6494,Tree(Leaf(Color(red,ERIEU),-42.4086,48),-38.7869
,Leaf(Color(red,SORAR),-42.1157,54),92),97),-38.5201,Tree(Leaf(Color(red,TUPGB),
-41.0186,51),-38.6331,Tree(Tree(Leaf(Color(red,TARSY),-40.8403,85),-38.7809,Tree
(Tree(Leaf(Color(red,MACMU),-40.2846,36),-39.7233,Tree(Leaf(Color(red,PONAB),
-40.3024,70),-39.8834,Tree(Leaf(Color(red,GORGO),-40.3830,86),-39.9823,Tree(Leaf
(Color(red,PANTR),-40.2324,30),-40.0465,Leaf(Color(red,HUMAN),-40.1932,18),96),
99),100),100),-39.4206,Leaf(Color(red,CALJA),-40.4743,98),100),94),-38.7355,Tree
(Leaf(Color(red,MICMU),-40.6788,68),-39.1002,Leaf(Color(red,OTOGA),-41.4553,49),
100),100),100),79),-38.4780,Tree(Tree(Tree(Leaf(Color(red,PROCA),-41.8188,83),
-39.3272,Leaf(Color(red,LOXAF),-41.3315,39),100),-38.9317,Leaf(Color(red,ECHTE),
-42.8377,42),99),-38.6326,Tree(Leaf(Color(red,DASNO),-41.6438,41),-39.0759,Leaf(
Color(red,CHOHO),-41.4654,88),100),96),97),85),-38.2794,Tree(Tree(Leaf(Color(red
,CAVPO),-41.0859,53),-38.3903,Leaf(Color(red,DIPOR),-41.3155,84),51),-38.3629,
Leaf(Color(red,SPETR),-40.5611,50),59),99),100),100),-35.4123,Leaf(Color(red,
ORNAN),-39.9974,45),100),100),100),100),100),100),97),94),99),100),100),100),100
),0,Tree(Tree(Tree(Leaf(Color(green,CRYNE),-39.4237,20),-14.0114,Leaf(Color(
green,LACBI),-39.3501,76),100),-11.5855,Leaf(Color(green,USTMA),-36.9074,65),100
),-5.9255,Tree(Leaf(Color(green,SCHPO),-45.2353,6),-9.9209,Tree(Tree(Leaf(Color(
green,YARLI),-45.8658,4),-16.5464,Tree(Tree(Tree(Leaf(Color(green,CANGA),
-49.1560,13),-34.9931,Leaf(Color(green,YEAST),-48.8118,3),100),-32.2838,Tree(
Leaf(Color(green,KLULA),-50.4806,7),-34.4294,Leaf(Color(green,ASHGO),-50.4330,1)
,100),100),-22.5904,Tree(Tree(Leaf(Color(green,LODEL),-48.8235,63),-37.3824,Leaf
(Color(green,CANAL),-49.2955,2),100),-34.1069,Tree(Leaf(Color(green,PICST),
-47.5256,58),-35.1208,Leaf(Color(green,DEBHA),-47.6529,14),85),100),100),100),
-10.4277,Tree(Tree(Leaf(Color(green,MAGGR),-44.3484,61),-27.3000,Leaf(Color(
green,BOTFB),-41.0320,62),100),-23.6876,Tree(Leaf(Color(green,ASPFU),-41.5102,33
),-24.0980,Leaf(Color(green,PHANO),-45.9774,64),67),100),81),100),100)) :
title := 'All Eukaryotal genomes, Sun Jan 24 16:03:20 2010, 99 species, 202721 orthologs, 56 top groups, 1074 used here, Arithmetic, BestSubset, DimlessQual: best: 0.04095, ave: 0.06258 +- 0.00018, var: 8.299e-06, Z=-7.509':
Xref := [LTEXT(110,3,'Sarcopterygii',color = [1, 0, 0]), LTEXT(110,6,'Fungi',color = [0, 1, 0]), LTEXT(110,9,'Protostomia',color = [0, 0, 0.8039]), LTEXT(110,12,'Pseudocoelomata',color = [0, 1, 1]), LTEXT(110,15,'Viridiplantae',color = [0.6275, 0.1255, 0.9412]), LTEXT(110,18,'Actinopterygii',color = [1, 0.6471, 0]), LTEXT(110,21,'Euglenozoa',color = [0, 0, 0]), LTEXT(110,24,'Urochordata',color = [0.8039, 0.3608, 0.3608]), LTEXT(110,27,'Alveolata',color = [0.5451, 0, 0]), LTEXT(110,30,'Cephalochordata',color = [0.1255, 0.6980, 0.6667]), LTEXT(110,33,'Cnidaria',color = [0, 0.3922, 0]), LTEXT(110,36,'Placozoa',color = [0.09803922, 0.09803922, 0.4392]), LTEXT(110,39,'Amoebozoa',color = [0.6471, 0.1647, 0.1647]), LTEXT(110,42,'Choanoflagellida',color = [1, 0.4118, 0.7059]), LTEXT(110,45,'Fornicata',color = [0.3333, 0.1020, 0.5451])]:

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