# TreeDyn script

# matrice binaire
color black
tabulation = 10
ANmatrix t1 {Sp1 Sp2 Sp3 Sp4 Sp5 Sp6 Sp7 Sp8 Sp9 Sp10 Sp11 Sp12 Sp13 Sp14 Sp15 Sp16 Sp17 Sp18 Sp19 Sp20 Sp21 Sp22 Sp23 Sp24 Sp25 Sp26 Sp27 Sp28 Sp29 Sp30 Sp31 Sp32 Sp33 Sp34 Sp35 Sp36 Sp37 Sp38 Sp39 Sp40 Sp41 Sp42 Sp43}

# text variable famille2
tabulation = 10
font {Helvetica 6 normal}
AN Columns {t1 famille2}

# text variable MIRU-VNTR
tabulation = 10 
AN Columns {t1 MIRU-VNTR}

operation l05
tabulation = 400 
legend on 
symbol 31 10
color red
ID EU from t1 where clusterMIRU == I
color blue
ID EU from t1 where clusterMIRU == E
color green
ID EU from t1 where clusterMIRU == L
color magenta
ID EU from t1 where clusterMIRU == S
color orange
ID EU from t1 where clusterMIRU == T
tabulation manual
legend off
#
operation l07
tabulation = 450
font {Helvetica 10 bold}
color black
text A
ID EU from t1 where clusterMS == A
text B
ID EU from t1 where clusterMS == B
text C
ID EU from t1 where clusterMS == C
text D
ID EU from t1 where clusterMS == D
text E1
ID EU from t1 where clusterMS == E1
text F
ID EU from t1 where clusterMS == F
text G
ID EU from t1 where clusterMS == G
text H
ID EU from t1 where clusterMS == H
text J
ID EU from t1 where clusterMS == J
text L1
ID EU from t1 where clusterMS == L1
text L2
ID EU from t1 where clusterMS == L2
text M
ID EU from t1 where clusterMS == M
text N
ID EU from t1 where clusterMS == N
text O
ID EU from t1 where clusterMS == O
text P
ID EU from t1 where clusterMS == P
text Q
ID EU from t1 where clusterMS == Q
text R
ID EU from t1 where clusterMS == R
text S1
ID EU from t1 where clusterMS == S1
text T1
ID EU from t1 where clusterMS == T1
text T2
ID EU from t1 where clusterMS == T2

# background tree
color #CCCCCC
operation n01
shape 5
stipple 0
localisation t1 clusterMS == {A B C D E1 F G H J L1 L2 M N O P Q R S1 T1 T2}