perl solver works again too
[scpubgit/stemmatology.git] / t / data / florilegium.dot
1 digraph Stemma {
2     "α" [ class=hypothetical ];
3     "γ" [ class=hypothetical ];
4     "δ" [ class=hypothetical ];
5     2 [ class=hypothetical,label="*" ];
6     3 [ class=hypothetical,label="*" ];
7     4 [ class=hypothetical,label="*" ];
8     5 [ class=hypothetical,label="*" ];
9     7 [ class=hypothetical,label="*" ];
10     A [ class=extant ];
11     B [ class=extant ];
12     C [ class=extant ];
13     D [ class=extant ];
14     E [ class=extant ];
15     "E (a.c.)" [ class=extant ];
16     F [ class=extant ];
17     G [ class=extant ];
18     H [ class=extant ];
19     K [ class=extant ];
20     P [ class=extant ];
21     "P (a.c.)" [ class=extant ];
22     Q [ class=extant ];
23     "Q (a.c.)" [ class=extant ];
24     S [ class=extant ];
25     T [ class=extant ];
26     "T (a.c.)" [ class=extant ];
27     "α" -> A;
28     "α" -> T;
29     T -> "T (a.c.)";
30     "α" -> "δ";
31     "δ" -> 2;
32     2 -> C;
33     2 -> B;
34     B -> P;
35     P -> "P (a.c.)";
36     B -> S;
37     "δ" -> "γ";
38     "γ" -> 3;
39     3 -> F;
40     3 -> H;
41     "γ" -> 4;
42     4 -> D;
43     4 -> 5;
44     5 -> Q;
45     Q -> "Q (a.c.)";
46     5 -> K;
47     5 -> 7;
48     7 -> E;
49     E -> "E (a.c.)";
50     7 -> G;
51 }
52