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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
#N canvas 125 117 754 468 10;
#X floatatom 35 99 5 0 0;
#X msg 35 76 bang;
#X msg 124 94 mult 2 \, bang;
#X msg 124 140 sub 1 \, bang;
#X msg 124 163 div 2 \, bang;
#X msg 124 117 inv \, bang;
#X msg 124 71 add 1 \, bang;
#X msg 240 63 add 1 \, if >= 10 0 \, bang;
#X msg 241 123 \$1 \, if < 0 0 \, if >= 10 10 \, bang;
#X floatatom 241 100 5 0 0;
#X msg 35 30 help;
#X floatatom 124 25 5 0 0;
#X msg 124 48 !x \$1 \, ?x;
#X floatatom 422 151 5 0 0;
#X floatatom 70 327 5 0 0;
#X msg 70 350 !x \$1 \, ?x;
#X msg 143 331 bang;
#X obj 35 216 number my_first_number;
#X msg 210 302 set my_first_number;
#X obj 70 373 number my_second_number;
#X msg 210 325 get my_first_number \, bang;
#X floatatom 422 220 5 0 0;
#X obj 35 240 print;
#X obj 422 197 x my_first_number;
#X msg 35 53 post;
#X msg 643 211 bound 0;
#X obj 70 396 print;
#X msg 422 174 \$1 \, bang;
#X msg 575 166 subspace 0 1 100 10;
#X msg 646 237 bound 1 10;
#X msg 181 26 bound 1 10;
#X connect 0 0 17 0;
#X connect 1 0 17 0;
#X connect 2 0 17 0;
#X connect 3 0 17 0;
#X connect 4 0 17 0;
#X connect 5 0 17 0;
#X connect 6 0 17 0;
#X connect 7 0 17 0;
#X connect 8 0 17 0;
#X connect 9 0 8 0;
#X connect 10 0 17 0;
#X connect 11 0 12 0;
#X connect 12 0 17 0;
#X connect 13 0 27 0;
#X connect 14 0 15 0;
#X connect 15 0 19 0;
#X connect 16 0 19 0;
#X connect 17 0 22 0;
#X connect 18 0 19 0;
#X connect 19 0 26 0;
#X connect 20 0 19 0;
#X connect 23 0 21 0;
#X connect 24 0 17 0;
#X connect 25 0 23 0;
#X connect 27 0 23 0;
#X connect 28 0 23 0;
#X connect 29 0 23 0;
#X connect 30 0 17 0;
|
