1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
# vim: syntax=perl
# workaround for a possible bug in perl-base-5.8.2-2mdk
{
"-name" => "random points",
-type => "points",
-linear_transform => {
-scale => [1, -1],
-offset => [0, 300],
},
-node_opts => {
-size => [30, 30],
# -display => sub { return $_[0]->cget(-name); }
},
-directed => 1,
-init_data => [
[ 216, 242],
[ 183, 67],
[ 232, 24],
[ 72, 151],
[ 131, 42],
[ 23, 234],
[ 106, 116],
[ 249, 173],
[ 98, 197],
[ 92, 39],
[ 261, 81],
[ 145, 188],
[ 92, 171],
[ 325, 93],
[ 275, 175],
[ 293, 224],
[ 226, 75],
[ 110, 166],
[ 240, 194],
[ 136, 225],
[ 210, 178],
[ 40, 140],
[ 95, 241],
[ 285, 63],
[ 124, 265],
],
}
|
