From b68e4b16fb0177bc72bc3fbf672f84cc758c4fae Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Fri, 8 Oct 2010 22:18:57 +0000
Subject: added .srt file object for decoding subtitles, by Maira Sala,
 IOhannes m. zmoelnig, and me

svn path=/trunk/externals/srt/; revision=14208
---
 srtfile.pd | 362 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 362 insertions(+)
 create mode 100644 srtfile.pd

(limited to 'srtfile.pd')

diff --git a/srtfile.pd b/srtfile.pd
new file mode 100644
index 0000000..8b76086
--- /dev/null
+++ b/srtfile.pd
@@ -0,0 +1,362 @@
+#N canvas 145 144 766 516 10;
+#X obj 126 18 inlet;
+#X text 173 8 open filename;
+#X text 177 23 bang;
+#X obj 45 430 outlet subtitle;
+#X obj 518 428 outlet done;
+#N canvas 231 15 793 487 linereader 0;
+#X obj 136 17 inlet;
+#X obj 159 452 outlet next line;
+#X msg 136 111 read \$1 \, rewind;
+#X obj 136 92 symbol;
+#X obj 159 357 list prepend;
+#X obj 246 334 t l l;
+#X obj 187 145 until;
+#X obj 136 266 t b b b;
+#X obj 136 221 route bang;
+#X obj 246 311 list prepend;
+#N canvas 642 75 450 300 EOL 0;
+#X obj 84 48 inlet;
+#X obj 165 129 select 10 13;
+#X text 157 51 CRLF = 13 10 (w32);
+#X msg 205 151 1;
+#X msg 245 172 0;
+#X obj 165 189 f;
+#X obj 165 217 select 1;
+#X obj 245 152 t f b;
+#X obj 60 244 outlet byte;
+#X obj 165 245 outlet EOL;
+#X obj 43 113 select 10 13;
+#X connect 0 0 10 0;
+#X connect 1 0 5 0;
+#X connect 1 1 3 0;
+#X connect 1 2 7 0;
+#X connect 3 0 5 1;
+#X connect 4 0 5 1;
+#X connect 5 0 6 0;
+#X connect 6 0 9 0;
+#X connect 7 0 8 0;
+#X connect 7 1 4 0;
+#X connect 10 0 9 0;
+#X connect 10 2 8 0;
+#X restore 246 244 pd EOL;
+#X obj 136 244 t b b;
+#X obj 137 47 route open bang bong;
+#X msg 219 81 bang;
+#X obj 316 283 t b b;
+#X obj 226 290 t b b;
+#X obj 430 445 outlet;
+#X obj 136 171 ./binfile;
+#X connect 0 0 12 0;
+#X connect 2 0 17 0;
+#X connect 3 0 2 0;
+#X connect 4 0 1 0;
+#X connect 5 0 4 1;
+#X connect 5 1 9 1;
+#X connect 6 0 17 0;
+#X connect 7 0 15 0;
+#X connect 7 1 4 0;
+#X connect 7 2 6 1;
+#X connect 8 0 11 0;
+#X connect 8 1 10 0;
+#X connect 9 0 5 0;
+#X connect 10 0 9 0;
+#X connect 10 1 14 0;
+#X connect 11 0 7 0;
+#X connect 11 1 16 0;
+#X connect 12 0 3 0;
+#X connect 12 1 6 0;
+#X connect 12 2 13 0;
+#X connect 13 0 17 0;
+#X connect 14 0 7 0;
+#X connect 15 0 4 1;
+#X connect 15 1 9 1;
+#X connect 17 0 8 0;
+#X connect 17 2 11 0;
+#X restore 148 153 pd linereader;
+#N canvas 626 26 639 408 lineid 0;
+#X obj 146 47 inlet;
+#X obj 124 318 outlet;
+#X obj 360 56 inlet reset;
+#X obj 146 168 route bang;
+#X obj 226 244 i;
+#X obj 261 246 + 1;
+#X msg 178 210 0;
+#X obj 146 190 t b b;
+#X obj 124 271 list prepend;
+#X obj 213 190 t b b;
+#X obj 124 293 list prepend 0;
+#X obj 360 94 t b;
+#X obj 265 318 outlet done;
+#X obj 146 97 t a a;
+#X connect 0 0 13 0;
+#X connect 2 0 11 0;
+#X connect 3 0 7 0;
+#X connect 3 1 9 0;
+#X connect 4 0 5 0;
+#X connect 4 0 10 1;
+#X connect 5 0 4 1;
+#X connect 6 0 4 1;
+#X connect 7 0 12 0;
+#X connect 7 1 6 0;
+#X connect 8 0 10 0;
+#X connect 9 0 8 0;
+#X connect 9 1 4 0;
+#X connect 10 0 1 0;
+#X connect 11 0 6 0;
+#X connect 13 0 3 0;
+#X connect 13 1 8 1;
+#X restore 148 189 pd lineid;
+#X obj 208 125 until;
+#X obj 148 248 route 0 1;
+#X obj 208 210 t b b;
+#X obj 378 428 outlet ID;
+#N canvas 207 25 634 523 timestamp 0;
+#X obj 59 44 inlet bytes;
+#X obj 59 184 outlet from;
+#X obj 146 183 outlet to;
+#X obj 311 47 inlet reset;
+#X text 141 13 HH:MM:SS \, sss --> HH:MM:SS \, sss;
+#N canvas 523 25 450 526 getdelays 0;
+#X obj 53 138 unpack 0 0 0 0 0 0 0 0;
+#X obj 53 162 * 60;
+#X obj 53 184 +;
+#X obj 53 204 * 60;
+#X obj 53 225 +;
+#X obj 53 247 +;
+#X obj 140 162 * 60;
+#X obj 140 184 +;
+#X obj 140 204 * 60;
+#X obj 140 225 +;
+#X obj 140 247 +;
+#X obj 53 276 * 1000;
+#X obj 140 276 * 1000;
+#X obj 55 325 -;
+#X obj 53 299 t f f;
+#X obj 140 325 -;
+#X obj 55 356 outlet;
+#X obj 140 356 outlet;
+#X obj 53 104 inlet timestamps;
+#X obj 291 74 inlet set number;
+#X obj 291 148 t f;
+#X connect 0 0 1 0;
+#X connect 0 1 2 1;
+#X connect 0 2 4 1;
+#X connect 0 3 5 1;
+#X connect 0 4 6 0;
+#X connect 0 5 7 1;
+#X connect 0 6 9 1;
+#X connect 0 7 10 1;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X connect 3 0 4 0;
+#X connect 4 0 5 0;
+#X connect 5 0 11 0;
+#X connect 6 0 7 0;
+#X connect 7 0 8 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 10 0 12 0;
+#X connect 11 0 14 0;
+#X connect 12 0 15 0;
+#X connect 13 0 16 0;
+#X connect 14 0 13 1;
+#X connect 14 0 15 1;
+#X connect 14 1 13 0;
+#X connect 15 0 17 0;
+#X connect 18 0 0 0;
+#X connect 19 0 20 0;
+#X connect 20 0 13 1;
+#X connect 20 0 15 1;
+#X restore 59 150 pd getdelays;
+#N canvas 496 75 450 413 bytes2numbers 0;
+#X obj 95 23 inlet bytes;
+#X obj 95 278 outlet;
+#X obj 95 60 string2any;
+#X obj 95 82 list;
+#X msg 95 107 list \$1 \$3 \$5 \$7;
+#X obj 94 130 unpack s 0 s 0;
+#N canvas 0 0 450 475 fractional 0;
+#X obj 99 42 inlet;
+#X obj 99 411 outlet;
+#X text 151 43 123;
+#X text 155 416 0.123;
+#X obj 145 339 *;
+#X obj 168 171 log;
+#X obj 202 172 log 10;
+#X obj 168 193 /;
+#X msg 206 152 10;
+#X obj 168 214 i;
+#X obj 168 152 abs;
+#X obj 168 240 + 1;
+#X obj 168 313 pow;
+#X msg 168 285 10 \$1;
+#X obj 168 263 * -1;
+#X obj 145 126 t f f b;
+#X obj 99 84 route 0;
+#X msg 99 118 0;
+#X connect 0 0 16 0;
+#X connect 4 0 1 0;
+#X connect 5 0 7 0;
+#X connect 6 0 7 1;
+#X connect 7 0 9 0;
+#X connect 8 0 6 0;
+#X connect 9 0 11 0;
+#X connect 10 0 5 0;
+#X connect 11 0 14 0;
+#X connect 12 0 4 1;
+#X connect 13 0 12 0;
+#X connect 14 0 13 0;
+#X connect 15 0 4 0;
+#X connect 15 1 10 0;
+#X connect 15 2 8 0;
+#X connect 16 0 17 0;
+#X connect 16 1 15 0;
+#X connect 17 0 1 0;
+#X restore 106 166 pd fractional;
+#X obj 95 211 pack 0 0 0 0;
+#N canvas 0 0 450 475 fractional 0;
+#X obj 99 42 inlet;
+#X obj 99 411 outlet;
+#X text 151 43 123;
+#X text 155 416 0.123;
+#X obj 99 299 *;
+#X obj 122 131 log;
+#X obj 99 85 t f f b;
+#X obj 156 132 log 10;
+#X obj 122 153 /;
+#X msg 160 112 10;
+#X obj 122 174 i;
+#X obj 122 112 abs;
+#X obj 122 200 + 1;
+#X obj 122 273 pow;
+#X msg 122 245 10 \$1;
+#X obj 122 223 * -1;
+#X connect 0 0 6 0;
+#X connect 4 0 1 0;
+#X connect 5 0 8 0;
+#X connect 6 0 4 0;
+#X connect 6 1 11 0;
+#X connect 6 2 9 0;
+#X connect 7 0 8 1;
+#X connect 8 0 10 0;
+#X connect 9 0 7 0;
+#X connect 10 0 12 0;
+#X connect 11 0 5 0;
+#X connect 12 0 15 0;
+#X connect 13 0 4 1;
+#X connect 14 0 13 0;
+#X connect 15 0 14 0;
+#X restore 216 166 pd fractional;
+#X obj 205 211 pack 0 0 0 0;
+#X obj 95 249 list append;
+#X obj 95 190 symbol2list :;
+#X obj 205 190 symbol2list :;
+#X connect 0 0 2 0;
+#X connect 2 0 3 0;
+#X connect 3 0 4 0;
+#X connect 4 0 5 0;
+#X connect 5 0 11 0;
+#X connect 5 1 6 0;
+#X connect 5 2 12 0;
+#X connect 5 3 8 0;
+#X connect 6 0 7 3;
+#X connect 7 0 10 0;
+#X connect 8 0 9 3;
+#X connect 9 0 10 1;
+#X connect 10 0 1 0;
+#X connect 11 0 7 0;
+#X connect 12 0 9 0;
+#X restore 59 110 pd bytes2numbers;
+#X connect 0 0 6 0;
+#X connect 3 0 5 1;
+#X connect 5 0 1 0;
+#X connect 5 1 2 0;
+#X connect 6 0 5 0;
+#X restore 178 381 pd timestamp;
+#X obj 208 308 list split 1;
+#N canvas 0 0 450 506 lines2multiline 0;
+#X obj 75 47 inlet singleline;
+#X obj 75 427 outlet multiline;
+#X obj 142 199 list append 10;
+#X text 254 197 <-- Gem's linebreak;
+#X obj 75 127 route bang;
+#X obj 142 259 list prepend;
+#X obj 142 280 t l l;
+#X obj 75 313 list prepend;
+#X obj 75 269 t b;
+#X obj 278 51 inlet delimiter;
+#X obj 75 98 t a a;
+#X obj 75 399 route bang;
+#X obj 75 345 t a b b a;
+#X connect 0 0 10 0;
+#X connect 2 0 5 0;
+#X connect 4 0 8 0;
+#X connect 4 1 2 0;
+#X connect 5 0 6 0;
+#X connect 6 0 7 1;
+#X connect 6 1 5 1;
+#X connect 7 0 12 0;
+#X connect 8 0 7 0;
+#X connect 9 0 2 1;
+#X connect 10 0 4 0;
+#X connect 11 1 1 0;
+#X connect 12 0 11 0;
+#X connect 12 1 7 1;
+#X connect 12 2 5 1;
+#X restore 248 334 pd lines2multiline;
+#X obj 178 429 outlet from to;
+#X obj 178 404 pack 0 0;
+#X msg 259 360 0;
+#X obj 126 45 route read bang;
+#X obj 126 67 symbol;
+#X msg 126 108 open \$1;
+#N canvas 565 53 450 300 checkopen 0;
+#X obj 58 29 inlet bang;
+#X obj 171 207 outlet bang;
+#X obj 58 83 symbol;
+#X obj 107 83 symbol;
+#X obj 58 102 select select;
+#X obj 58 142 print STR-error;
+#X obj 58 61 t b b;
+#X obj 171 143 t b;
+#X obj 285 32 inlet filename;
+#X msg 58 122 line requested without prior read!;
+#X connect 0 0 6 0;
+#X connect 2 0 4 0;
+#X connect 3 0 4 1;
+#X connect 4 0 9 0;
+#X connect 4 1 7 0;
+#X connect 6 0 2 0;
+#X connect 6 1 3 0;
+#X connect 7 0 1 0;
+#X connect 8 0 2 1;
+#X connect 9 0 5 0;
+#X restore 208 99 pd checkopen;
+#X obj 126 88 t s b s;
+#X connect 0 0 17 0;
+#X connect 5 0 6 0;
+#X connect 5 1 4 0;
+#X connect 6 0 8 0;
+#X connect 6 1 9 0;
+#X connect 7 0 5 0;
+#X connect 8 0 10 0;
+#X connect 8 1 11 0;
+#X connect 8 2 12 0;
+#X connect 9 0 13 0;
+#X connect 9 1 7 1;
+#X connect 11 0 15 0;
+#X connect 11 1 15 1;
+#X connect 12 1 13 0;
+#X connect 13 0 3 0;
+#X connect 15 0 14 0;
+#X connect 16 0 11 1;
+#X connect 17 0 18 0;
+#X connect 17 1 20 0;
+#X connect 18 0 21 0;
+#X connect 19 0 5 0;
+#X connect 20 0 7 0;
+#X connect 21 0 19 0;
+#X connect 21 1 6 1;
+#X connect 21 1 16 0;
+#X connect 21 2 20 1;
-- 
cgit v1.2.1