aboutsummaryrefslogtreecommitdiff
path: root/examples/ltextfile-drip-help.pd
diff options
context:
space:
mode:
authorMartin Peach <mrpeach@users.sourceforge.net>2013-02-21 16:28:13 +0000
committerIOhannes m zmölnig <zmoelnig@iem.at>2015-10-14 14:28:31 +0200
commitdf3c5bae24837b144a1f09d06d4cad90b8905915 (patch)
treee751d9c3be1046c6f8f65e2c4303fd61a89fbb3b /examples/ltextfile-drip-help.pd
parent4bab8348d2842245d93833a80f0d4713f973069c (diff)
Example class that splits a text file into sentences.
svn path=/trunk/externals/loaders/pdlua/; revision=17050
Diffstat (limited to 'examples/ltextfile-drip-help.pd')
-rw-r--r--examples/ltextfile-drip-help.pd76
1 files changed, 76 insertions, 0 deletions
diff --git a/examples/ltextfile-drip-help.pd b/examples/ltextfile-drip-help.pd
new file mode 100644
index 0000000..85811c0
--- /dev/null
+++ b/examples/ltextfile-drip-help.pd
@@ -0,0 +1,76 @@
+#N canvas 480 515 796 478 10;
+#X msg 145 184 open test.txt;
+#X obj 184 223 openpanel;
+#X obj 122 208 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 95 66 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X floatatom 125 165 5 0 0 0 - - -;
+#X msg 163 202 open tewt.txt;
+#X obj 553 336 print EOF;
+#X msg 203 242 rewind;
+#X text 393 323 bang when no more lines;
+#X text 252 241 rewind file to zero;
+#X text 477 274 argument is a file name to be opened;
+#X text 227 430 written in pd_lua by Martin Peach 2012/09/17;
+#X text 239 183 open a file by name;
+#X text 249 201 nonexistent file prints an error;
+#X text 245 222 choose a file to open;
+#X obj 201 380 s word;
+#X obj 63 8 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
+;
+#X obj 126 15 + 500;
+#X obj 126 -8 random 700;
+#X obj -7 1 r ready;
+#X msg 20 70 stop;
+#X obj -7 25 t b b;
+#X obj -7 49 delay 1000;
+#X text 213 142 ltextfile-drip reads a text file. Incoming bangs cause
+it to spit out sentences from the file in sequence.;
+#X obj 251 342 print dripped->;
+#X obj 154 66 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 319 388 print punctuation->;
+#X obj 95 134 spigot;
+#X obj 128 112 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X floatatom 194 58 5 0 0 0 - - -;
+#X obj 251 307 ltextfile-drip ../a_modest_proposal_gutenberg_1080.txt
+;
+#X obj 95 92 delay 10;
+#X symbolatom 252 363 80 0 0 0 - - -;
+#X obj 63 38 metro 20000;
+#X obj 144 341 route bang;
+#X obj 144 401 print empty_line;
+#X obj 20 156 delay 60000;
+#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;