0-pager.pd


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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86

#N canvas 513 22 401 108 10;
#N canvas 558 199 726 569 guts 0;
#X obj 289 114 folder_list;
#X obj 289 67 getdir;
#X obj 202 148 mapping/tolist;
#X obj 100 289 list;
#X obj 201 182 list-abs/list-len;
#X obj 289 92 makefilename %s/[0-9]*.pd;
#X obj 141 19 loadbang;
#X obj 12 398 makefilename pd-%s;
#X obj 60 10 bng 50 450 50 0 empty empty --> 12 25 1 24 -141952 -1
-1;
#X obj 10 10 bng 50 450 50 0 empty empty <-- 10 25 1 24 -87656 -1 -1
;
#X text 70 65 next;
#X text 4 65 previous;
#X obj 15 132 trigger bang float;
#X text 94 99 up;
#X obj 274 332 split_path;
#X obj 13 376 split_path;
#X obj 100 260 trigger bang float bang bang float;
#X obj 274 286 list;
#X obj 64 452 print previous;
#X obj 274 393 pack symbol symbol;
#X msg 274 415 \; pd open \$2 \$1;
#X obj 463 413 send \$0-filename;
#X msg 463 392 label \$1;
#X msg 64 98 0;
#X msg 16 97 1;
#X obj 36 260 print;
#X obj 201 204 - 1;
#X msg 87 174 min 1;
#X obj 101 236 cyclone/counter;
#X obj 170 300 float 2;
#X obj 123 328 select 0;
#X msg 12 422 \; \$1 menuclose 1;
#X obj 13 354 list-abs/list-idx;
#X obj 274 306 list-abs/list-idx;
#X obj 339 353 select 0-pager.pd;
#X obj 140 42 trigger bang bang bang;
#X connect 0 0 2 0;
#X connect 1 0 5 0;
#X connect 2 0 3 1;
#X connect 2 0 4 0;
#X connect 2 0 17 1;
#X connect 3 0 32 0;
#X connect 4 0 26 0;
#X connect 5 0 0 0;
#X connect 6 0 35 0;
#X connect 7 0 31 0;
#X connect 8 0 23 0;
#X connect 9 0 24 0;
#X connect 12 0 28 0;
#X connect 12 1 28 1;
#X connect 14 0 19 0;
#X connect 14 1 34 0;
#X connect 15 1 18 0;
#X connect 15 1 7 0;
#X connect 16 0 3 0;
#X connect 16 1 29 1;
#X connect 16 2 29 0;
#X connect 16 3 17 0;
#X connect 16 4 33 1;
#X connect 17 0 33 0;
#X connect 19 0 20 0;
#X connect 22 0 21 0;
#X connect 23 0 12 0;
#X connect 24 0 12 0;
#X connect 26 0 28 4;
#X connect 27 0 28 0;
#X connect 28 0 25 0;
#X connect 28 0 16 0;
#X connect 29 0 30 0;
#X connect 30 1 32 1;
#X connect 32 0 15 0;
#X connect 33 0 14 0;
#X connect 34 1 22 0;
#X connect 34 1 19 1;
#X connect 35 0 27 0;
#X connect 35 1 2 1;
#X connect 35 2 1 0;
#X coords 0 -1 1 1 100 50 1 10 10;
#X restore 13 15 pd guts;
#X obj 114 15 cnv 15 250 50 empty \$0-filename empty 5 25 1 14 -233017
-28 0;
#X coords 0 0 1 1 85 60 0;