#N canvas 535 50 728 748 10; #X symbolatom 56 265 0 0 0 0 - - -; #X symbolatom 299 190 0 0 0 0 - - -; #X symbolatom 33 437 0 0 0 0 - - -; #X obj 33 410 symbol; #X floatatom 374 141 5 0 0 0 - - -; #X text 371 93 truncate after x elements, f 9; #X obj 56 365 cnv 10 400 25 empty \$0-cnv this is a long "text" with [spaces] and Ã¼mläuts 8 13 0 14 -233017 -66577 0; #X msg 56 289 label \$1; #X obj 56 312 s \$0-cnv; #X obj 504 270 list tosymbol; #X symbolatom 504 291 10 0 0 0 - - -; #X floatatom 504 247 5 0 0 0 - - -; #X obj 464 44 namecanvas \$0-ol_help; #N canvas 1264 99 626 800 init 0; #X obj 470 388 cnv 8 120 25 empty empty empty 20 12 0 14 -204786 -66577 0; #X obj 97 553 cnv 8 300 80 empty empty empty 20 12 0 14 -204786 -66577 0; #X obj 461 76 cnv 8 120 26 empty empty empty 20 12 0 14 -204786 -66577 0; #X obj 60 287 cnv 8 200 25 empty empty empty 20 12 0 14 -204786 -66577 0; #X msg 245 33 vis 0 \, relocate \$3x\$4+0+0 0x0+\$1+\$2 \, vis 1 \, editmode 0; #X obj 245 55 s \$0-ol_help; #X msg 118 64 520 50 700 600; #X obj 118 219 s \$0-frame-r; #X floatatom 118 176 5 0 0 0 - - -; #X obj 28 450 s \$0-title-r; #X msg 98 406 label \$1; #X floatatom 263 143 5 0 0 0 - - -; #X obj 263 183 s \$0-bgnd-r; #X obj 56 119 del 10; #X obj 56 99 t b b; #X text 244 80 1.) set pos and size of main window; #X msg 172 115 \$3; #X obj 118 132 f; #X text 151 143 minus frame sizes, f 11; #X text 124 266 2.) set name of title; #X obj 56 141 s \$0-lb; #X obj 118 107 r \$0-lb; #X obj 29 244 r \$0-lb; #X obj 29 406 unpack 0 s; #X text 175 530 3.) set description; #X obj 263 262 s \$0-frame2-r; #X obj 182 463 s \$0-text1-r; #X obj 29 626 cnv 3 68 15 empty empty empty 2 7 0 10 -257985 -66577 0; #N canvas 341 335 425 542 tosymbol 0; #X obj 67 94 list length; #X obj 67 42 list; #X obj 101 226 list, f 7; #X obj 67 175 f, f 10; #X obj 154 175 + 1; #X obj 67 150 until; #X obj 101 251 list split; #X msg 157 94 0; #X obj 139 276 list split 1; #X obj 139 361 list fromsymbol; #X obj 139 302 route symbol float; #X obj 191 329 makefilename %s; #X obj 139 435 textfile; #X msg 202 94 clear; #X obj 139 387 list prepend add2; #X obj 67 201 t b b b f; #X obj 79 276 + 1; #X obj 67 122 t f f; #X obj 78 300 <; #X obj 20 335 spigot; #X msg 20 394 add2 160; #X obj 139 411 list trim; #X obj 67 335 f; #X obj 67 361 sel 0; #X obj 139 463 list tosymbol; #X obj 67 68 t l l b b, f 23; #X text 184 486 symbol out with correct spaces; #X text 57 2 string in; #X msg 136 25 #/zi 3 4 oo ä; #X msg 229 25 1.23457e+019; #X floatatom 315 28 5 0 0 0 - - -; #X obj 67 22 cnv 13 34 15 empty empty empty 2 2 0 9 -163816 -66577 0; #X obj 139 487 cnv 14 40 15 empty empty empty 2 2 0 9 -163840 -66577 0; #X obj 67 21 inlet; #X obj 139 486 outlet; #X connect 0 0 17 0; #X connect 1 0 25 0; #X connect 2 0 6 0; #X connect 3 0 4 0; #X connect 3 0 15 0; #X connect 4 0 3 1; #X connect 5 0 3 0; #X connect 6 1 8 0; #X connect 7 0 3 1; #X connect 8 0 10 0; #X connect 9 0 14 0; #X connect 10 0 9 0; #X connect 10 1 11 0; #X connect 11 0 9 0; #X connect 12 0 24 0; #X connect 13 0 12 0; #X connect 14 0 21 0; #X connect 15 0 22 0; #X connect 15 1 19 0; #X connect 15 2 2 0; #X connect 15 3 6 1; #X connect 15 3 16 0; #X connect 16 0 18 0; #X connect 17 0 5 0; #X connect 17 1 18 1; #X connect 18 0 19 1; #X connect 18 0 22 1; #X connect 19 0 20 0; #X connect 20 0 12 0; #X connect 21 0 12 0; #X connect 22 0 23 0; #X connect 23 0 12 0; #X connect 24 0 34 0; #X connect 25 0 0 0; #X connect 25 1 2 1; #X connect 25 2 7 0; #X connect 25 3 13 0; #X connect 28 0 1 0; #X connect 29 0 1 0; #X connect 30 0 1 0; #X connect 33 0 1 0; #X restore 28 625 pd tosymbol; #X obj 199 390 r \$0-lb; #X obj 199 413 t b b; #X obj 268 463 s \$0-text2-r; #X obj 354 463 s \$0-text3-r; #X msg 28 488 bang; #X msg 118 195 vis_size \$1 45; #X msg 263 240 vis_size \$1 43; #X text 349 389 init text labels; #X obj 28 719 pack s 0 0; #X msg 28 740 label \$1 \, label_pos \$2 \$3; #X obj 531 524 unpack; #X msg 531 500 44 -32; #X floatatom 493 391 5 0 0 0 - - -; #X floatatom 531 391 5 0 0 0 - - -; #X obj 531 421 t b f; #X msg 545 471 set \$1 \$2; #X obj 493 471 t b b l; #X text 503 370 x; #X text 540 370 y; #X text 466 352 4.) set label position; #X obj 564 545 f; #X msg 321 367 color \$1 \$1 \$1; #X msg 263 161 vis_size \$1 55; #X msg 260 413 size 1 \, pos 300 65 \, vis_size 1 1 \, color \$1 \$1 2 \, label_font 1 11 \, label, f 26; #X floatatom 79 174 5 0 0 0 - - -; #X obj 118 153 - 13; #X obj 263 122 + 10; #X obj 263 219 - 254; #X obj 56 56 t b f; #X msg 260 390 -9.17504e+006; #X msg 260 368 set \$1; #X obj 56 11 loadbang; #N canvas 36 456 791 300 better_colors 0; #X obj 89 19 inlet; #X obj 320 262 outlet; #X obj 89 40 random 10; #X obj 89 61 sel 0 1 2 3 4 5 6 7 8 9, f 83; #X obj 320 239 expr ($f1*(-65536)+$f2*(-256)+$f3*(-1))-1; #X msg 16 162 140 0 0; #X msg 69 162 0 156 144; #X msg 136 162 0 140 0; #X msg 252 162 231 112 0; #X msg 191 162 100 0 255; #X msg 317 162 100 100 100; #X msg 397 162 255 255 0; #X msg 541 162 123 33 5; #X msg 464 162 22 131 5; #X msg 607 163 147 0 163; #X connect 0 0 2 0; #X connect 2 0 3 0; #X connect 3 0 5 0; #X connect 3 1 6 0; #X connect 3 2 7 0; #X connect 3 3 9 0; #X connect 3 4 8 0; #X connect 3 5 10 0; #X connect 3 6 11 0; #X connect 3 7 13 0; #X connect 3 8 12 0; #X connect 3 9 14 0; #X connect 4 0 1 0; #X connect 5 0 4 0; #X connect 6 0 4 0; #X connect 7 0 4 0; #X connect 8 0 4 0; #X connect 9 0 4 0; #X connect 10 0 4 0; #X connect 11 0 4 0; #X connect 12 0 4 0; #X connect 13 0 4 0; #X connect 14 0 4 0; #X restore 56 34 pd better_colors; #X obj 56 78 del 50; #X msg 170 17 bang; #X text 200 114 width; #X msg 29 428 label_pos \$1 21; #X obj 479 124 list prepend set; #X obj 479 146 list trim; #X text 246 10 probably dangerous when initialized with loadbang!; #X msg 29 383 59 ol_tosymbol; #X obj 28 775 s \$0-text1-r; #X obj 195 719 pack s 0 0; #X obj 195 775 s \$0-text2-r; #X obj 351 719 pack s 0 0; #X msg 351 740 label \$1 \, label_pos \$2 \$3; #X obj 351 775 s \$0-text3-r; #X obj 28 648 list prepend 0; #X obj 564 567 + 14; #X obj 564 590 + 14; #X obj 28 510 t b b b b b b b, f 20; #X obj 28 672 route 1 2 3, f 66; #X msg 86 532 2, f 1; #X msg 125 531 1, f 1; #X msg 47 532 3, f 1; #X msg 153 608 empty; #X obj 531 272 loadbang; #X msg 531 293 set -26; #X floatatom 73 292 5 0 0 0 - - -; #X symbolatom 108 292 20 0 0 0 - - -; #X obj 73 333 pack 0 s; #X obj 108 310 t b s; #X obj 73 354 t b l; #X msg 113 354 set \$1 \$2; #X msg 73 261 set 66; #X obj 493 448 pack 0 -26; #X msg 106 560 allow spaces and other special characters in symbols. ; #X msg 479 80 520 50 700 600; #X msg 135 584 with truncation possibility.; #X msg 195 740 label \$1 \, label_pos \$2 \$3 \, label_font 1 10, f 23; #X connect 4 0 5 0; #X connect 6 0 16 0; #X connect 8 0 34 0; #X connect 8 0 55 0; #X connect 8 0 56 0; #X connect 10 0 9 0; #X connect 11 0 51 0; #X connect 13 0 20 0; #X connect 14 0 13 0; #X connect 14 1 6 0; #X connect 16 0 17 1; #X connect 17 0 54 0; #X connect 21 0 17 0; #X connect 22 0 69 0; #X connect 22 0 93 0; #X connect 23 0 65 0; #X connect 23 1 10 0; #X connect 28 0 76 0; #X connect 29 0 30 0; #X connect 30 0 79 0; #X connect 30 1 40 0; #X connect 30 1 58 0; #X connect 33 0 79 0; #X connect 34 0 7 0; #X connect 35 0 25 0; #X connect 37 0 38 0; #X connect 38 0 70 0; #X connect 39 0 37 1; #X connect 39 0 71 1; #X connect 39 0 73 1; #X connect 39 1 49 0; #X connect 40 0 39 0; #X connect 41 0 94 0; #X connect 42 0 43 0; #X connect 43 0 94 0; #X connect 43 1 94 1; #X connect 44 0 40 0; #X connect 45 0 33 0; #X connect 45 1 40 0; #X connect 45 2 44 0; #X connect 49 0 37 2; #X connect 49 0 77 0; #X connect 50 0 12 0; #X connect 51 0 12 0; #X connect 52 0 26 0; #X connect 52 0 31 0; #X connect 52 0 32 0; #X connect 53 0 34 0; #X connect 54 0 8 0; #X connect 55 0 11 0; #X connect 56 0 35 0; #X connect 57 0 62 0; #X connect 57 1 59 0; #X connect 58 0 52 0; #X connect 58 0 50 0; #X connect 59 0 58 0; #X connect 60 0 61 0; #X connect 61 0 57 0; #X connect 62 0 14 0; #X connect 63 0 61 0; #X connect 65 0 9 0; #X connect 66 0 67 0; #X connect 67 0 6 0; #X connect 69 0 23 0; #X connect 71 0 98 0; #X connect 73 0 74 0; #X connect 74 0 75 0; #X connect 76 0 80 0; #X connect 77 0 71 2; #X connect 77 0 78 0; #X connect 78 0 73 2; #X connect 79 0 84 0; #X connect 79 1 83 0; #X connect 79 2 97 0; #X connect 79 3 81 0; #X connect 79 4 95 0; #X connect 79 5 82 0; #X connect 80 0 37 0; #X connect 80 1 71 0; #X connect 80 2 73 0; #X connect 81 0 76 1; #X connect 82 0 76 1; #X connect 83 0 76 1; #X connect 84 0 28 0; #X connect 85 0 86 0; #X connect 86 0 42 0; #X connect 87 0 89 0; #X connect 88 0 90 0; #X connect 89 0 91 0; #X connect 90 0 87 0; #X connect 90 1 89 1; #X connect 91 0 69 0; #X connect 91 1 92 0; #X connect 92 0 69 0; #X connect 93 0 87 0; #X connect 94 0 45 0; #X connect 95 0 28 0; #X connect 96 0 4 0; #X connect 96 0 66 0; #X connect 97 0 28 0; #X connect 98 0 72 0; #X restore 19 48 pd init; #X obj 11 11 cnv 8 697 55 \$0-bgnd \$0-bgnd-r empty 0 20 0 4 -143361 -143361 0; #X obj 15 16 cnv 8 687 45 \$0-frame \$0-frame-r empty 20 20 0 14 -1 -262144 0; #X obj 16 17 cnv 15 250 43 \$0-title \$0-title-r ol_tosymbol 59 21 1 24 -236864 -64 0; #X obj 268 17 cnv 15 433 43 \$0-frame2 \$0-frame2-r empty 25 18 1 24 -216384 -4160 0; #X obj 300 65 cnv 1 1 1 \$0-text1 \$0-text1-r allow spaces and other special characters in symbols. 44 -32 1 11 -143361 -66577 0; #X obj 300 65 cnv 1 1 1 \$0-text2 \$0-text2-r with truncation possibility. 44 -18 1 10 -143361 -66577 0; #X obj 300 65 cnv 1 1 1 \$0-text3 \$0-text3-r empty 44 -4 1 11 -143361 -66577 0; #X text 86 409 without [ol_tosymbol] the example text is cut after the first space, f 75; #X obj 457 102 cnv 1 146 1 empty empty ARGUMENTS: (defaults) 1 -7 0 12 -66577 -66577 0; #X text 457 110 1.) float: truncation (0 = none); #X obj 299 166 ol_tosymbol 9; #X text 457 126 2.) float: Tcl/Tk save symbols (0); #X obj 56 210 ol_tosymbol; #X msg 119 183 tcltk \$1; #X obj 119 159 hradio 15 1 0 3 empty empty empty 0 -8 0 10 -262144 -1 -1 1; #X msg 56 82 [sdfcvb "ghj" uio #ert sdf]; #X msg 33 107 this is a long "text" with [spaces] and ümläuts; #X msg 504 310 label \$1; #X obj 504 338 s \$0-cnv; #X msg 596 321 label; #X obj 596 246 loadbang; #X text 593 340 clear canvas, f 7; #X text 503 224 view ascii (careful !); #X text 32 477 PD (or rather Tcl/Tk) doesn't allow specific ascii values to be printed by GUI elements (like brackets \, braces or diamonds). or even worse - it will alow them but will produce a messed up canvas after saving / reloading., f 95; #X text 224 714 36 (dollar); #X text 223 627 91 (open bracket); #X text 223 637 92 (backslash); #X text 223 647 93 (close bracket); #X text 223 657 123 (open brace); #X text 223 667 125 (close brace); #X text 385 608 replacement:; #X text 223 609 original:; #X text 386 714 35 (diamond); #X text 224 690 34 (quote); #X text 386 637 166 (dotted straight line); #X text 386 667 187 (>>); #X text 387 657 171 (<<); #X text 224 702 35 (diamond); #X text 386 701 164; #X text 386 689 168; #X text 386 626 25 (fat line with left indent); #X text 386 647 23 ((fat line with right indent); #X msg 158 611 tcltk 1; #X msg 157 690 tcltk 2; #X text 60 344 the name of this canvas is \$0-cnv; #X obj 287 462 cnv 1 100 1 empty empty TCLTK message: 1 -7 0 12 -66577 -66577 0; #X msg 158 585 tcltk 0; #X text 223 585 NO REPLACEMENTS; #X text 96 708 same as "1" \, plus:; #X text 32 524 So in case those special characters are really needed (f.e. for filenames containing brackets) \, [ol_tosymbol] provides a way to somehow show "similar" symbols \, replacing "dangerous" ascii values with other ones. Mind that this will only be useful for readability as it messes up the original., f 99; #X msg 192 192 strict \$1; #X obj 192 170 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X text 191 217 strict: don't replace white space (ascii 32) with non-breaking space (ascii 160), f 40; #X text 457 152 BY DEFAULT \, WHITE SPACES (ASCII 32) ARE REPLACED WITH NON-BREAKING SPACE (ASCII 160) !, f 36; #X connect 0 0 7 0; #X connect 3 0 2 0; #X connect 4 0 24 1; #X connect 7 0 8 0; #X connect 9 0 10 0; #X connect 10 0 31 0; #X connect 11 0 9 0; #X connect 24 0 1 0; #X connect 26 0 0 0; #X connect 27 0 26 1; #X connect 28 0 27 0; #X connect 29 0 26 0; #X connect 29 0 24 0; #X connect 30 0 3 0; #X connect 30 0 26 0; #X connect 30 0 24 0; #X connect 31 0 32 0; #X connect 33 0 32 0; #X connect 34 0 33 0; #X connect 64 0 26 1; #X connect 65 0 64 0;