Frank Barknecht a écrit :
Hallo, marius schebella hat gesagt: // marius schebella wrote:
Frank Barknecht wrote:
It's part of the pd~convention documentation somewhere on pd.info.
Unfortunately the lindenmayer patches never made it to the documentation on the pd~convention site.
Really? Hm, I wonder where I got them from. Anywhere they're attached in handy .tgz format.
Ciao
Hello, I've made last month a patch to draw lorenz strange attractor with Gem, if anyone is interested, it's attached. Patco.
#N canvas 486 7 522 402 10; #N canvas 0 0 494 344 gemwin 0; #X msg 262 153 0 , destroy; #X text 294 108 <- create GEM windows; #X obj 109 132 hsl 128 15 0 127 0 0 empty empty Camera_X -2 -6 0 8 -262144 -1 -1 0 1; #X obj 110 158 hsl 128 15 0 127 0 0 empty empty Camera_Y -2 -6 0 8 -262144 -1 -1 0 1; #X obj 109 184 hsl 128 15 0 500 0 0 empty empty Camera_Z -2 -6 0 8 -262144 -1 -1 0 1; #X text 188 86 camera position; #N canvas 0 0 462 312 ch_gemwin 0; #X obj 285 171 f; #X obj 206 152 spigot; #X obj 267 143 sel 0 1; #X obj 237 124 t f f; #X obj 206 200 -; #X obj 206 249 +; #X obj 267 213 f; #X obj 159 168 f; #X obj 80 149 spigot; #X obj 141 140 sel 0 1; #X obj 111 121 t f f; #X obj 80 200 -; #X obj 80 249 +; #X obj 141 210 f; #X obj 406 162 f; #X obj 327 146 spigot; #X obj 388 137 sel 0 1; #X obj 358 118 t f f; #X obj 327 197 -; #X obj 388 207 f; #X obj 80 465 * 4; #X obj 135 467 * 4; #X obj 156 308 t b f; #X obj 94 372 cos; #X obj 106 430 * 1; #X obj 80 430 * 1; #X obj 132 373 sin; #X obj 107 466 * 4; #X obj 94 394 t b f; #X obj 94 348 / 200; #X obj 80 491 pack f f f; #X obj 458 49 gemmouse; #X obj 515 135 t b f; #X obj 515 164 |; #X obj 487 240 gemhead; #X obj 491 193 loadbang; #X msg 487 215 0; #X obj 487 315 curve 2; #X obj 487 266 color 1 0 0; #X obj 571 240 gemhead; #X obj 571 315 curve 2; #X obj 651 242 gemhead; #X obj 651 317 curve 2; #X msg 524 289 3 0 0; #X msg 608 289 0 3 0; #X msg 688 291 0 0 3; #X msg 80 516 view $1 $2 $3 0 0 0 0 1 0; #X obj 571 266 color 0 1 0; #X obj 651 268 color 0 0 1; #X obj 80 308 sin; #X obj 106 309 cos; #X obj 327 246 + 200; #X obj 157 282 / 50; #X obj 80 283 / -200; #X obj 18 12 inlet; #X obj 20 579 outlet; #X obj 60 14 inlet; #X obj 215 19 inlet; #X obj 132 15 inlet; #X obj 213 44 * 5; #X obj 59 82 / 127; #X obj 60 61 * 400; #X obj 131 82 / 127; #X obj 131 58 * 200; #X obj 131 36 * -3.14; #X obj 60 37 * 3.14; #X obj 21 551 gemwin 10; #X connect 0 0 4 1; #X connect 1 0 4 0; #X connect 2 0 6 0; #X connect 2 1 0 0; #X connect 3 0 1 1; #X connect 3 1 2 0; #X connect 4 0 5 0; #X connect 5 0 6 1; #X connect 5 0 29 0; #X connect 6 0 5 1; #X connect 7 0 11 1; #X connect 8 0 11 0; #X connect 9 0 13 0; #X connect 9 1 7 0; #X connect 10 0 8 1; #X connect 10 1 9 0; #X connect 11 0 12 0; #X connect 12 0 13 1; #X connect 12 0 53 0; #X connect 13 0 12 1; #X connect 14 0 18 1; #X connect 15 0 18 0; #X connect 16 0 19 0; #X connect 16 1 14 0; #X connect 17 0 15 1; #X connect 17 1 16 0; #X connect 18 0 51 0; #X connect 19 0 51 1; #X connect 20 0 30 0; #X connect 21 0 30 2; #X connect 22 0 21 0; #X connect 22 0 20 0; #X connect 22 0 27 0; #X connect 22 1 21 1; #X connect 22 1 20 1; #X connect 22 1 27 1; #X connect 23 0 28 0; #X connect 24 0 21 0; #X connect 25 0 20 0; #X connect 26 0 27 0; #X connect 27 0 30 1; #X connect 28 0 24 0; #X connect 28 0 25 0; #X connect 28 1 24 1; #X connect 28 1 25 1; #X connect 29 0 23 0; #X connect 29 0 26 0; #X connect 30 0 46 0; #X connect 31 0 8 0; #X connect 31 0 7 1; #X connect 31 1 1 0; #X connect 31 1 0 1; #X connect 31 1 14 1; #X connect 31 1 15 0; #X connect 31 2 3 0; #X connect 31 2 10 0; #X connect 31 2 33 0; #X connect 31 3 17 0; #X connect 31 3 32 0; #X connect 32 0 33 0; #X connect 32 1 33 1; #X connect 33 0 34 0; #X connect 33 0 39 0; #X connect 33 0 41 0; #X connect 34 0 38 0; #X connect 35 0 36 0; #X connect 35 0 43 0; #X connect 35 0 44 0; #X connect 35 0 45 0; #X connect 35 0 53 0; #X connect 35 0 51 0; #X connect 36 0 34 0; #X connect 36 0 39 0; #X connect 36 0 41 0; #X connect 38 0 37 0; #X connect 39 0 47 0; #X connect 41 0 48 0; #X connect 43 0 37 2; #X connect 44 0 40 2; #X connect 45 0 42 2; #X connect 46 0 66 0; #X connect 47 0 40 0; #X connect 48 0 42 0; #X connect 49 0 25 0; #X connect 50 0 24 0; #X connect 51 0 19 1; #X connect 51 0 52 0; #X connect 52 0 22 0; #X connect 53 0 49 0; #X connect 53 0 50 0; #X connect 54 0 66 0; #X connect 56 0 65 0; #X connect 57 0 59 0; #X connect 58 0 64 0; #X connect 59 0 52 0; #X connect 60 0 53 0; #X connect 61 0 60 0; #X connect 62 0 29 0; #X connect 63 0 62 0; #X connect 64 0 63 0; #X connect 65 0 61 0; #X connect 66 0 55 0; #X restore 144 244 pd ch_gemwin; #X obj 109 105 tgl 15 0 empty empty gemwin 17 7 0 10 -262144 -1 -1 1 1; #X obj 223 58 sel 0 1; #X msg 335 153 create , 1; #X obj 193 106 tgl 15 0 empty empty light 17 7 0 10 -262144 -1 -1 0 1; #X msg 328 187 lighting $1 , color $1 0 0; #X connect 0 0 6 0; #X connect 2 0 6 1; #X connect 3 0 6 2; #X connect 4 0 6 3; #X connect 7 0 8 0; #X connect 8 0 0 0; #X connect 8 1 9 0; #X connect 9 0 6 0; #X connect 10 0 11 0; #X connect 11 0 6 0; #X coords 0 -1 1 1 150 100 2 100 100; #X restore 166 -16 pd gemwin; #N canvas 302 123 679 572 strangelorenz 0; #X obj 431 145 loadbang; #X msg 397 146 bang; #X obj 445 252 s $0-dt4; #X obj 508 250 s $0-dt1; #X obj 464 275 s $0-dt3; #X obj 528 269 s $0-dt2; #N canvas 292 106 658 480 values 0; #X obj 101 51 cnv 15 140 58 empty empty empty 20 12 0 14 -170752 -66577 0; #X obj 242 51 cnv 15 127 58 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 31 178 inlet; #X obj 221 13 inlet; #X obj 96 -27 loadbang; #X obj 108 90 hsl 128 15 0 100000 0 0 empty $0-value-r Rho -2 -8 0 10 -262144 -1 -1 0 1; #X obj 104 71 nbx 6 14 0 100000 0 0 empty $0-value-r Rho 0 -8 0 10 -262144 -1 -1 0 256; #X obj 31 205 route set; #X obj 29 242 print; #X obj 257 64 hradio 15 1 0 4 $0-Metro $0-Metro-r Metro 0 -8 0 8 -262144 -1 -1 0; #N canvas 402 90 626 682 value 0; #X obj 148 4 inlet; #X obj 304 -1 inlet; #X msg 95 272 set $1 $2 $3; #X obj 68 161 pack f 25 2.6667; #X obj 104 130 t b a; #X obj 152 133 t b a; #X obj 62 129 / 1000; #X obj 104 110 / 1000; #X obj 150 111 / 1000; #X obj 162 51 demux 0 1 2; #X obj 295 124 list prepend label; #X obj 119 236 outlet; #X obj 296 145 list trim; #X msg 339 104 Rho; #X msg 295 103 Sigma; #X msg 376 102 Beta; #X obj 274 52 sel 0 1 2; #X obj 198 104 f; #X obj 222 105 f; #X obj 246 103 f; #X msg 213 127 set $1; #X obj 216 149 s $0-value-r; #N canvas 469 365 427 295 counter 0; #X obj 86 146 gem_counter; #X obj 85 193 outlet; #X obj 82 14 inlet; #X obj 16 41 inlet; #X obj 51 72 spigot; #X floatatom 152 192 7 0 0 0 - - -; #X obj 82 42 route on dir float size step; #X obj 141 117 +; #X floatatom 205 177 5 0 0 0 - - -; #X floatatom 247 87 5 0 0 0 - - -; #X obj 127 77 t a b a; #X obj 97 168 * 100; #X obj 300 118 commun /sigma-metro; #X connect 0 0 11 0; #X connect 2 0 6 0; #X connect 3 0 4 0; #X connect 4 0 0 0; #X connect 6 0 4 1; #X connect 6 1 0 1; #X connect 6 2 9 0; #X connect 6 2 10 0; #X connect 6 3 7 0; #X connect 6 4 11 1; #X connect 7 0 0 3; #X connect 10 0 0 2; #X connect 10 1 7 0; #X connect 10 2 7 1; #X connect 11 0 1 0; #X connect 11 0 5 0; #X restore 323 310 pd counter; #X obj 429 203 demux 0 1 2; #X obj 385 165 inlet; #X obj 295 165 s $0-value-r; #X obj 346 226 route time; #X obj 283 281 t b b; #X obj 339 409 t b a; #X obj 383 414 t b a; #X obj 319 442 pack f 25 2.6667; #X obj 320 367 / 1000; #X obj 339 388 / 1000; #X obj 381 385 / 1000; #X obj 69 189 demux; #X obj 68 212 t b a; #N canvas 469 365 423 291 counter 0; #X obj 86 146 gem_counter; #X obj 85 193 outlet; #X obj 82 14 inlet; #X obj 16 41 inlet; #X obj 51 72 spigot; #X floatatom 152 192 7 0 0 0 - - -; #X obj 82 42 route on dir float size step; #X obj 141 117 +; #X floatatom 205 177 5 0 0 0 - - -; #X floatatom 247 87 5 0 0 0 - - -; #X obj 127 77 t a b a; #X obj 97 168 * 100; #X connect 0 0 11 0; #X connect 2 0 6 0; #X connect 3 0 4 0; #X connect 4 0 0 0; #X connect 6 0 4 1; #X connect 6 1 0 1; #X connect 6 2 9 0; #X connect 6 2 10 0; #X connect 6 3 7 0; #X connect 6 4 11 1; #X connect 7 0 0 3; #X connect 10 0 0 2; #X connect 10 1 7 0; #X connect 10 2 7 1; #X connect 11 0 1 0; #X connect 11 0 5 0; #X restore 345 333 pd counter; #N canvas 469 365 423 291 counter 0; #X obj 86 146 gem_counter; #X obj 85 193 outlet; #X obj 82 14 inlet; #X obj 16 41 inlet; #X obj 51 72 spigot; #X floatatom 152 192 7 0 0 0 - - -; #X obj 82 42 route on dir float size step; #X obj 141 117 +; #X floatatom 205 177 5 0 0 0 - - -; #X floatatom 247 87 5 0 0 0 - - -; #X obj 127 77 t a b a; #X obj 97 168 * 100; #X connect 0 0 11 0; #X connect 2 0 6 0; #X connect 3 0 4 0; #X connect 4 0 0 0; #X connect 6 0 4 1; #X connect 6 1 0 1; #X connect 6 2 9 0; #X connect 6 2 10 0; #X connect 6 3 7 0; #X connect 6 4 11 1; #X connect 7 0 0 3; #X connect 10 0 0 2; #X connect 10 1 7 0; #X connect 10 2 7 1; #X connect 11 0 1 0; #X connect 11 0 5 0; #X restore 373 354 pd counter; #X obj 72 317 outlet; #X obj 288 199 r $0-metro; #X connect 0 0 9 0; #X connect 1 0 16 0; #X connect 1 0 9 1; #X connect 1 0 23 1; #X connect 2 0 38 0; #X connect 3 0 34 0; #X connect 4 0 3 0; #X connect 4 1 3 1; #X connect 4 1 30 1; #X connect 5 0 3 0; #X connect 5 1 3 2; #X connect 5 1 30 2; #X connect 6 0 3 0; #X connect 6 0 30 0; #X connect 7 0 4 0; #X connect 8 0 5 0; #X connect 9 0 6 0; #X connect 9 0 17 1; #X connect 9 1 7 0; #X connect 9 1 18 1; #X connect 9 2 8 0; #X connect 9 2 19 1; #X connect 10 0 12 0; #X connect 12 0 25 0; #X connect 13 0 10 0; #X connect 14 0 10 0; #X connect 15 0 10 0; #X connect 16 0 14 0; #X connect 16 0 17 0; #X connect 16 1 13 0; #X connect 16 1 18 0; #X connect 16 2 15 0; #X connect 16 2 19 0; #X connect 17 0 20 0; #X connect 18 0 20 0; #X connect 19 0 20 0; #X connect 20 0 21 0; #X connect 22 0 31 0; #X connect 23 0 22 1; #X connect 23 1 36 1; #X connect 23 2 37 1; #X connect 24 0 23 0; #X connect 24 0 26 0; #X connect 27 0 11 0; #X connect 27 1 22 0; #X connect 27 1 36 0; #X connect 27 1 37 0; #X connect 28 0 30 0; #X connect 28 1 30 1; #X connect 29 0 30 0; #X connect 29 1 30 2; #X connect 30 0 2 0; #X connect 31 0 30 0; #X connect 32 0 28 0; #X connect 33 0 29 0; #X connect 34 0 35 0; #X connect 34 1 2 0; #X connect 35 0 11 0; #X connect 35 1 2 0; #X connect 36 0 32 0; #X connect 37 0 33 0; #X connect 39 0 27 0; #X restore 119 286 pd value; #X floatatom 330 64 5 0 0 2 time - -; #X obj 173 69 hradio 15 1 0 3 empty empty value 0 -8 0 10 -262144 -1 -1 0; #X obj 173 322 outlet; #X msg 311 167 1; #X msg 284 166 0; #X msg 285 194 on $1; #X msg 325 191 dir $1; #X obj 283 125 sel 0; #X obj 324 129 moses 1; #X floatatom 254 90 5 0 0 0 / - -; #X msg 273 248 step $1; #X msg 226 187 size $1; #X floatatom 314 92 5 0 0 2 Loop_size - -; #X msg 165 188 float $1; #X obj 186 148 / 100; #X obj 120 324 outlet; #X obj 438 120 s $0-metro-t; #X msg 38 88 set $1; #X msg 58 125 set $1; #X connect 2 0 7 0; #X connect 5 0 28 0; #X connect 5 0 10 0; #X connect 5 0 25 0; #X connect 6 0 10 0; #X connect 6 0 25 0; #X connect 6 0 29 0; #X connect 7 0 8 0; #X connect 9 0 18 0; #X connect 9 0 19 0; #X connect 10 0 26 0; #X connect 10 1 13 0; #X connect 11 0 27 0; #X connect 12 0 10 1; #X connect 14 0 16 0; #X connect 15 0 16 0; #X connect 16 0 10 2; #X connect 17 0 10 2; #X connect 18 0 15 0; #X connect 18 1 14 0; #X connect 19 1 17 0; #X connect 20 0 21 0; #X connect 20 0 25 1; #X connect 21 0 10 2; #X connect 22 0 10 2; #X connect 23 0 22 0; #X connect 24 0 10 2; #X connect 25 0 24 0; #X connect 28 0 6 0; #X connect 29 0 5 0; #X coords 0 -1 1 1 270 60 2 100 50; #X restore 251 49 pd values; #X obj 252 178 unpack f f f; #X obj 319 203 v beta; #X obj 286 222 v rho; #X obj 260 240 v sigma; #X msg 252 157 19.685 8.822 2.3622; #X obj 202 118 r $0-dt1; #X obj 207 319 s $0-val-cnv; #X obj 204 271 list prepend label; #X obj 205 294 list trim; #X obj 204 247 l2s __; #X obj 255 32 hsl 128 15 0 127 0 0 $0-val-cnv-s $0-val-cnv 19.685 -2 -8 0 10 -262144 -1 -1 0 1; #X obj 445 230 t a a a a; #X msg 439 196 lorenz; #X obj 492 171 inlet; #X msg 487 192 set $2; #X obj 44 121 loadbang; #X floatatom 133 82 5 0 0 0 - - -; #X msg 61 264 size 264 15; #X msg 98 172 label_pos 10 7; #X obj 47 143 t b b b b; #X msg 25 242 color -8.3e+006 -8.3e+006 0; #X msg 158 131 label; #X msg 77 195 label sigma_rho_beta; #X connect 0 0 19 0; #X connect 1 0 19 0; #X connect 6 0 11 0; #X connect 6 1 1 0; #X connect 7 0 10 0; #X connect 7 1 9 0; #X connect 7 2 8 0; #X connect 11 0 7 0; #X connect 11 0 16 0; #X connect 12 0 11 0; #X connect 14 0 15 0; #X connect 15 0 13 0; #X connect 16 0 14 0; #X connect 18 0 2 0; #X connect 18 1 4 0; #X connect 18 2 5 0; #X connect 18 3 3 0; #X connect 19 0 18 0; #X connect 20 0 21 0; #X connect 21 0 19 0; #X connect 22 0 26 0; #X connect 24 0 13 0; #X connect 25 0 13 0; #X connect 26 0 27 0; #X connect 26 1 24 0; #X connect 26 2 29 0; #X connect 26 3 25 0; #X connect 27 0 13 0; #X connect 29 0 13 0; #X coords 0 -1 1 1 277 80 2 250 30; #X restore 121 124 pd strangelorenz; #N canvas 305 28 694 590 chain 0; #X obj 169 25 gemhead; #X obj 156 126 separator; #X obj 159 231 translateXYZ; #X obj 166 99 t a b; #X obj 167 46 alpha; #X floatatom 7 45 3 0 999 2 part_numb - -; #X floatatom 65 15 5 0 0 2 zoom - -; #X floatatom 7 14 5 0 0 2 part_size - -; #X obj 295 325 colorRGB; #X obj 196 200 / 5; #X obj 220 200 / 5; #X obj 246 203 / 5; #X obj 229 139 tabread $0-lorenzx; #X obj 266 164 tabread $0-lorenzy; #X obj 236 113 gem_counter 0 64; #X obj 307 198 tabread $0-lorenzz; #X obj 392 71 inlet; #X msg 395 102 set $1-$2x; #X msg 401 131 set $1-$2y; #X msg 418 157 set $1-$2z; #X obj 167 70 repeat 64; #X obj 306 87 - 1; #X obj 94 148 s $0-gemhead; #X obj 160 275 / 1000; #X obj 317 239 / 100; #X obj 323 259 * 3; #X obj 411 271 * 3; #X floatatom 68 97 5 0 0 0 - - -; #X obj 403 240 / 1000; #X obj 276 241 / 100; #X obj 287 261 * 3; #X floatatom 3 97 5 0 0 2 color - -; #X floatatom 36 97 5 0 0 0 - - -; #X obj 473 46 list prepend $0; #X obj 505 109 list prepend 100; #X msg 397 21 lorenz; #X obj 569 81 t b a; #X obj 570 48 list; #X obj 330 16 loadbang; #X msg 489 140 ; $2x resize $1; #X msg 511 176 ; $2y resize $1; #X msg 510 209 ; $2z resize $1; #X msg 476 82 $1-$2; #X obj 224 381 cube 0.05; #X connect 0 0 4 0; #X connect 1 0 2 0; #X connect 2 0 8 0; #X connect 3 0 1 0; #X connect 3 0 22 0; #X connect 3 1 14 0; #X connect 4 0 20 0; #X connect 5 0 20 1; #X connect 5 0 21 0; #X connect 6 0 9 1; #X connect 6 0 10 1; #X connect 6 0 11 1; #X connect 7 0 23 0; #X connect 8 0 43 0; #X connect 9 0 2 1; #X connect 10 0 2 2; #X connect 11 0 2 3; #X connect 12 0 9 0; #X connect 12 0 29 0; #X connect 13 0 10 0; #X connect 13 0 28 0; #X connect 13 0 24 0; #X connect 14 0 12 0; #X connect 14 0 13 0; #X connect 14 0 15 0; #X connect 15 0 11 0; #X connect 15 0 8 4; #X connect 16 0 17 0; #X connect 16 0 18 0; #X connect 16 0 19 0; #X connect 16 0 33 0; #X connect 17 0 12 0; #X connect 18 0 13 0; #X connect 19 0 15 0; #X connect 20 0 3 0; #X connect 21 0 14 3; #X connect 23 0 43 1; #X connect 24 0 25 0; #X connect 25 0 8 2; #X connect 26 0 8 3; #X connect 27 0 26 1; #X connect 28 0 26 0; #X connect 29 0 30 0; #X connect 30 0 8 1; #X connect 31 0 29 1; #X connect 32 0 24 1; #X connect 33 0 42 0; #X connect 34 0 39 0; #X connect 34 0 40 0; #X connect 34 0 41 0; #X connect 35 0 33 0; #X connect 36 0 37 0; #X connect 36 1 34 1; #X connect 37 0 34 0; #X connect 38 0 35 0; #X connect 42 0 34 0; #X connect 42 0 37 1; #X coords 0 -1 1 1 100 120 2 1 1; #X restore 11 208 pd chain; #X text 4 174 Gem chain is here; #N canvas 0 0 526 376 lorenz 0; #X obj 96 115 unpack f f f; #X obj 25 113 t b b b; #X obj 253 154 0; #X obj 279 154 + 1; #X obj 25 95 until; #X msg 269 133 0; #X obj 210 90 clip 0.01 0.1; #X msg 96 94 0.6 0.6 0.6; #X obj 25 166 expr $f1+$f4*sigma*($f2-$f1) ; $f2+$f4*(rho*$f1-$f2-$f1*$f3) ; $f3+$f4*($f1*$f2-beta*$f3); #X msg 210 55 0.01; #X floatatom 210 74 5 0 0 0 - - -; #X obj 25 13 r $0-dt4; #X obj 270 5 r $0-dt4; #X obj 210 3 r $0-dt3; #X obj 96 7 r $0-dt2; #X obj 93 141 0.6; #X obj 161 141 0.6; #X obj 25 140 0.6; #X text 296 179 expr to calc the lorenz; #X text 310 194 diff equations; #X msg 25 76 512; #X obj 68 279 table $0-lorenzx; #X obj 184 282 table $0-lorenzy; #X obj 303 248 table $0-lorenzz; #X obj 25 219 tabwrite $0-lorenzx; #X obj 104 246 tabwrite $0-lorenzy; #X obj 230 221 tabwrite $0-lorenzz; #X obj 274 58 route lorenz; #X obj 27 38 route lorenz; #X obj 109 63 route lorenz; #X obj 184 32 route lorenz; #X connect 0 0 17 1; #X connect 0 1 15 1; #X connect 0 2 16 1; #X connect 1 0 17 0; #X connect 1 1 2 0; #X connect 1 1 15 0; #X connect 1 2 16 0; #X connect 2 0 3 0; #X connect 2 0 24 1; #X connect 2 0 25 1; #X connect 2 0 26 1; #X connect 3 0 2 1; #X connect 4 0 1 0; #X connect 5 0 2 1; #X connect 6 0 8 3; #X connect 7 0 0 0; #X connect 8 0 17 1; #X connect 8 0 24 0; #X connect 8 1 15 1; #X connect 8 1 25 0; #X connect 8 2 16 1; #X connect 8 2 26 0; #X connect 9 0 10 0; #X connect 10 0 6 0; #X connect 11 0 28 0; #X connect 12 0 27 0; #X connect 13 0 30 0; #X connect 14 0 29 0; #X connect 15 0 8 1; #X connect 16 0 8 2; #X connect 17 0 8 0; #X connect 20 0 4 0; #X connect 27 0 5 0; #X connect 28 0 20 0; #X connect 29 0 7 0; #X connect 30 0 9 0; #X restore 340 346 pd lorenz; #X obj 291 256 metro 500; #X obj 272 226 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 298 284 s $0-metro; #N canvas 0 0 510 360 rossler 0; #X obj 96 115 unpack f f f; #X obj 25 113 t b b b; #X obj 253 154 0; #X obj 25 95 until; #X obj 210 90 clip 0.01 0.1; #X msg 210 55 0.01; #X floatatom 210 74 5 0 0 0 - - -; #X obj 23 -8 r $0-dt4; #X obj 269 114 r $0-dt4; #X obj 211 5 r $0-dt3; #X obj 96 48 r $0-dt2; #X obj 93 141 0.6; #X obj 161 141 0.6; #X obj 25 140 0.6; #X text 296 179 expr to calc the lorenz; #X text 310 194 diff equations; #X msg 25 76 512; #X obj 68 279 table $0-rosslerx; #X obj 184 282 table $0-rosslery; #X obj 301 248 table $0-rosslerz; #X obj 230 222 tabwrite $0-rosslerz; #X obj 104 246 tabwrite $0-rosslery; #X obj 25 219 tabwrite $0-rosslerx; #X obj 211 33 route rossler; #X obj 96 71 route rossler; #X obj 24 25 route rossler; #X obj 25 166 expr $f1-$f4*($f2-$f3) ; $f2+$f4*($f1+sigma*$f2) ; $f3+$f4*(rho+$f1*$f3-beta*$f3); #X obj 279 154 + 0.1; #X msg 269 133 0; #X msg 96 94 0.2 0.2 0.2; #X connect 0 0 13 1; #X connect 0 1 11 1; #X connect 0 2 12 1; #X connect 1 0 13 0; #X connect 1 1 2 0; #X connect 1 1 11 0; #X connect 1 2 12 0; #X connect 2 0 20 1; #X connect 2 0 21 1; #X connect 2 0 22 1; #X connect 2 0 27 0; #X connect 3 0 1 0; #X connect 4 0 26 3; #X connect 5 0 6 0; #X connect 6 0 4 0; #X connect 7 0 25 0; #X connect 8 0 28 0; #X connect 9 0 23 0; #X connect 10 0 24 0; #X connect 11 0 26 1; #X connect 12 0 26 2; #X connect 13 0 26 0; #X connect 16 0 3 0; #X connect 23 0 5 0; #X connect 24 0 29 0; #X connect 25 0 16 0; #X connect 26 0 13 1; #X connect 26 0 22 0; #X connect 26 1 11 1; #X connect 26 1 21 0; #X connect 26 2 12 1; #X connect 26 2 20 0; #X connect 27 0 2 1; #X connect 28 0 2 1; #X connect 29 0 0 0; #X restore 339 382 pd rossler; #X msg 10 -14 lorenz; #X msg 56 30 rossler; #X obj 12 81 list prepend $0; #X text 42 4 no ready yet; #X text 143 104 Sigma , Rho and Beta are the three variables in functions ; #X obj 353 227 r $0-metro-t; #N canvas 0 0 470 320 gem_capture 0; #X msg 154 224 $1 $2; #X msg 230 225 $1 $2; #X floatatom 103 142 5 0 0 2 OffX - -; #X floatatom 139 141 5 0 0 2 OffY - -; #X floatatom 174 141 5 0 0 2 width - -; #X floatatom 211 142 5 0 0 2 heigth - -; #X obj 182 114 tgl 15 0 empty empty Auto 0 -6 0 8 -262144 -1 -1 0 1 ; #X msg 85 65 auto $1; #X msg 63 42 file capture/test 100; #X obj 65 20 loadbang; #X obj 200 114 bng 15 250 50 0 empty empty Snap 17 7 0 10 -262144 -1 -1; #N canvas 531 200 261 190 setdir 0; #X obj 12 7 inlet; #X obj 12 161 outlet; #X obj 12 51 tot .; #X msg 12 28 query set dir [tk_chooseDirectory] .:; #X obj 12 139 list trim; #X obj 12 118 list prepend file; #X msg 12 98 $1/snap 100; #X obj 12 74 l2s; #X connect 0 0 3 0; #X connect 2 0 7 0; #X connect 3 0 2 0; #X connect 4 0 1 0; #X connect 5 0 4 0; #X connect 6 0 5 0; #X connect 7 0 6 0; #X restore 32 140 pd setdir; #X obj 104 108 bng 15 250 50 0 empty empty dir 17 7 0 10 -262144 -1 -1; #X obj 226 203 pack 0 0; #X obj 243 182 t b a; #X obj 156 202 pack 0 0; #X obj 173 181 t b a; #X obj 32 278 print Image_Capture_Directory:; #X obj 41 220 r $0-gemhead; #X obj 43 239 separator; #X obj 123 250 pix_write; #X connect 0 0 20 1; #X connect 1 0 20 2; #X connect 2 0 15 0; #X connect 3 0 16 0; #X connect 4 0 13 0; #X connect 5 0 14 0; #X connect 6 0 7 0; #X connect 7 0 20 0; #X connect 8 0 20 0; #X connect 9 0 8 0; #X connect 10 0 20 0; #X connect 11 0 17 0; #X connect 11 0 20 0; #X connect 12 0 11 0; #X connect 13 0 1 0; #X connect 14 0 13 0; #X connect 14 1 13 1; #X connect 15 0 0 0; #X connect 16 0 15 0; #X connect 16 1 15 1; #X connect 18 0 19 0; #X connect 19 0 20 0; #X coords 0 -1 1 1 150 60 2 100 100; #X restore 320 8 pd gem_capture; #X text 335 -19 capture images; #X text 21 347 lorenz strange attractor function stored in a table: ; #X connect 5 0 7 0; #X connect 6 0 5 0; #X connect 9 0 11 0; #X connect 10 0 11 0; #X connect 11 0 2 0; #X connect 11 0 1 0; #X connect 14 0 5 1;