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
|
#N canvas 257 180 910 537 10;
#X declare -lib pdlua;
#X msg 198 232 open test.txt;
#X obj 237 271 openpanel;
#X obj 175 256 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 148 114 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X floatatom 178 213 5 0 0 0 - - - 0;
#X msg 216 250 open tewt.txt;
#X obj 606 384 print EOF;
#X msg 256 290 rewind;
#X text 446 371 bang when no more lines;
#X text 305 289 rewind file to zero;
#X text 530 322 argument is a file name to be opened;
#X text 280 478 written in pd_lua by Martin Peach 2012/09/17;
#X text 292 231 open a file by name;
#X text 302 249 nonexistent file prints an error;
#X text 298 270 choose a file to open;
#X obj 254 428 s word;
#X obj 116 56 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 179 63 + 500;
#X obj 179 40 random 700;
#X obj 46 49 r ready;
#X msg 73 118 stop;
#X obj 46 73 t b b;
#X obj 46 97 delay 1000;
#X text 266 190 ltextfile-drip reads a text file. Incoming bangs cause it to spit out sentences from the file in sequence.;
#X obj 304 390 print dripped->;
#X obj 207 114 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 372 436 print punctuation->;
#X obj 148 182 spigot;
#X obj 181 160 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 247 106 5 0 0 0 - - - 0;
#X obj 304 355 ltextfile-drip ../a_modest_proposal_gutenberg_1080.txt;
#X obj 148 140 delay 10;
#X symbolatom 305 411 80 0 0 0 - - - 0;
#X obj 116 86 metro 20000;
#X obj 197 389 route bang;
#X obj 197 449 print empty_line;
#X obj 73 204 delay 60000;
#X obj 549 96 declare -lib pdlua;
#X connect 0 0 30 0;
#X connect 1 0 30 0;
#X connect 2 0 1 0;
#X connect 3 0 31 0;
#X connect 3 0 36 0;
#X connect 4 0 30 0;
#X connect 5 0 30 0;
#X connect 7 0 30 0;
#X connect 16 0 33 0;
#X connect 18 0 17 0;
#X connect 19 0 21 0;
#X connect 20 0 36 0;
#X connect 21 0 22 0;
#X connect 21 1 20 0;
#X connect 22 0 3 0;
#X connect 25 0 30 0;
#X connect 27 0 30 0;
#X connect 28 0 27 1;
#X connect 29 0 31 1;
#X connect 30 0 24 0;
#X connect 30 0 32 0;
#X connect 30 0 34 0;
#X connect 30 1 26 0;
#X connect 30 2 6 0;
#X connect 30 2 7 0;
#X connect 31 0 27 0;
#X connect 33 0 30 0;
#X connect 34 0 35 0;
#X connect 34 0 3 0;
#X connect 34 1 15 0;
#X connect 36 0 3 0;
|
