Pd-cvs October 2005

pd-cvs@lists.iem.at

15 participants
477 discussions

externals/gridflow/pd_abstractions #apply_colormap_channelwise.pd, NONE, 1.1 #camera.pd, NONE, 1.1 #camera_control.pd, NONE, 1.1 #centre_of_gravity.pd, NONE, 1.1 #centroid.pd, NONE, 1.1 #checkers.pd, NONE, 1.1 #clip.pd, NONE, 1.1 #color.pd, NONE, 1.1 #contrast.pd, NONE, 1.1 #fade.pd, NONE, 1.1 #fade_lin.pd, NONE, 1.1 #greyscale_to_rgb.pd, NONE, 1.1 #hueshift.pd, NONE, 1.1 #motion_detection.pd, NONE, 1.1 #mouse.pd, NONE, 1.1 #posterize.pd, NONE, 1.1 #ravel.pd, NONE, 1.1 #remap_image.pd, NONE, 1.1 #r
by Mathieu Bouchard 04 Oct '05

04 Oct '05

Update of /cvsroot/pure-data/externals/gridflow/pd_abstractions In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21699/pd_abstractions Added Files: #apply_colormap_channelwise.pd #camera.pd #camera_control.pd #centre_of_gravity.pd #centroid.pd #checkers.pd #clip.pd #color.pd #contrast.pd #fade.pd #fade_lin.pd #greyscale_to_rgb.pd #hueshift.pd #motion_detection.pd #mouse.pd #posterize.pd #ravel.pd #remap_image.pd #rgb_to_greyscale.pd #rgb_to_yuv.pd #solarize.pd #spread.pd #text_to_image.pd #yuv_to_rgb.pd @complex_sq.pd count.pd pingpong.pd Log Message: adding abstractions and helpfiles --- NEW FILE: #ravel.pd --- #N canvas 0 0 450 300 10; #X obj 14 15 inlet; #X obj 44 65 #dim; #X obj 44 85 #fold * \, seed 1; #X obj 44 105 #redim ( 1 ); #X obj 14 125 #redim ( 42 ); #X obj 14 35 t a a; #X obj 14 145 outlet; #X connect 0 0 5 0; #X connect 1 0 2 0; #X connect 2 0 3 0; #X connect 3 0 4 1; #X connect 4 0 6 0; #X connect 5 0 4 0; #X connect 5 1 1 0; --- NEW FILE: #spread.pd --- #N canvas 0 0 450 300 10; #X obj 17 12 inlet; #X obj 17 52 # & 0; #X obj 17 72 # + 5; #X obj 17 92 #! rand; #X obj 17 112 # - 2; #X obj 137 162 # +; #X obj 124 68 # >> 1; #X obj 17 32 t a a; #X obj 137 182 outlet; #X obj 124 32 inlet; #X connect 0 0 7 0; #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 8 0; #X connect 6 0 4 1; #X connect 7 0 1 0; #X connect 7 1 5 1; #X connect 9 0 6 0; #X connect 9 0 2 1; --- NEW FILE: #posterize.pd --- #N canvas 0 0 450 300 10; #X obj 13 11 inlet; #X obj 13 31 # *>>8; #X obj 13 51 # * 255; #X obj 13 71 # /; #X obj 92 31 # - 1; #X obj 13 91 outlet; #X obj 92 11 inlet; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 2 0 3 0; #X connect 3 0 5 0; #X connect 4 0 3 1; #X connect 6 0 4 0; #X connect 6 0 1 1; --- NEW FILE: #camera_control.pd --- #N canvas 287 295 576 286 10; #X obj 50 265 outlet; #X obj 239 124 hradio 18 1 0 4 \$0-channel \$0-channel _0__1__2__3_ 0 -4 0 8 -241291 -258699 -1 0; #X obj 413 63 hsl 128 15 0 65535 0 0 \$0-brightness \$0-brightness brightness 8 8 0 8 -260818 -1 -1 0 1; #X obj 413 103 hsl 128 15 0 65535 0 0 \$0-hue \$0-hue hue 8 8 0 8 -260818 -1 -1 0 1; #X obj 413 43 hsl 128 15 0 65535 0 0 \$0-contrast \$0-contrast contrast 8 8 0 8 -260818 -1 -1 0 1; #X obj 413 123 hsl 128 15 0 65635 0 0 \$0-whiteness \$0-whiteness whiteness 8 8 0 8 -260818 -1 -1 0 1; #X text 119 245 <-- open to access more camera controls; #N canvas 170 20 420 404 camera 0; #X obj 9 362 outlet; #X obj 9 8 inlet; #X msg 66 153 contrast \$1; #X msg 66 213 whiteness \$1; #X msg 66 133 brightness \$1; #X msg 171 383 size 120 160; #X msg 190 363 size 240 320; #X msg 209 343 size 480 640; #X msg 72 277 channel \$1; #X obj 176 133 r \$0-brightness; #X obj 176 153 r \$0-contrast; #X obj 176 213 r \$0-whiteness; #X obj 171 299 r \$0-size; #X obj 182 277 r \$0-channel; #X obj 176 193 r \$0-hue; #X msg 66 193 hue \$1; #X msg 66 173 colour \$1; #X obj 176 173 r \$0-colour; #X obj 171 319 sel 0 1 2; #X obj 67 55 s \$0-brightness; #X obj 77 75 s \$0-contrast; #X obj 197 55 s \$0-colour; #X obj 207 75 s \$0-hue; #X obj 217 95 s \$0-whiteness; #X obj 32 245 t a; #X obj 9 35 route symbol brightness contrast colour hue whiteness; #X msg 9 109 open videodev \$1 \, get; #X connect 1 0 25 0; #X connect 2 0 24 0; #X connect 3 0 24 0; #X connect 4 0 24 0; #X connect 5 0 0 0; #X connect 6 0 0 0; #X connect 7 0 0 0; #X connect 8 0 0 0; #X connect 9 0 4 0; #X connect 10 0 2 0; #X connect 11 0 3 0; #X connect 12 0 18 0; #X connect 13 0 8 0; #X connect 14 0 15 0; #X connect 15 0 24 0; #X connect 16 0 24 0; #X connect 17 0 16 0; #X connect 18 0 5 0; #X connect 18 1 6 0; #X connect 18 2 7 0; #X connect 24 0 0 0; #X connect 25 0 26 0; #X connect 25 1 19 0; #X connect 25 2 20 0; #X connect 25 3 21 0; #X connect 25 4 22 0; #X connect 25 5 23 0; #X connect 25 6 0 0; #X connect 26 0 0 0; #X restore 50 245 pd camera; #X msg 83 196 colorspace YUV420P; #X text 218 196 <-- click here if your webcam uses this colorspace ; #X obj 103 222 #yuv_to_rgb; #X text 185 222 <-- add this after [#in] to translate the colorspaces ; #X obj 413 83 hsl 128 15 0 65535 0 0 \$0-colour \$0-colour colour 8 8 0 8 -260818 -1 -1 0 1; #X text 98 266 plug this to #in; #X obj 241 53 vradio 15 1 0 3 \$0-size \$0-size empty 0 -6 0 8 -241291 -258699 -1 0; #X text 259 53 120 \, 160; #X text 259 69 240 \, 320; #X text 259 84 480 \, 640; #X text 239 38 select size; #X text 239 101 select channel; #X obj 10 245 inlet; #X obj 354 44 nbx 5 14 0 65535 0 0 \$0-contrast \$0-contrast empty 0 -6 0 10 -260818 -1 -1 0 256; #X obj 354 64 nbx 5 14 0 65535 0 0 \$0-brightness \$0-brightness empty 0 -6 0 10 -260818 -1 -1 0 256; #X obj 354 84 nbx 5 14 0 65535 0 0 \$0-colour \$0-colour empty 0 -6 0 10 -260818 -1 -1 0 256; #X obj 354 104 nbx 5 14 0 65535 0 0 \$0-hue \$0-hue empty 0 -6 0 10 -260818 -1 -1 0 256; #X obj 354 124 nbx 5 14 0 65535 0 0 \$0-whiteness \$0-whiteness empty 0 -6 0 10 -260818 -1 -1 0 256; #X msg 50 28 symbol /dev/video0; #X msg 50 48 symbol /dev/video1; #X msg 50 68 symbol /dev/video2; #X msg 50 88 symbol /dev/video3; #X text 17 6 Select a camera; #X obj 31 28 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 -1 -1; #X obj 31 48 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 -1 -1; #X obj 31 68 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 -1 -1; #X obj 31 88 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 -1 -1; #X msg 81 133 transfer mmap; #X msg 81 153 transfer read; #X msg 83 176 colorspace RGB24; #X text 70 115 Special options:; #X connect 7 0 0 0; #X connect 8 0 7 0; #X connect 20 0 7 0; #X connect 26 0 7 0; #X connect 27 0 7 0; #X connect 28 0 7 0; #X connect 29 0 7 0; #X connect 31 0 26 0; #X connect 32 0 27 0; #X connect 33 0 28 0; #X connect 34 0 29 0; #X connect 35 0 7 0; #X connect 36 0 7 0; #X connect 37 0 7 0; --- NEW FILE: @complex_sq.pd --- #N canvas 0 0 303 155 10; #X obj 17 15 inlet; #X obj 17 75 outlet; #X obj 17 35 #inner ( 2 2 2 # 0 2 1 -1 1 0 1 1 ); #X obj 17 55 #fold * \, seed 1; #X connect 0 0 2 0; #X connect 2 0 3 0; #X connect 3 0 1 0; --- NEW FILE: #mouse.pd --- #N canvas 313 211 690 428 10; #X obj 23 103 listsublist 0 2; #X obj 48 64 fork; #X obj 126 181 fork; #X text 153 149 is button pressed?; #X obj 129 209 -; #X obj 125 150 > 0; #X obj 183 86 listelement 2; #X obj 120 377 outlet; #X text 161 183 1=click \, 0=nochange \, -1=unclick; #X text 157 36 list (y \, x \, buttons); #X obj 49 8 inlet; #X obj 48 34 route position; #X text 93 8 compatible with output of [#out window]; #X obj 142 246 inv+ 1; #X obj 98 397 outlet; #X obj 142 356 outlet; #X text 431 330 three toggle-compatible outputs; #X text 432 346 and one +1/0/-1 for the wheel; #X text 147 397 click; #X text 193 357 unclick; #X obj 468 60 listelement 2; #X obj 430 301 outlet; #X obj 480 301 outlet; #X obj 530 301 outlet; #X obj 580 301 outlet; #X obj 430 273 change; #X obj 108 63 fork; #X obj 468 86 #outer >> ( 8 9 10 11 12 ); #X obj 469 115 # & 1; #X obj 469 173 unpack 0 0 0 0 0; #X obj 549 241 inv+; #X obj 480 274 change; #X obj 530 275 change; #X obj 580 276 change; #X obj 469 145 #export_list; #X obj 163 335 outlet; #X text 172 378 drag; #X text 214 337 move; #X obj 163 275 inv+ 1; #X obj 389 16 inlet; #X text 433 9 list of 3 toggles; #X text 434 23 which buttons should be active; #X obj 347 81 # << ( 8 9 10 ); #X obj 345 107 #fold +; #X obj 345 131 #export; #X obj 125 126 &; #X text 151 126 check only wanted buttons; #X obj 305 33 loadbang; #X msg 305 57 1 1 1; #X obj 98 269 shunt 3; #X obj 120 302 shunt 2; #X connect 0 0 49 0; #X connect 1 0 0 0; #X connect 1 1 6 0; #X connect 2 0 4 1; #X connect 2 1 4 0; #X connect 2 1 38 0; #X connect 4 0 13 0; #X connect 5 0 2 0; #X connect 6 0 45 0; #X connect 10 0 11 0; #X connect 11 0 26 0; #X connect 13 0 49 1; #X connect 20 0 27 0; #X connect 25 0 21 0; #X connect 26 0 1 0; #X connect 26 1 20 0; #X connect 27 0 28 0; #X connect 28 0 34 0; #X connect 29 0 25 0; #X connect 29 1 31 0; #X connect 29 2 32 0; #X connect 29 3 30 0; #X connect 29 4 30 1; #X connect 30 0 33 0; #X connect 31 0 22 0; #X connect 32 0 23 0; #X connect 33 0 24 0; #X connect 34 0 29 0; #X connect 38 0 50 1; #X connect 39 0 42 0; #X connect 42 0 43 0; #X connect 43 0 44 0; #X connect 44 0 45 1; #X connect 45 0 5 0; #X connect 47 0 48 0; #X connect 48 0 42 0; #X connect 49 0 14 0; #X connect 49 1 50 0; #X connect 49 2 15 0; #X connect 50 0 7 0; #X connect 50 1 35 0; --- NEW FILE: #fade_lin.pd --- #N canvas 614 446 450 300 10; #X obj 68 16 inlet; #X obj 92 146 outlet; #X obj 95 61 # -; #X obj 155 16 inlet; #X obj 65 123 # +; #X obj 95 124 t a; #X obj 155 36 f \$1; #X obj 140 101 # inv+ 0; #X obj 296 38 loadbang; #X obj 78 101 # max -1; #X obj 78 81 # min 1; #X obj 195 16 inlet; #X obj 195 37 f \$2; #X connect 0 0 2 0; #X connect 2 0 10 0; #X connect 3 0 6 0; #X connect 4 0 5 0; #X connect 5 0 4 1; #X connect 5 0 1 0; #X connect 5 0 2 1; #X connect 6 0 10 1; #X connect 7 0 9 1; #X connect 8 0 6 0; #X connect 8 0 12 0; #X connect 9 0 4 0; #X connect 10 0 9 0; #X connect 11 0 12 0; #X connect 12 0 7 0; --- NEW FILE: #rgb_to_yuv.pd --- #N canvas 550 233 438 174 10; #X obj 10 10 inlet; #X obj 10 90 outlet; #X obj 10 70 # + ( 0 128 128 ); #X obj 10 50 # >> 8; #X obj 10 30 #inner ( 3 3 # 76 -44 128 150 -85 -108 29 128 -21 ); #X connect 0 0 4 0; #X connect 2 0 1 0; #X connect 3 0 2 0; #X connect 4 0 3 0; --- NEW FILE: #centroid.pd --- #N canvas 494 135 339 225 10; #X obj -63 82 #fold +; #X obj -63 101 # >> 8; #N canvas 0 0 450 300 gravity 0; #X obj 77 20 inlet; #X obj 75 276 outlet; #X obj 77 54 t a a; #X obj 41 90 #finished; #X obj 125 79 #dim; #X obj 126 105 #fold +; #X obj 68 140 #for 0 0 1; #X obj 172 190 #fold +; #X obj 72 179 # *; #X obj 72 199 #fold +; #X obj 72 249 # /; #X connect 0 0 2 0; #X connect 2 0 3 0; #X connect 2 1 4 0; #X connect 2 1 7 0; #X connect 2 1 8 1; #X connect 3 0 6 0; #X connect 4 0 5 0; #X connect 5 0 6 1; #X connect 6 0 8 0; #X connect 7 0 10 1; #X connect 8 0 9 0; #X connect 9 0 10 0; #X connect 10 0 1 0; #X restore -63 120 pd gravity; #X obj -63 139 #export; #X obj -63 25 #fold +; #X obj 30 83 #fold +; #X obj 30 102 # >> 8; #N canvas 0 0 450 300 gravity 0; #X obj 77 20 inlet; #X obj 75 276 outlet; #X obj 77 54 t a a; #X obj 41 90 #finished; #X obj 125 79 #dim; #X obj 126 105 #fold +; #X obj 68 140 #for 0 0 1; #X obj 172 190 #fold +; #X obj 72 179 # *; #X obj 72 199 #fold +; #X obj 72 249 # /; #X connect 0 0 2 0; #X connect 2 0 3 0; #X connect 2 1 4 0; #X connect 2 1 7 0; #X connect 2 1 8 1; #X connect 3 0 6 0; #X connect 4 0 5 0; #X connect 5 0 6 1; #X connect 6 0 8 0; #X connect 7 0 10 1; #X connect 8 0 9 0; #X connect 9 0 10 0; #X connect 10 0 1 0; #X restore 30 121 pd gravity; #X obj 30 140 #export; #X obj 30 63 #transpose; #X obj -63 44 t a a; #X obj -63 178 #pack 2; #X obj -63 197 outlet position; #X obj -63 6 inlet greyscale_image; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 2 0 3 0; #X connect 3 0 11 0; #X connect 4 0 10 0; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 7 0 8 0; #X connect 8 0 11 1; #X connect 9 0 5 0; #X connect 10 0 0 0; #X connect 10 1 9 0; #X connect 11 0 12 0; #X connect 13 0 4 0; #X coords 0 0 5.43251e-06 7.95071e-06 100 40 0; --- NEW FILE: #hueshift.pd --- #N canvas 581 130 450 278 10; #X obj 13 105 inlet; #X obj 13 162 outlet; #X obj 59 48 #rgb_to_yuv; #X obj 59 124 #yuv_to_rgb; #X obj 59 67 # - 128; #X obj 59 105 # + 128; #X obj 171 10 inlet; #X obj 59 86 #rotate \, axis 1 2 3; #X obj 59 7 loadbang; #X obj 171 29 t b f; #X obj 212 29 \$1; #X obj 212 10 loadbang; #X obj 13 124 #inner; #X msg 59 29 3 3 # 256 0 0 0; #X obj 13 143 # >> 8; #X connect 0 0 12 0; #X connect 2 0 4 0; #X connect 3 0 12 1; #X connect 4 0 7 0; #X connect 5 0 3 0; #X connect 6 0 9 0; #X connect 7 0 5 0; #X connect 8 0 13 0; #X connect 9 0 13 0; #X connect 9 1 7 1; #X connect 10 0 9 0; #X connect 11 0 10 0; #X connect 12 0 14 0; #X connect 13 0 2 0; #X connect 14 0 1 0; --- NEW FILE: #clip.pd --- #N canvas 531 259 450 300 10; #X obj 87 22 inlet; #X obj 87 206 outlet; #X obj 87 94 # min \$1; #X obj 87 143 # max \$2; #X obj 196 38 inlet; #X obj 249 108 inlet; #X msg 132 59 255; #X obj 132 39 loadbang; #X obj 184 106 loadbang; #X msg 184 126 0; #X connect 0 0 2 0; #X connect 2 0 3 0; #X connect 3 0 1 0; #X connect 4 0 2 1; #X connect 5 0 3 1; #X connect 6 0 2 1; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 9 0 3 1; --- NEW FILE: #remap_image.pd --- #N canvas 0 0 450 300 10; #X obj 18 13 inlet; #X obj 168 163 inlet; #X obj 18 160 #store; #X obj 113 90 #dim; #X obj 18 33 t a a; #X obj 18 110 #finished; #X obj 18 130 #for ( 0 0 ) ( 0 0 ) ( 1 1 ); #X obj 18 191 outlet; #X obj 113 110 #inner ( 3 2 # 1 0 0 ); #X obj 68 191 outlet; #X connect 0 0 4 0; #X connect 1 0 2 0; #X connect 2 0 7 0; #X connect 3 0 8 0; #X connect 4 0 5 0; #X connect 4 1 3 0; #X connect 4 1 2 1; #X connect 5 0 6 0; #X connect 6 0 9 0; #X connect 8 0 6 1; --- NEW FILE: #rgb_to_greyscale.pd --- #N canvas 550 233 335 174 10; #X obj 10 10 inlet; #X obj 10 30 # * ( 77 151 28 ); #X obj 10 50 #fold +; #X obj 10 70 #outer >> ( 8 ); #X obj 10 90 outlet; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 2 0 3 0; #X connect 3 0 4 0; --- NEW FILE: count.pd --- #N canvas 448 36 450 300 10; #X obj 131 81 + 1; #X obj 132 37 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X floatatom 190 82 5 0 0 0 - - -; #X msg 131 61 1; #X obj 204 168 select 1; #X obj 191 195 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 70 39 inlet; #X obj 131 150 outlet; #X obj 239 80 inlet; #X obj 190 106 == \$2; #X floatatom 131 132 5 0 0 0 - - -; #X obj 191 218 outlet; #X obj 131 106 - 1; #X floatatom 191 130 5 0 0 0 - - -; #X obj 203 11 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 293 49 print; #X obj 222 63 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 192 38 float \$1; #X text 231 9 <-- bang this to reset; #X obj 219 -11 inlet; #X connect 0 0 2 0; #X connect 0 0 12 0; #X connect 1 0 3 0; #X connect 2 0 0 1; #X connect 2 0 9 0; #X connect 3 0 0 0; #X connect 4 0 5 0; #X connect 4 0 17 0; #X connect 5 0 11 0; #X connect 6 0 1 0; #X connect 8 0 9 1; #X connect 9 0 13 0; #X connect 10 0 7 0; #X connect 12 0 10 0; #X connect 13 0 4 0; #X connect 14 0 17 0; #X connect 16 0 2 0; #X connect 17 0 2 0; #X connect 19 0 14 0; --- NEW FILE: #yuv_to_rgb.pd --- #N canvas 550 233 438 174 10; #X obj 10 10 inlet; #X obj 10 90 outlet; #X obj 10 30 # - ( 0 128 128 ); #X obj 10 70 # >> 8; #X obj 10 50 #inner ( 3 3 # 256 256 256 0 -88 454 358 -183 0 ); #X connect 0 0 2 0; #X connect 2 0 4 0; #X connect 3 0 1 0; #X connect 4 0 3 0; --- NEW FILE: #text_to_image.pd --- #N canvas 305 189 450 300 10; #X obj 16 14 inlet text; #X obj 16 265 outlet image; #X obj 291 132 inlet font; #X obj 16 155 #store; #X obj 203 38 inlet colors; #X text 203 2 0: background; #X text 203 18 1: foreground; #X obj 203 66 t a; #X obj 16 174 #store; #X obj 229 66 loadbang; #X text 67 157 font; #X text 68 174 palette; #X obj 16 33 #outer ignore ( 0 ); #X obj 16 212 t a a; #X obj 16 238 #redim ( ); #X obj 154 161 #dim; #X obj 154 180 #unpack 4; #X obj 174 200 *; #X obj 16 193 #transpose 0 1; #X obj 154 228 pack 0 0 0; #X msg 229 85 2 3 # 0 0 0 255 255 255; #X connect 0 0 12 0; #X connect 2 0 3 1; #X connect 3 0 8 0; #X connect 4 0 7 0; #X connect 8 0 18 0; #X connect 9 0 20 0; #X connect 12 0 3 0; #X connect 13 0 14 0; #X connect 13 1 15 0; #X connect 14 0 1 0; #X connect 15 0 16 0; #X connect 16 0 19 0; #X connect 16 1 17 0; #X connect 16 2 17 1; #X connect 16 3 19 2; #X connect 17 0 19 1; #X connect 18 0 13 0; #X connect 19 0 14 1; #X connect 20 0 8 1; --- NEW FILE: #contrast.pd --- #N canvas 0 0 450 300 10; #X obj 14 14 inlet; #X obj 14 34 # inv+ 255; #X obj 14 54 # *>>8; #X obj 14 74 # inv+ 255; #X obj 14 94 # *>>8; #X obj 14 114 # min 255; #X obj 14 134 # max 0; #X obj 14 154 outlet; #X obj 54 14 inlet; #X obj 94 14 inlet; #X connect 0 0 1 0; #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 6 0; #X connect 6 0 7 0; #X connect 8 0 2 1; #X connect 9 0 4 1; --- NEW FILE: #apply_colormap_channelwise.pd --- #N canvas 0 0 450 300 10; #X obj 17 17 inlet; #X obj 17 37 #outer & ( -1 0 ); #X obj 17 57 # + ( 3 2 # 0 0 0 1 0 2 ); #X obj 17 77 #store; #X obj 17 97 outlet; #X obj 67 17 inlet; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 5 0 3 1; --- NEW FILE: #greyscale_to_rgb.pd --- #N canvas 550 233 335 174 10; #X obj 10 10 inlet; #X obj 10 70 outlet; #X obj 10 30 #fold put; #X obj 10 50 #outer ignore ( 0 0 0 ); #X connect 0 0 2 0; #X connect 2 0 3 0; #X connect 3 0 1 0; --- NEW FILE: #checkers.pd --- #N canvas 0 0 450 300 10; #X obj 18 14 inlet; #X obj 18 34 # >> 3; #X obj 18 54 # & 1; #X obj 18 74 #fold ^; #X obj 18 94 # inv+; #X obj 18 114 # & 63; #X obj 18 134 # + 128; #X obj 18 154 #outer ignore ( 0 0 0 ); #X obj 18 174 outlet; #X connect 0 0 1 0; #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 6 0; #X connect 6 0 7 0; #X connect 7 0 8 0; --- NEW FILE: #camera.pd --- #N canvas 192 66 485 362 10; #X obj 132 83 hradio 18 1 0 4 \$0-channel \$0-channel _0__1__2__3_ 0 14 0 8 -241291 -258699 -1 1; #X obj 299 31 hsl 128 15 0 65535 0 0 \$0-brightness \$0-brightness brightness 8 8 0 8 -260818 -1 -1 10250 1; #X obj 299 71 hsl 128 15 0 65535 0 0 \$0-hue \$0-hue hue 8 8 0 8 -260818 -1 -1 6600 1; #X obj 299 11 hsl 128 15 0 65535 0 0 \$0-contrast \$0-contrast contrast 8 8 0 8 -260818 -1 -1 8800 1; #X obj 299 91 hsl 128 15 0 65635 0 0 \$0-whiteness \$0-whiteness whiteness 8 8 0 8 -260818 -1 -1 0 1; #N canvas 256 168 546 412 camera 0; #X obj 20 387 outlet; #X obj 11 9 inlet; #X msg 160 126 contrast \$1; #X msg 160 186 whiteness \$1; #X msg 160 106 brightness \$1; #X msg 160 227 channel \$1; #X obj 270 106 r \$0-brightness; #X obj 270 126 r \$0-contrast; #X obj 270 186 r \$0-whiteness; #X obj 153 276 r \$0-size; #X obj 270 226 r \$0-channel; #X obj 270 166 r \$0-hue; #X msg 160 166 hue \$1; #X msg 160 146 colour \$1; #X obj 270 146 r \$0-colour; #X obj 23 198 t a; #X msg 319 382 open videodev \$1 \, get; #X obj 318 363 rubysprintf /dev/video%d; #X msg 160 206 frequency \$1; #X obj 270 206 r \$0-frequency; #X obj 318 344 r \$0-device; #X obj 153 346 #export_list; #X msg 153 295 list \$1; #X msg 154 365 size \$1 \$2; #X obj 153 314 #store ( 4 2 # 120 160 240 320 480 640 120 180 240 360 480 720 ); #X obj 12 98 rubysprintf %d-%s; #X obj 11 117 pack s f; #X obj 12 77 t a a; #X msg 68 77 \$3; #X msg 11 136 \; \$1 \$2; #X obj 11 56 messageprepend \$0; #X msg 160 247 tuner \$1; #X obj 270 246 r \$0-tuner; #X connect 1 0 30 0; #X connect 2 0 15 0; #X connect 3 0 15 0; #X connect 4 0 15 0; #X connect 5 0 15 0; #X connect 6 0 4 0; #X connect 7 0 2 0; #X connect 8 0 3 0; #X connect 9 0 22 0; #X connect 10 0 5 0; #X connect 11 0 12 0; #X connect 12 0 15 0; #X connect 13 0 15 0; #X connect 14 0 13 0; #X connect 15 0 0 0; #X connect 16 0 0 0; #X connect 17 0 16 0; #X connect 18 0 15 0; #X connect 19 0 18 0; #X connect 20 0 17 0; #X connect 21 0 23 0; #X connect 22 0 24 0; #X connect 23 0 0 0; #X connect 24 0 21 0; #X connect 25 0 26 0; #X connect 26 0 29 0; #X connect 27 0 25 0; #X connect 27 1 28 0; #X connect 28 0 26 1; #X connect 30 0 27 0; #X connect 31 0 15 0; #X connect 32 0 31 0; #X restore 49 115 pd camera; #X msg 317 236 colorspace YUV420P; #X obj 66 177 #yuv_to_rgb; #X obj 299 51 hsl 128 15 0 65535 0 0 \$0-colour \$0-colour colour 8 8 0 8 -260818 -1 -1 12700 1; #X obj 133 21 vradio 15 1 0 3 \$0-size \$0-size empty 0 -6 0 8 -241291 -258699 -1 1; #X text 151 21 120 \, 160; #X text 151 37 240 \, 320; #X text 151 52 480 \, 640; #X text 131 6 select size; #X text 132 68 select channel; #X obj 240 12 nbx 5 14 0 65535 0 0 \$0-contrast \$0-contrast empty 0 -6 0 10 -260818 -1 -1 45410 256; #X obj 240 32 nbx 5 14 0 65535 0 0 \$0-brightness \$0-brightness empty 0 -6 0 10 -260818 -1 -1 52892 256; #X obj 240 52 nbx 5 14 0 65535 0 0 \$0-colour \$0-colour empty 0 -6 0 10 -260818 -1 -1 65535 256; #X obj 240 72 nbx 5 14 0 65535 0 0 \$0-hue \$0-hue empty 0 -6 0 10 -260818 -1 -1 34058 256; #X obj 240 92 nbx 5 14 0 65535 0 0 \$0-whiteness \$0-whiteness empty 0 -6 0 10 -260818 -1 -1 0 256; #X text 17 6 Select a camera; #X msg 317 156 transfer mmap; #X msg 317 196 transfer read; #X msg 317 216 colorspace RGB24; #X text 316 140 Special options:; #X obj 22 115 #in; #X obj 22 245 outlet image; #X obj 21 33 hradio 18 1 0 4 \$0-device \$0-device _0__1__2__3_ 0 -4 0 8 -241291 -258699 -1 0; #X obj 22 148 shunt 2; #X obj 141 206 vradio 15 1 0 2 empty empty empty 0 -6 0 8 -241291 -258699 -1 0; #X text 161 221 YUV->RGB; #X text 161 205 no conversion; #X obj 23 96 inlet; #X obj 66 198 # min 255; #X obj 66 217 # max 0; #X msg 317 176 transfer mmap 4; #X obj 132 117 hradio 18 1 0 4 \$0-tuner \$0-tuner _0__1__2__3_ 0 14 0 8 -241291 -258699 -1 0; #X text 132 102 select tuner; #X obj 299 121 hsl 128 15 0 65635 0 0 \$0-frequency \$0-frequency frequency 8 8 0 8 -62784 -44926 -44926 0 1; #X obj 240 122 nbx 5 14 0 65535 0 0 \$0-frequency \$0-frequency empty 0 -6 0 10 -62784 -44926 -44926 0 256; #X obj 21 271 \$0; #X obj 47 272 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 -1; #X obj 305 257 s \$0-o; #X msg 21 290 \; \$1-device 0 \; \$1-size 1 \; \$1-channel 1; #X obj 62 95 r \$0-o; #X connect 5 0 25 0; #X connect 6 0 42 0; #X connect 7 0 33 0; #X connect 21 0 42 0; #X connect 22 0 42 0; #X connect 23 0 42 0; #X connect 25 0 28 0; #X connect 25 1 5 0; #X connect 28 0 26 0; #X connect 28 1 7 0; #X connect 29 0 28 1; #X connect 32 0 25 0; #X connect 33 0 34 0; #X connect 34 0 26 0; #X connect 35 0 42 0; #X connect 40 0 43 0; #X connect 41 0 40 0; #X connect 44 0 25 0; --- NEW FILE: pingpong.pd --- #N canvas 0 0 450 270 10; #X text 50 11 counter; #X obj 67 40 inlet; #X obj 67 83 %; #X obj 67 103 -; #X obj 164 49 inlet; #X text 163 32 maxvalue; #X obj 83 62 * 2; #X obj 67 124 abs; #X obj 67 185 outlet; #X text 123 184 values from 0 to maxvalue; #X obj 67 145 -; #X obj 67 165 * -1; #X obj 164 70 float \$1; #X obj 206 49 loadbang; #X connect 1 0 2 0; #X connect 2 0 3 0; #X connect 3 0 7 0; #X connect 4 0 12 0; #X connect 6 0 2 1; #X connect 7 0 10 0; #X connect 10 0 11 0; #X connect 11 0 8 0; #X connect 12 0 6 0; #X connect 12 0 10 1; #X connect 12 0 3 1; #X connect 13 0 12 0; --- NEW FILE: #motion_detection.pd --- #N canvas 70 26 572 517 10; #X msg 152 39 1; #X msg 152 63 0; #X text 188 37 <-- take a snapshot; #X text 190 64 <-- compare incoming images; #X obj 61 153 t a a; #X obj 62 206 # -; #X obj 62 366 # min 255; #X obj 62 341 # max 0; #X obj 62 295 # abs-; #X obj 102 178 spigot; #X obj 86 109 inlet; #X obj 63 491 outlet; #X obj 301 445 #fold +; #X obj 317 467 #fold +; #X obj 331 490 #fold +; #X obj 337 516 #export; #X obj 371 542 route int; #X obj 385 564 / 10000; #X msg 289 257 1; #X msg 302 286 0; #X obj 252 401 spigot; #X text 325 255 <-- output values; #X obj 91 411 # -; #X obj 150 406 r noise; #X obj 64 453 # max 0; #X obj 310 348 r displaced; #X text 339 281 <-- save your cpu some work and turn it off; #X obj 486 592 s displaced_numb; #X obj 163 121 r snapshot; #X obj 134 242 r emboss; #X obj 134 295 # + 128; #X obj 62 230 # << 2; #X obj 62 267 shunt 2; #X connect 0 0 9 1; #X connect 1 0 9 1; #X connect 4 0 9 0; #X connect 4 1 5 0; #X connect 5 0 31 0; #X connect 6 0 20 0; #X connect 6 0 22 0; #X connect 7 0 6 0; #X connect 8 0 7 0; #X connect 9 0 5 1; #X connect 10 0 4 0; #X connect 12 0 13 0; #X connect 13 0 14 0; #X connect 14 0 15 0; #X connect 15 0 16 0; #X connect 16 0 17 0; #X connect 17 0 27 0; #X connect 18 0 20 1; #X connect 19 0 20 1; #X connect 20 0 12 0; #X connect 22 0 24 0; #X connect 23 0 22 1; #X connect 24 0 11 0; #X connect 25 0 20 1; #X connect 28 0 9 1; #X connect 29 0 32 1; #X connect 30 0 7 0; #X connect 31 0 32 0; #X connect 32 0 8 0; #X connect 32 1 30 0; --- NEW FILE: #color.pd --- #N canvas 648 305 209 58 10; #X floatatom 3 29 5 0 0 0 - - -; #X obj 75 28 hsl 128 15 0 255 0 0 empty empty empty -2 -6 0 8 -225271 -24198 -1 0 1; #X obj 75 43 hsl 128 15 0 255 0 0 empty empty empty -2 -6 0 8 -228992 -62784 -1 0 1; #X floatatom 3 44 5 0 0 0 - - -; #X obj 75 13 hsl 128 15 0 255 0 0 empty empty empty -2 -6 0 8 -261689 -258699 -1 0 1; #X floatatom 3 14 5 0 0 0 - - -; #X obj 3 76 #pack 3; #X obj 209 36 #export_list; #X obj 210 55 unpack 0 0 0; #X obj 208 17 inlet rgb_color; #X obj 56 75 outlet rgb_color; #X obj 43 12 int; #X obj 43 27 int; #X obj 43 42 int; #X obj 196 2 cnv 10 60 10 empty \$0-cnv empty 20 12 0 14 -262144 -262144 0; #X obj 125 192 s \$0-cnv; #X msg 125 172 color \$1; #X obj 4 154 #export; #X obj 3 133 # ^ -1; #X obj 3 114 #fold |; #X obj 3 95 # << ( 16 8 0 ); #X obj 194 75 loadbang; #X msg 194 151 range \$1 \$2; #X obj 194 132 #export_list; #X obj 194 94 listmake \$1 \$2; #X obj 194 113 # || ( 0 255 ); #X obj 59 134 loadbang; #X obj 88 154 - \$3; #X msg 59 154 1; #X obj 3 180 spigot; #X connect 0 0 6 1; #X connect 1 0 12 0; #X connect 2 0 13 0; #X connect 3 0 6 2; #X connect 4 0 11 0; #X connect 5 0 6 0; #X connect 6 0 10 0; #X connect 6 0 20 0; #X connect 7 0 8 0; #X connect 8 0 4 0; #X connect 8 1 1 0; #X connect 8 2 2 0; #X connect 9 0 7 0; #X connect 11 0 5 0; #X connect 12 0 0 0; #X connect 13 0 3 0; #X connect 16 0 15 0; #X connect 17 0 29 0; #X connect 18 0 17 0; #X connect 19 0 18 0; #X connect 20 0 19 0; #X connect 21 0 24 0; #X connect 22 0 2 0; #X connect 22 0 1 0; #X connect 22 0 4 0; #X connect 23 0 22 0; #X connect 24 0 25 0; #X connect 25 0 23 0; #X connect 26 0 28 0; #X connect 27 0 29 1; #X connect 28 0 27 0; #X connect 29 0 16 0; #X coords 0 0 1 1 120 56 1; --- NEW FILE: #fade.pd --- #N canvas 398 352 418 256 10; #X obj 21 65 inlet; #X obj 21 233 outlet; #X obj 21 85 # +; #X obj 78 199 # *; #X obj 190 108 float \$1; #X obj 190 88 loadbang; #X obj 156 64 inlet; #X text 20 7 new = (x-1)/x of old input + 1/x of new input; #X obj 173 180 # - 1; #X text 198 65 select fade rate; #X text 61 65 input; #X text 70 236 output; #X obj 21 106 # +; #X obj 127 169 # / 2; #X obj 156 86 t a; #X text 19 21 now rounds to closest; #X obj 21 127 # *>>8; #X obj 70 128 # inv* 256; #X obj 21 213 t a a; #X text 19 34 also faster (uses *>>8 instead of /); #X connect 0 0 2 0; #X connect 2 0 12 0; #X connect 3 0 2 1; #X connect 4 0 14 0; #X connect 5 0 4 0; #X connect 6 0 14 0; #X connect 8 0 3 1; #X connect 12 0 16 0; #X connect 13 0 12 1; #X connect 14 0 13 0; #X connect 14 0 8 0; #X connect 14 0 17 0; #X connect 16 0 18 0; #X connect 17 0 16 1; #X connect 18 0 1 0; #X connect 18 1 3 0; --- NEW FILE: #centre_of_gravity.pd --- #N canvas 311 42 543 559 10; #X obj 166 26 inlet; #X obj 51 106 #rgb_to_greyscale; #X obj 51 162 #fold +; #X obj 51 188 # >> 8; #N canvas 0 0 450 300 gravity 0; #X obj 77 20 inlet; #X obj 75 276 outlet; #X obj 77 54 t a a; #X obj 41 90 #finished; #X obj 125 79 #dim; #X obj 126 105 #fold +; #X obj 68 140 #for 0 0 1; #X obj 172 190 #fold +; #X obj 72 179 # *; #X obj 72 199 #fold +; #X obj 72 249 # /; #X connect 0 0 2 0; #X connect 2 0 3 0; #X connect 2 1 4 0; #X connect 2 1 7 0; #X connect 2 1 8 1; #X connect 3 0 6 0; #X connect 4 0 5 0; #X connect 5 0 6 1; #X connect 6 0 8 0; #X connect 7 0 10 1; #X connect 8 0 9 0; #X connect 9 0 10 0; #X connect 10 0 1 0; #X restore 36 221 pd gravity; #X obj 50 244 #export; #X obj 84 277 #two; #X obj 85 301 #export_list; #X obj 86 367 # ==; #X obj 51 132 #fold +; #X obj 85 344 #for ( 0 0 ) ( 288 352 ) ( 1 1 ); #X obj 264 253 #finished; #X obj 86 388 #fold |; #X obj 194 319 inlet; #X obj 98 441 #finished; #X obj 98 469 #store; #X obj 110 499 #outer * ( 255 -255 -255 ); #X obj 112 520 # +; #X obj 112 540 # min 255; #X obj 112 560 # max 0; #X obj 112 586 outlet; #X obj 122 162 #fold +; #X obj 122 189 # >> 8; #N canvas 0 0 450 300 gravity 0; #X obj 77 20 inlet; #X obj 75 276 outlet; #X obj 77 54 t a a; #X obj 41 90 #finished; #X obj 125 79 #dim; #X obj 126 105 #fold +; #X obj 68 140 #for 0 0 1; #X obj 172 190 #fold +; #X obj 72 179 # *; #X obj 72 199 #fold +; #X obj 72 249 # /; #X connect 0 0 2 0; #X connect 2 0 3 0; #X connect 2 1 4 0; #X connect 2 1 7 0; #X connect 2 1 8 1; #X connect 3 0 6 0; #X connect 4 0 5 0; #X connect 5 0 6 1; #X connect 6 0 8 0; #X connect 7 0 10 1; #X connect 8 0 9 0; #X connect 9 0 10 0; #X connect 10 0 1 0; #X restore 134 219 pd gravity; #X obj 141 242 #export; #X obj 9 352 print list; #X obj 91 414 fork; #X obj 166 51 fork; #X obj 9 332 outlet; #X obj 122 134 #transpose; #X connect 0 0 27 0; #X connect 1 0 9 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 7 0 8 1; #X connect 7 0 28 0; #X connect 8 0 12 0; #X connect 9 0 2 0; #X connect 9 0 29 0; #X connect 10 0 8 0; #X connect 11 0 10 0; #X connect 12 0 26 0; #X connect 13 0 10 1; #X connect 14 0 15 0; #X connect 15 0 16 0; #X connect 16 0 17 0; #X connect 17 0 18 0; #X connect 18 0 19 0; #X connect 19 0 20 0; #X connect 21 0 22 0; #X connect 22 0 23 0; #X connect 23 0 24 0; #X connect 24 0 6 1; #X connect 26 0 14 0; #X connect 26 1 15 1; #X connect 27 0 11 0; #X connect 27 0 1 0; #X connect 27 1 17 1; #X connect 29 0 21 0; --- NEW FILE: #solarize.pd --- #N canvas 0 0 450 300 10; #X obj 15 14 inlet; #X obj 15 34 # & 255; #X obj 15 54 # << 1; #X obj 15 74 # inv+ 255; #X obj 15 114 # inv+ 255; #X obj 15 134 outlet; #X obj 15 94 # abs-; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 2 0 3 0; #X connect 3 0 6 0; #X connect 4 0 5 0; #X connect 6 0 4 0;

1 0

externals/gridflow/pd_examples binary_operations.pd, NONE, 1.1 blob.pd, NONE, 1.1 cellular_1d.pd, NONE, 1.1 color_correction.pd, NONE, 1.1 color_detect.pd, NONE, 1.1 convolve.pd, NONE, 1.1 cross_fade.pd, NONE, 1.1 drag_rectangle.pd, NONE, 1.1 eclipse.pd, NONE, 1.1 epicycloid.pd, NONE, 1.1 feedback_fractal.pd, NONE, 1.1 fire.pd, NONE, 1.1 game_of_life.pd, NONE, 1.1 goop.pd, NONE, 1.1 hello-world.pd, NONE, 1.1 image_stats.pd, NONE, 1.1 linear_transform.pd, NONE, 1.1 motion_detect.pd, NONE, 1.1 nervou
by Mathieu Bouchard 04 Oct '05

04 Oct '05

Update of /cvsroot/pure-data/externals/gridflow/pd_examples In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21699/pd_examples Added Files: binary_operations.pd blob.pd cellular_1d.pd color_correction.pd color_detect.pd convolve.pd cross_fade.pd drag_rectangle.pd eclipse.pd epicycloid.pd feedback_fractal.pd fire.pd game_of_life.pd goop.pd hello-world.pd image_stats.pd linear_transform.pd motion_detect.pd nervous_video.pd photo_pianoroll.pd plot.pd polygon.pd ripple.pd sand.pd saturation.pd scratch_video.pd spectrogram.pd threshold.pd transform.pd videodev_effects.pd waves.pd Log Message: adding abstractions and helpfiles --- NEW FILE: linear_transform.pd --- #N canvas 454 137 685 580 10; #X text 455 -6 click here to go in manual mode; #X floatatom 138 224 5 0 0 0 - - -; #X obj 7 289 # >> 11; #X obj 7 62 #store; #X obj 194 204 hsl 128 15 -4096 4096 0 0 empty empty empty -2 -6 0 8 -260818 -1 -1 0 1; #X obj 545 123 * 3; #X obj 418 376 # sin*; #X obj 194 223 hsl 128 15 -4096 4096 0 0 empty empty empty -2 -6 0 8 -260818 -1 -1 0 1; #X floatatom 138 170 5 0 0 0 - - -; #X msg 448 137 10000; #X obj 7 -26 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1; #X obj 194 166 hsl 128 15 -4096 4096 0 0 empty empty empty -2 -6 0 8 -260818 -1 -1 0 1; #X obj 94 40 loadbang; #X obj 82 266 #redim ( 2 2 ); #X text 191 147 linear transform; #X obj 7 310 # + 128; #X floatatom 138 188 5 0 0 0 - - -; #X floatatom 138 206 5 0 0 0 - - -; #X obj 194 185 hsl 128 15 -4096 4096 0 0 empty empty empty -2 -6 0 8 -260818 -1 -1 0 1; #X obj 418 175 vsl 15 128 0 35999 0 0 empty empty empty 0 -8 0 8 -260818 -1 -1 12700 1; #X obj 453 174 vsl 15 128 -10000 10000 0 0 empty empty empty 0 -8 0 8 -260818 -1 -1 7400 1; #X obj 427 34 % 36000; #X obj 448 116 loadbang; #X text 360 146 rotozoomer; #X obj 545 143 # sin* 100; #X obj 384 -6 shunt 2; #X msg 132 342 open teapot.png \, bang; #X msg 545 215 set \$1; #X obj 132 321 loadbang; #X obj 7 363 #store; #X obj 7 384 #out window; #X obj 453 312 t b f; #X obj 439 -5 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 1 1 ; #X obj 81 247 #pack 4; #X obj 7 35 t b b; #X obj 384 33 float; #X obj 427 14 + 100; #X obj 545 164 # inv* 100000; #X obj 545 185 #export; #X obj 63 341 #camera; #X obj 132 363 #in; #X obj 63 321 spigot; #X obj 111 322 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1; #X obj 7 268 #inner; #X obj 81 144 loadbang; #X obj 23 412 fps detailed; #X obj 23 435 print; #X obj 7 8 metro 5; #X obj -18 -85 cnv 15 780 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 1 -72 Copyright 2002 Mathieu Bouchard; #X text 1 -85 convolve.pd; #X obj -18 -85 cnv 15 780 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 1 -85 linear_transform.pd; #X obj 94 61 #for (-128 -128) (128 128) (1 1); #X obj 418 355 #outer + (9000 18000 0 9000); #X text 1 -72 Copyright 2001 Mathieu Bouchard; #X obj -18 464 cnv 15 780 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text -10 471 GridFlow 0.8.0; #X text -10 471 GridFlow 0.8.0; #X connect 1 0 33 3; #X connect 2 0 15 0; #X connect 3 0 43 0; #X connect 4 0 17 0; #X connect 5 0 24 0; #X connect 6 0 13 0; #X connect 7 0 1 0; #X connect 8 0 33 0; #X connect 9 0 20 0; #X connect 10 0 47 0; #X connect 11 0 8 0; #X connect 12 0 53 0; #X connect 13 0 43 1; #X connect 15 0 29 0; #X connect 16 0 33 1; #X connect 17 0 33 2; #X connect 18 0 16 0; #X connect 19 0 54 0; #X connect 20 0 31 0; #X connect 21 0 35 1; #X connect 22 0 9 0; #X connect 24 0 37 0; #X connect 25 0 35 0; #X connect 26 0 40 0; #X connect 27 0 20 0; #X connect 28 0 26 0; #X connect 29 0 30 0; #X connect 30 0 45 0; #X connect 31 0 19 0; #X connect 31 1 6 1; #X connect 32 0 25 1; #X connect 33 0 13 0; #X connect 34 0 3 0; #X connect 34 1 25 0; #X connect 34 1 41 0; #X connect 35 0 36 0; #X connect 35 0 19 0; #X connect 35 0 5 0; #X connect 36 0 21 0; #X connect 37 0 38 0; #X connect 38 0 27 0; #X connect 38 0 31 0; #X connect 39 0 29 1; #X connect 40 0 29 1; #X connect 41 0 39 0; #X connect 42 0 41 1; #X connect 43 0 2 0; #X connect 44 0 33 0; #X connect 45 0 46 0; #X connect 47 0 34 0; #X connect 53 0 3 1; #X connect 54 0 6 0; --- NEW FILE: waves.pd --- #N canvas 366 97 753 590 10; #X obj 265 207 #greyscale_to_rgb; #X obj 251 350 # min 255; #X obj 271 5 loadbang; #X obj 211 25 fork; #X obj 251 389 #out x11; #X obj 313 409 print; #N canvas 23 304 369 368 mouse 0; #X text 109 189 coordinates; #X obj 56 189 outlet; #X obj 57 164 listsublist 0 2; #X obj 8 141 shunt 2; #X text 56 9 #out's outlet 0; #X obj 100 142 outlet; #X obj 41 94 >> 8; #X obj 41 115 != 0; #X obj 16 31 route position; #X text 154 143 is there a click?; #X obj 19 8 inlet; #X obj 16 55 fork; #X obj 41 73 listelement 2; #X connect 2 0 1 0; #X connect 3 1 2 0; #X connect 6 0 7 0; #X connect 7 0 5 0; #X connect 7 0 3 1; #X connect 8 0 11 0; #X connect 10 0 8 0; #X connect 11 0 3 0; #X connect 11 1 12 0; #X connect 12 0 6 0; #X restore 251 428 pd mouse click/drag; #X obj 12 39 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 1 1 ; #N canvas 637 335 419 287 lighting 0; #X obj 56 243 outlet; #X obj 17 9 inlet; #X obj 86 138 #outer & ( -1 0 0 ); #X text 91 100 produce red/cyan from horiz differences; #X text 64 160 produce white/black from vertical differences; #X obj 56 199 #outer & ( -1 -1 0 ); #X obj 56 222 # +; #X obj 108 10 #dim; #X obj 140 10 #export_list; #X obj 56 29 #redim ( ); #X obj 56 9 t a a; #X obj 56 49 t a a; #X msg 141 30 \$1 \$2; #X obj 86 117 #convolve ( 1 2 # ) \, op ignore \, fold inv+; #X obj 56 177 #convolve ( 2 1 # ) \, op ignore \, fold inv+; #X connect 1 0 10 0; #X connect 2 0 6 1; #X connect 5 0 6 0; #X connect 6 0 0 0; #X connect 7 0 8 0; #X connect 8 0 12 0; #X connect 9 0 11 0; #X connect 10 0 9 0; #X connect 10 1 7 0; #X connect 11 0 14 0; #X connect 11 1 13 0; #X connect 12 0 9 1; #X connect 13 0 2 0; #X connect 14 0 5 0; #X restore 216 242 pd lighting; #X obj 251 447 # / 2; #X msg 138 46 \$1 \$2 1 # 0; #N canvas 137 251 392 303 finger 0; #X obj 149 39 #redim ( 4 2 ); #X obj 71 16 inlet; #X obj 149 20 inlet; #X obj 71 217 outlet; #X obj 149 158 # +; #X obj 177 157 # *; #X msg 177 137 0 0 0 1 1 1 1 0; #X obj 193 79 inlet size; #X text 291 137 square or rect; #X obj 177 112 #finished; #X obj 70 195 #draw_polygon put ( 1000 ); #X connect 0 0 4 0; #X connect 1 0 10 0; #X connect 2 0 0 0; #X connect 4 0 10 2; #X connect 5 0 4 1; #X connect 6 0 5 0; #X connect 7 0 9 0; #X connect 7 0 5 1; #X connect 9 0 6 0; #X connect 10 0 3 0; #X restore 292 519 pd finger; #X obj 245 25 s size; #X obj 251 370 #scale_by 2; #X obj 80 142 #store; #X obj 312 389 fps detailed; #N canvas 53 323 453 223 wave 0; #X obj 26 20 inlet; #X obj 28 182 outlet; #X text 70 137 time differential; #X text 81 50 space differential: (d/dx)^2 + (d/dy)^2; #X text 71 8 Recurrence equation for propagation of oscillations; #X obj 28 137 # -; #X obj 54 102 # >> 4; #X obj 28 158 # *>>8 242; #X text 105 159 amortizing by ~5.5%; #X obj 24 46 t a a; #X obj 54 81 #convolve ( 3 3 # 1 4 1 4 0 4 ) \, seed 8; #X connect 0 0 9 0; #X connect 5 0 7 0; #X connect 6 0 5 0; #X connect 7 0 1 0; #X connect 9 0 5 1; #X connect 9 1 10 0; #X connect 10 0 6 0; #X restore 80 203 pd wave equation; #X obj 249 515 t a; #X obj 117 122 t a; #X obj 251 330 # max 0; #X obj 265 188 # >> 1; #X obj 31 63 s metro; #X msg 211 5 240 320; #X text 441 19 Copyright (c) 2003 \, 2004 by Mathieu Bouchard; #X text 481 72 (Best complemented with a touchscreen); #X text 441 2 waves.pd; #X obj 376 141 vradio 15 1 0 3 empty empty empty 0 -6 0 8 -262144 -258699 -1 2; #X text 395 155 height greys; #X obj 298 103 vradio 15 1 0 2 empty empty empty 0 -6 0 8 -262144 -258699 -1 0; #X text 317 102 plain; #X text 318 118 line-art; #X text 315 46 smooth; #X obj 296 46 vradio 15 1 0 2 empty empty empty 0 -6 0 8 -262144 -258699 -1 0; #X text 316 60 raw; #X obj 443 379 hradio 18 1 1 4 empty empty _1__2__3__4_ 0 -4 0 8 -262144 -258699 -1 1; #X text 441 354 scale by...; #X obj 443 400 + 1; #X obj 664 129 loadbang; #X obj 557 331 #in; #X obj 584 305 #camera_control; #X obj 558 284 spigot; #X obj 605 285 tgl 15 0 empty empty empty 18 8 0 8 -241291 -1 -62784 1 1; #X obj 558 264 r metro; #N canvas 242 284 365 231 line-art 0; #X obj 32 123 # << 8; #X obj 32 37 inlet; #X obj 32 145 outlet; #X text 146 31 double-thresholding; #X text 146 114 else becomes 0; #X obj 32 82 # min 1; #X obj 32 103 # max -1; #X obj 32 60 # / 3; #X text 146 85 < -3 becomes -256; #X text 146 100 > +3 becomes +256; #X connect 0 0 2 0; #X connect 1 0 7 0; #X connect 5 0 6 0; #X connect 6 0 0 0; #X connect 7 0 5 0; #X restore 283 142 pd line-art; #X text 560 214 Background colour; #X text 625 285 enable video; #X msg 584 325 open r001.jpg \, bang; #X text 394 141 four-colour emboss; #X obj 142 402 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 1 1; #X obj 88 377 r metro; #X obj 88 441 @! rand; #X msg 87 421 240 320; #X text 160 399 rain; #X text 558 3 bundled with GridFlow 0.7.7; #X obj 240 100 # >> 2; #X text 378 36 Originally made for Alexandre Castonguay's "DIGITALE" ; #X text 495 53 But suitable for a lot more uses :-); #X msg 599 129 3 # 128; #X obj 557 154 #color; #X obj 239 121 shunt 2; #X obj 239 59 shunt 2; #X obj 403 486 nbx 5 14 -1e+37 1e+37 0 1 empty empty empty 0 -6 0 10 -262131 -1 -1 2 256; #X obj 403 503 nbx 5 14 -1e+37 1e+37 0 1 empty empty empty 0 -6 0 10 -262131 -1 -1 2 256; #X obj 359 519 #pack 2; #X obj 216 291 # +; #X obj 332 302 #store; #X obj 421 236 shunt 2; #X obj 477 232 vradio 15 1 0 2 empty empty empty 0 -6 0 8 -262144 -258699 -1 0; #X text 495 230 plain; #X text 495 248 refraction; #X obj 216 263 t a; #N canvas 203 363 443 300 heightmap2indexmap 0; #X obj 48 279 outlet; #X obj 9 8 inlet; #X obj 48 159 # +; #X obj 100 9 #dim; #X obj 132 9 #export_list; #X obj 48 28 #redim ( ); #X obj 48 8 t a a; #X obj 48 48 t a a; #X msg 133 29 \$1 \$2; #X obj 78 92 #outer & ( -1 0 ); #X obj 48 137 #outer & ( 0 -1 ); #X obj 48 251 # +; #X obj 73 251 #for ( 0 0 ) ( 240 320 ) ( 1 1 ); #X obj 116 229 loadbang; #X obj 84 229 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 48 182 # >> 1; #X obj 48 115 #convolve ( 2 1 # ) \, op ignore \, fold inv+; #X obj 78 71 #convolve ( 1 2 # ) \, op ignore \, fold inv+; #X connect 1 0 6 0; #X connect 2 0 15 0; #X connect 3 0 4 0; #X connect 4 0 8 0; #X connect 5 0 7 0; #X connect 6 0 5 0; #X connect 6 1 3 0; #X connect 7 0 16 0; #X connect 7 1 17 0; #X connect 8 0 5 1; #X connect 9 0 2 1; #X connect 10 0 2 0; #X connect 11 0 0 0; #X connect 12 0 11 1; #X connect 13 0 12 0; #X connect 14 0 12 0; #X connect 15 0 11 0; #X connect 16 0 10 0; #X connect 17 0 9 0; #X restore 332 281 pd heightmap2indexmap; #X obj 11 63 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 -1 -1; #X obj 332 228 spigot; #X text 397 170 no reflection; #X obj 239 167 shunt 3; #X obj 239 145 t a; #X obj 313 188 # put 0; #X obj 255 491 shunt 2; #X obj 325 493 shunt 2; #X obj 87 401 shunt 2; #X obj 31 39 metro 33.3667; #X obj 80 171 shunt 2; #X text 154 173 freeze time; #X obj 137 173 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1; #X obj 131 100 r feedback; #X obj 229 543 s feedback; #X obj 124 264 t a; #X obj 239 80 #convolve ( 2 2 # ) \, op ignore; #X obj 571 403 #yuv_to_rgb; #X text 500 501 pas de reflection \, + yuv; #X connect 0 0 70 0; #X connect 1 0 13 0; #X connect 2 0 22 0; #X connect 3 0 10 0; #X connect 3 1 12 0; #X connect 4 0 15 0; #X connect 4 0 6 0; #X connect 6 0 9 0; #X connect 6 1 79 0; #X connect 7 0 81 0; #X connect 8 0 70 0; #X connect 9 0 11 1; #X connect 10 0 18 0; #X connect 11 0 17 0; #X connect 13 0 4 0; #X connect 14 0 82 0; #X connect 15 0 5 0; #X connect 16 0 87 0; #X connect 17 0 86 0; #X connect 18 0 14 1; #X connect 18 0 60 0; #X connect 19 0 1 0; #X connect 20 0 0 0; #X connect 22 0 3 0; #X connect 26 0 75 1; #X connect 28 0 59 1; #X connect 32 0 60 1; #X connect 34 0 36 0; #X connect 36 0 9 1; #X connect 36 0 13 1; #X connect 37 0 57 0; #X connect 38 0 89 0; #X connect 39 0 38 0; #X connect 40 0 38 0; #X connect 41 0 40 1; #X connect 42 0 40 0; #X connect 43 0 76 0; #X connect 46 0 38 0; #X connect 48 0 78 1; #X connect 48 0 79 1; #X connect 48 0 80 1; #X connect 49 0 80 0; #X connect 50 0 11 1; #X connect 51 0 50 0; #X connect 54 0 59 0; #X connect 57 0 58 0; #X connect 58 0 66 0; #X connect 59 0 76 0; #X connect 59 1 43 0; #X connect 60 0 88 0; #X connect 60 1 59 0; #X connect 61 0 63 0; #X connect 62 0 63 1; #X connect 63 0 11 2; #X connect 64 0 19 0; #X connect 65 0 64 1; #X connect 66 0 64 1; #X connect 66 1 65 1; #X connect 67 0 66 1; #X connect 67 0 73 1; #X connect 70 0 64 0; #X connect 71 0 65 0; #X connect 72 0 21 0; #X connect 72 0 14 0; #X connect 73 0 71 0; #X connect 75 0 8 0; #X connect 75 1 20 0; #X connect 75 2 77 0; #X connect 76 0 75 0; #X connect 76 0 73 0; #X connect 77 0 0 0; #X connect 78 0 17 0; #X connect 78 1 11 0; #X connect 79 0 78 1; #X connect 80 1 51 0; #X connect 81 0 14 0; #X connect 81 0 21 0; #X connect 82 0 16 0; #X connect 82 1 87 0; #X connect 84 0 82 1; #X connect 85 0 18 0; #X connect 87 0 78 0; #X connect 88 0 54 0; #X connect 89 0 77 1; --- NEW FILE: photo_pianoroll.pd --- #N canvas 476 141 695 640 10; #X obj 146 24 #in lada.jpg; #X obj 58 479 #out window; #X obj 28 -9 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1; #X obj 58 93 #store; #X obj 164 3 loadbang; #X text 268 -34 How to play a car; #X obj 146 4 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 406 488 dac~; #X obj 333 54 +; #X msg 333 33 1; #X obj 361 54 % 365; #N canvas 0 0 450 300 fft 0; #X obj 23 68 rifft~; #X obj 23 88 outlet~; #X obj 359 16 block~ 1024; #X obj 23 48 tabreceive~ array2; #X connect 0 0 1 0; #X connect 3 0 0 0; #X restore 405 448 pd fft; #X obj 7 41 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1 ; #X obj 28 40 t b b; #X msg 284 418 4 2 # 0 0 0 502 1 502 1 0; #X obj 284 437 # +; #X obj 58 418 t a b; #X msg 311 437 \$1 0; #X obj 58 439 #greyscale_to_rgb; #X obj 477 135 #store; #X obj 476 214 #export_list; #X obj 517 234 s array1; #X obj 477 174 #cast float32; #X obj 186 126 # inv+ 255; #X obj 146 64 # min 255; #X obj 146 45 # * 3; #X msg 477 113 1 1 # \$1; #X obj 444 14 table array1 502; #X obj 477 234 t b a; #X obj 350 437 r row; #X obj 361 76 s row; #X obj 478 285 t f f; #X obj 480 392 tabwrite array2; #X obj 479 326 exp; #X obj 137 221 #mouse \, ...; #X obj 272 242 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X obj 224 243 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X obj 165 374 #draw_polygon put; #X msg 272 259 1 # 255; #X msg 223 261 1 # 0; #X obj 169 350 spigot; #X obj 280 292 t a a; #X obj 294 374 # +; #X obj 146 139 t a; #X msg 280 314 4 2 # 0 0 0 1 1 1 1 0; #X obj 280 336 # *; #X obj 357 333 nbx 5 14 -1e+37 1e+37 0 1 empty empty empty 0 -6 0 10 -262131 -1 -1 20 256; #X msg 185 182 365 502 1 # 255; #X text 296 182 clear; #X obj 480 373 tabread4 array1; #X obj 477 265 for 0 64 1; #X obj 477 154 #fade 5; #X obj 444 35 table array2 1024; #X obj 406 468 lop~ 1000; #X obj 479 305 / 20; #X obj 480 346 * 22; #X obj 28 19 metro 46.44; #X obj 357 350 nbx 5 14 -1e+37 1e+37 0 1 empty empty empty 0 -6 0 10 -262131 -1 -1 1 256; #X obj 325 373 #pack 2; #X obj 475 194 # / ( float32 # 4000 ); #X obj 186 155 #convolve ( 1 7 # 1 1 2 8 2 1 1 ); #X obj 514 90 # >> 4; #X obj 146 84 #convolve ( 2 2 # 1 ); #X obj 146 103 # >> 2; #X obj 58 459 #draw_polygon put (3 # 255 0 0); #X obj -18 524 cnv 15 700 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text -10 531 GridFlow 0.8.0; #X text -10 531 GridFlow 0.8.0; #X obj -18 -85 cnv 15 700 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X text -3 -86 photo_pianoroll.pd; #X text -5 -72 Copyright 2004 Mathieu Bouchard; #X connect 0 0 25 0; #X connect 1 0 34 0; #X connect 2 0 56 0; #X connect 3 0 16 0; #X connect 3 0 40 0; #X connect 4 0 0 0; #X connect 6 0 0 0; #X connect 8 0 10 0; #X connect 9 0 8 0; #X connect 10 0 8 1; #X connect 10 0 30 0; #X connect 10 0 26 0; #X connect 11 0 53 0; #X connect 12 0 13 0; #X connect 13 0 9 0; #X connect 13 1 3 0; #X connect 14 0 15 0; #X connect 15 0 64 2; #X connect 16 0 18 0; #X connect 16 1 14 0; #X connect 17 0 15 1; #X connect 18 0 64 0; #X connect 19 0 51 0; #X connect 20 0 28 0; #X connect 22 0 59 0; #X connect 23 0 60 0; #X connect 24 0 62 0; #X connect 25 0 24 0; #X connect 26 0 19 0; #X connect 28 0 50 0; #X connect 28 1 21 0; #X connect 29 0 17 0; #X connect 31 0 54 0; #X connect 31 1 32 1; #X connect 33 0 55 0; #X connect 34 0 41 0; #X connect 34 1 41 0; #X connect 34 4 36 0; #X connect 34 4 40 1; #X connect 34 6 35 0; #X connect 34 6 40 1; #X connect 35 0 38 0; #X connect 36 0 39 0; #X connect 37 0 43 0; #X connect 38 0 37 1; #X connect 39 0 37 1; #X connect 40 0 37 0; #X connect 41 0 44 0; #X connect 41 1 42 1; #X connect 42 0 37 2; #X connect 43 0 3 1; #X connect 43 0 23 0; #X connect 44 0 45 0; #X connect 45 0 42 0; #X connect 46 0 58 0; #X connect 47 0 43 0; #X connect 49 0 32 0; #X connect 50 0 31 0; #X connect 51 0 22 0; #X connect 53 0 7 0; #X connect 53 0 7 1; #X connect 54 0 33 0; #X connect 55 0 49 0; #X connect 56 0 13 0; #X connect 57 0 58 1; #X connect 58 0 45 1; #X connect 59 0 20 0; #X connect 60 0 61 0; #X connect 61 0 19 1; #X connect 62 0 63 0; #X connect 63 0 43 0; #X connect 64 0 1 0; --- NEW FILE: convolve.pd --- #N canvas 17 90 652 511 10; #X msg 382 117 3 3 # 0 4 0 4 9 -4 0 -4 0; #X obj 20 29 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X msg 386 63 3 3 # 4 0 0 0 1 0 0 0 4; #X obj 20 130 #store; #X obj 116 218 # / 9; #X msg 381 37 3 3 # 1 1 1 1 1 1 1 1 1; #X obj 76 131 #out window; #X msg 399 180 1 3 # 0 9 -9; #X obj 58 85 #in; #X msg 387 90 3 3 # 2 2 2 2 -7 2 2 2 2; #X obj 20 -24 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1 ; #X obj 116 286 @! abs; #X obj 116 352 # max 0; #X text 331 -15 step 1: select one of those six grids; #X obj 116 331 # min 255; #X obj 58 45 loadbang; #X obj 20 2 metro 33.3667; #X obj 58 107 t a; #X obj 116 197 #convolve \, seed 4; #X obj 332 5 loadbang; #X text -7 149 feedback loop; #X obj 116 244 shunt 2; #X obj 171 246 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1; #X msg 253 227 0; #X obj 163 307 # + 128; #X msg 253 251 1; #X obj 331 307 display; #X obj 48 233 fps; #X obj 40 277 print; #X obj -15 391 cnv 15 780 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text -7 398 GridFlow 0.8.0; #X text -7 398 GridFlow 0.8.0; #X obj -13 -85 cnv 15 780 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 0 -72 Copyright 2002 Mathieu Bouchard; #X text 0 -85 convolve.pd; #X msg 399 159 1 3 # 0 2 -2; #X msg 399 212 3 3 # 0 -1 0 -1 4 -1 0 -1 0; #X msg 397 235 3 3 # -1 -1 -1 -1 8 -1 -1 -1 -1; #X text 506 192 Laplacian masks; #X msg 396 280 3 3 # 0 -1 0 -1 13 -1 0 -1 0; #X text 542 261 Sharpen; #X text 507 17 Blurs; #X obj 163 265 # << 4; #X text 416 140 Edge detection; #X msg 58 65 open babbage.jpg \, bang; #X connect 0 0 23 0; #X connect 0 0 18 1; #X connect 0 0 26 0; #X connect 1 0 3 0; #X connect 2 0 23 0; #X connect 2 0 18 1; #X connect 3 0 18 0; #X connect 4 0 21 0; #X connect 5 0 23 0; #X connect 5 0 18 1; #X connect 6 0 27 0; #X connect 7 0 18 1; #X connect 7 0 25 0; #X connect 8 0 17 0; #X connect 9 0 23 0; #X connect 9 0 18 1; #X connect 10 0 16 0; #X connect 11 0 14 0; #X connect 12 0 17 0; #X connect 14 0 12 0; #X connect 15 0 44 0; #X connect 16 0 1 0; #X connect 17 0 3 1; #X connect 17 0 6 0; #X connect 18 0 4 0; #X connect 19 0 5 0; #X connect 21 0 11 0; #X connect 21 1 42 0; #X connect 22 0 21 1; #X connect 23 0 22 0; #X connect 24 0 14 0; #X connect 25 0 22 0; #X connect 27 0 28 0; #X connect 35 0 23 0; #X connect 35 0 18 1; #X connect 36 0 18 1; #X connect 36 0 25 0; #X connect 37 0 25 0; #X connect 37 0 18 1; #X connect 39 0 23 0; #X connect 39 0 18 1; #X connect 42 0 24 0; #X connect 44 0 8 0; --- NEW FILE: polygon.pd --- #N canvas 242 170 497 560 10; #X obj 30 250 #draw_polygon +; #X obj 127 3 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 -1 ; #X obj 187 80 +; #X obj 30 214 #store; #X obj 220 102 * 5000; #X obj 165 -27 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1 ; #X msg 187 61 1; #X obj 30 394 #out window; #X obj 391 7 vsl 15 137 0 36000 0 1 empty empty empty -2 -6 0 8 -260818 -1 -1 3400 1; #N canvas 0 0 415 291 create 0; #X msg 82 66 0 \$1; #X obj 5 131 #outer + ( 0 9000 ); #X obj 5 153 # +; #X obj 5 197 # + ( 120 160 ); #X obj 5 175 # cos* 116; #X obj 5 109 # * 14400; #X obj 5 87 #for 0 5 1; #X obj 34 153 inlet rotation_angle; #X obj 5 10 inlet bang; #X obj 5 219 outlet polygon; #X obj 82 44 inlet tilt_factor; #X text 81 27 default: 9000 \, for flatness; #X connect 0 0 1 1; #X connect 1 0 2 0; #X connect 2 0 4 0; #X connect 3 0 9 0; #X connect 4 0 3 0; #X connect 5 0 1 0; #X connect 6 0 5 0; #X connect 7 0 2 1; #X connect 8 0 6 0; #X connect 10 0 0 0; #X restore 289 149 pd create star; #N canvas 0 0 450 300 color 0; #X obj 18 141 outlet 0; #X obj 18 95 # sin* 128; #X obj 18 117 # + 128; #X obj 18 37 # * 1146; #X obj 18 13 inlet; #X obj 18 60 #outer + ( 0 12000 24000 ); #X text 139 52 each channel is a sine wave \; the three are offset from each other 120 degrees. it is almost like turning around in the color wheel except we don't support the HSV color model for now.; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 3 0 5 0; #X connect 4 0 3 0; #X connect 5 0 1 0; #X restore 80 129 pd color generator; #X obj 165 1 metro 33.3667; #X obj 165 34 t b b b; #X obj 30 71 t b; #X floatatom 392 151 6 0 0 0 - - -; #X obj 89 194 loadbang; #X obj 215 81 % 36000; #X obj 46 272 shunt 2; #X obj 115 274 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1; #X text 133 273 blur; #X msg 89 214 240 320 3 b # 0; #X obj 80 167 #cast b; #X obj 80 148 # >> 7; #X obj 74 357 #solarize; #X obj 30 317 shunt 2; #X obj 93 318 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1 ; #X obj 131 301 # >> (b # 2); #X obj 131 321 #convolve (1 3 b # 1 2 1) \, seed (b # 0); #X obj -15 442 cnv 15 580 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text -7 450 GridFlow 0.8.0; #X text -7 450 GridFlow 0.8.0; #X obj -13 -85 cnv 15 580 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 0 -72 Copyright 2002 Mathieu Bouchard; #X text 0 -86 polygon.pd; #X connect 0 0 17 0; #X connect 0 0 24 0; #X connect 1 0 12 0; #X connect 2 0 16 0; #X connect 3 0 0 0; #X connect 4 0 9 1; #X connect 5 0 11 0; #X connect 6 0 2 0; #X connect 8 0 14 0; #X connect 9 0 0 2; #X connect 10 0 22 0; #X connect 11 0 12 0; #X connect 12 0 13 0; #X connect 12 1 6 0; #X connect 12 2 9 0; #X connect 13 0 3 0; #X connect 14 0 9 2; #X connect 15 0 20 0; #X connect 16 0 2 1; #X connect 16 0 10 0; #X connect 16 0 4 0; #X connect 17 0 3 1; #X connect 17 1 26 0; #X connect 18 0 17 1; #X connect 20 0 3 1; #X connect 21 0 0 1; #X connect 22 0 21 0; #X connect 23 0 7 0; #X connect 24 0 7 0; #X connect 24 1 23 0; #X connect 25 0 24 1; #X connect 26 0 27 0; #X connect 27 0 3 1; --- NEW FILE: eclipse.pd --- #N canvas 623 182 635 533 10; #X floatatom 292 323 5 0 0 0 - - -; #X msg 244 303 24; #X obj 61 -35 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1 ; #X obj 244 281 loadbang; #X msg 292 303 32; #X floatatom 244 323 5 0 0 0 - - -; #X obj 38 17 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 61 -6 metro 33.3667; #X text 239 258 size of subimages; #X obj 61 111 t a a a; #X obj 61 166 t a a; #X text 224 54 gain on colour blue; #X obj 61 17 #camera; #X obj 61 73 #scale_by 2; #X obj 141 97 #dim; #X obj 141 117 #inner (3 2 # 1 0 0 1 0 0); #X obj 61 147 #finished; #X obj 61 211 # /; #X obj 61 234 # *; #X obj 58 265 #store; #X obj 70 311 # *; #X obj 70 334 # >> 7; #X obj 70 356 # min 255; #X obj 70 378 #out window; #X obj 244 343 #pack 2; #X obj 141 242 # /; #X obj 107 265 #store; #X obj 107 242 # *; #X obj 61 186 #for (0 0) (240 320) (1 1); #X obj 107 208 #for (0 0) (240 320) (1 1); #X obj 61 54 # *>>8 (256 256 384); #X obj 1 418 cnv 15 640 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text 9 425 GridFlow 0.8.0; #X text 9 425 GridFlow 0.8.0; #X obj 3 -85 cnv 15 640 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 16 -72 Copyright 2002 Mathieu Bouchard; #X text 121 17 <-- open this; #X text 16 -85 eclipse.pd; #X connect 0 0 24 1; #X connect 1 0 5 0; #X connect 2 0 7 0; #X connect 3 0 4 0; #X connect 3 0 1 0; #X connect 4 0 0 0; #X connect 5 0 24 0; #X connect 6 0 12 0; #X connect 7 0 12 0; #X connect 9 0 16 0; #X connect 9 1 14 0; #X connect 9 1 19 1; #X connect 9 1 26 1; #X connect 10 0 28 0; #X connect 10 1 29 0; #X connect 12 0 30 0; #X connect 13 0 9 0; #X connect 14 0 15 0; #X connect 15 0 25 0; #X connect 15 0 28 1; #X connect 15 0 29 1; #X connect 16 0 10 0; #X connect 17 0 18 0; #X connect 18 0 19 0; #X connect 19 0 20 0; #X connect 20 0 21 0; #X connect 21 0 22 0; #X connect 22 0 23 0; #X connect 24 0 17 1; #X connect 24 0 18 1; #X connect 24 0 25 1; #X connect 25 0 27 1; #X connect 26 0 20 1; #X connect 27 0 26 0; #X connect 28 0 17 0; #X connect 29 0 27 0; #X connect 30 0 13 0; --- NEW FILE: drag_rectangle.pd --- #N canvas 702 123 647 484 10; #X obj 231 -7 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1 ; #X obj 231 117 #out window; #X obj 21 144 hsl 128 15 0 319 0 0 h_end_o h_end_i empty -2 -8 1 10 -262144 -1 -1 12700 1; #X obj 21 -4 hsl 128 15 0 319 0 0 h_start_o h_start_i empty 0 8 1 10 -262144 -66577 -258699 0 0; #X obj 3 13 vsl 15 128 239 0 0 0 v_start_o v_start_i empty 0 -8 1 10 -262144 -1 -1 12647 1; #X obj 151 13 vsl 15 128 239 0 0 0 v_end_o v_end_i empty 0 -8 1 10 -262144 -1 -1 425 1; #N canvas 504 374 452 302 make_rectangle 0; #X obj 27 16 inlet; #X text 25 -3 image; #X obj 93 17 inlet; #X text 92 0 start pos; #X obj 172 18 inlet; #X text 172 1 end pos; #X obj 27 244 outlet; #X text 27 264 image; #X obj 93 37 unpack 0 0; #X obj 173 37 unpack 0 0; #X obj 126 61 #pack 4; #X obj 125 81 #export_list; #X msg 95 135 4 2 # \$1 \$2 \$1 \$4 \$3 \$4 \$3 \$2; #X obj 27 177 #draw_polygon >> ( 1 1 1 ); #X connect 0 0 13 0; #X connect 2 0 8 0; #X connect 4 0 9 0; #X connect 8 0 10 0; #X connect 8 1 10 1; #X connect 9 0 10 2; #X connect 9 1 10 3; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 12 0 13 2; #X connect 13 0 6 0; #X restore 231 97 pd make_rectangle; #X obj 231 43 metro 33.3667; #X text -22 -5 start; #X text 155 144 end; #X obj 328 23 loadbang; #X obj 231 72 #store; #X obj 393 25 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 315 117 #mouse \, ...; #X obj 260 266 listelement 0; #X obj 367 190 listelement 1; #X obj 260 225 listelement 0; #X obj 368 149 listelement 1; #X obj 368 170 s h_start_i; #X obj 367 211 s h_end_i; #X obj 260 287 s v_end_i; #X obj 260 246 s v_start_i; #X obj 378 65 loadbang; #X msg 378 85 0 0; #X obj 328 161 t a; #X obj 64 330 #out window; #X obj 47 267 #for ( 0 0 ) ( 0 0 ) ( 1 1 ); #X obj 112 221 t b a; #X obj 64 294 #store; #X msg 48 243 set ( \$1 \$2 ); #X obj 327 43 #in b001.jpg; #X text 30 35 drag the mouse; #X text 56 20 step 2:; #X text 39 51 inside the; #X text 37 66 first window; #X text 218 -25 step 1: turn on; #X text 69 312 cropping (to 2nd window); #X obj -41 373 cnv 15 640 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text -33 380 GridFlow 0.8.0; #X text -33 380 GridFlow 0.8.0; #X obj -40 -77 cnv 15 640 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X text -27 -64 Copyright 2002 Mathieu Bouchard; #X text -27 -77 drag_rectangle.pd; #X connect 0 0 7 0; #X connect 1 0 13 0; #X connect 6 0 1 0; #X connect 7 0 11 0; #X connect 10 0 30 0; #X connect 11 0 6 0; #X connect 12 0 30 0; #X connect 13 0 6 1; #X connect 13 0 16 0; #X connect 13 0 17 0; #X connect 13 0 29 0; #X connect 13 0 24 0; #X connect 13 1 24 0; #X connect 13 2 24 0; #X connect 13 2 27 0; #X connect 14 0 20 0; #X connect 15 0 19 0; #X connect 16 0 21 0; #X connect 17 0 18 0; #X connect 22 0 23 0; #X connect 23 0 6 1; #X connect 23 0 6 2; #X connect 24 0 14 0; #X connect 24 0 15 0; #X connect 24 0 6 2; #X connect 26 0 28 0; #X connect 27 0 26 0; #X connect 27 1 26 1; #X connect 28 0 25 0; #X connect 29 0 26 0; #X connect 30 0 11 1; #X connect 30 0 28 1; --- NEW FILE: feedback_fractal.pd --- #N canvas 609 30 779 549 10; #N canvas 0 0 450 300 experimental 0; #X obj 32 212 outlet 0; #X obj 39 81 @for ( 0 0 ) ( 256 256 ) ( 1 1 ); #X obj 39 55 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 207 64 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 206 87 @for ( 0 0 ) ( 256 256 ) ( 1 1 ); #X obj 206 109 @ >> ( 4 6 ); #X obj 39 104 @ << ( 4 2 ); #X obj 198 140 @inner & ^ 1 ( 2 2 # 85 170 170 85 ); #X obj 39 126 @ +; #X obj 39 33 inlet; #X connect 1 0 6 0; #X connect 2 0 1 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 8 1; #X connect 6 0 8 0; #X connect 8 0 0 0; #X connect 9 0 2 0; #X restore 462 229 pd experimental features; #X text 527 134 Choose Julia Mapping or Rotation; #X obj 31 -34 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1 ; #X obj 414 67 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X text 190 59 apply transform (with feedback); #X floatatom 454 281 5 0 0 0 - - -; #X floatatom 451 323 5 0 0 0 - - -; #X msg 84 319 cast uint8 \, bang; #X text 530 281 zoom; #X text 531 324 move x; #X msg 501 324 -45; #X msg 501 281 128; #X obj 170 60 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 450 92 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 505 133 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1; #X floatatom 451 303 5 0 0 0 - - -; #X text 531 303 move y; #X msg 501 303 193; #X obj 31 -7 metro 33.3667; #X obj 450 131 shunt 2; #X obj 84 297 loadbang; #X obj 414 45 t b b; #X obj 414 21 loadbang; #X obj 31 276 t a; #X obj 202 99 loadbang; #X obj 212 119 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 200 266 t a; #X obj 31 21 t b b; #X obj 73 22 float; #X obj 73 41 + 1; #X obj 84 61 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 10 -262144 -1 -1 24 256; #X obj 508 257 t b; #X text 230 120 reset transform; #X obj 99 41 mod 60; #X obj 73 81 sel 59; #X obj 31 113 #store; #X obj 31 189 # << 7; #X obj 31 223 #fade 10; #X obj 31 252 # >> 7; #X obj 31 335 #store; #X obj 84 340 #in teapot.png; #X obj 31 364 #out window; #X obj 414 391 # -; #X obj 438 367 # - 128; #X obj 438 345 #two; #X obj 414 303 # /; #X obj 414 229 #store; #X obj 450 110 #for ( -128 -128 ) ( 128 128 ) ( 1 1 ); #X obj 446 154 @complex_sq; #X obj 461 175 #inner (2 2 # 120 30 -30 120); #X obj -13 -87 cnv 15 780 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj -15 431 cnv 15 780 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text -7 438 GridFlow 0.8.0; #X text -7 438 GridFlow 0.8.0; #X text 0 -87 feedback_fractal.pd; #X text 0 -74 Copyright 2001 Mathieu Bouchard; #X obj 212 138 #for (0 0) (256 256) (1 1); #X obj 210 210 #convolve (2 2 # 1); #X obj 209 232 # >> 2; #X obj 200 181 #store; #X obj 200 159 #store; #X connect 0 0 46 1; #X connect 2 0 18 0; #X connect 3 0 46 0; #X connect 5 0 45 1; #X connect 7 0 40 0; #X connect 10 0 6 0; #X connect 11 0 17 0; #X connect 11 0 5 0; #X connect 12 0 60 0; #X connect 13 0 47 0; #X connect 14 0 19 1; #X connect 17 0 15 0; #X connect 18 0 27 0; #X connect 19 0 48 0; #X connect 19 1 49 0; #X connect 20 0 7 0; #X connect 21 0 3 0; #X connect 21 1 13 0; #X connect 21 1 31 0; #X connect 22 0 21 0; #X connect 23 0 39 0; #X connect 24 0 56 0; #X connect 25 0 56 0; #X connect 26 0 35 1; #X connect 26 0 59 1; #X connect 27 0 35 0; #X connect 27 1 28 0; #X connect 28 0 29 0; #X connect 29 0 30 0; #X connect 29 0 33 0; #X connect 29 0 34 0; #X connect 31 0 11 0; #X connect 31 0 17 0; #X connect 31 0 10 0; #X connect 33 0 28 1; #X connect 34 0 12 0; #X connect 35 0 36 0; #X connect 36 0 37 0; #X connect 37 0 38 0; #X connect 38 0 23 0; #X connect 39 0 41 0; #X connect 40 0 39 1; #X connect 42 0 60 1; #X connect 43 0 42 1; #X connect 45 0 42 0; #X connect 46 0 45 0; #X connect 47 0 19 0; #X connect 48 0 46 1; #X connect 49 0 46 1; #X connect 56 0 35 1; #X connect 56 0 59 1; #X connect 57 0 58 0; #X connect 58 0 26 0; #X connect 59 0 26 0; #X connect 60 0 59 0; --- NEW FILE: spectrogram.pd --- #N canvas 695 85 580 565 10; #X msg 143 149 reset; #X obj 27 -34 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1 ; #X obj 316 -15 adc~; #X obj 28 110 tabread4 array1; #X obj 7 10 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 -1 ; #X obj 351 -14 table array1 1024; #X obj 290 138 loadbang; #X obj 270 140 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #N canvas 0 0 306 167 analysis 0; #X obj 24 -205 inlet~; #X obj 26 -135 tabsend~ array1; #X obj 24 -184 rfft~; #X obj 25 -157 expr~ sqrt($v1*$v1+$v2*$v2)/64; #X obj 148 -198 block~ 1024; #X connect 0 0 2 0; #X connect 2 0 3 0; #X connect 2 1 3 1; #X connect 3 0 1 0; #X restore 317 8 pd analysis; #X obj 30 210 demux 2; #X obj 373 186 vradio 15 1 0 2 empty empty empty 0 -6 0 8 -241291 -1 -1 1; #X obj 242 226 loadbang; #X obj 219 225 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 27 34 for 0 320 1; #X obj 29 129 * 2000; #X text 392 187 black stripes; #X text 391 200 graph; #X obj 28 77 / 2; #X text 77 129 <-- adding some extra gain; #X obj 88 88 exp; #X obj 28 55 demux 2; #X obj 173 46 vradio 15 1 0 2 empty empty empty 0 -6 0 8 -241291 -1 -1 0; #X text 195 46 linear; #X text 193 60 logarithmic; #X obj 89 67 / 51; #X obj 31 331 #fade; #X obj 123 332 loadbang; #X msg 72 331 16 4 1; #X obj 27 -9 metro 23.22; #X text 115 26 = 1000*1024/44100; #X obj 29 149 #import ( 320 ); #X obj 29 169 # *>>8; #X obj 30 190 #fade 2; #X obj 30 249 # inv+ 255; #X obj 105 222 #outer <; #X obj 105 241 # * 255; #X obj 105 261 #transpose; #X obj 30 287 #redim (120 320 1); #X obj 31 309 #greyscale_to_rgb; #X obj 31 353 #clip; #X obj 31 375 #scale_by 2; #X obj 31 404 #out window; #X obj -15 449 cnv 15 580 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text -7 456 GridFlow 0.8.0; #X text -7 456 GridFlow 0.8.0; #X obj -15 -85 cnv 15 580 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X text -2 -72 Copyright 2002 Mathieu Bouchard; #X text -2 -85 spectrogram.pd; #X obj 219 245 #for 120 0 -1; #X obj 270 161 #for 0 320 1; #X obj 270 184 # + 10; #X connect 0 0 30 0; #X connect 1 0 28 0; #X connect 2 0 8 0; #X connect 2 1 8 0; #X connect 3 0 14 0; #X connect 4 0 13 0; #X connect 6 0 7 0; #X connect 7 0 49 0; #X connect 9 0 33 0; #X connect 9 1 34 0; #X connect 10 0 9 1; #X connect 11 0 12 0; #X connect 12 0 48 0; #X connect 13 0 20 0; #X connect 14 0 30 0; #X connect 17 0 3 0; #X connect 19 0 3 0; #X connect 20 0 17 0; #X connect 20 1 24 0; #X connect 21 0 20 1; #X connect 24 0 19 0; #X connect 25 0 39 0; #X connect 26 0 27 0; #X connect 27 0 25 1; #X connect 28 0 13 0; #X connect 30 0 31 0; #X connect 31 0 32 0; #X connect 32 0 9 0; #X connect 33 0 37 0; #X connect 34 0 35 0; #X connect 35 0 36 0; #X connect 36 0 37 0; #X connect 37 0 38 0; #X connect 38 0 25 0; #X connect 39 0 40 0; #X connect 40 0 41 0; #X connect 48 0 34 1; #X connect 49 0 50 0; #X connect 50 0 31 1; --- NEW FILE: cellular_1d.pd --- #N canvas 337 53 804 634 10; #X obj 43 68 loadbang; #X obj 93 382 tgl 15 0 empty empty empty 0 -6 0 8 -260818 -1 -1 0 1 ; #X obj 108 382 tgl 15 0 empty empty empty 0 -6 0 8 -260818 -1 -1 1 1; #X obj 123 382 tgl 15 0 empty empty empty 0 -6 0 8 -260818 -1 -1 1 1; #X obj 138 382 tgl 15 0 empty empty empty 0 -6 0 8 -260818 -1 -1 0 1; #X obj 153 382 tgl 15 0 empty empty empty 0 -6 0 8 -260818 -1 -1 1 1; #X obj 168 382 tgl 15 0 empty empty empty 0 -6 0 8 -260818 -1 -1 0 1; #X obj 183 382 tgl 15 0 empty empty empty 0 -6 0 8 -260818 -1 -1 1 1; #X obj 198 382 tgl 15 0 empty empty empty 0 -6 0 8 -260818 -1 -1 0 1; #X obj 124 498 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 10 -262144 -1 -1 86 256; #X obj -5 188 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X msg 17 332 1 256 # 1; #X msg 43 102 1 256 # 2; #X obj 17 -2 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1; #X obj 418 199 loadbang; #X msg 418 219 1 256 # 0; #X text 131 482 characteristic number; #X obj 428 11 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 10 -262144 -1 -1 4 256; #X msg 467 69 \$1 256; #X msg 352 82 set \$1; #X text 104 124 randomizer; #X text 91 361 specify behaviour here; #X text 24 254 compute new state; #X text 315 237 make scrollie; #X text 367 270 convert bit matrix to rgb image; #X text 313 250 (window height = 128); #X obj 202 38 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 151 337 loadbang; #X text 47 84 click here to restart; #X obj 99 200 t a a; #X obj 17 26 metro 33.3667; #X obj 416 115 t a a; #X obj 472 359 loadbang; #X obj 389 495 unpack 0 0 0; #X obj 564 494 unpack 0 0 0; #X msg 389 394 3 # 0; #X msg 565 395 3 # 255; #X text 442 392 background; #X text 629 395 foreground; #X obj 17 292 t a a; #X obj 43 124 # rand; #X obj 17 234 #store; #X obj 17 312 #finished; #X obj 17 352 # <<; #X obj 17 372 # &; #X obj 17 392 # != 0; #X obj 123 406 #pack 8; #X obj 124 445 #fold +; #X obj 124 466 #export; #X obj 202 56 #for 0 256 1; #X obj 202 76 # == 128; #X obj 202 96 #redim ( 1 256 ); #X obj 416 96 #import ( 1 256 ); #X obj 416 135 #finished; #X obj 352 157 #for 1 128 1; #X obj 352 177 #outer ignore ( 0 ); #X obj 352 197 #store; #X obj 352 218 @join 0; #X obj 351 287 #outer ignore ( 0 ); #X obj 351 308 #store; #X obj 398 308 #redim ( 2 3 ); #X obj 389 414 #color; #X obj 565 414 #color; #X obj 389 475 #export_list; #X obj 565 475 #export_list; #X obj 492 526 #pack 6; #X obj 17 272 #convolve (1 3 # 1 2 4); #X obj 124 426 # << (0 1 2 3 4 5 6 7); #X obj -4 550 cnv 15 780 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text 4 557 GridFlow 0.8.0; #X obj -7 -50 cnv 15 780 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 351 330 #out window; #X text -3 -35 Copyright 2002 Mathieu Bouchard; #X text -3 -49 Cellular_1d; #X obj 428 34 max 1; #X text 495 9 <-- number of new lines per frame; #X text 221 37 <-- make single dot; #X connect 0 0 12 0; #X connect 1 0 46 0; #X connect 2 0 46 1; #X connect 3 0 46 2; #X connect 4 0 46 3; #X connect 5 0 46 4; #X connect 6 0 46 5; #X connect 7 0 46 6; #X connect 8 0 46 7; #X connect 9 0 44 1; #X connect 10 0 41 0; #X connect 11 0 43 0; #X connect 12 0 40 0; #X connect 13 0 30 0; #X connect 14 0 15 0; #X connect 15 0 56 1; #X connect 17 0 74 0; #X connect 18 0 52 1; #X connect 19 0 54 0; #X connect 26 0 49 0; #X connect 27 0 2 0; #X connect 27 0 3 0; #X connect 27 0 7 0; #X connect 27 0 5 0; #X connect 29 0 41 1; #X connect 29 1 52 0; #X connect 30 0 41 0; #X connect 31 0 53 0; #X connect 31 1 57 1; #X connect 32 0 35 0; #X connect 32 0 36 0; #X connect 33 0 65 0; #X connect 33 1 65 1; #X connect 33 2 65 2; #X connect 34 0 65 3; #X connect 34 1 65 4; #X connect 34 2 65 5; #X connect 35 0 61 0; #X connect 36 0 62 0; #X connect 39 0 42 0; #X connect 39 1 43 1; #X connect 40 0 29 0; #X connect 41 0 66 0; #X connect 42 0 11 0; #X connect 43 0 44 0; #X connect 44 0 45 0; #X connect 45 0 29 0; #X connect 46 0 67 0; #X connect 47 0 48 0; #X connect 48 0 9 0; #X connect 49 0 50 0; #X connect 50 0 51 0; #X connect 51 0 29 0; #X connect 52 0 31 0; #X connect 53 0 54 0; #X connect 54 0 55 0; #X connect 55 0 56 0; #X connect 56 0 57 0; #X connect 57 0 56 1; #X connect 57 0 58 0; #X connect 58 0 59 0; #X connect 59 0 71 0; #X connect 60 0 59 1; #X connect 61 0 63 0; #X connect 62 0 64 0; #X connect 63 0 33 0; #X connect 64 0 34 0; #X connect 65 0 60 0; #X connect 66 0 39 0; #X connect 67 0 47 0; #X connect 74 0 19 0; #X connect 74 0 18 0; --- NEW FILE: color_correction.pd --- #N canvas 455 129 676 546 10; #X text 360 96 sigma (extremes); #X obj 134 433 #out window; #X text 361 171 linear (contrast); #X obj 134 364 shunt 2; #N canvas 1 96 188 188 color 0; #X obj 55 134 # inv+; #X obj 55 90 # inv+ 255; #X obj 127 89 inlet; #X obj 55 177 outlet 0; #X obj 55 43 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 55 22 inlet; #X obj 55 112 #outer <; #X obj 55 155 # & 255; #X obj 55 67 #for 0 256 1; #X connect 0 0 7 0; #X connect 1 0 6 0; #X connect 2 0 6 1; #X connect 4 0 8 0; #X connect 5 0 4 0; #X connect 6 0 0 0; #X connect 7 0 3 0; #X connect 8 0 1 0; #X restore 184 386 pd color correction graph generator; #X obj 19 295 #in; #X text 360 244 constant (brightness); #N canvas 604 262 237 400 color-correction 0; #X obj 23 214 # + 128; #X obj 23 194 # /; #X obj 23 112 # *; #X obj 23 291 # +; #X obj 77 112 # max 32; #X obj 23 317 # max 0; #X obj 77 151 # tanh* 512; #X obj 23 340 # min 255; #X obj 23 64 # gamma; #X obj 77 131 # << 5; #X obj 23 93 # - 128; #X obj 23 172 # tanh* 65535; #X obj 23 132 # >> 2; #X text 89 327 trim; #X obj 95 242 inlet linear; #X obj 114 264 inlet constant; #X obj 23 243 # *>>8; #X obj 77 93 inlet sigma; #X obj 34 38 inlet gamma; #X obj 23 12 inlet image; #X obj 23 369 outlet image; #X connect 0 0 16 0; #X connect 1 0 0 0; #X connect 2 0 12 0; #X connect 3 0 5 0; #X connect 4 0 2 1; #X connect 4 0 9 0; #X connect 5 0 7 0; #X connect 6 0 1 1; #X connect 7 0 20 0; #X connect 8 0 10 0; #X connect 9 0 6 0; #X connect 10 0 2 0; #X connect 11 0 1 0; #X connect 12 0 11 0; #X connect 14 0 16 1; #X connect 15 0 3 1; #X connect 16 0 3 0; #X connect 17 0 4 0; #X connect 18 0 8 1; #X connect 19 0 8 0; #X restore 176 274 pd color-correction; #X obj 134 386 #store; #X obj 29 5 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1; #X obj 29 50 #for 0 256 1; #X msg 19 274 open teapot.png \, bang; #X obj 164 298 #finished; #X obj 29 27 metro 33.3667; #X obj 19 254 loadbang; #X obj 256 52 vradio 15 1 0 3 empty empty empty 0 -6 0 8 -241291 -1 -1 0; #X text 277 53 regular; #X text 276 68 solarize; #X text 277 82 solarize 2; #X obj 29 91 shunt 3; #X obj 29 163 t a; #X obj 122 146 # sin* 255; #X obj 123 127 # / 255; #X obj 123 108 # * 18000; #X obj 190 351 vradio 15 1 0 2 empty empty empty 0 -6 0 8 -241291 -1 -1 0; #X text 209 351 see picture; #X text 209 366 see graph; #X obj 8 231 spigot; #X obj 57 232 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1 ; #X text 13 214 enable stream; #X text 361 20 gamma (midtones); #X msg 254 143 3 # 256; #X obj 253 123 loadbang; #X msg 237 171 3 # 0; #X obj 8 320 #camera; #X obj 362 37 #color 0 1024 1; #X obj 362 112 #color 0 1024 1; #X obj 362 186 #color 0 1024 1; #X obj 362 258 #color -256 256 1; #X obj 51 114 #solarize; #X obj 134 411 #apply_colormap_channelwise; #X obj 2 -38 cnv 15 720 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 15 -25 Copyright 2002 Mathieu Bouchard; #X obj 2 477 cnv 15 720 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text 10 484 GridFlow 0.8.0; #X text 15 -38 color_correction.pd; #X obj 29 71 #outer + (0 0 0); #X connect 3 0 8 0; #X connect 3 1 4 0; #X connect 4 0 1 0; #X connect 5 0 8 1; #X connect 7 0 12 0; #X connect 7 0 4 1; #X connect 7 0 40 1; #X connect 8 0 40 0; #X connect 9 0 13 0; #X connect 10 0 46 0; #X connect 11 0 5 0; #X connect 12 0 3 0; #X connect 13 0 10 0; #X connect 13 0 27 0; #X connect 14 0 11 0; #X connect 15 0 19 1; #X connect 19 0 20 0; #X connect 19 1 39 0; #X connect 19 2 23 0; #X connect 20 0 7 0; #X connect 21 0 20 0; #X connect 22 0 21 0; #X connect 23 0 22 0; #X connect 24 0 3 1; #X connect 27 0 34 0; #X connect 28 0 27 1; #X connect 31 0 35 0; #X connect 31 0 36 0; #X connect 31 0 37 0; #X connect 32 0 31 0; #X connect 32 0 33 0; #X connect 33 0 38 0; #X connect 34 0 8 1; #X connect 35 0 7 1; #X connect 36 0 7 2; #X connect 37 0 7 3; #X connect 38 0 7 4; #X connect 39 0 20 0; #X connect 40 0 1 0; #X connect 46 0 19 0; --- NEW FILE: plot.pd --- #N canvas 211 415 621 272 10; #N canvas 803 450 420 235 plot-a-function 0; #X obj 8 61 # inv+ 640; #X obj 8 40 #for 0 640 1; #X obj 105 59 outlet; #X obj 33 175 #outer <; #X obj 105 80 inlet; #X text 209 199 to rgb; #X text 97 176 make graph \, twotone channelless; #X obj 35 232 outlet; #X obj 105 34 #for 0 640 1; #X obj 105 10 inlet; #X obj 92 132 #finished; #X obj 105 103 t a a; #X obj 33 200 #outer * (255 255 255); #X connect 0 0 3 0; #X connect 1 0 0 0; #X connect 3 0 12 0; #X connect 4 0 11 0; #X connect 8 0 2 0; #X connect 9 0 8 0; #X connect 10 0 1 0; #X connect 11 0 10 0; #X connect 11 1 3 1; #X connect 12 0 7 0; #X restore 57 47 pd plot-a-function ( tm ); #X obj 257 81 # + 320; #X obj 57 72 #out window; #X obj 256 -3 # - 320; #X obj 256 53 # tanh* 343; #X obj 256 25 # * 30; #X obj 33 15 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 -1 ; #X obj -16 -85 cnv 15 620 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj -15 152 cnv 15 620 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text -7 159 GridFlow 0.8.0; #X text -7 159 GridFlow 0.8.0; #X text -3 -86 plot.pd; #X obj 57 -10 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1 ; #X obj 57 14 metro 100; #X obj 360 -3 hsl 128 15 0 500 0 0 empty empty empty -2 -6 0 8 -260818 -1 -1 3600 1; #X floatatom 314 -2 5 0 0 0 - - -; #X obj 358 25 hsl 128 15 0 500 0 0 empty empty empty -2 -6 0 8 -260818 -1 -1 1300 1; #X floatatom 311 26 5 0 0 0 - - -; #X obj 390 54 hsl 128 15 0 500 0 0 empty empty empty -2 -6 0 8 -260818 -1 -1 6700 1; #X floatatom 343 54 5 0 0 0 - - -; #X obj 361 82 hsl 128 15 0 500 0 0 empty empty empty -2 -6 0 8 -260818 -1 -1 5600 1; #X floatatom 314 82 5 0 0 0 - - -; #X text -3 -72 Copyright 2003 Mathieu Bouchard; #X connect 0 0 2 0; #X connect 0 1 3 0; #X connect 1 0 0 1; #X connect 3 0 5 0; #X connect 4 0 1 0; #X connect 5 0 4 0; #X connect 6 0 0 0; #X connect 12 0 13 0; #X connect 13 0 0 0; #X connect 14 0 15 0; #X connect 15 0 3 1; #X connect 16 0 17 0; #X connect 17 0 5 1; #X connect 18 0 19 0; #X connect 19 0 4 1; #X connect 20 0 21 0; #X connect 21 0 1 1; --- NEW FILE: saturation.pd --- #N canvas 904 61 449 319 10; #X obj 11 117 print; #X obj 11 77 #out window; #X text 342 55 OR; #X text 238 30 global saturation; #N canvas 0 0 441 339 #saturation 0; #X obj 63 88 # inv+ 255; #X obj 14 219 # +; #X obj 37 47 #rgb_to_greyscale; #X obj 14 239 # >> 8; #X obj 162 146 loadbang; #X obj 14 158 #finished; #X text 68 266 keep values inside visible range; #X obj 14 199 # *; #X obj 14 178 #store; #X obj 37 88 # *; #X msg 133 146 0; #X obj 8 9 inlet image; #X obj 14 293 outlet image; #X obj 107 126 inlet saturation; #X text 230 130 0 = grey \; 256 = identity; #X text 40 222 mix the original picture with its greyed version; #X obj 37 107 t a a; #X obj 8 28 t a a; #X obj 37 67 #greyscale_to_rgb; #X obj 107 146 t a; #X obj 14 265 #clip; #X connect 0 0 9 1; #X connect 1 0 3 0; #X connect 2 0 18 0; #X connect 3 0 20 0; #X connect 4 0 10 0; #X connect 5 0 8 0; #X connect 7 0 1 0; #X connect 8 0 7 0; #X connect 9 0 16 0; #X connect 10 0 19 0; #X connect 11 0 17 0; #X connect 13 0 19 0; #X connect 16 0 5 0; #X connect 16 1 1 1; #X connect 17 0 8 1; #X connect 17 1 2 0; #X connect 18 0 9 0; #X connect 19 0 7 1; #X connect 19 0 0 0; #X connect 20 0 12 0; #X restore 11 53 pd #saturation; #X obj 11 98 fps detailed; #X text 203 68 per-channel saturation; #X msg 194 25 0; #X obj 194 4 loadbang; #X obj 197 46 hsl 137 15 -256 512 0 0 empty empty empty -2 -6 0 8 -260818 -128992 -1 4533 1; #X floatatom 155 47 5 0 0 0 - - -; #X obj 11 -26 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1 ; #X obj 11 3 metro 33.3667; #X obj 11 30 #in teapot.png; #X obj 147 95 #color -256 512 1; #X msg 147 69 3 # \$1; #X obj -16 -85 cnv 15 450 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X text -3 -72 Copyright 2002 Mathieu Bouchard; #X obj -15 203 cnv 15 450 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text -7 210 GridFlow 0.8.0; #X text -7 210 GridFlow 0.8.0; #X text -3 -85 saturation.pd; #X connect 1 0 5 0; #X connect 4 0 1 0; #X connect 5 0 0 0; #X connect 7 0 9 0; #X connect 8 0 7 0; #X connect 9 0 10 0; #X connect 9 0 15 0; #X connect 11 0 12 0; #X connect 12 0 13 0; #X connect 13 0 4 0; #X connect 14 0 4 1; #X connect 15 0 14 0; --- NEW FILE: nervous_video.pd --- #N canvas 446 102 590 659 10; #X obj 33 30 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #N canvas 123 298 450 300 counter 0; #X obj 131 70 + 1; #X obj 131 23 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X floatatom 170 70 5 0 0 0 - - -; #X msg 131 47 1; #X floatatom 170 114 5 0 0 0 - - -; #X obj 132 157 select 1; #X msg 170 44 0; #X obj 132 178 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 70 25 inlet; #X obj 132 195 outlet; #X obj 220 65 inlet; #X obj 298 106 outlet; #X obj 170 95 >= 32; #X connect 0 0 2 0; #X connect 1 0 3 0; #X connect 2 0 0 1; #X connect 2 0 11 0; #X connect 2 0 12 0; #X connect 3 0 0 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 5 0 7 0; #X connect 6 0 2 0; #X connect 7 0 9 0; #X connect 8 0 1 0; #X connect 10 0 12 1; #X connect 12 0 4 0; #X restore 241 137 pd counter; #X obj 24 252 / 10; #X floatatom 24 290 5 0 0 0 - - -; #X obj 24 -26 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1 ; #X floatatom 25 504 5 0 0 0 - - -; #X obj 24 484 fps; #X obj 24 2 metro 33.3667; #X msg 24 314 list \$1; #X msg 225 315 reassign \, 32 240 320 3 #; #X msg 225 295 reassign \, 32 120 160 3 #; #X msg 225 335 reassign \, 32 480 640 3 #; #X msg 316 94 32; #X obj 24 233 random 320; #X obj 24 461 #out window; #X floatatom 316 114 5 0 0 0 - - -; #X obj 347 94 loadbang; #X text 358 113 maximum value is 32; #X text 359 126 (see below); #X obj 24 120 float; #X text 203 277 the buffer size decides the maximum loop length; #X obj 24 189 shunt 4; #X obj 24 213 bang; #X obj 24 271 int; #X obj 145 163 vradio 15 1 0 4 empty empty empty 0 -6 0 8 -241291 -1 -1 0; #X text 166 163 caffeine twitch; #X text 166 178 ethanol lag; #X obj 131 233 * 2; #X obj 160 234 * -1; #X text 166 209 back flash acid; #X text 165 193 acid flash back; #X obj 255 369 vradio 15 1 0 4 empty empty empty 0 -6 0 8 -241291 -1 -1 0; #X text 273 366 plain; #X text 274 399 hilitemotion; #X text 273 415 embossmotion; #X obj 80 402 @! abs; #X text 133 -3 This patch was created by Alexandre Castonguay \,; #X text 133 10 as a clone of Edo Tannenbaum's "nervous video" effect \, http://effectv.sourceforge.net; #X text 133 38 Later modified by Mathieu to add more effects; #X obj 80 381 # -; #X obj 81 421 # << 2; #X obj 102 233 + 1; #X obj 135 382 # -; #X obj 136 401 # + 128; #X obj 136 421 # max 0; #X obj 80 441 # min 255; #X obj 24 358 shunt 4; #X obj 119 353 shunt 4; #X text 273 384 mix 50%; #X obj 34 421 # >> 1; #X obj 38 388 # +; #X obj 89 101 #camera; #X obj 24 53 t b b b; #X obj -16 536 cnv 15 700 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text -7 543 GridFlow 0.8.0; #X text -7 543 GridFlow 0.8.0; #X obj -17 -85 cnv 15 700 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X text -6 -86 nervous_video.pd; #X text -7 -74 Copyright 2002 Alexandre Castonguay \, Mathieu Bouchard ; #X text 146 101 <-- open this; #X obj 24 333 #store (32 240 320 3 #); #X msg 316 165 put_at ( \$1 0 0 0 ); #X connect 0 0 52 0; #X connect 1 1 61 0; #X connect 1 1 19 1; #X connect 2 0 23 0; #X connect 3 0 8 0; #X connect 4 0 7 0; #X connect 6 0 5 0; #X connect 7 0 52 0; #X connect 8 0 60 0; #X connect 9 0 60 1; #X connect 10 0 60 1; #X connect 11 0 60 1; #X connect 12 0 15 0; #X connect 13 0 2 0; #X connect 14 0 6 0; #X connect 15 0 1 1; #X connect 16 0 12 0; #X connect 19 0 21 0; #X connect 21 0 22 0; #X connect 21 1 41 0; #X connect 21 2 27 0; #X connect 21 3 28 0; #X connect 22 0 13 0; #X connect 23 0 3 0; #X connect 24 0 21 1; #X connect 27 0 8 0; #X connect 28 0 8 0; #X connect 31 0 47 1; #X connect 31 0 46 1; #X connect 35 0 40 0; #X connect 39 0 35 0; #X connect 40 0 45 0; #X connect 41 0 8 0; #X connect 42 0 43 0; #X connect 43 0 44 0; #X connect 44 0 45 0; #X connect 45 0 14 0; #X connect 46 0 14 0; #X connect 46 1 50 0; #X connect 46 2 39 0; #X connect 46 3 42 0; #X connect 47 1 50 1; #X connect 47 2 39 1; #X connect 47 3 42 1; #X connect 49 0 14 0; #X connect 50 0 49 0; #X connect 51 0 47 0; #X connect 51 0 60 1; #X connect 52 0 19 0; #X connect 52 1 51 0; #X connect 52 2 1 0; #X connect 60 0 46 0; #X connect 61 0 60 1; --- NEW FILE: transform.pd --- #N canvas 726 225 674 481 10; #X obj 146 296 #remap_image; #X obj 146 381 #out window; #X obj 125 94 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1 ; #X obj 294 376 # -; #X obj 294 202 t a a a; #X obj 380 273 # % 2; #X obj 380 297 # * -2; #X obj 380 318 # + 1; #X obj 316 342 # *; #X obj 425 245 # / 2; #X obj 428 184 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -261681 -1 -1 12700 1; #X obj 316 301 # -; #X obj 425 207 t f; #X obj 316 262 # %; #X obj 380 248 # /; #X obj 186 214 #camera; #X obj 125 120 metro 10; #X obj 8 442 cnv 15 720 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text 16 449 GridFlow 0.8.0; #X obj 374 449 #reverse; #X text 293 450 see also :; #X obj 1 -2 cnv 15 720 15 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 4 -2 Transform.pd; #X obj 95 215 #in r001.jpg; #X obj 125 155 shunt; #X obj 176 155 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X text 68 32 By Mathieu Bouchard \, based on Clifford Smith's 'Transform' effect that is part of Fukuchi Kentaro's EffecTV : http://effectv.sourceforge.net ; #X text 199 153 <-- choose from a still image or camera input; #X connect 0 0 1 0; #X connect 0 1 4 0; #X connect 2 0 16 0; #X connect 3 0 0 1; #X connect 4 0 3 0; #X connect 4 1 13 0; #X connect 4 2 14 0; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 7 0 8 1; #X connect 8 0 3 1; #X connect 9 0 11 1; #X connect 10 0 12 0; #X connect 11 0 8 0; #X connect 12 0 9 0; #X connect 12 0 13 1; #X connect 12 0 14 1; #X connect 13 0 11 0; #X connect 14 0 5 0; #X connect 15 0 0 0; #X connect 16 0 24 0; #X connect 23 0 0 0; #X connect 24 0 23 0; #X connect 24 1 15 0; #X connect 25 0 24 1; --- NEW FILE: image_stats.pd --- #N canvas 391 151 716 416 10; #X obj 257 173 print total_value; #X obj 523 151 #dim; #X obj 22 187 #export_list; #X obj 328 150 print number_of_values; #X obj 523 200 print number_of_dimensions; #X obj 523 173 #export; #X obj 185 91 #fold +; #X obj 281 201 /; #X obj 185 135 #fold +; #X obj 22 215 print total_pixel; #X obj 185 57 fork; #X obj 245 28 #in; #X obj 328 106 #fold * \, seed 1; #X obj 480 112 print dimensions; #X obj 281 228 print average_value; #X obj 186 157 #export; #X obj 185 113 #fold +; #X obj 480 90 #export_list; #X obj 480 68 #dim; #X obj 328 84 #dim; #X obj 328 128 #export; #X msg 271 -35 open bluemarble.jpg \, bang; #X msg 271 -15 open teapot.png \, bang; #X msg 271 5 open r001.jpg \, bang; #X obj -15 304 cnv 15 720 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text -7 311 GridFlow 0.8.0; #X text -7 311 GridFlow 0.8.0; #X obj -13 -85 cnv 15 720 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X text -5 -72 Copyright 2001 Mathieu Bouchard; #X text -5 -86 image_stats.pd; #X obj 22 131 #fold + \, seed (3 #); #X obj 22 92 #fold + \, seed (3 #); #X text 460 -36 <-- click on one of these; #X connect 1 0 5 0; #X connect 2 0 9 0; #X connect 5 0 4 0; #X connect 6 0 16 0; #X connect 7 0 14 0; #X connect 8 0 15 0; #X connect 10 0 6 0; #X connect 10 0 31 0; #X connect 10 1 19 0; #X connect 11 0 10 0; #X connect 11 0 18 0; #X connect 12 0 20 0; #X connect 15 0 0 0; #X connect 15 0 7 0; #X connect 16 0 8 0; #X connect 17 0 13 0; #X connect 18 0 17 0; #X connect 18 0 1 0; #X connect 19 0 12 0; #X connect 20 0 3 0; #X connect 20 0 7 1; #X connect 21 0 11 0; #X connect 22 0 11 0; #X connect 23 0 11 0; #X connect 30 0 2 0; #X connect 31 0 30 0; --- NEW FILE: threshold.pd --- #N canvas 720 79 579 617 10; #X obj 40 121 @ -; #X obj 40 144 @ max 0; #X obj 40 167 @ ||; #X obj 40 190 @ +; #X obj 99 143 inv+ 0; #X obj 40 -33 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1 ; #X obj 95 56 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1 ; #X floatatom 251 270 5 0 0 0 - - -; #X obj 251 137 vsl 15 128 0 256 0 0 empty empty empty 0 -8 0 8 -260818 -1 -1 0 1; #X obj 40 55 shunt 2; #X obj 40 448 @out window; #X text 6 100 simple per-channel threshold; #X text 316 102 bluescreen luma threshold; #X text 381 255 here we have a mask; #X text 361 267 (alpha as separate image); #X obj 327 356 @join 2; #X text 386 295 make a RGBA image; #X obj 310 137 t b a a; #X text 218 398 = medium blue; #X obj 297 290 t a a; #X obj 131 449 fps; #X floatatom 161 451 5 0 0 0 - - -; #X obj 40 9 metro 100; #X msg 70 397 240 320 3 # 0 0 170; #X text 386 333 won't be necessary; #X text 319 117 with alpha channel; #X text 13 368 you could also load a picture; #X text 13 380 instead of using uniform blue; #X text 58 -31 1000/100 = 10 fps (max) (adjustable); #X text 281 22 see also color_detect.pd; #X obj 40 33 #camera; #X obj -13 -86 cnv 15 580 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 0 -73 Copyright 2002 Mathieu Bouchard; #X obj -15 499 cnv 15 580 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text -7 506 GridFlow 0.8.0; #X text -7 506 GridFlow 0.8.0; #X text 0 -86 threshold.pd; #X obj 290 335 #store; #X obj 290 314 #finished; #X obj 354 204 # * 255; #X obj 354 181 # >=; #X obj 354 162 #rgb_to_greyscale; #X text 384 320 this silly #finished; #X text 388 347 in GridFlow 1; #X obj 70 425 #draw_image put \, alpha 1; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 2 0 3 0; #X connect 3 0 10 0; #X connect 4 0 2 1; #X connect 5 0 22 0; #X connect 6 0 9 1; #X connect 7 0 0 1; #X connect 7 0 4 0; #X connect 7 0 3 1; #X connect 7 0 40 1; #X connect 8 0 7 0; #X connect 9 0 0 0; #X connect 9 1 17 0; #X connect 10 0 20 0; #X connect 17 0 23 0; #X connect 17 1 19 0; #X connect 17 2 41 0; #X connect 19 0 38 0; #X connect 19 1 37 1; #X connect 20 0 21 0; #X connect 22 0 30 0; #X connect 23 0 44 0; #X connect 30 0 9 0; #X connect 37 0 15 0; #X connect 38 0 37 0; #X connect 39 0 15 1; #X connect 40 0 39 0; #X connect 41 0 40 0; #X connect 44 0 10 0; --- NEW FILE: sand.pd --- #N canvas 524 30 680 685 10; #X text 317 199 disable falling; #X obj 6 392 # min 255; #X obj 3 167 fork; #X obj 295 402 # != 0; #X obj 356 446 #fold +; #X obj 99 518 s position; #X obj 192 -31 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1 ; #X obj 295 465 #export; #X obj 192 68 #store; #X obj 247 133 shunt 2; #N canvas 25 226 369 359 mouse 0; #X text 143 214 is there a click?; #X obj 44 114 != 0; #X text 112 256 coordinates; #X obj 19 8 inlet; #X text 56 9 #out's outlet 0; #X obj 44 93 >> 8; #X obj 65 237 listsublist 0 2; #X obj 16 31 route position; #X obj 94 214 outlet; #X obj 65 257 outlet; #X obj 16 214 shunt 2; #X obj 44 72 listelement 2; #X obj 16 51 t a a; #X connect 1 0 8 0; #X connect 1 0 10 1; #X connect 3 0 7 0; #X connect 5 0 1 0; #X connect 6 0 9 0; #X connect 7 0 12 0; #X connect 10 1 6 0; #X connect 11 0 5 0; #X connect 12 0 10 0; #X connect 12 1 11 0; #X restore 398 151 pd mouse click/drag; #X obj 358 152 # / 2; #X obj 295 423 #ravel; #X msg 11 142 100 100; #X obj 6 415 # max; #X obj 247 198 shunt 2; #X obj 26 187 s size; #X obj 295 444 #fold +; #X obj 454 112 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1; #X obj 356 404 @! abs; #X obj 432 412 #export; #X obj 432 370 #ravel; #X obj 288 260 shunt 2; #X obj 301 199 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1; #X obj 356 467 #export; #X obj 398 111 shunt 2; #X obj 6 348 #greyscale_to_rgb; #X obj 399 132 r position; #N canvas 504 75 496 430 falling 0; #X obj 42 147 # +; #X text 228 286 vertical falling; #X obj 70 327 # / 3; #X obj 138 25 inlet; #X text 179 25 Dim[rows \, columns \, {height}]; #X obj 43 281 #store; #X obj 43 260 #finished; #X obj 69 168 # / 3; #X obj 70 306 # / 3; #X obj 42 168 # +; #X obj 43 306 # +; #X text 105 366 Dim[rows \, columns \, {height}]; #X text 197 129 horizontal falling; #X obj 69 147 # / 3; #X obj 43 327 # +; #X obj 42 123 #store; #X obj 52 365 outlet; #X obj 42 104 #finished; #X obj 138 58 t a a; #X obj 133 218 t a a; #X obj 110 147 #convolve ( 1 2 # 1 1 0 ) \, fold inv+; #X obj 110 168 #convolve ( 1 3 # 1 1 0 ) \, fold inv+; #X obj 111 306 #convolve ( 2 1 # 1 1 ) \, fold inv+; #X obj 111 327 #convolve ( 3 1 # 1 1 0 ) \, fold inv+; #X connect 0 0 9 0; #X connect 2 0 14 1; #X connect 3 0 18 0; #X connect 5 0 10 0; #X connect 6 0 5 0; #X connect 7 0 9 1; #X connect 8 0 10 1; #X connect 9 0 19 0; #X connect 10 0 14 0; #X connect 13 0 0 1; #X connect 14 0 16 0; #X connect 15 0 0 0; #X connect 17 0 15 0; #X connect 18 0 17 0; #X connect 18 1 15 1; #X connect 18 1 20 0; #X connect 18 1 21 0; #X connect 19 0 6 0; #X connect 19 1 5 1; #X connect 19 1 22 0; #X connect 19 1 23 0; #X connect 20 0 13 0; #X connect 21 0 7 0; #X connect 22 0 8 0; #X connect 23 0 2 0; #X restore 247 218 pd falling sand; #X obj 6 465 #scale_by 2; #X obj 8 287 shunt 3; #X obj 6 540 print; #X obj 136 26 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 -1; #X text 253 -8 auto; #N canvas 292 75 480 513 falling 0; #X obj 105 177 # div 5; #X text 292 85 horizontal falling; #X obj 42 118 #store; #X obj 153 58 fork; #X obj 171 230 fork; #X obj 46 392 outlet; #X obj 42 147 # +; #X obj 46 307 # +; #X obj 46 281 #store; #X obj 42 91 #finished; #X obj 42 176 # +; #X obj 48 260 #finished; #X text 88 17 Dim[rows \, columns \, {height}]; #X text 293 262 vertical falling; #X obj 106 336 # div 5; #X obj 102 148 # div 5; #X obj 46 336 # +; #X obj 103 307 # div 5; #X text 101 392 Dim[rows \, columns \, {height}]; #X obj 47 17 inlet; #X obj 162 149 #convolve (1 2 # 1 1) \, fold inv+ \, seed -3; #X obj 166 177 #convolve (1 3 # 1 1 0) \, fold inv+ \, seed -3; #X obj 170 305 #convolve (2 1 # 1 1) \, fold inv+ \, seed -3; #X obj 171 335 #convolve (3 1 # 1 1 0) \, fold inv+ \, seed -3; #X connect 0 0 10 1; #X connect 2 0 6 0; #X connect 3 0 9 0; #X connect 3 1 2 1; #X connect 3 1 20 0; #X connect 3 1 21 0; #X connect 4 0 11 0; #X connect 4 1 8 1; #X connect 4 1 22 0; #X connect 4 1 23 0; #X connect 6 0 10 0; #X connect 7 0 16 0; #X connect 8 0 7 0; #X connect 9 0 2 0; #X connect 10 0 4 0; #X connect 11 0 8 0; #X connect 14 0 16 1; #X connect 15 0 6 1; #X connect 16 0 5 0; #X connect 17 0 7 1; #X connect 19 0 3 0; #X connect 20 0 15 0; #X connect 21 0 0 0; #X connect 22 0 17 0; #X connect 23 0 14 0; #X restore 292 238 pd falling sand ( 2 ); #N canvas 525 58 536 584 finger 0; #X obj 192 7 inlet; #X obj 36 78 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 63 267 # / 20; #X obj 74 327 # *; #X obj 12 436 #store; #X obj 14 18 inlet; #X obj 73 309 #redim ( 64 64 1 ); #X obj 279 51 loadbang; #X obj 13 38 fork; #X obj 63 247 #fold +; #X text 22 159 "dig" the sphere into the sand; #X text 240 104 compute a halfsphere; #X obj 192 29 # - 32; #X obj 63 225 #ravel; #N canvas 1 58 415 284 make 0; #X obj 28 129 #fold +; #X obj 28 66 # -; #X obj 28 108 @! sq; #X obj 28 45 #for ( -32 -32 ) ( 32 32 ) ( 1 1 ); #X obj 28 171 outlet; #X obj 28 87 # << 2; #X obj 28 150 @! sqrt; #X text 63 21 bang; #X obj 27 20 inlet; #X text 98 92 make distance map; #X connect 0 0 6 0; #X connect 1 0 5 0; #X connect 2 0 0 0; #X connect 3 0 1 0; #X connect 5 0 2 0; #X connect 6 0 4 0; #X connect 8 0 3 0; #X restore 259 74 pd make distance map with center 32; #X obj 12 480 outlet; #X obj 260 53 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X text 83 293 find out how high the compensation torus should be; #X obj 73 349 # div 256; #X obj 36 58 route grid; #X obj 12 417 #finished; #X obj 13 206 t a a; #N canvas 669 471 315 202 halfsphere 0; #X obj 45 19 inlet distancemap; #X obj 45 143 outlet image; #X obj 46 102 @! sqrt; #X obj 46 122 #outer ignore ( 0 ); #X obj 46 62 # inv+ 200; #X text 121 63 16 * radius^2; #X obj 46 41 @! sq; #X obj 46 82 # max 0; #X connect 0 0 6 0; #X connect 2 0 3 0; #X connect 3 0 1 0; #X connect 4 0 7 0; #X connect 6 0 4 0; #X connect 7 0 2 0; #X restore 126 120 pd halfsphere; #X obj 13 141 #draw_image - ( 1 1 1 # ) ( 0 0 ); #X obj 12 457 #draw_image - ( 1 1 1 # ) ( 0 0 ); #N canvas 0 0 323 279 torus 0; #X obj 59 26 inlet; #X obj 56 185 outlet; #X obj 57 97 # inv+ 200; #X obj 57 76 @! sq; #X text 102 54 toroidal radius; #X obj 57 162 #outer ignore ( 0 ); #X obj 56 120 # max 0; #X text 138 99 16*radius^2; #X obj 57 141 @! sqrt; #X obj 57 56 # - 20; #X connect 0 0 9 0; #X connect 2 0 6 0; #X connect 3 0 2 0; #X connect 5 0 1 0; #X connect 6 0 8 0; #X connect 8 0 5 0; #X connect 9 0 3 0; #X restore 296 346 pd torus; #X text 65 475 put extra sand as a ring around the hole; #X connect 0 0 12 0; #X connect 1 0 16 0; #X connect 2 0 6 0; #X connect 3 0 18 0; #X connect 4 0 24 0; #X connect 5 0 8 0; #X connect 6 0 3 0; #X connect 7 0 14 0; #X connect 8 0 23 0; #X connect 8 1 19 0; #X connect 9 0 2 0; #X connect 12 0 23 2; #X connect 12 0 24 2; #X connect 13 0 9 0; #X connect 14 0 22 0; #X connect 14 0 25 0; #X connect 16 0 14 0; #X connect 18 0 24 1; #X connect 19 0 1 0; #X connect 20 0 4 0; #X connect 21 0 20 0; #X connect 21 1 13 0; #X connect 21 1 4 1; #X connect 22 0 23 1; #X connect 23 0 21 0; #X connect 24 0 15 0; #X connect 25 0 3 1; #X restore 290 152 pd finger; #X obj 342 376 # -; #X obj 356 425 #ravel; #X msg 3 118 240 320; #X obj 432 391 #fold +; #X obj 6 328 # + 128; #X obj 148 476 #greyscale_to_rgb; #X obj 303 134 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1; #X text 362 263 enable stats; #X text 292 529 checking for conservation of amounts of sand; #X msg 3 212 \$1 \$2 1 # 0; #X text 33 159 set size / reset; #N canvas 56 229 441 265 lighting 0; #X obj 27 209 outlet; #X obj 27 180 # +; #X obj 17 9 inlet; #X obj 99 142 #convolve ( 2 1 # 1 1 ) \, op inv+; #X obj 100 65 #convolve ( 1 2 # 1 1 ) \, op inv+; #X obj 103 39 r size; #X obj 27 39 #redim ( ); #X obj 27 79 #finished; #X obj 27 120 #store; #X obj 25 149 # + 128; #X obj 27 59 t a a; #X text 163 47 colourize the horizontal differences; #X text 113 123 colourize the vertical differences; #X obj 100 86 #outer & ( -1 0 0 ); #X obj 99 164 #outer & ( -1 -1 0 ); #X connect 1 0 0 0; #X connect 2 0 6 0; #X connect 3 0 14 0; #X connect 4 0 13 0; #X connect 5 0 6 1; #X connect 6 0 10 0; #X connect 7 0 8 0; #X connect 8 0 9 0; #X connect 9 0 1 0; #X connect 10 0 7 0; #X connect 10 1 4 0; #X connect 10 1 3 0; #X connect 13 0 8 1; #X connect 14 0 1 1; #X restore 151 355 pd lighting; #X obj 6 518 fps detailed; #X obj 344 262 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1; #X text 152 26 step; #X obj 71 253 vradio 15 1 0 3 empty empty empty 0 -6 0 8 -241291 -1 -1 0; #X obj 6 486 #out window; #X obj 295 508 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0 256; #X obj 356 508 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0 256; #X obj 432 508 nbx 8 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0 256; #X text 90 268 differential; #X text 89 253 heightmap; #X text 89 284 topographic; #X obj 152 68 t a a; #X obj 247 260 t a a; #X obj 149 457 # * 255; #X obj 150 437 # >= 6; #X obj 150 416 # & 7; #X obj 2 97 loadbang; #X text 470 112 disable finger; #X obj 332 354 t a a; #X obj 6 309 # << 2; #X obj 151 334 # << 4; #X obj 192 -8 metro 20; #X obj -15 569 cnv 15 680 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text -7 576 GridFlow 0.8.0; #X text -7 576 GridFlow 0.8.0; #X obj -13 -85 cnv 15 680 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 0 -72 Copyright 2002 Mathieu Bouchard; #X text 0 -85 sand.pd; #X connect 1 0 14 0; #X connect 2 0 45 0; #X connect 2 1 16 0; #X connect 3 0 12 0; #X connect 4 0 24 0; #X connect 6 0 69 0; #X connect 7 0 53 0; #X connect 8 0 9 0; #X connect 9 0 15 0; #X connect 9 1 35 0; #X connect 10 0 11 0; #X connect 10 1 25 0; #X connect 11 0 35 1; #X connect 12 0 17 0; #X connect 13 0 2 0; #X connect 14 0 29 0; #X connect 15 0 28 0; #X connect 15 1 60 0; #X connect 17 0 7 0; #X connect 18 0 25 1; #X connect 19 0 37 0; #X connect 20 0 55 0; #X connect 21 0 39 0; #X connect 22 1 21 0; #X connect 22 1 66 0; #X connect 23 0 15 1; #X connect 24 0 54 0; #X connect 25 0 9 1; #X connect 26 0 1 0; #X connect 27 0 10 0; #X connect 28 0 60 0; #X connect 29 0 52 0; #X connect 30 0 67 0; #X connect 30 1 68 0; #X connect 30 2 63 0; #X connect 32 0 8 0; #X connect 34 0 60 0; #X connect 35 0 15 0; #X connect 36 0 19 0; #X connect 36 0 3 0; #X connect 37 0 4 0; #X connect 38 0 2 0; #X connect 39 0 20 0; #X connect 40 0 26 0; #X connect 41 0 29 0; #X connect 42 0 9 1; #X connect 45 0 59 0; #X connect 47 0 1 0; #X connect 48 0 31 0; #X connect 49 0 22 1; #X connect 51 0 30 1; #X connect 52 0 48 0; #X connect 52 0 5 0; #X connect 59 0 30 0; #X connect 59 1 8 1; #X connect 60 0 59 0; #X connect 60 1 22 0; #X connect 61 0 41 0; #X connect 62 0 61 0; #X connect 63 0 62 0; #X connect 64 0 38 0; #X connect 66 0 36 1; #X connect 66 1 36 0; #X connect 67 0 40 0; #X connect 68 0 47 0; #X connect 69 0 8 0; --- NEW FILE: hello-world.pd --- #N canvas 604 118 501 445 10; #X obj 46 67 # / 320; #X obj 46 187 # * 255; #X obj 46 153 # != 0; #X obj 46 -12 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1 -1; #X obj 46 280 #out window; #X obj 46 99 # inv+ 7; #X obj 46 15 #for 0 320 1; #X obj 46 48 # * 7; #X obj 46 -34 loadbang; #X text 66 -12 make one line:; #X text 54 31 numbers 0 to 319; #X text 55 84 numbers 0 to 6 repeated 45 or 46 times; #X text 56 116 numbers 7 down to 1 ...; #X text 53 172 3*1-bit rgb image line; #X text 83 206 3*8-bit rgb image line; #X text 53 234 repeat line 240 times; #X obj -13 -85 cnv 15 500 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 0 -86 hello-world.pd; #X obj 46 134 #outer & (2 4 1); #X obj 46 252 #redim (240 320 3); #X obj -14 319 cnv 15 500 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text -7 325 GridFlow 0.8.0; #X text -7 325 GridFlow 0.8.0; #X text 0 -72 Copyright 2001 Mathieu Bouchard; #X connect 0 0 5 0; #X connect 1 0 19 0; #X connect 2 0 1 0; #X connect 3 0 6 0; #X connect 5 0 18 0; #X connect 6 0 7 0; #X connect 7 0 0 0; #X connect 8 0 3 0; #X connect 18 0 2 0; #X connect 19 0 4 0; --- NEW FILE: videodev_effects.pd --- #N canvas 106 79 569 546 10; #X obj 86 397 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 ; #X obj 72 149 # max 0; #N canvas 52 305 399 248 motion 0; #X obj 60 49 inlet; #X obj 60 72 # +; #X obj 60 158 outlet; #X msg 108 51 0; #X obj 60 142 fork; #X text 164 114 divide by 32 \, 16 \, 4; #X text 4 1 we do like #fade but faster (because of >>); #X text 4 15 feedback factors are 1/32 for red \, 1/16 for green \, 1/8 for blue.; #X obj 60 114 # >> ( 5 4 2 ); #X obj 175 85 # * ( 31 15 3 ); #X connect 0 0 1 0; #X connect 1 0 8 0; #X connect 3 0 1 1; #X connect 4 0 2 0; #X connect 4 1 9 0; #X connect 8 0 4 0; #X connect 9 0 1 1; #X restore 130 218 pd motion fade; #X obj 28 263 shunt 2; #X obj 72 69 #downscale_by 2 smoothly; #X obj 28 398 shunt 2; #X obj 82 265 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 ; #X obj 87 88 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 ; #X obj 8 7 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X obj 316 261 fork; #X obj 28 48 shunt 2; #X msg 286 243 256; #X obj 28 474 #out window; #X obj 84 49 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 ; #X obj 28 515 print; #X obj 285 284 #for 0 256 1; #X floatatom 316 242 5 0 0 0 - - -; #N canvas 67 462 236 230 detect 0; #X obj 66 59 # * ( -1 -1 2 ); #X obj 66 171 # max 0; #X obj 66 31 inlet; #X obj 66 222 #outer ignore ( 0 0 0 ); #X obj 66 197 # min 255; #X obj 66 249 outlet; #X obj 65 82 #fold + \, seed -20; #X connect 0 0 6 0; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 3 0 5 0; #X connect 4 0 3 0; #X connect 6 0 1 0; #X restore 437 236 pd detect blue; #X obj 72 285 #outer ignore ( 0 ); #X obj 103 131 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 5700 1; #X obj 28 189 shunt 2; #X obj 170 335 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X obj 28 335 shunt 2; #X obj 28 495 fps detailed; #X obj 286 223 loadbang; #X obj 87 335 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 ; #X obj 72 307 #store; #N canvas 81 205 480 500 sort 0; #X obj 10 305 # * ( 1 0 ); #X obj 180 260 # * 255; #X obj 194 331 #outer ignore ( 0 0 0 ); #X obj 10 345 # >> 0; #X obj 43 432 outlet; #X obj 181 53 inlet; #X obj 225 191 # / 2; #X obj 10 285 #for ( 0 0 ) ( 288 352 ) ( 1 1 ); #X obj 10 325 # +; #X obj 44 9 inlet; #X obj 242 150 # - 1; #X obj 121 382 # +; #X obj 180 238 # < 176; #X obj 10 369 #store; #X obj 97 31 #grade; #X obj 121 404 # >> 1; #X obj 283 269 # / 351; #X obj 97 53 shunt 2; #X obj 145 77 #grade; #X obj 112 210 #outer & ( 0 -1 ); #X obj 121 127 inlet; #X text 271 128 extract width; #X obj 10 266 #finished; #X obj 283 247 # * 255; #X obj 96 9 #fold +; #X obj 97 153 shunt 4; #X obj 107 359 shunt 4; #X msg 235 126 \$2; #X obj 204 77 #dim; #X obj 44 37 t a a; #X msg 186 127 \$1 \$2; #X obj 204 97 #export_list; #X connect 0 0 8 0; #X connect 1 0 2 0; #X connect 2 0 4 0; #X connect 3 0 13 0; #X connect 5 0 17 1; #X connect 6 0 12 1; #X connect 7 0 0 0; #X connect 8 0 3 0; #X connect 9 0 29 0; #X connect 10 0 16 1; #X connect 11 0 15 0; #X connect 12 0 1 0; #X connect 13 0 26 0; #X connect 14 0 17 0; #X connect 15 0 4 0; #X connect 16 0 2 0; #X connect 17 0 25 0; #X connect 17 1 18 0; #X connect 18 0 25 0; #X connect 19 0 8 1; #X connect 20 0 25 1; #X connect 20 0 26 1; #X connect 22 0 7 0; #X connect 23 0 16 0; #X connect 24 0 14 0; #X connect 25 0 22 0; #X connect 25 0 19 0; #X connect 25 1 22 0; #X connect 25 1 19 0; #X connect 25 2 12 0; #X connect 25 3 23 0; #X connect 26 0 4 0; #X connect 26 1 11 0; #X connect 27 0 6 0; #X connect 27 0 10 0; #X connect 28 0 31 0; #X connect 29 0 24 0; #X connect 29 1 13 1; #X connect 29 1 28 0; #X connect 29 1 11 1; #X connect 30 0 7 1; #X connect 31 0 27 0; #X connect 31 0 30 0; #X restore 87 355 pd sort me out; #X obj 285 304 # gamma; #X obj 72 129 # -; #X obj 82 191 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 ; #X text 74 238 enable gamma correction; #X obj 285 266 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #N canvas 372 198 399 273 motion 0; #X obj 15 113 # << 2; #X obj 15 162 @! abs; #X obj 15 9 inlet; #X obj 18 80 # -; #X obj 70 174 # + 128; #X obj 15 245 outlet; #X obj 15 204 # min 255; #X obj 15 224 # max 0; #X obj 70 155 # << 2; #X obj 15 35 t a a; #X obj 15 134 shunt 2; #X obj 70 133 inlet render; #X obj 155 54 inlet type; #X obj 15 54 shunt 2; #X connect 0 0 10 0; #X connect 1 0 6 0; #X connect 2 0 9 0; #X connect 3 0 0 0; #X connect 4 0 6 0; #X connect 6 0 7 0; #X connect 7 0 5 0; #X connect 8 0 4 0; #X connect 9 0 13 0; #X connect 9 1 3 0; #X connect 10 0 1 0; #X connect 10 1 8 0; #X connect 11 0 10 1; #X connect 12 0 13 1; #X connect 13 0 3 1; #X restore 72 109 pd motion detection; #X obj 105 335 hradio 15 1 0 4 empty empty empty 0 -6 0 8 -262144 -1 -1 0; #X text 126 149 noise reduction (on find-edges only); #N canvas 67 462 236 230 detect 0; #X obj 66 171 # max 0; #X obj 66 31 inlet; #X obj 66 222 #outer ignore ( 0 0 0 ); #X obj 66 197 # min 255; #X obj 66 249 outlet; #X obj 65 82 #fold + \, seed -20; #X obj 66 59 # * ( 2 -1 -1 ); #X connect 0 0 3 0; #X connect 1 0 6 0; #X connect 2 0 4 0; #X connect 3 0 2 0; #X connect 5 0 0 0; #X connect 6 0 5 0; #X restore 437 217 pd detect red; #X obj 27 8 metro 33.3667; #X obj 28 69 t a a; #X text 101 49 Smaller Picture; #X obj 28 89 shunt 2; #X obj 211 96 vradio 15 1 0 2 empty empty empty 0 -6 0 8 -262144 -1 -1 0; #X obj 163 427 #centroid; #X obj 163 448 #export_list; #X floatatom 165 487 5 0 0 0 - - -; #X obj 164 467 unpack 0 0; #X floatatom 229 487 5 0 0 0 - - -; #N canvas 639 147 477 267 crosshair 0; #X obj 12 224 outlet; #X obj 12 9 inlet; #X obj 95 169 # + ( 120 160 ); #X msg 21 125 12 2 # \$1 \$2 \$1 \$3 \$2 \$3 \$2 \$4 \$3 \$4 \$3 \$3 \$4 \$3 \$4 \$2 \$3 \$2 \$3 \$1 \$2 \$1 \$2 \$2; #X msg 54 95 -32 -1 1 32; #X obj 12 205 #draw_polygon + ( 0 170 0 ); #X obj 175 37 #fade 8; #X obj 175 18 inlet; #X obj 170 60 #finished; #X connect 1 0 5 0; #X connect 2 0 5 2; #X connect 3 0 2 0; #X connect 4 0 3 0; #X connect 5 0 0 0; #X connect 6 0 2 1; #X connect 6 0 8 0; #X connect 7 0 6 0; #X connect 8 0 4 0; #X restore 72 428 pd crosshair; #X msg 128 8 open dc1394; #X msg 217 9 open mpeg file images/movies/washington_zoom_in.mpeg; #X msg 217 29 open xine images/movies/washington_zoom_in.mpeg; #X obj 28 27 #camera; #X obj 186 30 #in; #X obj 104 192 #fade; #X msg 145 194 32 16 4; #X obj 28 450 t a; #X text 231 110 emboss; #X text 230 96 hilite; #X text 110 397 designed to work with "hilite" above; #X obj 281 96 vradio 15 1 0 2 empty empty empty 0 -6 0 8 -262144 -1 -1 0; #X text 300 96 motion; #X text 301 110 presence; #X connect 0 0 5 1; #X connect 1 0 20 0; #X connect 2 0 3 0; #X connect 3 0 22 0; #X connect 3 1 18 0; #X connect 4 0 38 0; #X connect 5 0 55 0; #X connect 5 1 42 0; #X connect 5 1 47 0; #X connect 6 0 3 1; #X connect 7 0 40 1; #X connect 8 0 37 0; #X connect 9 0 32 0; #X connect 9 1 28 1; #X connect 10 0 38 0; #X connect 10 1 4 0; #X connect 11 0 16 0; #X connect 12 0 23 0; #X connect 13 0 10 1; #X connect 15 0 28 0; #X connect 16 0 9 0; #X connect 18 0 26 0; #X connect 19 0 29 1; #X connect 20 0 3 0; #X connect 20 1 2 0; #X connect 21 0 27 2; #X connect 22 0 5 0; #X connect 22 1 27 0; #X connect 23 0 14 0; #X connect 24 0 11 0; #X connect 25 0 22 1; #X connect 26 0 22 0; #X connect 27 0 5 0; #X connect 28 0 26 1; #X connect 29 0 1 0; #X connect 30 0 20 1; #X connect 32 0 15 0; #X connect 33 0 29 0; #X connect 34 0 27 1; #X connect 37 0 51 0; #X connect 38 0 40 0; #X connect 40 0 20 0; #X connect 40 1 33 0; #X connect 41 0 33 1; #X connect 42 0 43 0; #X connect 42 0 47 1; #X connect 43 0 45 0; #X connect 45 0 44 0; #X connect 45 1 46 0; #X connect 47 0 55 0; #X connect 51 0 10 0; #X connect 53 0 3 0; #X connect 54 0 53 1; #X connect 55 0 12 0; #X connect 59 0 33 2; --- NEW FILE: epicycloid.pd --- #N canvas 443 76 1178 736 10; #X text 18 93 epicycloid; #X text 18 116 x(t) = (R+r) cos(t) - p*cos((R+r)t/r); #X text 18 140 y(t) = (R+r) sin(t) - p*sin((R+r)t/r); #X obj 38 383 #draw_polygon put 1; #X obj 287 438 #import ( 4 2 ); #X obj 38 406 #out window; #X obj -22 -22 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1 ; #X obj 327 375 pack f f f f; #X msg 327 404 \$2 \$1 \$4 \$1 \$4 \$3 \$2 \$3; #X text 334 350 x; #X text 394 352 y; #X text 421 354 y+1; #X text 357 352 x+1; #X floatatom 327 327 5 0 0 0 - - -; #X obj 369 325 + 1; #X floatatom 405 327 5 0 0 0 - - -; #X obj 447 324 + 1; #X obj 332 297 t f f; #X obj 417 297 t f f; #X obj 0 50 s met; #X obj 286 350 r met; #X obj 468 97 hsl 128 15 5 100 0 1 empty empty empty -2 -6 0 8 -24198 -1 -1 5500 1; #X obj 585 148 hsl 128 15 -100 100 0 1 empty empty empty -2 -6 0 8 -44926 -1 -1 4000 1; #X obj 732 173 hsl 128 15 -150 150 0 1 empty empty empty -2 -6 0 8 -258699 -1 -1 3200 1; #X text 439 52 t = valeur en angles de 0 a 360; #X obj 465 153 t f f; #X obj 582 180 t f f; #X obj 729 193 t f f; #X obj 333 127 * 6.28319; #X obj 333 106 / 360; #X floatatom 333 88 5 0 0 0 - - -; #X obj 333 152 t f f; #X obj -22 355 #store; #X obj 15 205 loadbang; #X obj 420 250 expr ($f2+$f3)*sin($f1) - $f4*sin(($f2+$f3)*$f1/$f3) ; #X obj 333 212 expr ($f2+$f3)*cos($f1) - $f4*cos(($f2+$f3)*$f1/$f3) ; #X obj 333 65 + 1; #X msg 333 41 1; #X floatatom 375 65 5 0 0 0 - - -; #X msg 375 16 0; #X text 406 19 reset count; #X text 129 231 reset image; #X text 540 126 r = Rayon du deuxieme cercle -100 a 100; #X obj 420 275 + 150; #X obj 333 272 + 150; #X floatatom 477 123 5 0 0 0 - - -; #X floatatom 633 173 5 0 0 0 - - -; #X floatatom 779 196 5 0 0 0 - - -; #X obj -22 7 metro 1; #X obj 33 -21 hsl 128 15 0 15 0 0 empty empty empty -2 -6 0 8 -260818 -1 -1 0 1; #X text 440 78 R = Rayon du premier cercle 5 a 100; #X obj -38 525 cnv 15 900 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text -29 532 GridFlow 0.8.0; #X text -29 532 GridFlow 0.8.0; #X obj -35 -85 cnv 15 940 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 102 317 #color; #X obj 102 268 loadbang; #X msg 102 292 230 224 0; #X msg 15 232 300 300 3 # 0; #X text -22 -72 Copyright 2004 Alexandre Castonguay; #X text -22 -85 epicycloid.pd; #X text 80 204 start with a blank \, black image; #X text 727 158 deuxieme cercle - 150 a 150; #X text 727 143 p = distance du centre du; #X connect 3 0 5 0; #X connect 3 0 32 1; #X connect 4 0 3 2; #X connect 6 0 48 0; #X connect 7 0 8 0; #X connect 8 0 4 0; #X connect 13 0 7 0; #X connect 14 0 7 2; #X connect 15 0 7 1; #X connect 16 0 7 3; #X connect 17 0 13 0; #X connect 17 1 14 0; #X connect 18 0 15 0; #X connect 18 1 16 0; #X connect 20 0 7 0; #X connect 21 0 25 0; #X connect 21 0 45 0; #X connect 22 0 26 0; #X connect 22 0 46 0; #X connect 23 0 27 0; #X connect 23 0 47 0; #X connect 25 0 35 1; #X connect 25 1 34 1; #X connect 26 0 35 2; #X connect 26 1 34 2; #X connect 27 0 35 3; #X connect 27 1 34 3; #X connect 28 0 31 0; #X connect 29 0 28 0; #X connect 30 0 29 0; #X connect 31 0 35 0; #X connect 31 1 34 0; #X connect 32 0 3 0; #X connect 33 0 58 0; #X connect 34 0 43 0; #X connect 35 0 44 0; #X connect 36 0 38 0; #X connect 36 0 30 0; #X connect 37 0 36 0; #X connect 38 0 36 1; #X connect 39 0 38 0; #X connect 43 0 18 0; #X connect 44 0 17 0; #X connect 48 0 19 0; #X connect 48 0 32 0; #X connect 48 0 37 0; #X connect 49 0 48 1; #X connect 55 0 3 1; #X connect 56 0 57 0; #X connect 57 0 55 0; #X connect 58 0 32 1; --- NEW FILE: scratch_video.pd --- #N canvas 622 70 580 592 10; #X obj 109 21 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1 ; #X obj 109 329 listelement 1; #X floatatom 109 352 5 0 0 0 - - -; #X floatatom 132 244 5 0 0 0 - - -; #X obj 109 305 route position; #X obj 109 221 #in; #X msg 142 167 open /home/alx/Documents/images/videos/bus_1.mov; #X obj 112 391 hsl 128 15 1 320 0 0 empty empty empty -2 -6 0 8 -260818 -1 -1 3145 1; #X obj -13 -85 cnv 15 580 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj -16 472 cnv 15 580 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text 16 476 GridFlow 0.8.0; #X text 16 476 GridFlow 0.8.0; #X text 0 -85 traveling.pd; #X text 0 -72 Copyright 2003 Alexandre Castonguay; #X text -1 -34 Use the mouse position to scratch the video \, a touchscreen works well.; #N canvas 0 0 450 300 decide_framerate 0; #X obj 6 56 - 160; #X floatatom 6 80 5 0 0 0 - - -; #X obj 55 122 hsl 128 15 20 150 0 0 empty empty empty -2 -6 0 8 -24198 -1 -1 5862 1; #X obj 6 99 abs; #X floatatom 6 142 5 0 0 0 - - -; #X obj 6 121 / 3; #X floatatom 6 226 5 0 0 0 - - -; #X obj 6 184 abs; #X obj 6 162 - 64; #X obj 6 205 + 5; #X obj -25 21 inlet; #X obj 34 263 outlet; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 3 0 2 0; #X connect 3 0 5 0; #X connect 4 0 8 0; #X connect 5 0 4 0; #X connect 6 0 11 0; #X connect 7 0 9 0; #X connect 8 0 7 0; #X connect 9 0 6 0; #X connect 10 0 0 0; #X restore 257 390 pd decide_framerate; #X obj 257 414 s framerate; #X obj 181 31 r framerate; #X obj 109 279 #out window; #X text 176 242 <-- frame number; #X text 213 328 <-- get x values; #X text 142 184 load your own until we get a bundled video for the docs; #X text 142 197 this one is 320 x 240; #N canvas 0 0 450 300 frame_count 1; #X msg 103 112 1; #X floatatom 103 168 5 0 0 0 - - -; #X obj 153 153 float \$1; #X obj 103 86 shunt 2; #X msg 173 69 1; #X msg 173 46 0; #X obj 103 140 + 1; #X msg 147 112 -1; #X msg 208 109 0; #X obj 46 -34 inlet; #X obj 231 68 inlet; #X obj 113 212 outlet; #X floatatom 147 -41 5 0 0 0 - - -; #X obj 147 -19 > 160; #X floatatom 147 8 5 0 0 0 - - -; #X text 192 -20 <-- is the direction left or right on a width of 320 pixels; #X text 242 109 <-- reset; #X obj 147 -64 r position; #X connect 0 0 6 0; #X connect 1 0 2 0; #X connect 1 0 11 0; #X connect 2 0 6 1; #X connect 3 0 0 0; #X connect 3 1 7 0; #X connect 4 0 3 1; #X connect 5 0 3 1; #X connect 6 0 1 0; #X connect 7 0 6 0; #X connect 8 0 1 0; #X connect 9 0 3 0; #X connect 10 0 8 0; #X connect 12 0 13 0; #X connect 13 0 14 0; #X connect 14 0 3 1; #X connect 17 0 12 0; #X restore 109 113 pd frame_count; #X obj 202 86 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 -1 -1; #X text 226 85 <-- reset; #X obj 13 391 s position; #X msg 314 230 loop 1; #X obj 206 266 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 224 62 r loopit; #X obj 236 264 print loopit; #X obj 109 56 metro 100.33; #X obj 71 175 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X connect 0 0 31 0; #X connect 1 0 2 0; #X connect 2 0 7 0; #X connect 2 0 15 0; #X connect 2 0 26 0; #X connect 4 0 1 0; #X connect 5 0 18 0; #X connect 5 1 3 0; #X connect 5 1 28 0; #X connect 6 0 5 0; #X connect 15 0 16 0; #X connect 17 0 31 1; #X connect 18 0 4 0; #X connect 23 0 5 0; #X connect 24 0 23 1; #X connect 27 0 5 0; #X connect 28 0 30 0; #X connect 31 0 23 0; #X connect 32 0 5 0; --- NEW FILE: ripple.pd --- #N canvas 103 42 683 618 10; #X obj 78 419 #out window; #X obj 47 173 #outer ignore ( 0 0 ); #X obj 78 105 +; #X obj 47 326 # +; #X obj 283 170 #outer + ( 0 9000 ); #X obj 47 370 shunt 2; #X obj 283 189 # sin* 256; #N canvas 609 247 325 236 distance 0; #X text 16 15 bang; #X obj 18 58 #for ( -128 -128 ) ( 128 128 ) ( 1 1 ); #X text 15 167 distances to middle; #X obj 18 125 @! sqrt; #X obj 18 36 inlet; #X obj 18 103 #fold +; #X obj 18 81 # ** 2; #X text 89 101 pythagoras' theorem; #X obj 18 149 outlet; #X connect 1 0 6 0; #X connect 3 0 8 0; #X connect 4 0 1 0; #X connect 5 0 3 0; #X connect 6 0 5 0; #X restore 164 41 pd distance map; #X obj 78 440 fps detailed; #X obj 283 130 loadbang; #X obj 47 42 fork; #X obj 168 278 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1; #X msg 78 86 1; #X obj 47 105 # -; #X obj 47 62 #store; #N canvas 659 552 420 225 apply 0; #X obj 60 48 #fold +; #X obj 12 190 outlet 0; #X obj 60 16 inlet; #X obj 12 124 # +; #X obj 12 167 # max 0; #X obj 12 146 # min 255; #X obj 12 16 inlet; #X obj 58 101 #outer *>>8; #X obj 130 69 inlet; #X obj 60 73 # << 2; #X connect 0 0 9 0; #X connect 2 0 0 0; #X connect 3 0 5 0; #X connect 4 0 1 0; #X connect 5 0 4 0; #X connect 6 0 3 0; #X connect 7 0 3 1; #X connect 8 0 7 1; #X connect 9 0 7 0; #X restore 78 400 pd apply shading; #X obj 47 -27 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1 ; #X obj 47 348 #store; #X obj 47 25 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 48 281 #finished; #X obj 164 329 #for ( 0 0 ) ( 256 256 ) ( 1 1 ); #X obj 164 130 # + 10; #X text 187 278 shading on/off; #X obj 47 240 shunt 2; #X floatatom 106 108 5 0 0 0 - - -; #X obj 47 195 # *>>8; #X obj 164 310 loadbang; #X obj 164 21 loadbang; #X obj 47 303 #store; #X obj 78 462 print; #X obj 164 149 # inv* 10000; #N canvas 588 233 480 480 angle 0; #X obj 71 163 #outer atan; #X obj 71 55 #finished; #X text 70 210 angles to centre; #X text 168 63 bang; #X obj 167 82 inlet; #X obj 168 106 #for -128 128 1; #X obj 71 78 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 72 188 outlet 0; #X obj 71 107 #for -128 128 1; #X connect 0 0 7 0; #X connect 1 0 6 0; #X connect 4 0 5 0; #X connect 5 0 0 1; #X connect 5 0 1 0; #X connect 6 0 8 0; #X connect 8 0 0 0; #X restore 283 151 pd angle map; #X obj 47 151 # *>>8; #X obj 46 218 # *>>8; #X obj 259 235 hsl 128 15 -256 256 0 1 empty empty empty -2 -6 0 8 -260818 -1 -1 12600 1; #X obj 259 252 hsl 128 15 -256 256 0 1 empty empty empty -2 -6 0 8 -260818 -1 -1 3200 1; #N canvas 715 537 387 220 compute 0; #X obj 8 113 #store; #X obj 55 113 # sin* 64; #X obj 55 71 #for 0 1024 1; #X obj 55 50 loadbang; #X obj 55 92 # * 900; #X obj 125 51 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 8 135 outlet; #X text 75 151 This is somewhat like [# sin]; #X text 75 166 but much faster (lookup table); #X obj 8 11 inlet; #X obj 8 30 #outer ignore (0); #X connect 0 0 6 0; #X connect 1 0 0 1; #X connect 2 0 4 0; #X connect 3 0 2 0; #X connect 4 0 1 0; #X connect 5 0 2 0; #X connect 9 0 10 0; #X connect 10 0 0 0; #X restore 47 128 pd compute sine; #X text 232 358 background image; #X obj 165 375 #in teapot.png; #X obj 165 356 loadbang; #X obj 48 261 t a a; #X text 215 219 intensity of wave; #X obj 47 4 metro 33.3667; #X text 246 5 waves.pd is more interesting; #X text 225 -9 this is a quite boring wave generator; #X text 95 61 table for distance map; #X floatatom 216 237 5 0 0 0 - - -; #X floatatom 216 253 5 0 0 0 - - -; #X obj 157 239 #pack 2; #X obj -13 -85 cnv 15 680 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 0 -72 Copyright 2002 Mathieu Bouchard; #X text 0 -85 ripple.pd; #X obj -15 501 cnv 15 680 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text -7 508 GridFlow 0.8.0; #X text -7 508 GridFlow 0.8.0; #X obj 246 410 #color; #X text 430 407 color of ripple shading; #X connect 0 0 8 0; #X connect 1 0 25 0; #X connect 2 0 24 0; #X connect 2 0 13 1; #X connect 3 0 17 0; #X connect 4 0 6 0; #X connect 5 0 15 0; #X connect 5 1 0 0; #X connect 6 0 25 1; #X connect 7 0 21 0; #X connect 7 0 14 1; #X connect 8 0 29 0; #X connect 9 0 31 0; #X connect 10 0 14 0; #X connect 10 1 12 0; #X connect 11 0 23 1; #X connect 11 0 5 1; #X connect 12 0 2 0; #X connect 13 0 36 0; #X connect 14 0 13 0; #X connect 15 0 0 0; #X connect 16 0 42 0; #X connect 17 0 5 0; #X connect 18 0 10 0; #X connect 19 0 28 0; #X connect 20 0 3 1; #X connect 21 0 30 0; #X connect 23 0 15 1; #X connect 23 0 40 0; #X connect 23 1 3 0; #X connect 24 0 2 1; #X connect 25 0 33 0; #X connect 26 0 20 0; #X connect 27 0 7 0; #X connect 28 0 3 0; #X connect 30 0 32 1; #X connect 31 0 4 0; #X connect 32 0 1 0; #X connect 33 0 23 0; #X connect 34 0 46 0; #X connect 35 0 47 0; #X connect 36 0 32 0; #X connect 38 0 17 1; #X connect 39 0 38 0; #X connect 40 0 19 0; #X connect 40 1 28 1; #X connect 42 0 18 0; #X connect 46 0 48 0; #X connect 47 0 48 1; #X connect 48 0 33 1; #X connect 55 0 15 2; --- NEW FILE: motion_detect.pd --- #N canvas 564 180 494 470 10; #X obj 32 -33 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1 ; #X obj 37 193 #downscale_by ( 15 20 ) smoothly; #X obj 37 219 #scale_by ( 32 32 ); #X obj 37 251 #out window; #X obj 32 42 t a a; #X obj 37 68 # -; #X obj 37 91 @! abs; #X obj 37 114 # * 8; #X obj 37 140 # - 64; #X obj 61 291 fps detailed; #X obj 61 311 print; #X obj 32 -6 metro 33.3667; #X obj 32 18 #camera; #X obj 37 165 #clip; #X obj -15 353 cnv 15 500 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text -7 360 GridFlow 0.8.0; #X text -7 360 GridFlow 0.8.0; #X obj -13 -85 cnv 15 500 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X text -5 -85 motion_detect.pd; #X text -6 -72 Copyright 2001 Mathieu Bouchard; #X obj 181 253 display; #X text 127 79 This patch demonstrates the basis of motion detection. The substraction of two subsequent frames after [t a a]. It then downscales and rescales the image \, breaking it down into larger regions that can be monitored for changes.; #X connect 0 0 11 0; #X connect 1 0 2 0; #X connect 1 0 20 0; #X connect 2 0 3 0; #X connect 3 0 9 0; #X connect 4 0 5 1; #X connect 4 1 5 0; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 7 0 8 0; #X connect 8 0 13 0; #X connect 9 0 10 0; #X connect 11 0 12 0; #X connect 12 0 4 0; #X connect 13 0 1 0; --- NEW FILE: cross_fade.pd --- #N canvas 401 101 681 500 10; #X obj 33 191 # *>>8; #X text 60 235 first picture plus a fraction of the difference; #X obj 33 233 # +; #X obj 33 170 #store; #X obj 264 103 # inv+; #X obj 88 254 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1 ; #X text 152 324 note: the #layer/#join objects can make the crossfade process simpler but it's still not faster.; #X obj 50 -30 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1 ; #X msg 309 72 open r001.jpg \, cast int16 \, bang; #X obj 283 72 #in; #X obj 33 149 #finished; #X text 109 257 click to clip out-of-range colours; #X text 82 190 multiply by a N/256 fraction; #X obj 81 295 # max 0; #X obj 264 51 #in; #X obj 81 274 # min 255; #X obj 33 326 #out window; #X obj 33 109 #cast int16; #X text 81 170 keep the difference between both pictures; #X msg 290 51 open b001.jpg \, cast int16 \, bang; #X obj 290 31 t b b; #X obj 330 31 loadbang; #X obj 33 253 shunt 2; #X obj 50 -5 metro 33.3667; #X obj 50 15 float; #X obj 62 44 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0 256; #X obj 94 14 + 4; #X obj 50 65 pingpong 256; #X obj 61 87 hsl 129 15 0 256 0 0 empty empty empty -2 -6 0 8 -260818 -1 -1 0 1; #X obj 33 128 t a a; #X text 153 362 also #draw_image/#join is a possibility; #X obj 0 -77 cnv 15 680 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 14 -64 Copyright 2002 Mathieu Bouchard; #X text 14 -80 cross_fade.pd; #X obj 0 391 cnv 15 680 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text 8 399 GridFlow 0.8.0; #X connect 0 0 2 0; #X connect 2 0 22 0; #X connect 3 0 0 0; #X connect 4 0 3 1; #X connect 5 0 22 1; #X connect 7 0 23 0; #X connect 8 0 9 0; #X connect 9 0 4 1; #X connect 10 0 3 0; #X connect 13 0 16 0; #X connect 14 0 4 0; #X connect 14 0 2 1; #X connect 15 0 13 0; #X connect 17 0 29 0; #X connect 19 0 14 0; #X connect 20 0 19 0; #X connect 20 1 8 0; #X connect 21 0 20 0; #X connect 22 0 16 0; #X connect 22 1 15 0; #X connect 23 0 24 0; #X connect 24 0 25 0; #X connect 24 0 26 0; #X connect 24 0 27 0; #X connect 26 0 24 1; #X connect 27 0 28 0; #X connect 27 0 17 0; #X connect 29 0 10 0; #X connect 29 1 0 1; --- NEW FILE: game_of_life.pd --- #N canvas 400 83 719 454 10; #X text 41 -19 click here; #X obj 23 -17 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1 ; #X obj 31 251 #out window; #X text 48 92 this is the feedback loop; #X obj 123 0 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 141 -1 for 0 10 1; #X obj 263 53 loadbang; #X obj 141 73 #store; #X obj 141 19 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 31 291 print; #X obj 31 271 fps detailed; #X obj 31 113 fork; #X text 159 19 next; #N canvas 0 0 450 210 game 0; #X obj 28 64 inlet matrix; #X obj 28 141 outlet matrix; #X text 18 14 this part at the left defines the rule of the game (this is my own rewriting of the rules. it is equivalent to the original but faster to compute.); #X obj 28 83 # << (b # 1); #X obj 28 103 #convolve (3 3 b # 0 0 0 0 1) \, op >> \, seed (b # -5) ; #X obj 28 122 # < (b # 3); #X connect 0 0 3 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 1 0; #X restore 31 72 pd game of life; #X text 260 20 init with a random map; #X text 262 35 10% white dots; #X text 33 179 convert this 1-bit matrix to standard RGB \; 1 becomes -1 becomes 255 \, but 0 stays 0; #X obj 23 15 metro 5; #X obj -15 339 cnv 15 780 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text -7 346 GridFlow 0.8.0; #X text -7 346 GridFlow 0.8.0; #X obj -13 -85 cnv 15 780 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 0 -85 game_of_life.pd; #X text 0 -72 Copyright 2001 Mathieu Bouchard; #X obj 263 97 # rand (b #); #X obj 263 119 # == (b # 0); #X msg 263 75 240 320 b # 10; #X obj 31 209 # inv+ (b # 0); #X obj 31 230 #outer ignore (3 b #); #X connect 1 0 17 0; #X connect 2 0 10 0; #X connect 4 0 5 0; #X connect 5 0 8 0; #X connect 6 0 26 0; #X connect 7 0 13 0; #X connect 8 0 7 0; #X connect 10 0 9 0; #X connect 11 0 27 0; #X connect 11 1 7 1; #X connect 13 0 11 0; #X connect 17 0 7 0; #X connect 24 0 25 0; #X connect 25 0 11 0; #X connect 26 0 24 0; #X connect 27 0 28 0; #X connect 28 0 2 0; --- NEW FILE: blob.pd --- #N canvas 19 81 792 565 10; #X floatatom 405 212 5 0 0 0 - - -; #X obj 347 172 r move; #X obj 56 95 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X msg 56 128 240 320 3 # 0; #X msg 461 357 300; #X obj 398 342 # * 300; #X obj 311 436 # cos*; #X msg 460 319 1600; #X msg 513 249 25; #X obj 373 212 +; #X msg 513 268 100; #X obj 504 192 hsl 128 15 100 2600 0 1 empty empty empty -2 -6 0 8 -260818 -1 -1 2297 1; #X text 364 435 make circular orbit of variable radius; #X floatatom 502 211 5 0 0 0 - - -; #X msg 461 338 800; #X text 294 325 frequency of the orbit; #X text 500 177 increment; #X msg 373 192 1; #X obj 64 58 s move; #X obj 311 394 #outer + ( 0 9000 ); #X obj 73 94 loadbang; #X obj 19 0 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1; #X obj 78 351 #out window; #X obj 246 126 # +; #X obj 438 299 # + 50; #X text 401 197 counter; #X obj 19 41 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 311 458 # + ( 120 160 ); #X obj 19 309 #store; #X text 65 113 blank image to start with; #X text 272 127 translate the square; #X text 546 247 make a wavy radius (50-100) \; the 1100 is its frequency \; tune it for fun and profit.; #X obj 19 58 t b b; #X obj 368 232 t a a a; #X msg 246 74 4 2 # -1 -1 -1 1 1 1 1 -1; #X obj 19 22 metro 1.367; #X obj 8 491 cnv 15 780 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text 16 498 GridFlow 0.8.0; #X obj 8 -38 cnv 15 780 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 21 -38 Blob.pd; #X msg 514 287 10; #X obj 437 257 # * 1000; #X obj 101 215 #color; #X obj 101 171 loadbang; #X text 452 383 duplicate the angle \; make the 2nd 90 degrees apart (required for a circle \; else it'll be an oval or a line); #X obj 78 309 #draw_polygon + (3 # ); #X text 21 -25 Copyright 2002 Mathieu Bouchard and Alexandre Castonguay ; #X text 245 58 a 2x2 square's coordinates; #X text 288 103 scale factor; #X obj 246 102 # * 8; #X obj 78 330 #solarize; #X text 400 -1 This is the classic "Shadebob" effect of the demoscene ; #X msg 101 193 12 24 36; #X text 6 284 superimpose the light of many squares; #X obj 438 278 # cos* 100; #X connect 0 0 9 1; #X connect 1 0 17 0; #X connect 2 0 3 0; #X connect 3 0 28 1; #X connect 4 0 5 1; #X connect 5 0 19 0; #X connect 6 0 27 0; #X connect 7 0 5 1; #X connect 8 0 54 1; #X connect 9 0 0 0; #X connect 9 0 33 0; #X connect 10 0 54 1; #X connect 11 0 13 0; #X connect 13 0 41 1; #X connect 14 0 5 1; #X connect 17 0 9 0; #X connect 19 0 6 0; #X connect 20 0 2 0; #X connect 21 0 35 0; #X connect 23 0 45 2; #X connect 24 0 6 1; #X connect 26 0 32 0; #X connect 27 0 23 1; #X connect 28 0 45 0; #X connect 32 0 28 0; #X connect 32 1 18 0; #X connect 33 0 34 0; #X connect 33 1 5 0; #X connect 33 2 41 0; #X connect 34 0 49 0; #X connect 35 0 26 0; #X connect 40 0 54 1; #X connect 41 0 54 0; #X connect 42 0 45 1; #X connect 43 0 52 0; #X connect 45 0 28 1; #X connect 45 0 50 0; #X connect 49 0 23 0; #X connect 50 0 22 0; #X connect 52 0 42 0; #X connect 54 0 24 0; --- NEW FILE: fire.pd --- #N canvas 399 42 621 522 10; #X obj 347 171 loadbang; #X text 229 287 palette generator; #X obj 103 329 fps detailed; #X obj 250 325 #for 0 256 1; #X obj 23 180 #store; #X obj 250 347 #outer gamma; #X obj 103 351 print; #X msg 60 130 \$1 \$2 # 0; #X obj 71 217 #outer ignore ( 0 ); #X obj 250 304 #finished; #X obj 23 -25 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1 ; #X obj 204 -21 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 40 71 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 318 304 fork; #X text 262 2 height width; #X obj 103 307 #out window; #X text 101 269 applying palette; #X obj 103 287 #store; #N canvas 268 454 450 300 circle 0; #X obj 47 177 #fold +; #X obj 47 244 # << 7; #X obj 47 199 # >> 6; #X obj 47 157 @! sq; #X obj 47 222 # == 10; #X obj 47 15 inlet size; #X obj 47 267 outlet matrix; #X obj 47 126 #for ( 0 0 ) ( 0 0 ) ( 1 1 ); #X obj 47 34 # / 2; #X obj 47 77 t a a; #X obj 47 54 #export_list; #X obj 47 101 # inv+; #X connect 0 0 2 0; #X connect 1 0 6 0; #X connect 2 0 4 0; #X connect 3 0 0 0; #X connect 4 0 1 0; #X connect 5 0 8 0; #X connect 7 0 3 0; #X connect 8 0 10 0; #X connect 9 0 11 0; #X connect 9 1 7 1; #X connect 10 0 9 0; #X connect 11 0 7 0; #X restore 247 84 pd circle generator; #N canvas 498 387 361 260 baseline 0; #X obj 18 123 #fold +; #X obj 127 149 - 4; #X obj 18 56 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 18 101 # & ( -1 0 ); #X obj 18 146 # ==; #X obj 127 130 listelement 0; #X text 93 10 line generator; #X obj 18 166 # << 7; #X obj 18 79 #for ( 0 0 ) ( 0 0 ) ( 1 1 ); #X obj 127 110 #export_list; #X obj 18 9 inlet size; #X obj 18 187 outlet matrix; #X obj 18 33 fork; #X text 154 151 four pixels from bottom; #X connect 0 0 4 0; #X connect 1 0 4 1; #X connect 2 0 8 0; #X connect 3 0 0 0; #X connect 4 0 7 0; #X connect 5 0 1 0; #X connect 7 0 11 0; #X connect 8 0 3 0; #X connect 9 0 5 0; #X connect 10 0 12 0; #X connect 12 0 2 0; #X connect 12 1 9 0; #X connect 12 1 8 1; #X restore 204 117 pd baseline generator; #X text 78 236 (height \, width \, 1) grid = grey image; #X text 49 113 make blank image; #X text 30 163 feedback loop; #X text 78 200 (height \, width) grid = matrix; #X obj 204 63 shunt 2; #X obj 258 64 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1 ; #X obj 347 213 #color 0 800 1; #X msg 347 191 600 200 75; #X obj 224 -22 loadbang; #N canvas 645 360 400 289 fire 1; #X obj 174 180 #store; #X obj 61 196 #export_list; #X obj 6 65 # >> 2; #X obj 6 26 fork; #X obj 6 45 #convolve ( 3 3 # 1 0 0 0 1 0 1 1 1 ); #X obj 6 235 # & 255; #X obj 174 115 listmake; #X obj 6 103 # / 80; #X msg 174 138 \$1 1 # 256; #X obj 174 97 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 174 78 route grid; #X obj 60 155 inlet; #X obj 274 146 # + 32; #X obj 60 177 #dim; #X obj 6 214 # +; #X obj 6 258 outlet 0; #X msg 274 101 256 \$2 # 64; #X obj 6 84 # *; #X obj 6 7 inlet image; #X obj 274 79 inlet size; #X text 102 8 this fire algorithm; #X text 101 22 was designed by matju in 1994; #X text 264 167 makes a cache of; #X text 264 180 random numbers; #X obj 174 159 # rand; #X obj 274 123 # rand; #X connect 0 0 17 1; #X connect 1 0 6 1; #X connect 2 0 17 0; #X connect 3 0 4 0; #X connect 3 1 10 0; #X connect 4 0 2 0; #X connect 5 0 15 0; #X connect 6 0 8 0; #X connect 7 0 14 0; #X connect 8 0 24 0; #X connect 9 0 6 0; #X connect 10 0 9 0; #X connect 11 0 14 1; #X connect 11 0 13 0; #X connect 12 0 0 1; #X connect 13 0 1 0; #X connect 14 0 5 0; #X connect 16 0 25 0; #X connect 17 0 7 0; #X connect 18 0 3 0; #X connect 19 0 16 0; #X connect 24 0 0 0; #X connect 25 0 12 0; #X restore 71 180 pd fire generator; #X text 183 46 note: reset the size if you change the generator; #X msg 204 2 80 256; #X obj 23 -2 metro 33.3667; #X obj -15 -84 cnv 15 620 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X text -5 -84 fire.pd; #X text -5 -71 Copyright 2001 Mathieu Bouchard; #X obj -15 403 cnv 15 620 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text -7 411 GridFlow 0.8.0; #X text -7 411 GridFlow 0.8.0; #X connect 0 0 27 0; #X connect 2 0 6 0; #X connect 3 0 5 0; #X connect 4 0 29 0; #X connect 5 0 17 1; #X connect 7 0 4 1; #X connect 8 0 17 0; #X connect 9 0 3 0; #X connect 10 0 32 0; #X connect 11 0 31 0; #X connect 12 0 4 0; #X connect 13 0 9 0; #X connect 13 1 5 1; #X connect 15 0 2 0; #X connect 17 0 15 0; #X connect 18 0 29 1; #X connect 19 0 29 1; #X connect 24 0 19 0; #X connect 24 1 18 0; #X connect 25 0 24 1; #X connect 26 0 13 0; #X connect 27 0 26 0; #X connect 28 0 31 0; #X connect 29 0 8 0; #X connect 29 0 4 1; #X connect 31 0 7 0; #X connect 31 0 29 2; #X connect 31 0 24 0; #X connect 32 0 4 0; --- NEW FILE: color_detect.pd --- #N canvas 562 75 668 715 10; #X obj 14 262 # > 0; #X obj 68 284 # + 128; #X obj 383 135 hsl 222 15 0 442 0 0 empty empty tolerance 8 8 0 8 -260818 -1 -1 10300 1; #X obj 224 530 #out window; #X obj 68 262 # tanh* 127; #X obj 86 2 #store; #X obj 277 177 tgl 15 1 empty empty empty 0 -6 0 8 -261689 -258699 -1 1 1; #X obj 31 -64 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1 ; #X obj 14 179 # inv+; #X obj 14 284 # << 8; #X obj 14 160 #fold +; #X obj 315 360 loadbang; #X obj 298 398 #checkers; #X obj 224 468 # +; #X obj 224 445 # *; #X obj 297 446 # *; #X obj 224 489 # >> 8; #X obj 297 424 # inv+ 256; #X obj 271 490 # min 255; #X obj 298 362 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 380 76 #color; #X obj 72 22 s image; #X obj 240 426 r image; #X text 374 46 select a point in the color cube \; and a radius of accepted similarity.; #X obj 277 196 #pack 3; #X obj 299 177 tgl 15 1 empty empty empty 0 -6 0 8 -225271 -24198 -1 1 1; #X obj 321 177 tgl 15 1 empty empty empty 0 -6 0 8 -228992 -62784 -1 1 1; #X text 271 161 enable selection on:; #X text 339 178 all three = select sphere in color cube \; pick two = select circle in a color square \; pick one = select range in one channel; #X text 377 360 make background; #X obj 57 217 # inv+; #X obj 295 229 vradio 15 1 0 2 empty empty empty 0 -6 0 8 -241291 -66577 -1 0; #X text 314 228 erase nonselected; #X text 314 245 erase selected; #X obj 295 269 vradio 15 1 0 2 empty empty empty 0 -6 0 8 -241291 -66577 -1 1; #X text 317 268 strict; #X text 316 284 fuzzy; #X obj 296 325 vradio 15 1 0 2 empty empty empty 0 -6 0 8 -241291 -66577 -1 0; #X text 318 324 see filtered image on checkers; #X text 318 339 see opacity mask; #X obj 224 406 t a a; #N canvas 414 518 450 216 color 0; #X obj 25 3 inlet bang; #X obj 26 182 outlet image; #X obj 26 144 # min 255; #X obj 26 163 # max 0; #X obj 178 31 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 25 25 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 178 88 #outer + ( 0 0 9000 ); #X obj 48 24 t b b; #X obj 26 81 #outer * ( 1 0 0 ); #X obj 26 105 # +; #X obj 178 132 # + ( 0 128 128 ); #X obj 178 48 #for 0 320 1; #X obj 179 67 # * 113; #X obj 26 62 #outer + ( 320 # 0 ); #X obj 26 43 #for -120 360 2; #X obj 178 155 #redim ( 240 320 3 ); #X obj 178 109 # cos* ( 0 128 128 ); #X obj 26 124 #yuv_to_rgb; #X connect 0 0 7 0; #X connect 2 0 3 0; #X connect 3 0 1 0; #X connect 4 0 11 0; #X connect 5 0 14 0; #X connect 6 0 16 0; #X connect 7 0 5 0; #X connect 7 1 4 0; #X connect 8 0 9 0; #X connect 9 0 17 0; #X connect 10 0 15 0; #X connect 11 0 12 0; #X connect 12 0 6 0; #X connect 13 0 8 0; #X connect 14 0 13 0; #X connect 15 0 9 1; #X connect 16 0 10 0; #X connect 17 0 2 0; #X restore 133 21 pd color panorama; #X obj 133 2 loadbang; #X obj 210 -53 vradio 15 1 0 2 empty empty empty 0 -6 0 8 -241291 -66577 -1 1; #X text 229 -54 on video; #X text 229 -38 on color panorama; #X floatatom 336 136 5 0 0 0 - - -; #X obj 76 240 # *>>8 256; #X obj 338 302 hsl 129 15 4 4096 1 1 empty empty empty -2 -6 0 8 -260818 -1 -1 7000 1; #X floatatom 295 302 5 0 0 0 - - -; #X obj 58 87 #rgb_to_yuv; #X obj 90 55 vradio 15 1 0 2 empty empty empty 0 -6 0 8 -241291 -1 -1 0; #X text 107 55 RGB; #X text 107 70 YUV; #X text 141 55 warning: in YUV mode \,; #X text 140 81 green slider = U chroma; #X text 147 94 blue slider = V chroma; #X text 154 68 red slider = Y luma; #X obj 31 -39 metro 33.3667; #X obj 31 22 t a a; #X obj 31 1 #camera; #X obj 332 446 spigot; #X obj 379 447 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1; #X text 398 448 recurrent layering; #X obj 224 511 t a; #X obj 14 141 # &; #X obj 40 141 # inv+; #X obj 36 397 # >> 6; #X obj 14 198 shunt 2; #X obj 14 241 shunt 2; #X obj 14 55 shunt 2; #X obj 14 306 shunt 2; #X obj 68 308 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1 ; #X text 87 302 sort-of feather; #X obj 224 385 shunt 2; #X text 87 317 (8x8 square blur on mask); #X obj 31 -18 shunt 2; #X obj 36 377 # + 32; #X obj -2 561 cnv 15 740 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text 6 568 GridFlow 0.8.0; #X obj 1 -118 cnv 15 740 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 14 -118 color_detect.pd; #X text 13 -105 Copyright 2001-2004 Mathieu Bouchard; #X obj 14 122 # sq-; #X obj 61 179 # sq-; #X obj 36 337 #convolve (8 1 # 1); #X obj 36 357 #convolve (1 8 # 1); #X obj 14 457 #outer ignore (3 # 0); #X obj 298 379 #for (0 0) (240 320) (1 1); #X connect 0 0 9 0; #X connect 1 0 71 0; #X connect 2 0 46 0; #X connect 4 0 1 0; #X connect 5 0 59 0; #X connect 6 0 24 0; #X connect 7 0 58 0; #X connect 8 0 68 0; #X connect 9 0 71 0; #X connect 10 0 8 0; #X connect 11 0 19 0; #X connect 12 0 15 1; #X connect 13 0 16 0; #X connect 14 0 13 0; #X connect 15 0 13 1; #X connect 16 0 64 0; #X connect 17 0 15 0; #X connect 18 0 64 0; #X connect 19 0 88 0; #X connect 20 0 83 1; #X connect 22 0 14 1; #X connect 24 0 66 0; #X connect 25 0 24 1; #X connect 26 0 24 2; #X connect 30 0 69 0; #X connect 31 0 68 1; #X connect 34 0 69 1; #X connect 37 0 74 1; #X connect 40 0 14 0; #X connect 40 1 17 0; #X connect 41 0 5 1; #X connect 42 0 41 0; #X connect 43 0 76 1; #X connect 46 0 84 0; #X connect 47 0 4 0; #X connect 48 0 49 0; #X connect 49 0 47 1; #X connect 50 0 83 0; #X connect 51 0 70 1; #X connect 58 0 76 0; #X connect 59 0 70 0; #X connect 59 1 21 0; #X connect 60 0 59 0; #X connect 61 0 15 1; #X connect 62 0 61 1; #X connect 64 0 3 0; #X connect 64 0 61 0; #X connect 65 0 10 0; #X connect 66 0 65 1; #X connect 67 0 87 0; #X connect 68 0 69 0; #X connect 68 1 30 0; #X connect 69 0 0 0; #X connect 69 1 47 0; #X connect 70 0 83 0; #X connect 70 1 50 0; #X connect 71 0 87 0; #X connect 71 1 85 0; #X connect 72 0 71 1; #X connect 74 0 40 0; #X connect 74 1 18 0; #X connect 76 0 60 0; #X connect 76 1 5 0; #X connect 77 0 67 0; #X connect 83 0 65 0; #X connect 84 0 8 1; #X connect 85 0 86 0; #X connect 86 0 77 0; #X connect 87 0 74 0; #X connect 88 0 12 0; --- NEW FILE: goop.pd --- #N canvas 481 120 730 701 10; #X obj 91 -43 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1 ; #X obj 91 8 #camera; #X obj 38 113 t a a; #X msg 96 114 240 320 3 #; #X obj 95 92 loadbang; #N canvas 286 95 450 300 analysis 0; #X obj 46 17 inlet; #X obj 49 236 outlet; #X obj 64 67 spigot; #X obj 46 44 t a a; #X obj 114 68 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1 ; #X obj 114 15 inlet; #X obj 49 86 # -; #X obj 49 129 # - 30; #X obj 49 154 # max 0; #X obj 49 182 # * 20; #X obj 49 211 # min 256; #X obj 49 108 @! abs; #X connect 0 0 3 0; #X connect 2 0 6 1; #X connect 3 0 2 0; #X connect 3 1 6 0; #X connect 4 0 2 1; #X connect 5 0 4 0; #X connect 6 0 11 0; #X connect 7 0 8 0; #X connect 8 0 9 0; #X connect 9 0 10 0; #X connect 10 0 1 0; #X connect 11 0 7 0; #X restore 192 94 pd analysis; #X obj 275 94 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1 ; #X obj 123 433 r cam; #X obj 113 67 s cam; #X obj 91 33 t a a b; #X obj 340 65 loadbang; #X msg 307 66 1; #X obj 417 85 loadbang; #X msg 306 88 0; #X obj 150 484 loadbang; #X msg 150 504 set_geometry 0 0 480 640 \, hidecursor; #X obj 338 89 delay 5000; #X obj 91 -17 metro 33.3667; #X obj -15 -84 cnv 15 640 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj -17 582 cnv 15 640 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text -6 592 GridFlow 0.8.0; #X text 157 9 <-- open this and set your camera up; #X obj 38 92 #store; #X obj 71 143 # put 63; #X obj 71 164 # rand; #X obj 38 184 # +; #X obj 161 144 # *>>8; #X obj 192 121 # inv+ 256; #X obj 38 211 #convolve (1 5 # 1); #X obj 39 233 #convolve (5 1 # 1); #X obj 39 306 # max -128; #X obj 39 325 # min 127; #X obj 39 344 # + 128; #X obj 39 365 #inner (3 3 # 3 0 1 1 3 0 0 1 3); #X obj 39 387 # >> 2; #X obj 113 383 # inv+ 255; #X obj 39 407 # *>>8; #X obj 39 431 # +; #X obj 70 431 # *>>8; #X obj 39 457 #clip; #X obj 337 209 #rgb_to_greyscale; #X obj 337 235 # +; #X obj 337 256 #convolve (1 3 # 1); #X obj 337 278 #convolve (3 1 # 1); #X obj 337 324 # min 255; #X obj 337 345 #greyscale_to_rgb; #X obj 116 547 #out window; #X text 1 -85 goop.pd; #X obj 39 478 #scale_by 2; #X obj 71 185 # - 31; #X obj 337 301 # *>>8 27; #X obj 39 287 # *>>8 25; #X text 1 -71 Copyright 2004 Mathieu Bouchard; #X obj 39 261 # + 5; #X connect 0 0 17 0; #X connect 1 0 9 0; #X connect 2 0 25 0; #X connect 2 1 23 0; #X connect 3 0 22 1; #X connect 4 0 3 0; #X connect 5 0 27 0; #X connect 5 0 40 0; #X connect 6 0 5 1; #X connect 7 0 38 0; #X connect 9 0 5 0; #X connect 9 1 8 0; #X connect 9 2 22 0; #X connect 10 0 11 0; #X connect 11 0 6 0; #X connect 12 0 16 0; #X connect 13 0 6 0; #X connect 14 0 15 0; #X connect 15 0 46 0; #X connect 16 0 13 0; #X connect 17 0 1 0; #X connect 22 0 2 0; #X connect 23 0 24 0; #X connect 24 0 49 0; #X connect 25 0 28 0; #X connect 26 0 22 1; #X connect 27 0 26 1; #X connect 28 0 29 0; #X connect 29 0 53 0; #X connect 30 0 31 0; #X connect 31 0 26 0; #X connect 31 0 32 0; #X connect 32 0 33 0; #X connect 33 0 34 0; #X connect 34 0 36 0; #X connect 35 0 36 1; #X connect 36 0 37 0; #X connect 37 0 39 0; #X connect 38 0 37 1; #X connect 39 0 48 0; #X connect 40 0 41 0; #X connect 41 0 42 0; #X connect 42 0 43 0; #X connect 43 0 50 0; #X connect 44 0 41 1; #X connect 44 0 45 0; #X connect 45 0 35 0; #X connect 45 0 38 1; #X connect 48 0 46 0; #X connect 49 0 25 1; #X connect 50 0 44 0; #X connect 51 0 30 0; #X connect 53 0 51 0; --- NEW FILE: binary_operations.pd --- #N canvas 401 211 734 490 10; #X text 163 212 posterize; #X obj 99 187 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1 ; #X obj 143 187 hsl 59 15 2 8 0 0 empty empty empty -2 -6 0 8 -260818 -1 -1 0 1; #X obj 65 103 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 87 361 # ^; #X obj 135 336 hsl 137 15 0 255 0 0 empty empty empty -2 -6 0 8 -260818 -1 -1 0 1; #X obj 99 237 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1 ; #X text 124 144 negative; #X obj 39 121 #in; #X text 146 361 munchies (XOR effect) in the colour domain; #X obj 39 187 shunt 2; #X obj 39 338 shunt 2; #X text 157 297 color wrapping; #X obj 88 261 # %; #X obj 98 338 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1 ; #X obj 87 164 # inv+ 255; #X obj 99 142 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1 ; #X obj 65 54 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1; #X obj 89 304 # /; #X obj 39 142 shunt 2; #X obj 39 423 #out window; #X obj 88 283 # * 255; #X obj 166 265 hsl 137 15 0 255 0 0 empty empty empty -2 -6 0 8 -260818 -1 -1 0 1; #X obj 39 237 shunt 2; #X text 88 105 image loader; #X msg 65 121 open r001.jpg \, bang; #X obj 65 78 metro 33.3667; #X obj 87 212 #posterize; #X obj 8 456 cnv 15 720 30 empty empty empty 20 12 0 14 -200249 -66577 0; #X text 16 463 GridFlow 0.8.0; #X obj 8 5 cnv 15 720 30 empty empty empty 20 12 0 14 -233017 -66577 0; #X text 11 5 binary_operations.pd; #X text 222 143 <-- try various combinations of checkboxes and settings. then click on the image loader to see the result.; #X text 11 19 Copyright Mathieu Bouchard; #X connect 1 0 10 1; #X connect 2 0 27 1; #X connect 3 0 25 0; #X connect 4 0 20 0; #X connect 5 0 4 1; #X connect 6 0 23 1; #X connect 8 0 19 0; #X connect 10 0 23 0; #X connect 10 1 27 0; #X connect 11 0 20 0; #X connect 11 1 4 0; #X connect 13 0 21 0; #X connect 14 0 11 1; #X connect 15 0 10 0; #X connect 16 0 19 1; #X connect 17 0 26 0; #X connect 18 0 11 0; #X connect 19 0 10 0; #X connect 19 1 15 0; #X connect 21 0 18 0; #X connect 22 0 18 1; #X connect 22 0 13 1; #X connect 23 0 11 0; #X connect 23 1 13 0; #X connect 25 0 8 0; #X connect 26 0 3 0; #X connect 27 0 23 0;

1 0

externals/gridflow/doc moulinette.rb,NONE,1.1
by Mathieu Bouchard 04 Oct '05

04 Oct '05

Update of /cvsroot/pure-data/externals/gridflow/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21117/doc Added Files: moulinette.rb Log Message: starting to commit gridflow 0.8.0 ... if you know how to use "cvs import" please mail me and i'll use it for 0.8.1 --- NEW FILE: moulinette.rb --- =begin $Id: moulinette.rb,v 1.1 2005/10/04 02:02:14 matju Exp $ convert GridFlow Documentation XML to HTML with special formatting. GridFlow Copyright (c) 2001,2002,2003,2004,2005 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. =end GF_VERSION = "0.8.0" #$use_rexml = true $use_rexml = false #require "gridflow" if $use_rexml # this is a pure ruby xml-parser begin require "rexml/sax2parser" rescue LoadError require "rexml/parsers/sax2parser" include REXML::Parsers end include REXML else # this uses libexpat.so require "xmlparser" end =begin todo [ ] make it use the mk() function as much as possible. [ ] make it validate [ ] make it find the size of the pictures (and insert width/height attrs) [ ] tune the output [ ] fix the header of the page =end if nil alias real_print print alias real_puts puts def print(*x); real_print "[#{caller[0]}]"; real_print *x; end def puts (*x); real_print "[#{caller[0]}]"; real_puts *x; end end def warn(text) STDERR.print "\e[1;031mWARNING:\e[0m " STDERR.puts text end $escape_map={ "<" => "<", ">" => ">", "&" => "&", } # hackish transcoding from unicode to iso-8859-1 def multicode(text); text.gsub(/\xc2(.)/) { $1 } end def html_quote(text) return nil if not text text = text.gsub(/[<>&]/) {|x| $escape_map[x] } text = multicode(text) if /\xc2/ =~ text text end def mk(tag,*values,&block) raise "value-list's length must be even" if values.length % 2 != 0 print "<#{tag}" i=0 while i<values.length print " #{values[i]}=\"#{values[i+1]}\"" i+=2 end print ">" (block[]; mke tag) if block end def mke(tag) print "</#{tag}>" end def mkimg(parent,alt=nil,prefix=nil) #STDERR.puts parent.to_s icon = parent.contents.find {|x| XNode===x and x.tag == 'icon' } name = parent.att["name"] url = prefix+"/"+name+"-icon.png" if icon and icon.att["src"] url = icon.att["src"] STDERR.puts "overriding #{url} with #{icon.att["src"]}" end url = url.sub(/,.*$/,"") # what's this for again? warn "icon #{url} not found" if not File.exist? url url = url.gsub(%r"#") {|x| sprintf "%%%02x", x[0] } alt = icon.att["text"] if icon and not alt alt = "[#{name}]" mk(:img, :src, url, :alt, alt, :border, 0) end class XString < String def show print html_quote(gsub(/[\r\n\t ]+$/," ")) end end module HasOwnLayout; end class XNode # subclass interface: # #show_index : print as html in index # #show : print as html in main part of the doc @valid_tags = {} class<<self attr_reader :valid_tags def register(*args,&b) qlass = (if b then Class.new self else self end) qlass.class_eval(&b) if b for k in args do XNode.valid_tags[k]=qlass end #qlass.class_eval { # public :show # public :show_index #} end end def initialize tag, att, *contents @tag,@att,@contents = tag, att, contents contents.each {|c| c.parent = self if XNode===c } end attr_reader :tag, :att, :contents attr_accessor :parent def [] i; contents[i] end def show_index contents.each {|x| next unless XNode===x; x.show_index } end # this method segfaults in ruby 1.8 # because of method lookup on Qundef or whatever. def show #STDERR.puts GridFlow.get_id(contents) #STDERR.puts self contents.each {|x| # STDERR.puts GridFlow.get_id(x) x.show } end def inspect; "#<XNode #{tag}>"; end def to_s; inspect; end end XNode.register("documentation") {} XNode.register(*%w( icon help arg rest )) {public def show; end } XNode.register("section") {public def show write_black_ruler mk(:tr) { mk(:td,:colspan,4) { mk(:a,:name,att["name"].gsub(/ /,'_')) {} mk(:h4) { print att["name"] }}} contents.each {|x| if HasOwnLayout===x then x.show else mk(:tr) { mk(:td) {}; mk(:td) {}; mk(:td) { x.show }} puts "" end } mk(:tr) { mk(:td) { print " " }} puts "" end def show_index mk(:h4) { mk(:a,:href,"#"+att["name"].gsub(/ /,'_')) { print att["name"] }} print "<ul>\n" super print "</ul>\n" end } # basic text formatting nodes. XNode.register(*%w( p i u b sup )) {public def show print "<#{tag}>" super print "</#{tag}>" end } XNode.register("k") {public def show print "<kbd>" # oughta be in stylesheet? super print "</kbd>" end } # explicit hyperlink on the web. XNode.register("link") {public def show STDERR.puts "att = #{att.inspect}" raise if not att['to'] print "<a href='#{att['to']}'>" super print att[:to] if contents.length==0 print "</a>" end } XNode.register("list") {public attr_accessor :counter def show self.counter = att.fetch("start"){"1"}.to_i mk(:ul) { super # method call on Qundef ??? } end } XNode.register("li") {public def show mk(:li) { print "#{parent.counter}", " : " parent.counter += 1 super } end } # and "macro", "enum", "type", "use" XNode.register("class") {public include HasOwnLayout def show tag = self.tag name = att['name'] or raise mk(:tr) { mk(:td,:colspan,4,:bgcolor,"#ffb080") { mk(:b) { print " "*2, "#{tag} " } mk(:a,:name,name) { print name } } } mk(:tr) { mk(:td) {} mk(:td,:valign,:top) { print " \n" help = contents.find {|x| XNode===x and x.tag == 'help' } mkimg(self,nil,"flow_classes") if /reference|format/ =~ $file mk(:br,:clear,"left") 2.times { mk(:br) } if help big = help.att['image'] || att['name'] if big[0]==?@ then big="images/help_#{big}.png" end warn "help #{big} not found" if not File.exist?(big) #small = big.gsub(/png$/, 'jpg').gsub(/\//, '/ic_') mk(:a,:href,big) { #mk(:img,:src,small,:border,0) mk(:img,:src,"images/see_screenshot.png",:border,0) } end mk(:br,:clear,"left") mk(:br) }#/td mk(:td) { print " \n" super print " " }#/td }#/tr end def show_index icon = contents.find {|x| XNode===x && x.tag == "icon" } if not att["name"] then raise "name tag missing?" end mk(:li) { mk(:a,:href,"\#"+att["name"]) { mkimg(self,att["cname"],"flow_classes") }} puts super end } def nice_table mk(:table,:border,0,:bgcolor,:black,:cellspacing,1) { mk(:tr) { mk(:td,:valign,:top,:align,:left) { mk(:table,:bgcolor,:white,:border,0, :cellpadding,4,:cellspacing,1) { yield }}}} end XNode.register("attr") {public def show print " " if parent.tag == "inlet" or parent.tag == "outlet" mk(:b) { print "#{parent.tag} #{parent.att['id']} " } end print "#{tag} " print "#{html_quote att['name']} (" s=html_quote(att["name"]) s="#{att['type']} #{s}" if att['type'] print "#{s}" print ") " end } XNode.register("method") {public if true # def show print " " if parent.tag == "inlet" or parent.tag == "outlet" mk(:b) { print "#{parent.tag} #{parent.att['id']} " } end print "#{tag} " print "#{html_quote att['name']} (" print contents.map {|x| next unless XNode===x case x.tag when "arg" s=html_quote(x.att["name"]) s="#{x.att['type']} #{s}" if x.att['type'] s when "rest" (x.att["name"]||"") + "..." end }.compact.join(", ") print ") " super print " \n" end else # def show print " " mk(:table) { mk(:tr) { mk(:td) { name = "" name << "#{parent.tag} #{parent.att['id']} " if \ parent.tag == "inlet" or parent.tag == "outlet" name << tag.to_s mk(:b) { print name.gsub(/ /," ") } }; mk(:td) { nice_table { mk(:tr) { mk(:td,:width,1) { print html_quote(att['name']) } contents.each {|x| next unless XNode===x case x.tag when "arg" mk(:td,:bgcolor,:pink) { s = "" if x.att["type"] s << "" << html_quote(x.att["type"]) << "" end if x.att["name"] s << " " << html_quote(x.att["name"]) end s<<" " if s.length==0 mk(:b) { puts s } } when "rest" mk(:td,:bgcolor,:pink) { mk(:b) { print html_quote(x.att["name"]), "..."} } end } }} }; mk(:td) { super }}} end end # } XNode.register("table") {public def show colors = ["#ffffff","#f0f8ff",] rows = contents.find_all {|x| XNode===x && x.tag=="row" } rows.each_with_index {|x,i| x.bgcolor = colors[i%2] } mk(:tr) { 2.times { mk(:td) {} } mk(:td) { nice_table { mk(:tr) { columns = contents.find_all {|x| XNode===x && x.tag=="column" } columns.each {|x| mk(:td,:bgcolor,"#808080") { mk(:font,:color,"#ffffff") { mk(:b) { x.contents.each {|y| y.show }}}}} } super }}} end } XNode.register("column") {public def show; end } XNode.register("row") {public attr_accessor :bgcolor def show columns = parent.contents.find_all {|x| XNode===x && x.tag=="column" } mk(:tr) { columns.each {|x| mk(:td,:bgcolor,bgcolor) { id = x.att["id"] case x.att["type"] when "icon" # should fix this for non-op icons x = "op/#{att['cname']}-icon.png" if not File.exist? x warn "no icon for #{att['name']} (#{x})\n" end mk(:img,:src,x,:border,0,:alt,att["name"]) else if id=="" then contents.each {|x| x.show } else # print html_quote(att[id] || "--") print multicode(att[id] || "--") end end }}} end } XNode.register("inlet","outlet") {} #----------------------------------------------------------------# if $use_rexml class GFDocParser def initialize(file) @sax = SAX2Parser.new(File.open(file)) @xml_lists = [] @stack = [[]] @sax.listen(:start_element) {|a,b,c,d| startElement(b,d) } @sax.listen( :end_element) {|a,b,c| endElement(b) } @sax.listen( :characters) {|a| @gfdoc.character(a) } end def do_it; @sax.parse; end end else class GFDocParser def initialize(file) @xml = XMLParser.new("ISO-8859-1") foo=self; @xml.instance_eval { @gfdoc=foo } def @xml.startElement(tag,attrs) @gfdoc.startElement(tag,attrs) end def @xml.endElement(tag) @gfdoc.endElement(tag) end def @xml.character(text) @gfdoc.character(text) end @file = File.open file @xml_lists = [] @stack = [[]] end def do_it; @xml.parse(@file.readlines.join("\n"), true) end def method_missing(sel,*args) @xml.send(sel,*args) end end end class GFDocParser attr_reader :stack def startElement(tag,attrs) if not XNode.valid_tags[tag] then raise XMLParserError, "unknown tag #{tag}" end @stack<<[tag,attrs] end def endElement(tag) node = XNode.valid_tags[tag].new(*(a)stack.pop) @stack.last << node end def character(text) if not String===(a)stack.last.last then @stack.last << XString.new("") end @stack.last.last << text end end #----------------------------------------------------------------# def write_header(tree) puts <<EOF <html><head>  <title>GridFlow #{GF_VERSION} - #{tree.att['title']}</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link rel="stylesheet" href="gridflow.css" type="text/css"> </head> <body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="100%" bgcolor="white" border="0" cellspacing="2"> <tr><td colspan="4" bgcolor="#082069"> <img src="images/titre_gridflow.png" width="253" height="23"> </td></tr><tr><td> </td></tr> EOF write_black_ruler puts <<EOF <tr><td colspan="4" height="16"> <h4>GridFlow #{GF_VERSION} - #{tree.att['title']}</h4> </td></tr> <tr> <td width="5%" rowspan="2"> </td> <td width="15%" height="23"> </td> <td width="80%" height="23"> </td> <td width="5%" height="23"> </td> </tr> EOF end def write_black_ruler puts <<EOF <tr><td colspan="4" bgcolor="black"> <img src="images/black.png" width="1" height="2"></td></tr> EOF end def write_footer puts <<EOF <td colspan="4" bgcolor="black"> <img src="images/black.png" width="1" height="2"></td></tr> <tr><td colspan="4"> GridFlow #{GF_VERSION} Documentation Copyright © 2001,2002,2003,2004,2005 by Mathieu Bouchard <a href="mailto:matju@sympatico.ca">matju(a)artengine.ca</a> </td></tr></table></body></html> EOF end #----------------------------------------------------------------# $nodes = {} XMLParserError = Exception if $use_rexml def read_one_page file begin STDERR.puts "reading #{file}" parser = GFDocParser.new(file) parser.do_it $nodes[file] = parser.stack[0][0] rescue Exception => e puts "" puts "" STDERR.puts e.inspect i = parser.stack.length-1 (STDERR.puts "\tinside <#{parser.stack[i][0]}>"; i-=1) until i<1 # strange that line numbers are doubled. # also the byte count is offset by the line count !?!?!? STDERR.puts "\tinside #{file}:#{parser.line/2 + 1}" + " (column #{parser.column}," + " byte #{parser.byteIndex - parser.line/2})" raise "why don't you fix the documentation" end end def write_one_page file begin $file = file output_name = file.sub(/\.xml/,".html") STDERR.puts "writing #{output_name}" STDOUT.reopen output_name, "w" tree = $nodes[file] write_header(tree) mk(:tr) { mk(:td,:colspan,2) { mk(:div,:cols,tree.att["indexcols"]||1) { tree.show_index puts " " }}} tree.show write_footer puts "" puts "" rescue Exception => e STDERR.puts "#{e.class}: #{e.message}" STDERR.puts e.backtrace end end $files = %w( install.xml project_policy.xml reference.xml format.xml internals.xml architecture.xml) $files.each {|input_name| read_one_page input_name } $files.each {|input_name| write_one_page input_name }

1 0

externals/gridflow/devices4ruby ParallelPort.rb, NONE, 1.1 SoundMixer.rb, NONE, 1.1 SoundPCM.rb, NONE, 1.1 extconf.rb, NONE, 1.1 ioctl.rb, NONE, 1.1
by Mathieu Bouchard 04 Oct '05

04 Oct '05

Update of /cvsroot/pure-data/externals/gridflow/devices4ruby In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21117/devices4ruby Added Files: ParallelPort.rb SoundMixer.rb SoundPCM.rb extconf.rb ioctl.rb Log Message: starting to commit gridflow 0.8.0 ... if you know how to use "cvs import" please mail me and i'll use it for 0.8.1 --- NEW FILE: SoundPCM.rb --- # $Id: SoundPCM.rb,v 1.1 2005/10/04 02:02:14 matju Exp $ require "linux/ioctl" module Linux module SoundPCM extend IoctlClass # SNDCTL Kernel Procedure Numbers SEQ_RESET = 0x00005100 SEQ_SYNC = 0x00005101 SEQ_CTRLRATE = 0xc0045103 SEQ_GETOUTCOUNT = 0x80045104 SEQ_GETINCOUNT = 0x80045105 SEQ_PERCMODE = 0x40045106 SEQ_TESTMIDI = 0x40045108 SEQ_RESETSAMPLES = 0x40045109 SEQ_NRSYNTHS = 0x8004510a SEQ_NRMIDIS = 0x8004510b SEQ_THRESHOLD = 0x4004510d SEQ_PANIC = 0x00005111 SEQ_OUTOFBAND = 0x40085112 SEQ_GETTIME = 0x80045113 SYNTH_INFO = 0xc08c5102 SYNTH_MEMAVL = 0xc004510e SYNTH_ID = 0xc08c5114 SYNTH_CONTROL = 0xcfa45115 SYNTH_REMOVESAMPLE = 0xc00c5116 FM_LOAD_INSTR = 0x40285107 FM_4OP_ENABLE = 0x4004510f TMR_TIMEBASE = 0xc0045401 TMR_START = 0x00005402 TMR_STOP = 0x00005403 TMR_CONTINUE = 0x00005404 TMR_TEMPO = 0xc0045405 TMR_SOURCE = 0xc0045406 TMR_METRONOME = 0x40045407 TMR_SELECT = 0x40045408 MIDI_INFO = 0xc074510c MIDI_PRETIME = 0xc0046d00 MIDI_MPUMODE = 0xc0046d01 MIDI_MPUCMD = 0xc0216d02 # DSP_* names are obsolete ? DSP_STEREO = 0xc0045003 DSP_GETBLKSIZE = 0xc0045004 DSP_SETDUPLEX = 0x00005016 DSP_GETODELAY = 0x80045017 DSP_PROFILE = 0x40045017 # what is this? COPR_RESET = 0x00004300 COPR_LOAD = 0xcfb04301 COPR_RDATA = 0xc0144302 COPR_RCODE = 0xc0144303 COPR_WDATA = 0x40144304 COPR_WCODE = 0x40144305 COPR_RUN = 0xc0144306 COPR_HALT = 0xc0144307 COPR_SENDMSG = 0xcfa44308 COPR_RCVMSG = 0x8fa44309 # SOUND_PCM Kernel Procedure Numbers PCM_READ_BITS , PCM_WRITE_BITS = 0x80045005, 0xc0045005 PCM_READ_CHANNELS , PCM_WRITE_CHANNELS = 0x80045006, 0xc0045006 PCM_READ_FILTER , PCM_WRITE_FILTER = 0x80045007, 0xc0045007 PCM_READ_RATE , PCM_WRITE_RATE = 0x80045002, 0xc0045002 PCM_RESET = 0x00005000 PCM_SYNC = 0x00005001 PCM_POST = 0x00005008 PCM_SUBDIVIDE = 0xc0045009 PCM_SETFRAGMENT = 0xc004500a PCM_GETFMTS = 0x8004500b PCM_SETFMT = 0xc0045005 PCM_GETOSPACE = 0x8010500c PCM_GETISPACE = 0x8010500d PCM_NONBLOCK = 0x0000500e PCM_GETCAPS = 0x8004500f PCM_GETTRIGGER , PCM_SETTRIGGER = 0x80045010, 0x40045010 PCM_SETSYNCRO = 0x00005015 PCM_GETIPTR = 0x800c5011 PCM_GETOPTR = 0x800c5012 PCM_MAPINBUF = 0x80085013 PCM_MAPOUTBUF = 0x80085014 ioctl_accessor :bits , :PCM_READ_BITS , :PCM_WRITE_BITS ioctl_accessor :channels, :PCM_READ_CHANNELS, :PCM_WRITE_CHANNELS ioctl_accessor :filter , :PCM_READ_FILTER , :PCM_WRITE_FILTER ioctl_accessor :rate , :PCM_READ_RATE , :PCM_WRITE_RATE end # backward compatibility SoundDSP = SoundPCM end # Linux --- NEW FILE: extconf.rb --- #!/usr/bin/env ruby # $Id: extconf.rb,v 1.1 2005/10/04 02:02:14 matju Exp $ # installer for RubyX11 / MetaRuby / etc # by Mathieu Bouchard require "rbconfig" require "ftools" include Config $DESTDIR = "#{CONFIG["sitedir"]}/#{CONFIG["MAJOR"]}.#{CONFIG["MINOR"]}" #$DESTDIR = "/home/matju/lib/ruby/#{RUBY_VERSION[0,3]}" $RUBY = "ruby" while ARGV.length>0 arg=ARGV.shift case arg when /=/ i=arg.index '=' ARGV.unshift arg[0..i-1], arg[i+1..-1] when "--prefix" $DESTDIR = ARGV.shift + "/lib/ruby/#{CONFIG["MAJOR"]}.#{CONFIG["MINOR"]}" end end def install_files(f,base,entries) entries.each {|type,name,*rest| case type when :ruby f.puts "\tinstall -m644 #{base+name} $(DESTDIR)/#{base+name}" when :directory f.puts "\t@mkdir $(DESTDIR)/#{base+name} || true" install_files(f,base+name,rest) end } end def uninstall_files(f,base,entries) entries.each {|type,name,*rest| case type when :ruby f.puts "\trm $(DESTDIR)/#{base+name}" when :directory uninstall_files(f,base+name,rest) end } end def make_makefile File.open("Makefile","w") {|f| f.puts "# Warning: this file is GENERATED by ./extconf.rb", "" f.puts "DESTDIR = #{$DESTDIR}", "" f.puts "RUBY = #{$RUBY}" f.puts "all::", "" f.puts "Makefile: extconf.rb" f.puts "\t$(RUBY) extconf.rb", "" f.puts "install::" f.puts "\t@mkdir -p $(DESTDIR)" install_files(f,"",FILES) f.puts f.puts "uninstall::" uninstall_files(f,"",FILES) f.puts } #FILES.each {|name| # File.install "lib/#{name}", "#{DSTPATH}/#{name}", 0644, true #end end #----------------------------------------------------------------# $DESTDIR += "/linux/" #(HACK!) FILES = [ # [:directory, "linux/", [:ruby, "ioctl.rb"], [:ruby, "SoundPCM.rb"], [:ruby, "ParallelPort.rb"], [:ruby, "SoundMixer.rb"], # ] ] make_makefile __END__ ### the following is discarded (just a test) require "mkmf" srcs = %w( termios ) #have_library("m") #have_func("sincos") #have_func("asinh") #if have_header("fftw.h") # if have_library("fftw", "fftwnd_create_plan") # srcs.push "na_fftw" # else # $defs.delete "-DHAVE_FFTW_H" # end #end $objs = srcs.map {|i| i+".o"} #dir_config("linux") create_makefile("linux") --- NEW FILE: ioctl.rb --- # general-purpose code for performing # less-than-trivial IOCTL operations. # note that this is quite hackish # but is still better than writing actual C code. module Linux; DEVICES_VERSION = "0.1.1"; end module IoctlClass def ioctl_reader(sym,cmd_in) module_eval %{def #{sym} ioctl_intp_in(#{cmd_in}) end} end def ioctl_writer(sym,cmd_out) module_eval %{def #{sym}=(v) ioctl_intp_out(#{cmd_out},v) #{sym} if respond_to? :#{sym} end} end def ioctl_accessor(sym,cmd_in,cmd_out) ioctl_reader(sym,cmd_in) ioctl_writer(sym,cmd_out) end end module Ioctl # this method is not used anymore def int_from_4(foo) # if it crashes, just insert foo=foo.reverse here. (foo[0]+0x100*foo[1])+0x10000*(foo[2]+0x100*foo[3]) end # this was a big hack (from hell) that i used until I actually # learned the other feature of ioctl(). =begin def ioctl_intp_out(arg1,arg2) tmp = arg2 + 2**32 foo = [2*tmp.id + 16].pack("l").unpack("P4")[0] tmp_ptr = int_from_4(foo) # STDOUT.printf "tmp_ptr=%x\n", tmp_ptr ioctl(arg1,tmp_ptr) end def ioctl_intp_in(arg1) tmp = 0xdeadbeef + 2**32 foo = [2*tmp.id + 16].pack("l").unpack("P4")[0] tmp_ptr = int_from_4(foo) # tmp_ptr = foo.unpack("l")[0] # STDOUT.printf "tmp_ptr=%x\n", tmp_ptr ioctl(arg1,tmp_ptr) tmp & (2**32-1) end =end def ioctl_intp_out(arg1,arg2) ioctl(arg1,[arg2].pack("l")) end def ioctl_intp_in(arg1) ioctl(arg1,s="blah") return s.unpack("l")[0] end end class IO; include Ioctl; end --- NEW FILE: ParallelPort.rb --- require "linux/ioctl" # Copyright (c) 2001, 2003 by Mathieu Bouchard # this is published under the Ruby license =begin if using a DB-25 female connector as found on a PC, then the pin numbering is like: 13 _____ 1 25 \___/ 14 1 = STROBE = the clock line is a square wave, often at 9600 Hz, which determines the data rate in usual circumstances. 2..9 = D0..D7 = the eight ordinary data bits 10 = -ACK (status bit 6 ?) 11 = BUSY (status bit 7) 12 = PAPER_END (status bit 5) 13 = SELECT (status bit 4 ?) 14 = -AUTOFD 15 = -ERROR (status bit 3 ?) 16 = -INIT 17 = -SELECT_IN 18..25 = GROUND =end module Linux; module ParallelPort extend IoctlClass @port_flags = %w[ LP_EXIST LP_SELEC LP_BUSY LP_OFFL LP_NOPA LP_ERR LP_ABORT LP_CAREFUL LP_ABORTOPEN LP_TRUST_IRQ ] @port_status = %w[ nil, nil, nil, LP_PERRORP # unchanged input, active low LP_PSELECD # unchanged input, active high LP_POUTPA # unchanged input, active high LP_PACK # unchanged input, active low LP_PBUSY # inverted input, active high ] LPCHAR = 0x0601 LPTIME = 0x0602 LPABORT = 0x0604 LPSETIRQ = 0x0605 LPGETIRQ = 0x0606 LPWAIT = 0x0608 LPCAREFUL = 0x0609 # obsoleted??? wtf? LPABORTOPEN = 0x060a LPGETSTATUS = 0x060b # return LP_S(minor) LPRESET = 0x060c # reset printer LPGETSTATS = 0x060d # struct lp_stats (most likely turned off) LPGETFLAGS = 0x060e # get status flags LPTRUSTIRQ = 0x060f # set/unset the LP_TRUST_IRQ flag ioctl_reader :port_flags , :LPGETFLAGS ioctl_reader :port_status, :LPGETSTATUS ioctl_writer :port_careful,:LPCAREFUL ioctl_writer :port_char, :LPCHAR end end --- NEW FILE: SoundMixer.rb --- require "linux/ioctl" module Linux; module SoundMixer extend IoctlClass MIXER_NRDEVICES = 0x00000019 MIXER_VOLUME = 0x00000000 MIXER_BASS = 0x00000001 MIXER_TREBLE = 0x00000002 MIXER_SYNTH = 0x00000003 MIXER_PCM = 0x00000004 MIXER_SPEAKER = 0x00000005 MIXER_LINE = 0x00000006 MIXER_MIC = 0x00000007 MIXER_CD = 0x00000008 MIXER_IMIX = 0x00000009 MIXER_ALTPCM = 0x0000000a MIXER_RECLEV = 0x0000000b MIXER_IGAIN = 0x0000000c MIXER_OGAIN = 0x0000000d MIXER_LINE1 = 0x0000000e MIXER_LINE2 = 0x0000000f MIXER_LINE3 = 0x00000010 MIXER_DIGITAL1 = 0x00000011 MIXER_DIGITAL2 = 0x00000012 MIXER_DIGITAL3 = 0x00000013 MIXER_PHONEIN = 0x00000014 MIXER_PHONEOUT = 0x00000015 MIXER_VIDEO = 0x00000016 MIXER_RADIO = 0x00000017 MIXER_MONITOR = 0x00000018 ONOFF_MIN = 0x0000001c ONOFF_MAX = 0x0000001e MIXER_NONE = 0x0000001f MIXER_ENHANCE = 0x0000001f MIXER_MUTE = 0x0000001f MIXER_LOUD = 0x0000001f MIXER_RECSRC = 0x000000ff MIXER_DEVMASK = 0x000000fe MIXER_RECMASK = 0x000000fd MIXER_CAPS = 0x000000fc MIXER_STEREODEVS = 0x000000fb MIXER_OUTSRC = 0x000000fa MIXER_OUTMASK = 0x000000f9 MASK_VOLUME = 0x00000001 MASK_BASS = 0x00000002 MASK_TREBLE = 0x00000004 MASK_SYNTH = 0x00000008 MASK_PCM = 0x00000010 MASK_SPEAKER = 0x00000020 MASK_LINE = 0x00000040 MASK_MIC = 0x00000080 MASK_CD = 0x00000100 MASK_IMIX = 0x00000200 MASK_ALTPCM = 0x00000400 MASK_RECLEV = 0x00000800 MASK_IGAIN = 0x00001000 MASK_OGAIN = 0x00002000 MASK_LINE1 = 0x00004000 MASK_LINE2 = 0x00008000 MASK_LINE3 = 0x00010000 MASK_DIGITAL1 = 0x00020000 MASK_DIGITAL2 = 0x00040000 MASK_DIGITAL3 = 0x00080000 MASK_PHONEIN = 0x00100000 MASK_PHONEOUT = 0x00200000 MASK_RADIO = 0x00800000 MASK_VIDEO = 0x00400000 MASK_MONITOR = 0x01000000 MASK_MUTE = 0x80000000 MASK_ENHANCE = 0x80000000 MASK_LOUD = 0x80000000 MIXER_READ_VOLUME = 0x80044d00 MIXER_READ_BASS = 0x80044d01 MIXER_READ_TREBLE = 0x80044d02 MIXER_READ_SYNTH = 0x80044d03 MIXER_READ_PCM = 0x80044d04 MIXER_READ_SPEAKER = 0x80044d05 MIXER_READ_LINE = 0x80044d06 MIXER_READ_MIC = 0x80044d07 MIXER_READ_CD = 0x80044d08 MIXER_READ_IMIX = 0x80044d09 MIXER_READ_ALTPCM = 0x80044d0a MIXER_READ_RECLEV = 0x80044d0b MIXER_READ_IGAIN = 0x80044d0c MIXER_READ_OGAIN = 0x80044d0d MIXER_READ_LINE1 = 0x80044d0e MIXER_READ_LINE2 = 0x80044d0f MIXER_READ_LINE3 = 0x80044d10 MIXER_READ_MUTE = 0x80044d1f MIXER_READ_ENHANCE = 0x80044d1f MIXER_READ_LOUD = 0x80044d1f MIXER_READ_RECSRC = 0x80044dff MIXER_READ_DEVMASK = 0x80044dfe MIXER_READ_RECMASK = 0x80044dfd MIXER_READ_STEREODEVS = 0x80044dfb MIXER_READ_CAPS = 0x80044dfc MIXER_WRITE_VOLUME = 0xc0044d00 MIXER_WRITE_BASS = 0xc0044d01 MIXER_WRITE_TREBLE = 0xc0044d02 MIXER_WRITE_SYNTH = 0xc0044d03 MIXER_WRITE_PCM = 0xc0044d04 MIXER_WRITE_SPEAKER = 0xc0044d05 MIXER_WRITE_LINE = 0xc0044d06 MIXER_WRITE_MIC = 0xc0044d07 MIXER_WRITE_CD = 0xc0044d08 MIXER_WRITE_IMIX = 0xc0044d09 MIXER_WRITE_ALTPCM = 0xc0044d0a MIXER_WRITE_RECLEV = 0xc0044d0b MIXER_WRITE_IGAIN = 0xc0044d0c MIXER_WRITE_OGAIN = 0xc0044d0d MIXER_WRITE_LINE1 = 0xc0044d0e MIXER_WRITE_LINE2 = 0xc0044d0f MIXER_WRITE_LINE3 = 0xc0044d10 MIXER_WRITE_MUTE = 0xc0044d1f MIXER_WRITE_ENHANCE = 0xc0044d1f MIXER_WRITE_LOUD = 0xc0044d1f MIXER_WRITE_RECSRC = 0xc0044dff MIXER_INFO = 0x805c4d65 MIXER_ACCESS = 0xc0804d66 MIXER_AGC = 0xc0044d67 MIXER_3DSE = 0xc0044d68 MIXER_PRIVATE1 = 0xc0044d6f MIXER_PRIVATE2 = 0xc0044d70 MIXER_PRIVATE3 = 0xc0044d71 MIXER_PRIVATE4 = 0xc0044d72 MIXER_PRIVATE5 = 0xc0044d73 MIXER_GETLEVELS = 0xc0a44d74 MIXER_SETLEVELS = 0xc0a44d75 DEVICE_LABELS = [ "Vol ", "Bass ", "Trebl", "Synth", "Pcm ", "Spkr ","Line ", "Mic ", "CD ", "Mix ", "Pcm2 ","Rec ", "IGain", "OGain", "Line1", "Line2", "Line3", "Digital1", "Digital2", "Digital3", "PhoneIn", "PhoneOut", "Video", "Radio", "Monitor" ] DEVICE_NAMES = [ "vol", "bass", "treble", "synth", "pcm", "speaker", "line", "mic", "cd", "mix", "pcm2", "rec", "igain", "ogain", "line1", "line2", "line3", "dig1", "dig2", "dig3", "phin", "phout", "video", "radio", "monitor" ] DEVICE_NAMES.each_with_index {|name,i| ioctl_accessor name, MIXER_READ_VOLUME+i, MIXER_WRITE_VOLUME+i } end end

1 0

externals/gridflow/optional usb.c,NONE,1.1
by Mathieu Bouchard 04 Oct '05

04 Oct '05

Update of /cvsroot/pure-data/externals/gridflow/optional In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21117/optional Added Files: usb.c Log Message: starting to commit gridflow 0.8.0 ... if you know how to use "cvs import" please mail me and i'll use it for 0.8.1 --- NEW FILE: usb.c --- /* $Id: usb.c,v 1.1 2005/10/04 02:02:15 matju Exp $ GridFlow Copyright (c) 2001,2002,2003 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include <usb.h> #include "../base/grid.h.fcs" static Ruby cUSB; struct named_int {const char *name; int v;}; named_int usb_class_choice[] = { {"USB_CLASS_PER_INTERFACE",0}, {"USB_CLASS_AUDIO",1}, {"USB_CLASS_COMM",2}, {"USB_CLASS_HID",3}, {"USB_CLASS_PRINTER",7}, {"USB_CLASS_MASS_STORAGE",8}, {"USB_CLASS_HUB",9}, {"USB_CLASS_DATA",10}, {"USB_CLASS_VENDOR_SPEC",0xff}, {0,0}, }; named_int usb_descriptor_types_choices[] = { {"USB_DT_DEVICE",0x01}, {"USB_DT_CONFIG",0x02}, {"USB_DT_STRING",0x03}, {"USB_DT_INTERFACE",0x04}, {"USB_DT_ENDPOINT",0x05}, {"USB_DT_HID",0x21}, {"USB_DT_REPORT",0x22}, {"USB_DT_PHYSICAL",0x23}, {"USB_DT_HUB",0x29}, {0,0}, }; named_int usb_descriptor_types_sizes[] = { {"USB_DT_DEVICE_SIZE",18}, {"USB_DT_CONFIG_SIZE",9}, {"USB_DT_INTERFACE_SIZE",9}, {"USB_DT_ENDPOINT_SIZE",7}, {"USB_DT_ENDPOINT_AUDIO_SIZE",9},/* Audio extension */ {"USB_DT_HUB_NONVAR_SIZE",7}, {0,0}, }; named_int usb_endpoints_choices[] = { {"USB_ENDPOINT_ADDRESS_MASK",0x0f},/* in bEndpointAddress */ {"USB_ENDPOINT_DIR_MASK",0x80}, {"USB_ENDPOINT_TYPE_MASK",0x03},/* in bmAttributes */ {"USB_ENDPOINT_TYPE_CONTROL",0}, {"USB_ENDPOINT_TYPE_ISOCHRONOUS",1}, {"USB_ENDPOINT_TYPE_BULK",2}, {"USB_ENDPOINT_TYPE_INTERRUPT",3}, {0,0}, }; named_int usb_requests_choice[] = { {"USB_REQ_GET_STATUS",0x00}, {"USB_REQ_CLEAR_FEATURE",0x01}, {"USB_REQ_SET_FEATURE",0x03}, {"USB_REQ_SET_ADDRESS",0x05}, {"USB_REQ_GET_DESCRIPTOR",0x06}, {"USB_REQ_SET_DESCRIPTOR",0x07}, {"USB_REQ_GET_CONFIGURATION",0x08}, {"USB_REQ_SET_CONFIGURATION",0x09}, {"USB_REQ_GET_INTERFACE",0x0A}, {"USB_REQ_SET_INTERFACE",0x0B}, {"USB_REQ_SYNCH_FRAME",0x0C}, {0,0}, }; named_int usb_type_choice[] = { {"USB_TYPE_STANDARD",(0x00 << 5)}, {"USB_TYPE_CLASS",(0x01 << 5)}, {"USB_TYPE_VENDOR",(0x02 << 5)}, {"USB_TYPE_RESERVED",(0x03 << 5)}, {0,0}, }; named_int usb_recipient_choice[] = { {"USB_RECIP_DEVICE",0x00}, {"USB_RECIP_INTERFACE",0x01}, {"USB_RECIP_ENDPOINT",0x02}, {"USB_RECIP_OTHER",0x03}, {0,0}, }; named_int usb_misc[] = { {"USB_MAXENDPOINTS",32}, {"USB_MAXINTERFACES",32}, {"USB_MAXALTSETTING",128}, {"USB_MAXCONFIG",8}, {"USB_ENDPOINT_IN",0x80}, {"USB_ENDPOINT_OUT",0x00}, {"USB_ERROR_BEGIN",500000}, {0,0}, }; named_int* usb_all_defines[] = { usb_class_choice, usb_descriptor_types_choices, usb_descriptor_types_sizes, usb_endpoints_choices, usb_requests_choice, usb_type_choice, usb_recipient_choice, usb_misc, }; #define COMMA , //14 #define USB_DEVICE_DESCRIPTOR(MANGLE,SEP) \ MANGLE(bLength)SEP\ MANGLE(bDescriptorType)SEP\ MANGLE(bcdUSB)SEP\ MANGLE(bDeviceClass)SEP\ MANGLE(bDeviceSubClass)SEP\ MANGLE(bDeviceProtocol)SEP\ MANGLE(bMaxPacketSize0)SEP\ MANGLE(idVendor)SEP\ MANGLE(idProduct)SEP\ MANGLE(bcdDevice)SEP\ MANGLE(iManufacturer)SEP\ MANGLE(iProduct)SEP\ MANGLE(iSerialNumber)SEP\ MANGLE(bNumConfigurations) //8 #define USB_ENDPOINT_DESCRIPTOR(MANGLE,SEP) \ MANGLE(bLength)SEP\ MANGLE(bDescriptorType)SEP\ MANGLE(bEndpointAddress)SEP\ MANGLE(bmAttributes)SEP\ MANGLE(wMaxPacketSize)SEP\ MANGLE(bInterval)SEP\ MANGLE(bRefresh)SEP\ MANGLE(bSynchAddress) // MANGLE(extras) //9 #define USB_INTERFACE_DESCRIPTOR(MANGLE,SEP) \ MANGLE(bLength)SEP\ MANGLE(bDescriptorType)SEP\ MANGLE(bInterfaceNumber)SEP\ MANGLE(bAlternateSetting)SEP\ MANGLE(bNumEndpoints)SEP\ MANGLE(bInterfaceClass)SEP\ MANGLE(bInterfaceSubClass)SEP\ MANGLE(bInterfaceProtocol)SEP\ MANGLE(iInterface) // MANGLE(endpoint) // MANGLE(extras) //8 #define USB_CONFIG_DESCRIPTOR(MANGLE,SEP) \ MANGLE(bLength)SEP\ MANGLE(bDescriptorType)SEP\ MANGLE(wTotalLength)SEP\ MANGLE(bNumInterfaces)SEP\ MANGLE(bConfigurationValue)SEP\ MANGLE(iConfiguration)SEP\ MANGLE(bmAttributes)SEP\ MANGLE(MaxPower) // MANGLE(interface) // MANGLE(extras) static Ruby usb_get_endpoint (struct usb_endpoint_descriptor *self) { #define MANGLE(X) INT2NUM(self->X) return rb_funcall(rb_const_get(cUSB,SI(Endpoint)),SI(new),8, USB_ENDPOINT_DESCRIPTOR(MANGLE,COMMA)); #undef MANGLE } static Ruby usb_get_interface (struct usb_interface_descriptor *self) { #define MANGLE(X) INT2NUM(self->X) return rb_funcall(rb_const_get(cUSB,SI(Interface)),SI(new),9+1, USB_INTERFACE_DESCRIPTOR(MANGLE,COMMA), usb_get_endpoint(self->endpoint)); #undef MANGLE } static Ruby usb_get_config (struct usb_config_descriptor *self) { if (!self) { fprintf(stderr,"warning: usb_get_config: null pointer\n"); return Qnil; } #define MANGLE(X) INT2NUM(self->X) Ruby interface = rb_ary_new(); for (int i=0; i<self->interface->num_altsetting; i++) { rb_ary_push(interface, usb_get_interface(&self->interface->altsetting[i])); } return rb_funcall(rb_const_get(cUSB,SI(Config)),SI(new),8+1, USB_CONFIG_DESCRIPTOR(MANGLE,COMMA), interface); #undef MANGLE } static Ruby usb_scan_bus (usb_bus *bus) { Ruby rbus = rb_ary_new(); for (struct usb_device *dev=bus->devices; dev; dev=dev->next) { struct usb_device_descriptor *devd = &dev->descriptor; Ruby config = rb_ary_new(); for (int i=0; i<devd->bNumConfigurations; i++) { rb_ary_push(config,usb_get_config(&dev->config[i])); } #define MANGLE(X) INT2NUM(devd->X) rb_ary_push(rbus, rb_funcall(rb_const_get(cUSB,SI(Device)),SI(new),14+3, USB_DEVICE_DESCRIPTOR(MANGLE,COMMA), rb_str_new2(dev->filename), PTR2FIX(dev), config)); #undef MANGLE } return rbus; } \class USB < CObject class USB : public CObject { usb_dev_handle *h; public: \decl void initialize (Ruby dev); \decl int close (); \decl int bulk_write (int ep, String s, int timeout); \decl int bulk_read (int ep, String s, int timeout); \decl int claim_interface(int interface); \decl int release_interface(int interface); \decl int set_configuration(int configuration); \decl int set_altinterface(int alternate); \decl int control_msg(int requesttype, int request, int value, int index, String s, int timeout); \decl int resetep(int ep); \decl int clear_halt(int ep); \decl int reset(); //\decl int get_string(int index, int langid, String s); //\decl int get_string_simple(int index, String s); }; \def void initialize (Ruby dev) { Ruby ptr = rb_funcall(dev,SI(ptr),0); rb_ivar_set(rself, SI(@dev), ptr); h = usb_open(FIX2PTR(struct usb_device,ptr)); if (!h) RAISE("usb_open returned null handle"); } \def int close () { if (!h) RAISE("USB closed"); int r = usb_close(h); h=0; return r; } #define TRAP(stuff) int r=(stuff); if (r<0) RAISE("%s", usb_strerror()); else return r; \def int bulk_write (int ep, String s, int timeout) { if (!h) RAISE("USB closed"); TRAP(usb_bulk_write(h, ep, rb_str_ptr(s), rb_str_len(s), timeout));} \def int bulk_read (int ep, String s, int timeout) { if (!h) RAISE("USB closed"); gfpost("%d, '%s', %d",ep,rb_str_ptr(s),timeout); TRAP(usb_bulk_read(h, ep, rb_str_ptr(s), rb_str_len(s), timeout));} \def int claim_interface(int interface) { TRAP(usb_claim_interface(h, interface));} \def int release_interface(int interface) { TRAP(usb_release_interface(h, interface));} \def int set_configuration(int configuration) { TRAP(usb_set_configuration(h, configuration));} \def int set_altinterface(int alternate) { TRAP(usb_set_altinterface(h, alternate));} \def int control_msg(int requesttype, int request, int value, int index, String s, int timeout) { TRAP(usb_control_msg(h, requesttype, request, value, index, rb_str_ptr(s), rb_str_len(s), timeout));} \def int resetep(int ep) { TRAP(usb_resetep(h, ep));} \def int clear_halt(int ep) { TRAP(usb_clear_halt(h, ep));} \def int reset() { TRAP(usb_reset(h));} /*\def int get_string(int index, int langid, String s) { TRAP(usb_get_string(h, index, langid, rb_str_ptr(s), rb_str_len(s)));}*/ /*\def int get_string_simple(int index, String s) { TRAP(usb_get_string_simple(h, index, rb_str_ptr(s), rb_str_len(s)));}*/ // not handled yet: // struct usb_string_descriptor // struct usb_hid_descriptor // void usb_set_debug(int level); // Device usb_device(USB dev); // get_string and get_string_simple (not present in libusb 0.1.4) \classinfo \end class USB static Ruby USB_s_new(Ruby argc, Ruby *argv, Ruby qlass) { USB *self = new USB(); Ruby rself = Data_Wrap_Struct(qlass, 0, CObject_free, self); self->rself = rself; Ruby keep = rb_ivar_get(mGridFlow, rb_intern("@fobjects")); rb_hash_aset(keep,rself,Qtrue); /* prevent sweeping (leak) (!@#$ WHAT??) */ rb_funcall2(rself,SI(initialize),argc,argv); return rself; } #define SDEF(_class_,_name_,_argc_) \ rb_define_singleton_method(c##_class_,#_name_,(RMethod)_class_##_s_##_name_,_argc_) void startup_usb () { cUSB = rb_define_class_under(mGridFlow, "USB", rb_cObject); //rb_define_singleton_method(cUSB, "new", USB_new, 1); EVAL("class Symbol; def decap; x=to_s; x[0..0]=x[0..0].downcase; x.intern end end"); SDEF(USB,new,-1); define_many_methods(cUSB, ciUSB.methodsn, ciUSB.methods); #define MANGLE(X) rb_funcall(SYM(X),SI(decap),0) rb_const_set(cUSB, SI(Device), rb_funcall(EVAL("Struct"),SI(new),14+3, USB_DEVICE_DESCRIPTOR(MANGLE,COMMA), SYM(filename), SYM(ptr), SYM(config))); rb_const_set(cUSB, SI(Endpoint), rb_funcall(EVAL("Struct"),SI(new),8, USB_ENDPOINT_DESCRIPTOR(MANGLE,COMMA))); rb_const_set(cUSB, SI(Interface), rb_funcall(EVAL("Struct"),SI(new),9+1, USB_INTERFACE_DESCRIPTOR(MANGLE,COMMA), SYM(endpoint))); rb_const_set(cUSB, SI(Config), rb_funcall(EVAL("Struct"),SI(new),8+1, USB_CONFIG_DESCRIPTOR(MANGLE,COMMA), SYM(interface))); #undef MANGLE for(int i=0; i<COUNT(usb_all_defines); i++) { named_int *ud = usb_all_defines[i]; for(; ud->name; ud++) { rb_const_set(cUSB, rb_intern(ud->name), INT2NUM(ud->v)); } } //usb_set_debug(42); usb_init(); usb_find_busses(); usb_find_devices(); Ruby busses = rb_hash_new(); rb_ivar_set(cUSB, SI(@busses), busses); for (usb_bus *bus=usb_get_busses(); bus; bus=bus->next) { rb_hash_aset(busses,rb_str_new2(bus->dirname),usb_scan_bus(bus)); } //IEVAL(cUSB,"STDERR.print '@busses = '; STDERR.puts @busses.inspect"); }

1 0

externals/gridflow/extra jmax_format.rb, NONE, 1.1 puredata_format.rb, NONE, 1.1 server_1_grid.rb, NONE, 1.1 server_1_ppm.rb, NONE, 1.1 server_2.rb, NONE, 1.1 smpte.rb, NONE, 1.1
by Mathieu Bouchard 04 Oct '05

04 Oct '05

Update of /cvsroot/pure-data/externals/gridflow/extra In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21117/extra Added Files: jmax_format.rb puredata_format.rb server_1_grid.rb server_1_ppm.rb server_2.rb smpte.rb Log Message: starting to commit gridflow 0.8.0 ... if you know how to use "cvs import" please mail me and i'll use it for 0.8.1 --- NEW FILE: server_1_grid.rb --- # $Id: server_1_grid.rb,v 1.1 2005/10/04 02:02:15 matju Exp $ require "socket" require "smpte" # in this folder picture = "\x7fGRID \000\003" picture << [240,320,3].pack("N*") make_smpte(picture) {|*rgb| rgb.pack "N*" } # File.open("blah.grid","w") {|f| f.write picture } serv = TCPServer.new 4242 loop { puts "waiting for connection (port 4242)" sock = serv.accept puts "incoming connection" begin loop { sock.write picture puts "wrote one picture" } rescue Errno::EPIPE # Broken Pipe puts "connection closed (by client)" # it's ok, go back to waiting. end } --- NEW FILE: server_2.rb --- # a server program to connect 2 or more clients together. # by Mathieu Bouchard require "fcntl" require "socket" class IO def nonblock=flag bit = Fcntl::O_NONBLOCK fcntl(Fcntl::F_SETFL, (fcntl(Fcntl::F_GETFL) & ~bit) | if flag then bit else 0 end) end # does not work with any ruby version, due to a bug. see below. def read_at_most n s="" k=1<<(Math.log(n)/Math.log(2)).to_i while k>0 unless k+s.length>n puts "trying #{k}" (s << read(k)) rescue Errno::EWOULDBLOCK end k>>=1 end s end # this one works but is slow. def bugfree_read_at_most n s="" (s << (read 1) while s.length<n) rescue Errno::EWOULDBLOCK s end end serv = TCPServer.new 4242 socks = [serv] loop { puts "waiting for connection (port 4242)" begin loop { puts "waiting" ready,blah,crap = IO.select socks, [], socks, 1 (ready||[]).each {|s| if s==serv then sock = serv.accept sock.nonblock=true socks << sock puts "incoming connection (total: #{socks.length-1})" else other = socks.find_all{|x|not TCPServer===x} - [s] stuff = s.bugfree_read_at_most 1024 p stuff (s.close; socks.delete s) if not stuff or stuff.length==0 other.each {|x| p x x.write stuff } end } } rescue Errno::EPIPE # Broken Pipe puts "connection closed (by client)" # it's ok, go back to waiting. end } --- NEW FILE: jmax_format.rb --- =begin $Id: jmax_format.rb,v 1.1 2005/10/04 02:02:15 matju Exp $ GridFlow Copyright (c) 2001,2002,2003 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. =end class JMaxFileHandler Size = [4,1,2,4] Packer = ["N","c","n","N"] OpTable = [ [0, :return], [1, :push, :int], [2, :push, :float], [3, :push, :symbol], [5, :set, :int], [6, :set, :float], [7, :set, :symbol], [9, :pop_args, :int], [10, :push_obj, :int], [11, :mv_obj, :int], [12, :pop_objs, :int], [13, :make_obj, :int], [14, :put_prop, :symbol], [16, :obj_mess, :int, :symbol, :int], [18, :push_obj_table, :int], [19, :pop_obj_table], [20, :connect], [21, :make_top_obj, :int], ] OpTableById = {} OpTableByName = {} OpTable.each {|entry| id,name,arg = entry OpTableById[id] = entry OpTableByName[name] = entry } end class JObject attr_reader :properties attr_accessor :parent_patcher attr_reader :init_messages attr_reader :connections def self.[](*args) new(*args) end def initialize(*args) @args = args @properties = {} @init_messages = [] end def send_in(inlet,*args) @init_messages << [inlet,*args] end def connect(inlet,target,outlet) end def subobjects @subobjects={} if not defined? @subobjects @subobjects end end class JMaxFileReader < JMaxFileHandler def initialize(f,factory=JObject) @f = f @symbols = [] @estack = [] @ostack = [] @tstack = [] @factory = factory end def parse magic, code_size, n_symbols = @f.read(12).unpack("a4NN") case magic when "bMax"; #ok when "bMa2"; raise "bMa2 format (jMax 4) is not supported yet" else raise "not a jMax file" end @code = @f.read code_size @symbols = @f.read.split(/\0/).map {|x| x.intern } @index = 0 while @index < @code.size read_opcode end raise "@estack.size!=0" if @estack.size!=0 raise "@ostack.size!=1" if @ostack.size!=1 raise "@tstack.size!=0" if @tstack.size!=0 @ostack[0] end def read_opcode #puts "#{@index} of #{(a)code.size}" op = @code[@index]; @index+=1 op1,op2 = op&0x3f,op>>6 entry = OpTableById[op1] if not entry puts "skipping unknown opcode #{op1},#{op2}" return end args = [] (entry.length-2).times {|i| args << (case entry[2+i] when :int n=Size[op2]; v=@code[@index,n].unpack(Packer[op2])[0] x = if v[8*n-1]!=0 then ~(~v&((1<<(8*n-1))-1)) else v end #STDERR.puts "WARNING: #{v} -> #{x}" if x<0 x when :float n=4; @code[@index,4].unpack("g")[0] when :symbol n=Size[op2]; @symbols[@code[@index,n].unpack(Packer[op2])[0]] when nil end) @index+=n } #text = sprintf "%05d: %2d,%1d: %s", @index, op1, op2, entry[1] #text << "(" << args.map{|x|x.inspect}.join(",") << ")" #puts text send entry[1], *args end def push x; @estack << x end def set x if @estack.size>0 then @estack[-1]=x else @estack << x end end def put_prop x; @ostack[-1].properties[x] = @estack[-1] end def make_obj x patcher = @ostack[-1] if @ostack.size>0 baby = @factory[*(@estack[-x,x].reverse)] @ostack << baby @ostack[-1].parent_patcher = patcher patcher.subobjects[baby]=true if patcher end alias :make_top_obj :make_obj def pop_args x; @estack[-x,x]=[] end def push_obj_table x; @tstack<<[] end def mv_obj x; @tstack[-1][x]=@ostack[-1] end def pop_objs x; @ostack[-x,x]=[] end def obj_mess i,s,n o = @ostack[-1] m = @estack[-n,n].reverse if i<0 then o.send s,*m else o.send_in i,s,*m end end def push_obj x; @ostack<<@tstack[-1][x] end def connect; @ostack[-1].connect @estack[-1],@ostack[-2],@estack[-2] end def pop_obj_table; @tstack.pop end def return; end end if $0 == __FILE__ jff = JMaxFileReader.new File.open("samples/fire.jmax") jff.parse end --- NEW FILE: smpte.rb --- # Copyright 2001 by Mathieu Bouchard # $Id: smpte.rb,v 1.1 2005/10/04 02:02:15 matju Exp $ # The standard SMPTE color test pattern. # AS SEEN ON TV !!! (but this is a cheap plastic imitation) def make_smpte(picture="") row_1 = "" row_2 = "" row_3 = "" row_3_c = [[0,63,105],[255,255,255],[64,0,119]] (0...320).each {|x| n_barre_1 = 7 - x*7/320 n_barre_2 = if n_barre_1&1==0 then 0 else 8 - n_barre_1 end row_1 << yield (*([1,2,0].map{|c| 255 * ((n_barre_1 >> c)&1) })) row_2 << yield (*([1,2,0].map{|c| 255 * ((n_barre_2 >> c)&1) })) row_3 << yield (*(row_3_c[x/57] || [0,0,0])) } 160.times { picture << row_1 } 20 .times { picture << row_2 } 60 .times { picture << row_3 } picture end --- NEW FILE: server_1_ppm.rb --- # $Id: server_1_ppm.rb,v 1.1 2005/10/04 02:02:15 matju Exp $ require "socket" picture = File.open("../images/teapot.ppm") {|x| x.read } serv = TCPServer.new 4242 loop { puts "waiting for connection (port 4242)" sock = serv.accept begin loop { sock.write picture puts "wrote one picture" } rescue Errno::EPIPE # Broken Pipe puts "connection closed (by client)" # it's ok, go back to waiting. end } --- NEW FILE: puredata_format.rb --- =begin $Id: puredata_format.rb,v 1.1 2005/10/04 02:02:15 matju Exp $ GridFlow Copyright (c) 2001,2002,2003 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. =end class PureDataFileWriter def initialize filename @f = File.open filename, "w" end def close; @f.close end def write_patcher o pr = o.properties @f.puts "#N canvas #{pr[:wx]} #{pr[:wy]} #{pr[:ww]} #{pr[:wh]} 10;" ol = o.subobjects.keys x=0 ol.find_all {|a| a.classname=="inlet"}.sort {|a,b| a.argv[0] <=> b.argv[0] }.each {|a| if x>a.properties[:x] a.properties[:x]=x+16 STDERR.puts "warning: moving inlet #{a.argv[0]} to the right" end x=a.properties[:x] } x=0 ol.find_all {|a| a.classname=="outlet"}.sort {|a,b| a.argv[0] <=> b.argv[0] }.each {|a| if x>a.properties[:x] a.properties[:x]=x+16 STDERR.puts "warning: moving outlet #{a.argv[0]} to the right" end x=a.properties[:x] } ol.each {|so| write_object so } ol.each_with_index {|so,i| next if not so.instance_eval{defined? @outlets} so.outlets.each_with_index {|conns,outlet| next if not conns conns.each {|target,inlet| @f.puts "#X connect #{i} #{outlet} #{ol.index target} #{inlet};" } } } end def list_to_s l l.map {|x| if Array===x then "( " + list_to_s(x) + " )" else escape(x.to_s) end }.join " " end # what am i supposed to do? def escape x; x.gsub(/[;,]/) {|x| " \\#{x}" }.gsub(/\n/) {"\\\n"} end def escape2 x; x.gsub(/[,]/) {|x| " \\#{x} " }.gsub(/[;\$\"]/) {|x| "\\#{x}" }.gsub(/\n/) {"\\\n"} end def write_object o pr = o.properties #classname = o.class.instance_eval{@foreign_name} classname = o.classname if classname=="jpatcher" #(a)f.print "#N canvas 0 0 " write_patcher o end case classname when "display"; classname="print" when "list"; classname="listmake" end t = case classname when "jcomment"; "text" when "messbox"; "msg" when "jpatcher"; "restore" when "intbox"; "floatatom" else "obj" end @f.print "#X #{t} #{pr[:x]} #{pr[:y]} " case classname when "button" @f.print "bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1" when "jcomment" @f.print escape2(pr[:comment].to_s) when "messbox" av=o.argv[0] i=0 dollar="$".intern while i<av.length if av[i]==dollar then av[i,2]=("\\$"+av[i+1].to_s).intern else i+=1 end end @f.print(list_to_s(av)) when "slider" #doradio = pr[:maxValue]-pr[:minValue]<=10 doradio = false #p doradio name = case pr[:orientation] when 1; if doradio then "hradio" else "hsl" end when 2,nil; if doradio then "vradio" else "vsl" end else raise "bogus slider orientation?" end @f.print "#{name} "+ "#{pr[:w]} #{pr[:h]} #{pr[:minValue]} #{pr[:maxValue]} 0 0 "+ "empty empty empty -2 -6 0 8 -262144 -1 -1 0 1" when "intbox" @f.print "5 0 0 0 - - -;" when "inlet"; @f.print "inlet" when "outlet"; @f.print "outlet" when "jpatcher" @f.print("pd ",list_to_s(o.argv)) else @f.print(classname," ",list_to_s(o.argv)) end @f.puts ";" end end

1 0

[PD-cvs] externals/gridflow/format aalib.c, NONE, 1.1 dc1394.c, NONE, 1.1 jpeg.c, NONE, 1.1 main.rb, NONE, 1.1 mpeg3.c, NONE, 1.1 png.c, NONE, 1.1 quicktimeapple.c, NONE, 1.1 quicktimehw.c, NONE, 1.1 sdl.c, NONE, 1.1 videodev.c, NONE, 1.1 x11.c, NONE, 1.1
by Mathieu Bouchard 04 Oct '05

04 Oct '05

Update of /cvsroot/pure-data/externals/gridflow/format In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21117/format Added Files: aalib.c dc1394.c jpeg.c main.rb mpeg3.c png.c quicktimeapple.c quicktimehw.c sdl.c videodev.c x11.c Log Message: starting to commit gridflow 0.8.0 ... if you know how to use "cvs import" please mail me and i'll use it for 0.8.1 --- NEW FILE: main.rb --- =begin $Id: main.rb,v 1.1 2005/10/04 02:02:15 matju Exp $ GridFlow Copyright (c) 2001,2002,2003,2004 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. =end require "socket" require "fcntl" module GridFlow class<<self def max_rank; 16; end def max_size; 64*1024**2; end def max_packet; 1024*2; end end ENDIAN_BIG,ENDIAN_LITTLE,ENDIAN_SAME,ENDIAN_DIFF = 0,1,2,3 OurByteOrder = case [1].pack("L") when "\0\0\0\1"; ENDIAN_BIG # Mac, Sun, SiliconGraphics when "\1\0\0\0"; ENDIAN_LITTLE # Intel else raise "Cannot determine byte order" end class Format < GridObject FF_R,FF_W = 4,2 # flags indicating support of :in and :out respectively. attr_accessor :parent =begin API (version 0.8) mode is :in or :out def initialize(mode,*args) : open a file handler (do it via .new of class) attr_reader :description : a _literal_ (constant) string describing the format handler def self.info() optional : return a string describing the format handler differently than self.description(). in particular, it can list compile-time options and similar things. for example, quicktime returns a list of codecs. def frame() : read one frame, send through outlet 0 return values : Integer >= 0 : frame number of frame read. false : no frame was read : end of sequence. nil : a frame was read, but can't say its number. note that trying to read a nonexistent frame should no longer rewind automatically (@in handles that part), nor re-read the last frame (mpeg/quicktime used to do this) def seek(Integer i) : select one frame to be read next (by number) def length() : ^Integer returns number of frames (never implemented ?) def close() : close a handler inlet 0 : grid : frame to write other : special options outlet 0 : grid : frame just read outlet 1 : everything else =end def initialize(mode,*) super @cast = :int32 @colorspace = :rgb @mode = mode @frame = 0 @parent = nil @stream = nil flags = self.class.instance_eval{if defined?@flags then @flags else 6 end} # FF_W, FF_R, FF_RW case mode when :in; flags[2]==1 when :out; flags[1]==1 else raise "Format opening mode is incorrect" end or raise \ "Format '#{self.class.instance_eval{@symbol_name}}'"\ " does not support mode '#{mode}'" end def close @stream.close if defined? @stream and @stream end def self.suffixes_are(*suffixes) suffixes.map{|s|s.split(/[, ]/)}.flatten.each {|suffix| Format.suffixes[suffix] = self } end class<<self attr_reader :symbol_name attr_reader :description attr_reader :flags attr_reader :suffixes end @suffixes = {} def seek frame (rewind; return) if frame == 0 raise "don't know how to seek for frame other than # 0" end # this is what you should use to rewind # different file-sources may redefine this as something else # (eg: gzip) def rewind raise "Nothing to rewind about..." if not @stream @stream.seek 0,IO::SEEK_SET @frame = 0 end # This is different from IO#eof, which waits until a read has failed # doesn't work in nonblocking mode? (I don't recall why) def eof? thispos = (@stream.seek 0,IO::SEEK_CUR; @stream.tell) lastpos = (@stream.seek 0,IO::SEEK_END; @stream.tell) @stream.seek thispos,IO::SEEK_SET return thispos == lastpos rescue Errno::ESPIPE # just ignore if seek is not possible return false end # "ideal" buffer size or something # the buffer may be bigger than this but usually not by much. def self.buffersize; 16384 end def _0_headerless(*args) #!@#$ goes in FormatGrid ? args=args[0] if Array===args[0] #raise "expecting dimension list..." args.map! {|a| Numeric===a or raise "expecting dimension list..." a.to_i } @headerless = args end def _0_headerful #!@#$ goes in FormatGrid ? @headerless = nil end def _0_type arg #!@#$ goes in FormatGrid ? #!@#$ bug: should not be able to modify this _during_ a transfer case arg when :uint8; @bpv=8; @bp=BitPacking.new(ENDIAN_LITTLE,1,[0xff]) when :int16; @bpv=16; @bp=BitPacking.new(ENDIAN_LITTLE,1,[0xffff]) when :int32; @bpv=32; @bp=nil else raise "unsupported number type: #{arg}" end end def _0_cast arg case arg when :uint8, :int16, :int32, :int64, :float32, :float64 @cast = arg else raise "unsupported number type: #{arg}" end end def frame; @frame+=1; @frame-1 end end # common parts between GridIn and GridOut module GridIO def check_file_open; if not @format then raise "can't do that: file not open" end end def _0_close; check_file_open; @format.close; @format = nil end def delete; @format.close if @format; @format = nil; super end attr_reader :format def _0_open(sym,*a) sym = sym.intern if String===sym if a.length==0 and /\./ =~ sym.to_s then a=[sym]; sym=:file end qlass = GridFlow.fclasses["\#io:#{sym}"] if not qlass then raise "unknown file format identifier: #{sym}" end _0_close if @format @format = qlass.new @mode, *a @format.connect 0,self,1 @format.connect 1,self,2 @format.parent = self @loop = true end def _0_timelog flag; @timelog = Integer(flag)!=0 end def _0_loop flag; @loop = Integer(flag)!=0 end def method_missing(*message) sel = message[0].to_s if sel =~ /^_0_/ message[0] = sel.sub(/^_0_/,"").intern @format.send_in 0, *message elsif sel =~ /^_2_/ sel = sel.sub(/^_2_/,"").intern message.shift send_out 1, sel, *message else return super end end end GridObject.subclass("#in",1,2) { install_rgrid 0 include GridIO def initialize(*a) super @format = nil @timelog = false @framecount = 0 @time = Time.new @mode = :in return if a.length==0 _0_open(*a) end def _0_bang check_file_open framenum = @format.frame if framenum == false send_out 1 return if not @loop @format.seek 0 framenum = @format.frame if framenum == false raise "can't read frame: the end is at the beginning???" end end send_out 1, framenum if framenum end def _0_float frame; _0_set frame; _0_bang end def _0_set frame; check_file_open; @format.seek frame end def _0_reset; check_file_open; @format.seek 0; end def _1_grid(*a) send_out 0,:grid,*a end def _0_load name; _0_open name; _0_bang; _0_close end } GridObject.subclass("#out",1,1) { include GridIO def initialize(*a) super @format = nil @timelog = false @framecount = 0 @time = Time.new @mode = :out return if a.length==0 if Integer===a[0] or Float===a[0] _0_open :x11,:here _0_out_size a[0],a[1] else _0_open(*a) end end def _0_list(*a) @format._0_list(*a) end # hacks def _1_grid(*a) send_out 0,:grid,*a end # for aalib def _1_position(*a) send_out 0,:position,*a end def _1_keypress(*a) send_out 0,:keypress,*a end def _1_keyrelease(*a) send_out 0,:keyrelease,*a end def _0_grid(*a) check_file_open @format._0_grid(*a) send_out 0,:bang log if @timelog @framecount+=1 end def log time = Time.new post("\#out: frame#%04d time: %10.3f s; diff: %5d ms", @framecount, time, ((time-(a)time)*1000).to_i) @time = time end install_rgrid 0 } class BitPacking alias pack pack2 alias unpack unpack2 end # adding event-driven IO to a Format class module EventIO def read_wait?; !!@action; end def initialize(*) @acceptor = nil @buffer = nil @action = nil @chunksize = nil @rewind_redefined = false @clock = Clock.new self @delay = 100 # ms super end def call() try_read end def on_read(n,&action) @action = action @chunksize = n end def try_accept #!@#$ use setsockopt(SO_REUSEADDR) here??? TCPSocket.do_not_reverse_lookup = true # hack @acceptor.nonblock = true @stream = @acceptor.accept @stream.nonblock = true @stream.sync = true @clock.unset # send_out 0, :accept # does not work rescue Errno::EAGAIN end def try_read(dummy=nil) n = @chunksize-(if @buffer then @buffer.length else 0 end) t = @stream.read(n) # or raise EOFError if not t raise "heck" if not @stream.eof? rewind t = @stream.read(n) or raise "can't read any of #{n} bytes?" end if @buffer then @buffer << t else @buffer = t end if @buffer.length == @chunksize action,buffer = @action,@buffer @action,@buffer = nil,"" @clock.unset action.call buffer end rescue Errno::EAGAIN post "read would block" end def raw_open_gzip_in(filename) r,w = IO.pipe if pid=fork GridFlow.subprocesses[pid]=true w.close @stream = r else r.close STDOUT.reopen w STDIN.reopen @stream @stream = File.open filename, "r" exec "gzip", "-dc" end end def raw_open_gzip_out(filename) r,w = IO.pipe if pid=fork GridFlow.subprocesses[pid]=true r.close @stream = w else w.close STDIN.reopen r STDOUT.reopen @stream @stream = File.open filename, "w" exec "gzip", "-c" end end def raw_open(mode,source,*args) @raw_open_args = mode,source,*args fmode = case mode when :in; "r" when :out; "w" else raise "bad mode" end close case source when :file filename = args[0].to_s filename = GridFlow.find_file filename if mode==:in @stream = File.open filename, fmode when :gzfile filename = args[0].to_s filename = GridFlow.find_file filename if mode==:in if mode==:in then raw_open_gzip_in filename else raw_open_gzip_out filename end def self.rewind raw_open(*@raw_open_args) @frame = 0 end unless @rewind_redefined @rewind_redefined = true when :tcp if RUBY_VERSION < "1.6.6" raise "use at least 1.6.6 (reason: bug in socket code)" end post "-----------" time = Time.new TCPSocket.do_not_reverse_lookup = true # hack @stream = TCPSocket.open(args[0].to_s,args[1].to_i) post "----------- #{Time.new-time}" @stream.nonblock = true @stream.sync = true @clock.delay @delay when :tcpserver TCPSocket.do_not_reverse_lookup = true # hack TCPServer.do_not_reverse_lookup = true # hack post "-----------" time = Time.new @acceptor = TCPServer.open(args[0].to_s) post "----------- #{Time.new-time}" @acceptor.nonblock = true #$tasks[self] = proc {self.try_accept} #!!!!! else raise "unknown access method '#{source}'" end end def close @acceptor.close if @acceptor @stream.close if @stream GridFlow.hunt_zombies end end Format.subclass("#io:file",1,1) { def self.new(mode,file) file=file.to_s a = [mode,:file,file] if not /\./=~file then raise "no filename suffix?" end suf=file.split(/\./)[-1] h=Format.suffixes[suf] if not h then raise "unknown suffix '.#{suf}'" end h.new(*a) end @comment="format autodetection proxy" } Format.subclass("#io:grid",1,1) { include EventIO install_rgrid 0 @comment = "GridFlow file format" suffixes_are "grid" =begin This is the Grid format I defined: 1 uint8: 0x7f 4 uint8: "GRID" big endian | "grid" little endian 1 uint8: type { number of bits in 8,16,32,64, plus one of: 1:unsigned 2:float but float8,float16 are not allowed (!) } 1 uint8: reserved (supported: 0) 1 uint8: number of dimensions N (supported: at least 0..4) N uint32: number of elements per dimension D[0]..D[N-1] raw data goes there. =end # bits per value: 32 only attr_accessor :bpv # Fixnum: bits-per-value # endianness # attr_accessor :endian # ENDIAN_LITTLE or ENDIAN_BIG # IO or File or TCPSocket attr_reader :stream # nil=headerful; array=assumed dimensions of received grids #attr_accessor :headerless def initialize(mode,source,*args) super @bpv = 32 @headerless = nil @endian = OurByteOrder raw_open mode,source,*args end def post(*s) # because i'm using miller_0_38 and it can't disable the console # i am using fprintf stderr instead of post. ### STDERR.puts(sprintf(*s)) # disabled because i don't need it now end # rewinding and starting def frame raise "can't get frame when there is no connection" if not @stream raise "already waiting for input" if read_wait? return false if eof? post "----- 1" if @headerless then @n_dim=@headerless.length @dim = @headerless @dex = 0 set_bufsize send_out_grid_begin 0, @dim on_read(bufsize) {|data| frame3 data } else on_read(8) {|data| frame1 data } end post "----- 2" (try_read nil while read_wait?) if not TCPSocket===@stream post "----- 3" super post "----- 4" end def set_bufsize @prod = 1 @dim.each {|x| @prod *= x } n = @prod/@dim[0] k = GridFlow.max_packet / n k=1 if k<1 @bufsize = k*n*@bpv/8 @bufsize = @prod if @bufsize > @prod end # the header def frame1 data post "----- frame1" head,@bpv,reserved,@n_dim = data.unpack "a5ccc" @endian = case head when "\x7fGRID"; ENDIAN_BIG when "\x7fgrid"; ENDIAN_LITTLE else raise "grid header: invalid (#{data.inspect})" end case bpv when 8, 16, 32; # ok else raise "unsupported bpv (#{@bpv})" end if reserved!=0 raise "reserved field is not zero" end if @n_dim > GridFlow.max_rank raise "too many dimensions (#{@n_dim})" end on_read(4*@n_dim) {|data| frame2 data } end # the dimension list def frame2 data post "----- frame2" @dim = data.unpack(if @endian==ENDIAN_LITTLE then "V*" else "N*" end) set_bufsize if @prod > GridFlow.max_size raise "dimension list: invalid prod (#{@prod})" end send_out_grid_begin 0, @dim, @cast on_read(bufsize) {|data| frame3 data } @dex = 0 end attr_reader :bufsize # for each slice of the body def frame3 data post "----- frame3 with dex=#{(a)dex.inspect}, prod=#{(a)prod.inspect}" n = data.length nn = n*8/@bpv # is/was there a problem with the size of the data being read? case @bpv when 8 @bp = BitPacking.new(@endian,1,[0xff]) send_out_grid_flow(0, @bp.unpack(data)) @dex += data.length when 16 @bp = BitPacking.new(@endian,2,[0xffff]) send_out_grid_flow(0, @bp.unpack(data)) @dex += data.length/2 when 32 data.swap32! if @endian!=OurByteOrder send_out_grid_flow 0, data @dex += data.length/4 end if @dex >= @prod @clock.unset else on_read(bufsize) {|data| frame3 data } end end def _0_rgrid_begin if not @stream raise "can't send frame when there is no connection" end @dim = inlet_dim 0 post "@dim=#{@dim.inspect}" return if @headerless # header @stream.write( [if @endian==ENDIAN_LITTLE then "\x7fgrid" else "\x7fGRID" end, @bpv,0,@dim.length].pack("a5ccc")) # dimension list @stream.write( @dim.to_a.pack(if @endian==ENDIAN_LITTLE then "V*" else "N*" end)) end def _0_rgrid_flow data case @bpv when 8, 16 @stream.write @bp.pack(data) when 32 data.swap32! if GridFlow::OurByteOrder != @endian @stream.write data end end def _0_rgrid_end; @stream.flush end def endian(a) @endian = case a when :little; ENDIAN_LITTLE when :big; ENDIAN_BIG when :same; ENDIAN_SAME else raise "argh" end end def headerless(*args) args=args[0] if Array===args[0] args.map! {|a| Numeric===a or raise "expecting dimension list..." a.to_i } @headerless = args end def headerful; @headerless = nil end #!@#$ method name conflict ? def type(nt) #!@#$ bug: should not be able to modify this _during_ a transfer case nt when :uint8; @bpv= 8; @bp=BitPacking.new(ENDIAN_LITTLE,1,[0xff]) when :int16; @bpv=16; @bp=BitPacking.new(ENDIAN_LITTLE,1,[0xffff]) when :int32; @bpv=32; @bp=nil else raise "unsupported number type" end end } module PPMandTarga # "and false" disables features that may cause crashes and don't # accelerate gridflow that much. def frame_read_body height, width, channels bs = width*channels n = bs*height bs = (self.class.buffersize/bs)*bs+bs # smallest multiple of bs over BufferSize buf = "" if RUBY_VERSION >= "1.8.0" and false data = "x"*bs # must preallocate (bug in 1.8.0.pre1-3) while n>0 do bs=n if bs>n @stream.read(bs,data) or raise EOFError if @bp then send_out_grid_flow 0, @bp.unpack(data,buf) else send_out_grid_flow 0, data, :uint8 end n-=bs end else nothing = "" while n>0 do bs=n if bs>n data = @stream.read(bs) or raise EOFError if @bp then send_out_grid_flow 0, @bp.unpack(data,buf) else send_out_grid_flow 0, data, :uint8 end data.replace nothing and false # prevent clogging memory n-=bs end end end end Format.subclass("#io:ppm",1,1) { install_rgrid 0 @comment = "Portable PixMap (PPM) File Format" suffixes_are "ppm" include EventIO, PPMandTarga def initialize(mode,source,*args) @bp = if mode==:out BitPacking.new(ENDIAN_LITTLE,3,[0x0000ff,0x00ff00,0xff0000]) else nil end super raw_open mode,source,*args end def frame #(a)stream.sync = false metrics=[] return false if eof? line = @stream.gets (rewind; line = @stream.gets) if not line # hack line.chomp! if line != "P6" then raise "Wrong format (needing PPM P6)" end while metrics.length<3 line = @stream.gets next if line =~ /^#/ metrics.push(*(line.split(/\s+/).map{|x| Integer x })) end metrics[2]==255 or raise "Wrong color depth (max_value=#{metrics[2]} instead of 255)" send_out_grid_begin 0, [metrics[1], metrics[0], 3], @cast frame_read_body metrics[1], metrics[0], 3 super end def _0_rgrid_begin dim = inlet_dim 0 raise "expecting (rows,columns,channels)" if dim.length!=3 raise "expecting channels=3" if dim[2]!=3 @stream.write "P6\n" @stream.write "# generated using GridFlow #{GF_VERSION}\n" @stream.write "#{dim[1]} #{dim[0]}\n255\n" @stream.flush inlet_set_factor 0, 3 end def _0_rgrid_flow(data) @stream.write @bp.pack(data) end def _0_rgrid_end; @stream.flush end } Format.subclass("#io:targa",1,1) { install_rgrid 0 @comment = "TrueVision Targa" suffixes_are "tga" include EventIO, PPMandTarga =begin targa header is like: [:comment, Uint8, :length], [:colortype, Uint8], [:colors, Uint8], 5, [:origin_x, Int16], [:origin_y, Int16], [:w, Uint16], [:h, Uint16], [:depth, Uint8], 1, [:comment, String8Unpadded, :data], =end def initialize(mode,source,*args) super raw_open mode,source,*args end def set_bitpacking depth @bp = case depth #!@#$ endian here doesn't seem to be changing much ? when 24; BitPacking.new(ENDIAN_LITTLE,3,[0xff0000,0x00ff00,0x0000ff]) when 32; BitPacking.new(ENDIAN_LITTLE,4, [0x00ff0000,0x0000ff00,0x000000ff,0xff000000]) else raise "tga: unsupported colour depth: #{depth}\n" end end def frame return false if eof? head = @stream.read(18) comment_length,colortype,colors,w,h,depth = head.unpack("cccx9vvcx") comment = @stream.read(comment_length) raise "unsupported color format: #{colors}" if colors != 2 # post "tga: size y=#{h} x=#{w} depth=#{depth} colortype=#{colortype}" # post "tga: comment: \"#{comment}\"" set_bitpacking depth send_out_grid_begin 0, [ h, w, depth/8 ], @cast frame_read_body h, w, depth/8 super end def _0_rgrid_begin dim = inlet_dim 0 raise "expecting (rows,columns,channels)" if dim.length!=3 raise "expecting channels=3 or 4" if dim[2]!=3 and dim[2]!=4 # comment = "created using GridFlow" #!@#$ why did i use that comment again? comment = "generated using GridFlow #{GF_VERSION}" @stream.write [comment.length,colortype=0,colors=2,"\0"*9, dim[1],dim[0],8*dim[2],(8*(dim[2]-3))|32,comment].pack("ccca9vvcca*") set_bitpacking 8*dim[2] inlet_set_factor 0, dim[2] end def _0_rgrid_flow data; @stream.write @bp.pack(data) end def _0_rgrid_end; @stream.flush end } end # module GridFlow --- NEW FILE: quicktimehw.c --- /* $Id: quicktimehw.c,v 1.1 2005/10/04 02:02:15 matju Exp $ GridFlow Copyright (c) 2001,2002,2003 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include "../base/grid.h.fcs" #include <stdlib.h> #include <string.h> #include <errno.h> #include <quicktime/quicktime.h> #include <quicktime/colormodels.h> #include <quicktime/lqt_version.h> #ifdef LQT_VERSION #include <quicktime/lqt.h> #include <quicktime/lqt_codecinfo.h> #endif \class FormatQuickTimeHW < Format struct FormatQuickTimeHW : Format { quicktime_t *anim; int track; P<Dim> dim; char *codec; int colorspace; int channels; bool started; P<Dim> force; int length; // in frames float64 framerate; P<BitPacking> bit_packing; FormatQuickTimeHW() : track(0), dim(0), codec(QUICKTIME_RAW), started(false), force(0), framerate(29.97), bit_packing(0) {} \decl void initialize (Symbol mode, Symbol source, String filename); \decl void close (); \decl Ruby frame (); \decl void seek (int frame); \decl void _0_force_size (int32 height, int32 width); \decl void _0_codec (String c); \decl void _0_colorspace (Symbol c); \decl void _0_parameter (Symbol name, int32 value); \decl void _0_framerate (float64 f); \decl void _0_size (int32 height, int32 width); \grin 0 int }; \def void _0_force_size (int32 height, int32 width) { force = new Dim(height, width); } \def void seek (int frame) {quicktime_set_video_position(anim,frame,track);} \def Ruby frame () { int nframe = quicktime_video_position(anim,track); int length2 = quicktime_video_length(anim,track); if (nframe >= length) { // gfpost("nframe=%d length=%d length2=%d",nframe,length,length2); return Qfalse; } /* if it works, only do it once, to avoid silly stderr messages forgotten in LQT */ if (!quicktime_reads_cmodel(anim,colorspace,0) && !started) { RAISE("LQT says this video cannot be decoded into the chosen colorspace"); } int sx = quicktime_video_width(anim,track); int sy = quicktime_video_height(anim,track); int sz = quicktime_video_depth(anim,track); channels = sz/8; // hack. how do i get the video's native colormodel ? switch (sz) { case 24: colorspace=BC_RGB888; break; case 32: colorspace=BC_RGBA8888; break; default: gfpost("strange quicktime. ask matju."); break; } if (force) { sy = force->get(0); sx = force->get(1); } Pt<uint8> buf = ARRAY_NEW(uint8,sy*sx*channels); uint8 *rows[sy]; for (int i=0; i<sy; i++) rows[i]=buf+i*sx*channels; int result = quicktime_decode_scaled(anim,0,0,sx,sy,sx,sy,colorspace,rows,track); GridOutlet out(this,0,new Dim(sy, sx, channels), NumberTypeE_find(rb_ivar_get(rself,SI(@cast)))); int bs = out.dim->prod(1); out.give(sy*sx*channels,buf); started=true; return INT2NUM(nframe); } //!@#$ should also support symbol values (how?) \def void _0_parameter (Symbol name, int32 value) { quicktime_set_parameter(anim, (char*)rb_sym_name(name), &value); } \def void _0_framerate (float64 f) { framerate=f; quicktime_set_framerate(anim, f); } \def void _0_size (int32 height, int32 width) { if (dim) RAISE("video size already set!"); // first frame: have to do setup dim = new Dim(height, width, 3); quicktime_set_video(anim,1,dim->get(1),dim->get(0),framerate,codec); quicktime_set_cmodel(anim,colorspace); } GRID_INLET(FormatQuickTimeHW,0) { if (in->dim->n != 3) RAISE("expecting 3 dimensions: rows,columns,channels"); if (in->dim->get(2)!=channels) RAISE("expecting %d channels (got %d)",channels,in->dim->get(2)); in->set_factor(in->dim->prod()); if (dim) { if (!dim->equal(in->dim)) RAISE("all frames should be same size"); } else { // first frame: have to do setup dim = in->dim; quicktime_set_video(anim,1,dim->get(1),dim->get(0),framerate,codec); quicktime_set_cmodel(anim,colorspace); quicktime_set_depth(anim,8*channels,track); } } GRID_FLOW { int sx = quicktime_video_width(anim,track); int sy = quicktime_video_height(anim,track); uint8 *rows[sy]; if (sizeof(T)>1) { uint8 data2[n]; bit_packing->pack(sx*sy,data,Pt<uint8>(data2,n)); for (int i=0; i<sy; i++) rows[i]=data2+i*sx*channels; quicktime_encode_video(anim,rows,track); } else { for (int i=0; i<sy; i++) rows[i]=data+i*sx*channels; quicktime_encode_video(anim,rows,track); } } GRID_FINISH { } GRID_END \def void _0_codec (String c) { //fprintf(stderr,"codec = %s\n",rb_str_ptr(rb_inspect(c))); #ifdef LQT_VERSION char buf[5]; strncpy(buf,rb_str_ptr(c),4); for (int i=rb_str_len(c); i<4; i++) buf[i]=' '; buf[4]=0; Ruby fourccs = rb_ivar_get(rb_obj_class(rself),SI(@fourccs)); if (Qnil==rb_hash_aref(fourccs,rb_str_new2(buf))) RAISE("warning: unknown fourcc '%s' (%s)", buf, rb_str_ptr(rb_inspect(rb_funcall(fourccs,SI(keys),0)))); #endif codec = strdup(buf); } \def void _0_colorspace (Symbol c) { if (0) { } else if (c==SYM(rgb)) { channels=3; colorspace=BC_RGB888; } else if (c==SYM(rgba)) { channels=4; colorspace=BC_RGBA8888; } else if (c==SYM(bgr)) { channels=3; colorspace=BC_BGR888; } else if (c==SYM(bgrn)) { channels=4; colorspace=BC_BGR8888; } else if (c==SYM(yuv)) { channels=3; colorspace=BC_YUV888; } else if (c==SYM(yuva)) { channels=4; colorspace=BC_YUVA8888; } else if (c==SYM(YUV420P)) { channels=3; colorspace=BC_YUV420P; } else RAISE("unknown colorspace '%s' (supported: rgb, rgba, bgr, bgrn, yuv, yuva)",rb_sym_name(c)); } \def void close () { if (anim) { quicktime_close(anim); anim=0; } rb_call_super(argc,argv); } // libquicktime may be nice, but it won't take a filehandle, only filename \def void initialize (Symbol mode, Symbol source, String filename) { rb_call_super(argc,argv); if (source!=SYM(file)) RAISE("usage: quicktime file <filename>"); filename = rb_funcall(mGridFlow,SI(find_file),1,filename); anim = quicktime_open(rb_str_ptr(filename),mode==SYM(in),mode==SYM(out)); if (!anim) RAISE("can't open file `%s': %s", rb_str_ptr(filename), strerror(errno)); if (mode==SYM(in)) { length = quicktime_video_length(anim,track); gfpost("quicktime: codec=%s height=%d width=%d depth=%d framerate=%f", quicktime_video_compressor(anim,track), quicktime_video_height(anim,track), quicktime_video_width(anim,track), quicktime_video_depth(anim,track), quicktime_frame_rate(anim,track)); /* This doesn't really work: (is it just for encoding?) if (!quicktime_supported_video(anim,track)) RAISE("quicktime: unsupported codec: %s", quicktime_video_compressor(anim,track)); */ } _0_colorspace(0,0,SYM(rgb)); quicktime_set_cpus(anim,1); uint32 mask[3] = {0x0000ff,0x00ff00,0xff0000}; bit_packing = new BitPacking(is_le(),3,3,mask); } \classinfo { IEVAL(rself, \ruby install '#io:quicktime',1,1 @comment=%[Burkhard Plaum's (or HeroineWarrior's) libquicktime] suffixes_are 'mov' @flags=6 def self.info; %[codecs: #{(a)codecs.keys.join' '}] end \end ruby ); #ifdef LQT_VERSION lqt_registry_init(); int n = lqt_get_num_video_codecs(); Ruby codecs = rb_hash_new(); Ruby fourccs = rb_hash_new(); for (int i=0; i<n; i++) { const lqt_codec_info_t *s = lqt_get_video_codec_info(i); Ruby name = rb_str_new2(s->name); Ruby f = rb_ary_new2(s->num_fourccs); for (int j=0; j<s->num_fourccs; j++) { Ruby fn = rb_str_new2(s->fourccs[j]); rb_ary_push(f,fn); rb_hash_aset(fourccs,fn,name); } rb_hash_aset(codecs,name,f); } rb_ivar_set(rself,SI(@codecs),codecs); rb_ivar_set(rself,SI(@fourccs),fourccs); #endif } \end class FormatQuickTimeHW void startup_quicktimehw () { \startall } --- NEW FILE: x11.c --- /* $Id: x11.c,v 1.1 2005/10/04 02:02:15 matju Exp $ GridFlow Copyright (c) 2001,2002,2003 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include "../base/grid.h.fcs" #include <ctype.h> #include <stdio.h> #include <stdlib.h> #include <string.h> #include <errno.h> #include <sys/time.h> #include <X11/Xlib.h> #include <X11/Xutil.h> #include <X11/StringDefs.h> /* X11 Error Handler type */ typedef int (*XEH)(Display *, XErrorEvent *); #ifdef HAVE_X11_SHARED_MEMORY #include <sys/ipc.h> #include <sys/shm.h> #include <X11/extensions/XShm.h> #endif \class FormatX11 < Format struct FormatX11 : Format { template <class T> void frame_by_type (T bogus); /* at the Display/Screen level */ Display *display; /* connection to xserver */ Visual *visual; /* screen properties */ Window root_window; Colormap colormap; /* for 256-color mode */ long black,white; /* color numbers in default colormap */ short depth; bool use_shm; /* should use shared memory? */ bool use_stripes; /* use alternate conversion in 256-color mode */ /* at the Window level */ int autodraw; /* how much to send to the display at once */ Window window; /* X11 window number */ Window parent; /* X11 window number of the parent */ GC imagegc; /* X11 graphics context (like java.awt.Graphics) */ XImage *ximage; /* X11 image descriptor */ char *name; /* window name (for use by window manager) */ Pt<uint8> image; /* the real data (that XImage binds to) */ bool is_owner; int pos_x, pos_y; P<BitPacking> bit_packing; P<Dim> dim; bool lock_size; bool override_redirect; #ifdef HAVE_X11_SHARED_MEMORY XShmSegmentInfo *shm_info; /* to share memory with X11/Unix */ #endif Atom wmProtocolsAtom; Atom wmDeleteAtom; FormatX11 () : use_stripes(false), autodraw(1), window(0), ximage(0), name(0), image(Pt<uint8>()), is_owner(true), dim(0), lock_size(false), override_redirect(false) #ifdef HAVE_X11_SHARED_MEMORY , shm_info(0) #endif {} void show_section(int x, int y, int sx, int sy); void set_wm_hints (int sx, int sy); void dealloc_image (); bool alloc_image (int sx, int sy); void resize_window (int sx, int sy); void open_display(const char *disp_string); void report_pointer(int y, int x, int state); void prepare_colormap(); Window FormatX11::search_window_tree (Window xid, Atom key, const char *value, int level=0); \decl void initialize (...); \decl void frame (); \decl void close (); \decl void call (); \decl void _0_out_size (int sy, int sx); \decl void _0_draw (); \decl void _0_autodraw (int autodraw); \decl void _0_setcursor (int shape); \decl void _0_hidecursor (); \decl void _0_set_geometry (int y, int x, int sy, int sx); \decl void _0_fall_thru (int flag); \grin 0 int }; /* ---------------------------------------------------------------- */ void FormatX11::show_section(int x, int y, int sx, int sy) { if (y>dim->get(0)||x>dim->get(1)) return; if (y+sy>dim->get(0)) sy=dim->get(0)-y; if (x+sx>dim->get(1)) sx=dim->get(1)-x; #ifdef HAVE_X11_SHARED_MEMORY if (use_shm) { XSync(display,False); XShmPutImage(display,window,imagegc,ximage,x,y,x,y,sx,sy,False); /* should completion events be waited for? looks like a bug */ } else #endif XPutImage(display,window,imagegc,ximage,x,y,x,y,sx,sy); XFlush(display); } /* window manager hints, defines the window as non-resizable */ void FormatX11::set_wm_hints (int sx, int sy) { if (!is_owner) return; XWMHints wmhints; XTextProperty window_name, icon_name; XSizeHints hints; // enable recommended, maximum and minimum size hints.flags=PSize|PMaxSize|PMinSize; // set those hints.min_width = hints.max_width = hints.width = sx; hints.min_height = hints.max_height = hints.height = sy; wmhints.input = True; wmhints.flags = InputHint; XStringListToTextProperty((char **)&name, 1, &window_name); XStringListToTextProperty((char **)&name, 1, &icon_name); XSetWMProperties(display, window, &window_name, &icon_name, NULL, 0, &hints, &wmhints, NULL); } void FormatX11::report_pointer(int y, int x, int state) { Ruby argv[5] = { INT2NUM(0), SYM(position), INT2NUM(y), INT2NUM(x), INT2NUM(state) }; send_out(COUNT(argv),argv); } \def void call() { XEvent e; for (;;) { int xpending = XEventsQueued(display, QueuedAfterFlush); if (!xpending) break; XNextEvent(display,&e); switch (e.type) { case Expose:{ XExposeEvent *ex = (XExposeEvent *)&e; if (rb_ivar_get(rself,SI(@mode)) == SYM(out)) { show_section(ex->x,ex->y,ex->width,ex->height); } }break; case ButtonPress:{ XButtonEvent *eb = (XButtonEvent *)&e; eb->state |= 128<<eb->button; report_pointer(eb->y,eb->x,eb->state); }break; case ButtonRelease:{ XButtonEvent *eb = (XButtonEvent *)&e; eb->state &= ~(128<<eb->button); report_pointer(eb->y,eb->x,eb->state); }break; case KeyPress: case KeyRelease:{ XKeyEvent *ek = (XKeyEvent *)&e; //XLookupString(ek, buf, 63, 0, 0); char *kss = XKeysymToString(XLookupKeysym(ek, 0)); char buf[64]; if (!kss) return; /* unknown keys ignored */ if (isdigit(*kss)) sprintf(buf,"D%s",kss); else strcpy(buf,kss); Ruby argv[6] = { INT2NUM(0), e.type==KeyPress ? SYM(keypress) : SYM(keyrelease), INT2NUM(ek->y), INT2NUM(ek->x), INT2NUM(ek->state), rb_funcall(rb_str_new2(buf),SI(intern),0) }; send_out(COUNT(argv),argv); //XFree(kss); }break; case MotionNotify:{ XMotionEvent *em = (XMotionEvent *)&e; report_pointer(em->y,em->x,em->state); }break; case DestroyNotify:{ gfpost("This window is being closed, so this handler will close too!"); rb_funcall(rself,SI(close),0); return; }break; case ConfigureNotify:break; // as if we cared case ClientMessage:{ // tnx to vektor&walken /* if (e.xclient.message_type==wmProtocolsAtom && e.xclient.format==32 && (Atom)(e.xclient.data.l[0])==wmDeleteAtom) { gfpost("This window is being closed, so this handler will close too!"); rb_funcall(rself,SI(close),0); return; } */ }break; } } IEVAL(rself,"@clock.delay 20"); } \def void frame () { XGetSubImage(display, window, 0, 0, dim->get(1), dim->get(0), (unsigned)-1, ZPixmap, ximage, 0, 0); GridOutlet out(this,0,dim,NumberTypeE_find(rb_ivar_get(rself,SI(@cast)))); int sy=dim->get(0), sx=dim->get(1); int bs=dim->prod(1); STACK_ARRAY(uint8,b2,bs); for(int y=0; y<sy; y++) { Pt<uint8> b1 = Pt<uint8>(image,ximage->bytes_per_line*dim->get(0)) + ximage->bytes_per_line * y; bit_packing->unpack(sx,b1,b2); out.send(bs,b2); } } /* loathe Xlib's error handlers */ static FormatX11 *current_x11; static int FormatX11_error_handler (Display *d, XErrorEvent *xee) { gfpost("X11 reports Error: display=0x%08x",(int)d); gfpost("serial=0x%08x error=0x%08x request=0x%08lx minor=0x%08x", xee->serial, xee->error_code, xee->request_code, xee->minor_code); current_x11->use_shm = false; return 42; /* it seems that the return value is ignored. */ } void FormatX11::dealloc_image () { if (!ximage) return; if (use_shm) { #ifdef HAVE_X11_SHARED_MEMORY shmdt(ximage->data); XShmDetach(display,shm_info); if (shm_info) {delete shm_info; shm_info=0;} //ximage->data = new char[1]; // bogus //ximage->data = 0; //XDestroyImage(ximage); XFree(ximage); ximage = 0; image = Pt<uint8>(); #endif } else { //XDestroyImage(ximage); XFree(ximage); ximage = 0; image = Pt<uint8>(); } } bool FormatX11::alloc_image (int sx, int sy) { dim = new Dim(sy, sx, 3); dealloc_image(); if (sx==0 || sy==0) return false; #ifdef HAVE_X11_SHARED_MEMORY if (use_shm) { shm_info = new XShmSegmentInfo; ximage = XShmCreateImage(display,visual,depth,ZPixmap,0,shm_info,sx,sy); if (!ximage) { gfpost("shm got disabled (1), retrying..."); return alloc_image(sx,sy);} shm_info->shmid = shmget(IPC_PRIVATE, ximage->bytes_per_line*ximage->height, IPC_CREAT|0777); if(shm_info->shmid < 0) RAISE("ERROR: shmget failed: %s",strerror(errno)); ximage->data = shm_info->shmaddr = (char *)shmat(shm_info->shmid,0,0); image = Pt<uint8>((uint8 *)ximage->data, ximage->bytes_per_line*sy); shm_info->readOnly = False; current_x11 = this; //XSetErrorHandler(FormatX11_error_handler); if (!XShmAttach(display, shm_info)) RAISE("ERROR: XShmAttach: big problem"); XSync(display,0); // make sure the server picks it up //XSetErrorHandler(0); /* yes, this can be done now. should cause auto-cleanup. */ shmctl(shm_info->shmid,IPC_RMID,0); if (!use_shm) { gfpost("shm got disabled (2), retrying..."); return alloc_image(sx,sy);} } else #endif ximage = XCreateImage(display,visual,depth,ZPixmap,0,0,sx,sy,8,0); if (!ximage) RAISE("can't create image"); image = ARRAY_NEW(uint8,ximage->bytes_per_line*sy); ximage->data = (int8 *)image; int status = XInitImage(ximage); if (status!=1) gfpost("XInitImage returned: %d", status); return true; } void FormatX11::resize_window (int sx, int sy) { if (sy<16) sy=16; if (sy>4096) RAISE("height too big"); if (sx<16) sx=16; if (sx>4096) RAISE("width too big"); alloc_image(sx,sy); if (name) delete name; name = new char[64]; sprintf(name,"GridFlow (%d,%d,3)",sy,sx); if (window) { if (is_owner && !lock_size) { set_wm_hints(sx,sy); XResizeWindow(display,window,sx,sy); } } else { XSetWindowAttributes xswa; xswa.do_not_propagate_mask = 0; //? xswa.override_redirect = override_redirect; //#!@#$ window = XCreateWindow(display, parent, pos_x, pos_y, sx, sy, 0, CopyFromParent, InputOutput, CopyFromParent, CWOverrideRedirect|CWDontPropagate, &xswa); if(!window) RAISE("can't create window"); set_wm_hints(sx,sy); if (is_owner) { // fall_thru 0 XSelectInput(display, window, ExposureMask | StructureNotifyMask | PointerMotionMask | ButtonPressMask | ButtonReleaseMask | ButtonMotionMask | KeyPressMask | KeyReleaseMask); XMapRaised(display, window); } else { // fall_thru 1 XSelectInput(display, window, ExposureMask | StructureNotifyMask); } imagegc = XCreateGC(display, window, 0, NULL); if (visual->c_class == PseudoColor) prepare_colormap(); } XSync(display,0); } GRID_INLET(FormatX11,0) { if (in->dim->n != 3) RAISE("expecting 3 dimensions: rows,columns,channels"); if (in->dim->get(2)!=3 && in->dim->get(2)!=4) RAISE("expecting 3 or 4 channels: red,green,blue,ignored (got %d)",in->dim->get(2)); int sxc = in->dim->prod(1); int sx = in->dim->get(1), osx = dim->get(1); int sy = in->dim->get(0), osy = dim->get(0); in->set_factor(sxc); if (sx!=osx || sy!=osy) resize_window(sx,sy); if (in->dim->get(2)!=bit_packing->size) { bit_packing->mask[3]=0; bit_packing = new BitPacking(bit_packing->endian, bit_packing->bytes, in->dim->get(2), bit_packing->mask); } } GRID_FLOW { int bypl = ximage->bytes_per_line; int sxc = in->dim->prod(1); int sx = in->dim->get(1); int y = in->dex/sxc; int oy = y; for (; n>0; y++, data+=sxc, n-=sxc) { // convert line if (use_stripes) { int o=y*bypl; for (int x=0, i=0, k=y%3; x<sx; x++, i+=3, k=(k+1)%3) { image[o+x] = (k<<6) | data[i+k]>>2; } } else { bit_packing->pack(sx, data, image+y*bypl); } } if (autodraw==2) show_section(0,oy,sx,y-oy); } GRID_FINISH { if (autodraw==1) show_section(0,0,in->dim->get(1),in->dim->get(0)); } GRID_END \def void close () { if (!this) RAISE("stupid error: trying to close display NULL. =)"); bit_packing=0; IEVAL(rself,"@clock.unset"); if (is_owner) XDestroyWindow(display,window); XSync(display,0); dealloc_image(); XCloseDisplay(display); display=0; rb_call_super(argc,argv); } \def void _0_out_size (int sy, int sx) { resize_window(sx,sy); } \def void _0_draw () { show_section(0,0,dim->get(1),dim->get(0)); } \def void _0_autodraw (int autodraw) { if (autodraw<0 || autodraw>2) RAISE("autodraw=%d is out of range",autodraw); this->autodraw = autodraw; } \def void _0_setcursor (int shape) { shape = 2*(shape&63); Cursor c = XCreateFontCursor(display,shape); XDefineCursor(display,window,c); XFlush(display); } \def void _0_hidecursor () { Font font = XLoadFont(display,"fixed"); XColor color; /* bogus */ Cursor c = XCreateGlyphCursor(display,font,font,' ',' ',&color,&color); XDefineCursor(display,window,c); XFlush(display); } void FormatX11::prepare_colormap() { Colormap colormap = XCreateColormap(display,window,visual,AllocAll); XColor colors[256]; if (use_stripes) { for (int i=0; i<192; i++) { int k=(i&63)*0xffff/63; colors[i].pixel = i; colors[i].red = (i>>6)==0 ? k : 0; colors[i].green = (i>>6)==1 ? k : 0; colors[i].blue = (i>>6)==2 ? k : 0; colors[i].flags = DoRed | DoGreen | DoBlue; } XStoreColors(display,colormap,colors,192); } else { for (int i=0; i<256; i++) { colors[i].pixel = i; colors[i].red = ((i>>0)&7)*0xffff/7; colors[i].green = ((i>>3)&7)*0xffff/7; colors[i].blue = ((i>>6)&3)*0xffff/3; colors[i].flags = DoRed | DoGreen | DoBlue; } XStoreColors(display,colormap,colors,256); } XSetWindowColormap(display,window,colormap); } void FormatX11::open_display(const char *disp_string) { int screen_num; Screen *screen; // Open an X11 connection display = XOpenDisplay(disp_string); if(!display) RAISE("ERROR: opening X11 display: %s",strerror(errno)); // btw don't expect too much from Xlib error handling. // Xlib, you are so free of the ravages of intelligence... XSetErrorHandler(FormatX11_error_handler); screen = DefaultScreenOfDisplay(display); screen_num = DefaultScreen(display); visual = DefaultVisual(display, screen_num); white = XWhitePixel(display,screen_num); black = XBlackPixel(display,screen_num); root_window = DefaultRootWindow(display); depth = DefaultDepthOfScreen(screen); colormap = 0; switch(visual->c_class) { case TrueColor: case DirectColor: /* without colormap */ break; case PseudoColor: /* with colormap */ if (depth!=8) RAISE("ERROR: with colormap, only supported depth is 8 (got %d)", depth); break; default: RAISE("ERROR: visual type not supported (got %d)", visual->c_class); } #ifdef HAVE_X11_SHARED_MEMORY use_shm = !! XShmQueryExtension(display); #else use_shm = false; #endif } Window FormatX11::search_window_tree (Window xid, Atom key, const char *value, int level) { if (level>2) return 0xDeadBeef; Window root_r, parent_r; Window *children_r; unsigned int nchildren_r; XQueryTree(display,xid,&root_r,&parent_r,&children_r,&nchildren_r); Window target = 0xDeadBeef; for (int i=0; i<(int)nchildren_r; i++) { Atom actual_type_r; int actual_format_r; unsigned long nitems_r, bytes_after_r; unsigned char *prop_r; XGetWindowProperty(display,children_r[i],key,0,666,0,AnyPropertyType, &actual_type_r,&actual_format_r,&nitems_r,&bytes_after_r,&prop_r); uint32 value_l = strlen(value); bool match = prop_r && nitems_r>=value_l && strncmp((char *)prop_r+nitems_r-value_l,value,value_l)==0; XFree(prop_r); if (match) {target=children_r[i]; break;} target = search_window_tree(children_r[i],key,value,level+1); if (target != 0xDeadBeef) break; } if (children_r) XFree(children_r); return target; } \def void _0_set_geometry (int y, int x, int sy, int sx) { pos_x = x; pos_y = y; XMoveWindow(display,window,x,y); resize_window(sx,sy); XFlush(display); } \def void _0_fall_thru (int flag) { if (flag) { gfpost("falling through!"); XSelectInput(display, window, ExposureMask | StructureNotifyMask); } else { gfpost("NOT falling through!"); XSelectInput(display, window, ExposureMask | StructureNotifyMask | PointerMotionMask | ButtonPressMask | ButtonReleaseMask | ButtonMotionMask); } XFlush(display); } \def void initialize (...) { int sy=240, sx=320; // defaults rb_call_super(argc,argv); argv++, argc--; VALUE domain = argc<1 ? SYM(here) : argv[0]; int i; if (domain==SYM(here)) { open_display(0); i=1; } else if (domain==SYM(local)) { if (argc<2) RAISE("open x11 local: not enough args"); char host[256]; int dispnum = NUM2INT(argv[1]); sprintf(host,":%d",dispnum); open_display(host); i=2; } else if (domain==SYM(remote)) { if (argc<3) RAISE("open x11 remote: not enough args"); char host[256]; strcpy(host,rb_sym_name(argv[1])); int dispnum = NUM2INT(argv[2]); sprintf(host+strlen(host),":%d",dispnum); open_display(host); i=3; } else if (domain==SYM(display)) { if (argc<2) RAISE("open x11 display: not enough args"); char host[256]; strcpy(host,rb_sym_name(argv[1])); for (int k=0; host[k]; k++) if (host[k]=='%') host[k]==':'; gfpost("mode `display', DISPLAY=`%s'",host); open_display(host); i=2; } else { RAISE("x11 destination syntax error"); } for(;i<argc;i++) { Ruby a=argv[i]; if (a==SYM(override_redirect)) { override_redirect = true; } else if (a==SYM(use_stripes)){ use_stripes = true; } else { break; } } pos_x=pos_y=0; parent = root_window; if (i>=argc) { } else { VALUE winspec = argv[i]; if (winspec==SYM(root)) { window = root_window; is_owner = false; } else if (winspec==SYM(embed)) { Ruby title_s = rb_funcall(argv[i+1],SI(to_s),0); char *title = strdup(rb_str_ptr(title_s)); sy = sx = pos_y = pos_x = 0; parent = search_window_tree(root_window,XInternAtom(display,"WM_NAME",0),title); free(title); if (parent == 0xDeadBeef) RAISE("Window not found."); } else if (winspec==SYM(embed_by_id)) { const char *winspec2 = rb_sym_name(argv[i+1]); if (strncmp(winspec2,"0x",2)==0) { parent = strtol(winspec2+2,0,16); } else { parent = atoi(winspec2); } } else { if (TYPE(winspec)==T_SYMBOL) { const char *winspec2 = rb_sym_name(winspec); if (strncmp(winspec2,"0x",2)==0) { window = strtol(winspec2+2,0,16); } else { window = atoi(winspec2); // huh? } } else { window = INT(winspec); } is_owner = false; sy = sx = pos_y = pos_x = 0; } } // "resize" also takes care of creation resize_window(sx,sy); if (is_owner) { wmProtocolsAtom = XInternAtom(display, "WM_PROTOCOLS", False); wmDeleteAtom = XInternAtom(display, "WM_DELETE_WINDOW", False); XSetWMProtocols(display,window,&wmDeleteAtom,1); } Visual *v = visual; int disp_is_le = !ImageByteOrder(display); int bpp = ximage->bits_per_pixel; switch(visual->c_class) { case TrueColor: case DirectColor: { uint32 masks[3] = { v->red_mask, v->green_mask, v->blue_mask }; bit_packing = new BitPacking(disp_is_le, bpp/8, 3, masks); } break; case PseudoColor: { uint32 masks[3] = { 0x07, 0x38, 0xC0 }; bit_packing = new BitPacking(disp_is_le, bpp/8, 3, masks); } break; } IEVAL(rself,"@clock = Clock.new self; @clock.delay 0"); } \classinfo { IEVAL(rself,"install '#io:x11',1,1;@mode=6;@comment='X Window System Version 11.5'"); } \end class FormatX11 void startup_x11 () { \startall } --- NEW FILE: png.c --- /* $Id: png.c,v 1.1 2005/10/04 02:02:15 matju Exp $ GridFlow Copyright (c) 2001,2002,2003,2004 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* !@#$ not handling abort on compress */ /* !@#$ not handling abort on decompress */ #include "../base/grid.h.fcs" extern "C" { #include <libpng12/png.h> }; \class FormatPNG < Format struct FormatPNG : Format { P<BitPacking> bit_packing; png_structp png; png_infop info; int fd; FILE *f; FormatPNG () : bit_packing(0), png(0), f(0) {} \decl Ruby frame (); \decl void initialize (Symbol mode, Symbol source, String filename); \grin 0 int }; GRID_INLET(FormatPNG,0) { if (in->dim->n != 3) RAISE("expecting 3 dimensions: rows,columns,channels"); if (in->dim->get(2) != 3) RAISE("expecting 3 channels (got %d)",in->dim->get(2)); in->set_factor(in->dim->get(1)*in->dim->get(2)); RAISE("bother, said pooh, as the PNG encoding was found unimplemented"); } GRID_FLOW { int rowsize = in->dim->get(1)*in->dim->get(2); int rowsize2 = in->dim->get(1)*3; uint8 row[rowsize2]; while (n) { bit_packing->pack(in->dim->get(1),data,Pt<uint8>(row,rowsize)); n-=rowsize; data+=rowsize; } } GRID_FINISH { } GRID_END \def Ruby frame () { uint8 sig[8]; if (!fread(sig, 1, 8, f)) return Qfalse; if (!png_check_sig(sig, 8)) RAISE("bad signature"); png = png_create_read_struct(PNG_LIBPNG_VER_STRING, NULL, NULL, NULL); if (!png) RAISE("!png"); info = png_create_info_struct(png); if (!info) { png_destroy_read_struct(&png, NULL, NULL); RAISE("!info"); } if (setjmp(png_jmpbuf(png))) { png_destroy_read_struct(&png, &info, NULL); RAISE("png read error"); } png_init_io(png, f); png_set_sig_bytes(png, 8); // we already read the 8 signature bytes png_read_info(png, info); // read all PNG info up to image data png_uint_32 width, height; int bit_depth, color_type; png_get_IHDR(png, info, &width, &height, &bit_depth, &color_type, 0,0,0); png_bytepp row_pointers = 0; if (color_type == PNG_COLOR_TYPE_PALETTE || (color_type == PNG_COLOR_TYPE_GRAY && bit_depth < 8) || png_get_valid(png, info, PNG_INFO_tRNS)) png_set_expand(png); // 16bpp y, 32bpp ya, 48bpp rgb, 64bpp rgba... if (bit_depth == 16) png_set_strip_16(png); double display_gamma = 2.2; double gamma; if (png_get_gAMA(png, info, &gamma)) png_set_gamma(png, display_gamma, gamma); png_read_update_info(png, info); int rowbytes = png_get_rowbytes(png, info); int channels = (int)png_get_channels(png, info); Pt<uint8> image_data = ARRAY_NEW(uint8,rowbytes*height); row_pointers = new png_bytep[height]; //gfpost("png: color_type=%d channels=%d, width=%d, rowbytes=%ld, height=%ld, gamma=%f", // color_type, channels, width, rowbytes, height, gamma); for (int i=0; i<(int)height; i++) row_pointers[i] = image_data + i*rowbytes; if ((uint32)rowbytes != width*channels) RAISE("rowbytes mismatch: %d is not %d*%d=%d", rowbytes, width, channels, width*channels); png_read_image(png, row_pointers); delete row_pointers; row_pointers = 0; png_read_end(png, 0); GridOutlet out(this,0,new Dim(height, width, channels), NumberTypeE_find(rb_ivar_get(rself,SI(@cast)))); out.send(rowbytes*height,image_data); free(image_data); png_destroy_read_struct(&png, &info, NULL); return Qnil; } \def void initialize (Symbol mode, Symbol source, String filename) { rb_call_super(argc,argv); if (source!=SYM(file)) RAISE("usage: png file <filename>"); rb_funcall(rself,SI(raw_open),3,mode,source,filename); Ruby stream = rb_ivar_get(rself,SI(@stream)); fd = NUM2INT(rb_funcall(stream,SI(fileno),0)); f = fdopen(fd,mode==SYM(in)?"r":"w"); uint32 mask[3] = {0x0000ff,0x00ff00,0xff0000}; bit_packing = new BitPacking(is_le(),3,3,mask); } \classinfo { IEVAL(rself, "install '#io:png',1,1;@mode=4;include GridFlow::EventIO; suffixes_are'png'"); } \end class FormatPNG void startup_png () { \startall } --- NEW FILE: videodev.c --- /* $Id: videodev.c,v 1.1 2005/10/04 02:02:15 matju Exp $ GridFlow Copyright (c) 2001,2002,2003,2004 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include "../base/grid.h.fcs" #include <errno.h> #include <stdlib.h> #include <string.h> #include <unistd.h> #include <linux/videodev.h> #include <sys/ioctl.h> #include <fcntl.h> #include <sys/mman.h> /* **************************************************************** */ typedef video_capability VideoCapability; typedef video_channel VideoChannel ; typedef video_tuner VideoTuner ; typedef video_window VideoWindow ; typedef video_picture VideoPicture ; typedef video_mbuf VideoMbuf ; typedef video_mmap VideoMmap ; static const char *ruby_code = \ruby flags :name,:VideoTypeFlags,:start,0,:values,%w( CAPTURE TUNER TELETEXT OVERLAY CHROMAKEY CLIPPING FRAMERAM SCALES MONOCHROME SUBCAPTURE MPEG_DECODER MPEG_ENCODER MJPEG_DECODER MJPEG_ENCODER ) flags :name,:TunerFlags,:start,0,:values,%w( PAL NTSC SECAM LOW NORM DUMMY5 DUMMY6 STEREO_ON RDS_ON MBS_ON ) flags :name,:ChannelFlags,:start,0,:values,%w( TUNER AUDIO NORM ) choice :name,:VideoPaletteChoice,:start,0,:values,%w( NIL GREY HI240 RGB565 RGB24 RGB32 RGB555 YUV422 YUYV UYVY YUV420 YUV411 RAW YUV422P YUV411P YUV420P YUV410P ) choice :name,:VideoModeChoice,:start,0,:values,%w( PAL NTSC SECAM AUTO ) \end ruby ; /* **************************************************************** */ /* #define WH(_field_,_spec_) \ sprintf(buf+strlen(buf), "%s: " _spec_ "; ", #_field_, self->_field_); #define WHYX(_name_,_fieldy_,_fieldx_) \ sprintf(buf+strlen(buf), "%s: y=%d, x=%d; ", #_name_, self->_fieldy_, self->_fieldx_); #define WHFLAGS(_field_,_table_) { \ char *foo; \ sprintf(buf+strlen(buf), "%s: %s; ", #_field_, \ foo=flags_to_s(self->_field_,COUNT(_table_),_table_)); \ delete[] foo;} #define WHCHOICE(_field_,_table_) { \ char *foo; \ sprintf(buf+strlen(buf), "%s: %s; ", #_field_, \ foo=choice_to_s(self->_field_,COUNT(_table_),_table_));\ delete[] foo;} static char *flags_to_s(int value, int n, named_int *table) { char foo[256]; *foo = 0; for(int i=0; i<n; i++) { if ((value & (1<<i)) == 0) continue; if (*foo) strcat(foo," | "); strcat(foo,table[i].name); } if (!*foo) strcat(foo,"0"); return strdup(foo); } static char *choice_to_s(int value, int n, named_int *table) { if (value < 0 || value >= n) { char foo[64]; sprintf(foo,"(Unknown #%d)",value); return strdup(foo); } else { return strdup(table[value].name); } } */ class RStream { public: Ruby a; RStream(Ruby a) : a(a) {} RStream &operator <<(/*Ruby*/ void *v) { rb_ary_push(a,(Ruby)v); return *this; } RStream &operator <<(int v) { return *this<<(void *)INT2NUM(v); } }; static void gfpost(VideoChannel *self) { RStream rs(rb_ary_new()); rs << (void *)SYM(VideoChannel) << self->channel << (void *)rb_str_new(self->name,strnlen(self->name,32)) << self->tuners << self->flags << self->type << self->norm; rb_p(rs.a); } static void gfpost(VideoTuner *self) { RStream rs(rb_ary_new()); rs << (void *)SYM(VideoTuner) << self->tuner << (void *)rb_str_new(self->name,strnlen(self->name,32)) << self->rangelow << self->rangehigh << self->flags << self->mode << self->signal; rb_p(rs.a); } static void gfpost(VideoCapability *self) { RStream rs(rb_ary_new()); rs << (void *)SYM(VideoCapability) << (void *)rb_str_new(self->name,strnlen(self->name,32)) << self->type << self->channels << self->audios << self->maxheight << self->maxwidth << self->minheight << self->minwidth; rb_p(rs.a); } static void gfpost(VideoWindow *self) { RStream rs(rb_ary_new()); rs << (void *)SYM(VideoWindow) << self->y << self->x << self->height << self->width << self->chromakey << self->flags << self->clipcount; rb_p(rs.a); } static void gfpost(VideoPicture *self) { RStream rs(rb_ary_new()); rs << (void *)SYM(VideoPicture) << self->brightness << self->contrast << self->colour << self->hue << self->whiteness << self->depth << self->palette; rb_p(rs.a); } static void gfpost(VideoMbuf *self) { RStream rs(rb_ary_new()); rs << (void *)SYM(VideoMBuf) << self->size << self->frames; for (int i=0; i<4; i++) rs << self->offsets[i]; rb_p(rs.a); } static void gfpost(VideoMmap *self) { RStream rs(rb_ary_new()); rs << (void *)SYM(VideoMMap) << self->frame << self->height << self->width << self->format; rb_p(rs.a); }; /* **************************************************************** */ \class FormatVideoDev < Format struct FormatVideoDev : Format { VideoCapability vcaps; VideoMbuf vmbuf; VideoMmap vmmap; Pt<uint8> image; int palette; int queue[8], queuesize, queuemax, next_frame; int current_channel, current_tuner; bool use_mmap; P<BitPacking> bit_packing; P<Dim> dim; FormatVideoDev () : queuesize(0), queuemax(2), next_frame(0), use_mmap(true), bit_packing(0), dim(0) {} void frame_finished (Pt<uint8> buf); \decl void initialize (Symbol mode, String filename, Symbol option=Qnil); \decl void initialize2 (); \decl void close (); \decl void alloc_image (); \decl void dealloc_image (); \decl void frame (); \decl void frame_ask (); \grin 0 int \decl void _0_size (int sy, int sx); \decl void _0_norm (int value); \decl void _0_tuner (int value); \decl void _0_channel (int value); \decl void _0_frequency (int value); \decl void _0_transfer (Symbol sym, int queuemax=2); \decl void _0_colorspace (Symbol c); \decl void _0_get (Symbol attr=0); \decl void _0_brightness (uint16 value); \decl void _0_hue (uint16 value); \decl void _0_colour (uint16 value); \decl void _0_contrast (uint16 value); \decl void _0_whiteness (uint16 value); }; #define DEBUG(args...) 42 //#define DEBUG(args...) gfpost #define IOCTL(_f_,_name_,_arg_) \ (DEBUG("fd%d.ioctl(0x%08x(:%s),0x%08x)\n",_f_,_name_,#_name_,_arg_), \ ioctl(_f_,_name_,_arg_)) #define WIOCTL(_f_,_name_,_arg_) \ (DEBUG("fd%d.ioctl(0x%08x(:%s),0x%08x)\n",_f_,_name_,#_name_,_arg_), \ ioctl(_f_,_name_,_arg_) < 0) && \ (gfpost("ioctl %s: %s",#_name_,strerror(errno)),1) #define WIOCTL2(_f_,_name_,_arg_) \ ((DEBUG("fd%d.ioctl(0x%08x(:%s),0x%08x)\n",_f_,_name_,#_name_,_arg_), \ ioctl(_f_,_name_,_arg_) < 0) && \ (gfpost("ioctl %s: %s",#_name_,strerror(errno)), \ RAISE("ioctl error"), 0)) #define GETFD NUM2INT(rb_funcall(rb_ivar_get(rself,SI(@stream)),SI(fileno),0)) \def void _0_size (int sy, int sx) { int fd = GETFD; VideoWindow grab_win; // !@#$ bug here: won't flush the frame queue dim = new Dim(sy,sx,3); WIOCTL(fd, VIDIOCGWIN, &grab_win); gfpost(&grab_win); grab_win.clipcount = 0; grab_win.flags = 0; if (sy && sx) { grab_win.height = sy; grab_win.width = sx; } gfpost(&grab_win); WIOCTL(fd, VIDIOCSWIN, &grab_win); WIOCTL(fd, VIDIOCGWIN, &grab_win); gfpost(&grab_win); } \def void dealloc_image () { if (!image) return; if (!use_mmap) { delete[] (uint8 *)image; } else { munmap(image, vmbuf.size); image = Pt<uint8>(); } } \def void alloc_image () { if (!use_mmap) { image = ARRAY_NEW(uint8,dim->prod(0,1)*bit_packing->bytes); return; } int fd = GETFD; WIOCTL2(fd, VIDIOCGMBUF, &vmbuf); image = Pt<uint8>((uint8 *) mmap(0,vmbuf.size,PROT_READ|PROT_WRITE,MAP_SHARED,fd,0), vmbuf.size); if (((int)image)<=0) { image=Pt<uint8>(); RAISE("mmap: %s", strerror(errno)); } } \def void frame_ask () { int fd = GETFD; if (queuesize>=queuemax) RAISE("queue is full (queuemax=%d)",queuemax); if (queuesize>=vmbuf.frames) RAISE("queue is full (vmbuf.frames=%d)",vmbuf.frames); vmmap.frame = queue[queuesize++] = next_frame; vmmap.format = palette; vmmap.width = dim->get(1); vmmap.height = dim->get(0); WIOCTL2(fd, VIDIOCMCAPTURE, &vmmap); next_frame = (next_frame+1) % vmbuf.frames; } void FormatVideoDev::frame_finished (Pt<uint8> buf) { GridOutlet out(this,0,dim,NumberTypeE_find(rb_ivar_get(rself,SI(@cast)))); /* picture is converted here. */ int sy = dim->get(0); int sx = dim->get(1); int bs = dim->prod(1); if (palette==VIDEO_PALETTE_YUV420P) { STACK_ARRAY(uint8,b2,bs); for(int y=0; y<sy; y++) { Pt<uint8> bufy = buf+sx*y; Pt<uint8> bufu = buf+sx*sy +(sx/2)*(y/2); Pt<uint8> bufv = buf+sx*sy*5/4+(sx/2)*(y/2); for (int x=0; x<sx; x++) { b2[x*3+0]=bufy[x]; b2[x*3+1]=bufu[x/2]; b2[x*3+2]=bufv[x/2]; } out.send(bs,b2); } } else if (bit_packing) { STACK_ARRAY(uint8,b2,bs); for(int y=0; y<sy; y++) { Pt<uint8> buf2 = buf+bit_packing->bytes*sx*y; bit_packing->unpack(sx,buf2,b2); out.send(bs,b2); } } else { out.send(sy*bs,buf); } } static int read2(int fd, uint8 *image, int n) { int r=0; for (; n>0; ) { int rr=read(fd,image,n); if (rr<0) return rr; r+=rr, image+=rr, n-=rr; } return r; } static int read3(int fd, uint8 *image, int n) { int r=read(fd,image,n); if (r<0) return r; return n; } \def void frame () { if (!image) rb_funcall(rself,SI(alloc_image),0); int fd = GETFD; if (!use_mmap) { /* picture is read at once by frame() to facilitate debugging. */ int tot = dim->prod(0,1) * bit_packing->bytes; int n = (int) read3(fd,image,tot); if (n==tot) frame_finished(image); if (0> n) RAISE("error reading: %s", strerror(errno)); if (n < tot) RAISE("unexpectedly short picture: %d of %d",n,tot); return; } while(queuesize<queuemax) rb_funcall(rself,SI(frame_ask),0); vmmap.frame = queue[0]; uint64 t0 = gf_timeofday(); WIOCTL2(fd, VIDIOCSYNC, &vmmap); uint64 t1 = gf_timeofday(); //if (t1-t0 > 100) gfpost("VIDIOCSYNC delay: %d us",t1-t0); frame_finished(image+vmbuf.offsets[queue[0]]); queuesize--; for (int i=0; i<queuesize; i++) queue[i]=queue[i+1]; rb_funcall(rself,SI(frame_ask),0); } GRID_INLET(FormatVideoDev,0) { RAISE("can't write."); } GRID_FLOW { } GRID_FINISH { } GRID_END \def void _0_norm (int value) { int fd = GETFD; VideoTuner vtuner; vtuner.tuner = current_tuner; if (value<0 || value>3) RAISE("norm must be in range 0..3"); if (0> IOCTL(fd, VIDIOCGTUNER, &vtuner)) { gfpost("no tuner #%d", value); } else { vtuner.mode = value; gfpost(&vtuner); WIOCTL(fd, VIDIOCSTUNER, &vtuner); } } \def void _0_tuner (int value) { int fd = GETFD; VideoTuner vtuner; vtuner.tuner = current_tuner = value; if (0> IOCTL(fd, VIDIOCGTUNER, &vtuner)) RAISE("no tuner #%d", value); vtuner.mode = VIDEO_MODE_NTSC; //??? gfpost(&vtuner); WIOCTL(fd, VIDIOCSTUNER, &vtuner); } \def void _0_channel (int value) { int fd = GETFD; VideoChannel vchan; vchan.channel = value; current_channel = value; if (0> IOCTL(fd, VIDIOCGCHAN, &vchan)) RAISE("no channel #%d", value); gfpost(&vchan); WIOCTL(fd, VIDIOCSCHAN, &vchan); if (vcaps.type & VID_TYPE_TUNER) rb_funcall(rself,SI(_0_tuner),1,INT2NUM(0)); } \def void _0_frequency (int value) { int fd = GETFD; if (0> IOCTL(fd, VIDIOCSFREQ, &value)) RAISE("can't set frequency to %d",value); } \def void _0_transfer (Symbol sym, int queuemax=2) { if (sym == SYM(read)) { rb_funcall(rself,SI(dealloc_image),0); use_mmap = false; gfpost("transfer read"); } else if (sym == SYM(mmap)) { rb_funcall(rself,SI(dealloc_image),0); use_mmap = true; rb_funcall(rself,SI(alloc_image),0); queuemax=min(queuemax,vmbuf.frames); gfpost("transfer mmap with queuemax=%d (max max is vmbuf.frames=%d)" ,queuemax,vmbuf.frames); this->queuemax=queuemax; } else RAISE("don't know that transfer mode"); } #define PICTURE_ATTR(_name_) {\ int fd = GETFD; \ VideoPicture vp; \ WIOCTL(fd, VIDIOCGPICT, &vp); \ vp._name_ = value; \ WIOCTL(fd, VIDIOCSPICT, &vp);} \def void _0_brightness (uint16 value) {PICTURE_ATTR(brightness)} \def void _0_hue (uint16 value) {PICTURE_ATTR(hue)} \def void _0_colour (uint16 value) {PICTURE_ATTR(colour)} \def void _0_contrast (uint16 value) {PICTURE_ATTR(contrast)} \def void _0_whiteness (uint16 value) {PICTURE_ATTR(whiteness)} #define PICTURE_ATTR_GET(_name_) { \ int fd = GETFD; \ VideoPicture vp; \ WIOCTL(fd, VIDIOCGPICT, &vp); \ Ruby argv[3] = {INT2NUM(1), SYM(_name_), INT2NUM(vp._name_)}; \ send_out(COUNT(argv),argv);} \def void _0_get (Symbol attr) { if (!attr) { _0_get(0,0,SYM(brightness)); _0_get(0,0,SYM(hue )); _0_get(0,0,SYM(colour )); _0_get(0,0,SYM(contrast )); _0_get(0,0,SYM(whiteness )); _0_get(0,0,SYM(frequency )); } else if (attr==SYM(brightness)) { PICTURE_ATTR_GET(brightness); } else if (attr==SYM(hue )) { PICTURE_ATTR_GET(hue ); } else if (attr==SYM(colour )) { PICTURE_ATTR_GET(colour ); } else if (attr==SYM(contrast )) { PICTURE_ATTR_GET(contrast ); } else if (attr==SYM(whiteness )) { PICTURE_ATTR_GET(whiteness ); } else if (attr==SYM(frequency )) { int fd = GETFD; int value; WIOCTL(fd, VIDIOCGFREQ, &value); {Ruby argv[3] ={INT2NUM(1), SYM(frequency), INT2NUM(value)}; send_out(COUNT(argv),argv);} } else { RAISE("What you say?"); } } \def void close () { if (image) rb_funcall(rself,SI(dealloc_image),0); rb_call_super(argc,argv); } \def void _0_colorspace (Symbol c) { if (c==SYM(RGB24)) palette=VIDEO_PALETTE_RGB24; else if (c==SYM(YUV420P)) palette=VIDEO_PALETTE_YUV420P; else RAISE("supported: RGB24, YUV420P"); int fd = GETFD; VideoPicture *gp = new VideoPicture; WIOCTL(fd, VIDIOCGPICT, gp); gp->palette = palette; WIOCTL(fd, VIDIOCSPICT, gp); WIOCTL(fd, VIDIOCGPICT, gp); //if (bit_packing) { delete bit_packing; bit_packing=0; } switch(palette) { case VIDEO_PALETTE_RGB24:{ uint32 masks[3] = { 0xff0000,0x00ff00,0x0000ff }; bit_packing = new BitPacking(is_le(),3,3,masks); }break; case VIDEO_PALETTE_YUV420P:{ // woops, special case already, can't do that with bit_packing } default: RAISE("can't handle palette %d", gp->palette); } delete gp; } \def void initialize2 () { int fd = GETFD; VideoPicture *gp = new VideoPicture; /* long flags; fcntl(fd,F_GETFL,&flags); flags |= O_NONBLOCK; fcntl(fd,F_SETFL,&flags); */ WIOCTL(fd, VIDIOCGCAP, &vcaps); gfpost(&vcaps); rb_funcall(rself,SI(_0_size),2,INT2NUM(vcaps.maxheight),INT2NUM(vcaps.maxwidth)); WIOCTL(fd, VIDIOCGPICT, gp); gfpost(gp); char buf[1024] = ""; int n = 17 /*COUNT(video_palette_choice)*/; for (int i=0; i<n; i++) { gp->palette = i; ioctl(fd, VIDIOCSPICT, gp); ioctl(fd, VIDIOCGPICT, gp); if (gp->palette == i) { if (*buf) strcpy(buf+strlen(buf),", "); //strcpy(buf+strlen(buf),video_palette_choice[i].name); sprintf(buf+strlen(buf),"%d",i); } } gfpost("This card supports palettes: %s", buf); _0_colorspace(0,0,SYM(RGB24)); rb_funcall(rself,SI(_0_channel),1,INT2NUM(0)); delete gp; } \def void initialize (Symbol mode, String filename, Symbol option=Qnil) { rb_call_super(argc,argv); image = Pt<uint8>(); rb_ivar_set(rself,SI(@stream), rb_funcall(rb_cFile,SI(open),2,filename,rb_str_new2("r+"))); rb_funcall(rself,SI(initialize2),0); } \classinfo { IEVAL(rself,"install '#io:videodev',1,1;@flags=4;@comment='Video4linux 1.x'"); } \end class FormatVideoDev void startup_videodev () { \startall } --- NEW FILE: mpeg3.c --- /* $Id: mpeg3.c,v 1.1 2005/10/04 02:02:15 matju Exp $ GridFlow Copyright (c) 2001,2002,2003 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #define LIBMPEG_INCLUDE_HERE #include "../base/grid.h.fcs" #include <stdlib.h> #include <string.h> #include <errno.h> \class FormatMPEG3 < Format struct FormatMPEG3 : Format { mpeg3_t *mpeg; P<BitPacking> bit_packing; int track; FormatMPEG3 () : track(0) {} \decl void initialize (Symbol mode, Symbol source, String filename); \decl void seek (int frame); \decl Ruby frame (); \decl void close (); }; \def void seek (int frame) { mpeg3_set_frame(mpeg,frame,track); } \def Ruby frame () { int nframe = mpeg3_get_frame(mpeg,track); if (nframe >= mpeg3_video_frames(mpeg,track)) return Qfalse; int sx = mpeg3_video_width(mpeg,track); int sy = mpeg3_video_height(mpeg,track); int npixels = sx*sy; int channels = 3; Pt<uint8> buf = ARRAY_NEW(uint8,sy*sx*channels+16); uint8 *rows[sy]; for (int i=0; i<sy; i++) rows[i]=buf+i*sx*channels; int result = mpeg3_read_frame(mpeg,rows,0,0,sx,sy,sx,sy,MPEG3_RGB888,track); GridOutlet out(this,0,new Dim(sy, sx, channels), NumberTypeE_find(rb_ivar_get(rself,SI(@cast)))); int bs = out.dim->prod(1); STACK_ARRAY(int32,b2,bs); for(int y=0; y<sy; y++) { Pt<uint8> row = buf+channels*sx*y; /* bit_packing->unpack(sx,row,b2); out.send(bs,b2); */ out.send(bs,row); } delete[] (uint8 *)buf; return INT2NUM(nframe); } \def void close () { // fprintf(stderr, "begin mpeg3_close...\n"); if (mpeg) { mpeg3_close(mpeg); mpeg=0; } rb_call_super(argc,argv); // fprintf(stderr, "end mpeg3_close...\n"); } // libmpeg3 may be nice, but it won't take a filehandle, only filename \def void initialize (Symbol mode, Symbol source, String filename) { rb_call_super(argc,argv); if (mode!=SYM(in)) RAISE("read-only, sorry"); if (source!=SYM(file)) RAISE("usage: mpeg file <filename>"); if (TYPE(filename)!=T_STRING) RAISE("PATATE POILUE"); filename = rb_funcall(mGridFlow,SI(find_file),1,filename); mpeg = mpeg3_open(rb_str_ptr(filename)); if (!mpeg) RAISE("IO Error: can't open file `%s': %s", filename, strerror(errno)); uint32 mask[3] = {0x0000ff,0x00ff00,0xff0000}; bit_packing = new BitPacking(is_le(),3,3,mask); } \classinfo { IEVAL(rself,"install '#in:mpeg',1,1;@flags=4;" "@comment='Motion Picture Expert Group Format" " (using HeroineWarrior\\'s)';suffixes_are'mpg,mpeg'"); } \end class FormatMPEG3 void startup_mpeg3 () { \startall } --- NEW FILE: dc1394.c --- /* $Id: dc1394.c,v 1.1 2005/10/04 02:02:15 matju Exp $ GridFlow Copyright (c) 2001,2002,2003,2004 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include <libraw1394/raw1394.h> #include <libdc1394/dc1394_control.h> #include "../base/grid.h.fcs" typedef raw1394handle_t RH; typedef nodeid_t NID; static const int ruby_lineno = __LINE__; static const char *ruby_code = \ruby def choice(*)end class CStruct def initialize(*) end end choice :name,:Speed,:start,0,:values,%w(SPEED_100 SPEED_200 SPEED_400) choice :name,:Framerate,:start,32,:values, %w(FRAMERATE_1_875 FRAMERATE_3_75 FRAMERATE_7_5 FRAMERATE_15 FRAMERATE_30 FRAMERATE_60) choice :name,:Format0Mode,:start,64,:values,%w( MODE_160x120_YUV444 MODE_320x240_YUV422 MODE_640x480_YUV411 MODE_640x480_YUV422 MODE_640x480_RGB MODE_640x480_MONO MODE_640x480_MONO16) choice :name,:Format1Mode,:start,96,:values,%w( MODE_800x600_YUV422 MODE_800x600_RGB MODE_800x600_MONO MODE_1024x768_YUV422 MODE_1024x768_RGB MODE_1024x768_MONO MODE_800x600_MONO16 MODE_1024x768_MONO16) choice :name,:Format2Mode,:start,128,:values,%w( MODE_1280x960_YUV422 MODE_1280x960_RGB MODE_1280x960_MONO MODE_1600x1200_YUV422 MODE_1600x1200_RGB MODE_1600x1200_MONO MODE_1280x960_MONO16 MODE_1600x1200_MONO16) choice :name,:Format6Mode,:start,256,:values,%w(MODE_EXIF) choice :name,:Format7Mode,:start,288,:values,%w( MODE_FORMAT7_0 MODE_FORMAT7_1 MODE_FORMAT7_2 MODE_FORMAT7_3 MODE_FORMAT7_4 MODE_FORMAT7_5 MODE_FORMAT7_6 MODE_FORMAT7_7) choice :name,:Format7ColorMode,:start,320,:values,%w( COLOR_FORMAT7_MONO8 COLOR_FORMAT7_YUV411 COLOR_FORMAT7_YUV422 COLOR_FORMAT7_YUV444 COLOR_FORMAT7_RGB8 COLOR_FORMAT7_MONO16 COLOR_FORMAT7_RGB16) choice :name,:TriggerMode,:start,352,:values,%w( TRIGGER_MODE_0 TRIGGER_MODE_1 TRIGGER_MODE_2 TRIGGER_MODE_3) choice :name,:CameraImageFormat,:start,384,:values,%w( FORMAT_VGA_NONCOMPRESSED FORMAT_SVGA_NONCOMPRESSED_1 FORMAT_SVGA_NONCOMPRESSED_2 skip 3 FORMAT_STILL_IMAGE FORMAT_SCALABLE_IMAGE_SIZE) choice :name,:CameraFeatures,:start,416,:values,%w( FEATURE_BRIGHTNESS FEATURE_EXPOSURE FEATURE_SHARPNESS FEATURE_WHITE_BALANCE FEATURE_HUE FEATURE_SATURATION FEATURE_GAMMA FEATURE_SHUTTER FEATURE_GAIN FEATURE_IRIS FEATURE_FOCUS FEATURE_TEMPERATURE FEATURE_TRIGGER skip 19 FEATURE_ZOOM FEATURE_PAN FEATURE_TILT FEATURE_OPTICAL_FILTER skip 12 FEATURE_CAPTURE_SIZE FEATURE_CAPTURE_QUALITY skip 14) choice :name,:DCBool,:start,0,:values,%w(False True) #define MAX_CHARS 32 #define SUCCESS 1 #define FAILURE -1 #define NO_CAMERA 0xffff # Parameter flags for setup_format7_capture() #define QUERY_FROM_CAMERA -1 #define USE_MAX_AVAIL -2 #define USE_RECOMMENDED -3 # all dc1394_ prefixes removed # raw1394handle_t = RH # nodeid_t = NID # RH+NID = RN CameraInfo = CStruct.new %{ RH rh; NID id; octlet_t ccr_offset; u_int64_t euid_64; char vendor[MAX_CHARS + 1]; char model[MAX_CHARS + 1]; } CameraCapture = CStruct.new %{ NID node; int channel, frame_rate, frame_width, frame_height; int * capture_buffer; int quadlets_per_frame, quadlets_per_packet; const unsigned char * dma_ring_buffer; int dma_buffer_size, dma_frame_size, num_dma_buffers, dma_last_buffer; const char * dma_device_file; int dma_fd, port; struct timeval filltime; int dma_extra_count; unsigned char * dma_extra_buffer; int drop_frames; } MiscInfo = CStruct.new %{ int format, mode, framerate; bool is_iso_on; int iso_channel, iso_speed, mem_channel_number; int save_channel, load_channel; } FeatureInfo = CStruct.new %{ uint feature_id; bool available, one_push, readout_capable, on_off_capable; bool auto_capable, manual_capable, polarity_capable, one_push_active; bool is_on, auto_active; char trigger_mode_capable_mask; int trigger_mode; bool trigger_polarity; int min, max, value, BU_value, RV_value, target_value; } FeatureSet = CStruct.new %{ FeatureInfo feature[NUM_FEATURES]; } #void print_feature_set(FeatureSet *features); #extern const char *feature_desc[NUM_FEATURES]; #void print_feature(FeatureInfo *feature); #RawFire create_handle(int port); #destroy_handle(RH rh); #void print_camera_info(camerainfo *info); class RH; %{ # those two: # Return -1 in numCameras and NULL from the call if there is a problem # otherwise the number of cameras and the NID array from the call NID* get_camera_nodes(int *numCameras, int showCameras); NID* get_sorted_camera_nodes(int numids, int *ids, int *numCameras, int showCameras); release_camera(CameraCapture *camera); single_capture(CameraCapture *camera); # this one returns FAILURE or SUCCESS multi_capture(CameraCapture *cams, int num); }end class RN; %{ init_camera(); is_camera(bool *value); get_camera_feature_set(FeatureSetFeatureInfo *features); get_camera_feature(FeatureInfo *feature); get_camera_misc_info(miscinfo *info); get_sw_version(quadlet_t *value); get_camera_info(camerainfo *info); query_supported_formats(quadlet_t *value); query_supported_modes(uint format, quadlet_t *value); query_supported_framerates(uint format, uint mode, quadlet_t *value); query_revision(int mode, quadlet_t *value); query_basic_functionality(quadlet_t *value); query_advanced_feature_offset(quadlet_t *value); attr set_video_framerate(uint framerate); attr video_mode(uint mode); attr video_format(uint format); double_attr iso_channel_and_speed(uint channel, uint speed); camera_on(); camera_off(); start_iso_transmission(); stop_iso_transmission(); get_iso_status(bool *is_on); set_one_shot(); unset_one_shot(); set_multi_shot(uint numFrames); unset_multi_shot(); # attributes : # those are get_/set_ methods where the get has an input parameter # and the set has an output parameter attr uint brightness attr uint exposure attr uint sharpness double_attr set_white_balance(uint u_b_value, uint v_r_value); attr uint hue attr uint saturation(uint saturation); attr uint gamma(uint gamma); attr shutter(uint shutter); attr uint gain attr uint iris attr uint focus attr uint trigger_mode attr uint zoom attr uint pan attr uint tilt attr uint optical_filter attr uint capture_size attr uint capture_quality int get_temperature(uint *target_temperature, uint *temperature); int set_temperature(uint target_temperature); get_memory_load_ch(uint *channel); get_memory_save_ch(uint *channel); is_memory_save_in_operation(bool *value); set_memory_save_ch(uint channel); memory_save(); memory_load(uint channel); attr bool trigger_polarity trigger_has_polarity(bool *polarity); attr bool set_trigger_on_off # this one returns SUCCESS on success, FAILURE otherwise setup_capture( int channel, int format, int mode, int speed, int frame_rate, CameraCapture *camera); dma_setup_capture( int channel, int format, int mode, int speed, int frame_rate, int num_dma_buffers, int drop_frames, const char *dma_device_file, CameraCapture *camera); setup_format7_capture( int channel, int mode, int speed, int bytes_per_packet, uint left, uint top, uint width, uint height, CameraCapture *camera); dma_setup_format7_capture( int channel, int mode, int speed, int bytes_per_packet, uint left, uint top, uint width, uint height, int num_dma_buffers, CameraCapture *camera); }end #RNF = RN+uint feature class RNF; %{ query_feature_control(uint *availability); query_feature_characteristics(quadlet_t *value); attr uint feature_value is_feature_present(bool *value); has_one_push_auto(bool *value); is_one_push_in_operation(bool *value); start_one_push_operation(); can_read_out(bool *value); can_turn_on_off(bool *value); is_feature_on(bool *value); feature_on_off(uint value); has_auto_mode(bool *value); has_manual_mode(bool *value); is_feature_auto(bool *value); auto_on_off(uint value); get_min_value(uint *value); get_max_value(uint *value); }end # DMA Capture Functions #dma_release_camera(RH rh, CameraCapture *camera); #dma_unlisten(RH rh, CameraCapture *camera); #dma_single_capture(CameraCapture *camera); #dma_multi_capture(CameraCapture *cams,int num); #dma_done_with_buffer(CameraCapture * camera); # default return type is int, prolly means SUCCESS/FAILURE #RNM = RN+uint mode class RNM; %{ query_format7_max_image_size(uint *horizontal_size, uint *vertical_size); query_format7_unit_size(uint *horizontal_unit, uint *vertical_unit); query_format7_color_coding(quadlet_t *value); query_format7_pixel_number(uint *pixnum); query_format7_total_bytes(uint *total_bytes); query_format7_packet_para(uint *min_bytes, uint *max_bytes); query_format7_recommended_byte_per_packet(uint *bpp); query_format7_packet_per_frame(uint *ppf); query_format7_unit_position(uint *horizontal_pos, uint *vertical_pos); # those were query/set pairs. double_qattr format7_image_position(uint left, uint top); double_qattr format7_image_size(uint width, uint height); qattr uint format7_color_coding_id qattr uint format7_byte_per_packet query_format7_value_setting(uint *present, uint *setting1, uint *err_flag1, uint *err_flag2); set_format7_value_setting(); //huh? }end \end ruby ; \class FormatDC1394 < Format struct FormatDC1394 : Format { \decl void initialize (Symbol mode); \decl void frame (); }; \def void initialize(Symbol mode) { gfpost("DC1394: hello world"); RH rh = raw1394_new_handle(); int numPorts = raw1394_get_port_info(rh,0,0); raw1394_destroy_handle(rh); gfpost("there are %d Feuerweuer ports",numPorts); if (mode!=SYM(in)) RAISE("sorry, read-only"); for(int port=0; port<numPorts; port++) { gfpost("trying port #%d...",port); RH rh = dc1394_create_handle(port); int numCameras=0xDEADBEEF; NID *nodes = dc1394_get_camera_nodes(rh,&numCameras,0); gfpost("port #%d has %d cameras",port,numCameras); for (int i=0; i<numCameras; i++) gfpost("camera at node #%d",nodes[i]); // I'm stuck here, can't find that iSight camera. -- matju } dc1394_destroy_handle(rh); } \def void frame () { gfpost("i'd like to get a frame from the cam, but how?"); } \classinfo { IEVAL(rself,"install '#io:dc1394',1,1;@flags=4;@comment='Video4linux 1.x'"); //IEVAL(rself,ruby_code); rb_funcall(rself,SI(instance_eval),3,rb_str_new2(ruby_code), rb_str_new2(__FILE__),INT2NUM(ruby_lineno+3)); } \end class FormatDC1394 void startup_dc1394 () { \startall } --- NEW FILE: jpeg.c --- /* $Id: jpeg.c,v 1.1 2005/10/04 02:02:15 matju Exp $ GridFlow Copyright (c) 2001,2002,2003,2004 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ //!@#$ not handling abort on compress //!@#$ not handling abort on decompress #include "../base/grid.h.fcs" /* removing macros (removing warnings) */ #undef HAVE_PROTOTYPES #undef HAVE_STDLIB_H #undef EXTERN extern "C" { #include <jpeglib.h> }; \class FormatJPEG < Format struct FormatJPEG : Format { P<BitPacking> bit_packing; struct jpeg_compress_struct cjpeg; struct jpeg_decompress_struct djpeg; struct jpeg_error_mgr jerr; int fd; FILE *f; \decl Ruby frame (); \decl void initialize (Symbol mode, Symbol source, String filename); \grin 0 int }; GRID_INLET(FormatJPEG,0) { if (in->dim->n != 3) RAISE("expecting 3 dimensions: rows,columns,channels"); if (in->dim->get(2) != 3) RAISE("expecting 3 channels (got %d)",in->dim->get(2)); in->set_factor(in->dim->get(1)*in->dim->get(2)); cjpeg.err = jpeg_std_error(&jerr); jpeg_create_compress(&cjpeg); jpeg_stdio_dest(&cjpeg,f); cjpeg.image_width = in->dim->get(1); cjpeg.image_height = in->dim->get(0); cjpeg.input_components = 3; cjpeg.in_color_space = JCS_RGB; jpeg_set_defaults(&cjpeg); jpeg_start_compress(&cjpeg,TRUE); } GRID_FLOW { int rowsize = in->dim->get(1)*in->dim->get(2); int rowsize2 = in->dim->get(1)*3; uint8 row[rowsize2]; uint8 *rows[1] = { row }; while (n) { bit_packing->pack(in->dim->get(1),data,Pt<uint8>(row,rowsize)); jpeg_write_scanlines(&cjpeg,rows,1); n-=rowsize; data+=rowsize; } } GRID_FINISH { jpeg_finish_compress(&cjpeg); jpeg_destroy_compress(&cjpeg); } GRID_END static bool gfeof(FILE *f) { off_t cur,end; cur = ftell(f); fseek(f,0,SEEK_END); end = ftell(f); fseek(f,cur,SEEK_SET); return cur==end; } \def Ruby frame () { off_t off = NUM2LONG(rb_funcall(rb_ivar_get(rself,SI(@stream)),SI(tell),0)); fseek(f,off,SEEK_SET); if (gfeof(f)) return Qfalse; djpeg.err = jpeg_std_error(&jerr); jpeg_create_decompress(&djpeg); jpeg_stdio_src(&djpeg,f); jpeg_read_header(&djpeg,TRUE); int sx=djpeg.image_width, sy=djpeg.image_height, chans=djpeg.num_components; GridOutlet out(this,0,new Dim(sy, sx, chans), NumberTypeE_find(rb_ivar_get(rself,SI(@cast)))); jpeg_start_decompress(&djpeg); uint8 row[sx*chans]; uint8 *rows[1] = { row }; for (int n=0; n<sy; n++) { jpeg_read_scanlines(&djpeg,rows,1); out.send(sx*chans,Pt<uint8>(row,sx*chans)); } jpeg_finish_decompress(&djpeg); jpeg_destroy_decompress(&djpeg); return Qnil; } \def void initialize (Symbol mode, Symbol source, String filename) { rb_call_super(argc,argv); if (source!=SYM(file)) RAISE("usage: jpeg file <filename>"); rb_funcall(rself,SI(raw_open),3,mode,source,filename); Ruby stream = rb_ivar_get(rself,SI(@stream)); fd = NUM2INT(rb_funcall(stream,SI(fileno),0)); f = fdopen(fd,mode==SYM(in)?"r":"w"); uint32 mask[3] = {0x0000ff,0x00ff00,0xff0000}; bit_packing = new BitPacking(is_le(),3,3,mask); } \classinfo { IEVAL(rself, "install '#in:jpeg',1,1;@mode=6;" "include GridFlow::EventIO; suffixes_are'jpeg','jpg'"); } \end class FormatJPEG void startup_jpeg () { \startall } --- NEW FILE: quicktimeapple.c --- /* $Id: quicktimeapple.c,v 1.1 2005/10/04 02:02:15 matju Exp $ GridFlow Copyright (c) 2001,2002,2003,2004 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #define T_DATA T_COCOA_DATA #include <Quicktime/Quicktime.h> #include <Quicktime/Movies.h> #include <Quicktime/QuickTimeComponents.h> #undef T_DATA #include "../base/grid.h.fcs" #include <stdlib.h> #include <string.h> #include <errno.h> #include <CoreServices/CoreServices.h> typedef ComponentInstance VideoDigitizerComponent, VDC; typedef ComponentResult VideoDigitizerError, VDE; //enum {VDCType='vdig', vdigInterfaceRev=2 }; //enum {ntscIn=0, currentIn=0, palIn, secamIn, ntscReallyIn }; //enum {compositeIn, sVideoIn, rgbComponentIn, rgbComponentSyncIn, yuvComponentIn, yuvComponentSyncIn, tvTunerIn, sdiIn}; //enum {vdPlayThruOff, vdPlayThruOn}; //enum {vdDigitizerBW, vdDigitizerRGB}; //enum {vdBroadcastMode, vdVTRMode}; //enum {vdUseAnyField, vdUseOddField, vdUseEvenField}; //enum {vdTypeBasic, vdTypeAlpha, vdTypeMask, vdTypeKey}; /*enum {digiInDoesNTSC, digiInDoesPAL, digiInDoesSECAM, skip 4, digiInDoesGenLock, digiInDoesComposite, digiInDoesSVideo, digiInDoesComponent, digiInVTR_Broadcast, digiInDoesColor, digiInDoesBW, skip 17, digiInSignalLock};*/ /*bitset {digiOutDoes1, digiOutDoes2, digiOutDoes4, digiOutDoes8, digiOutDoes16, digiOutDoes32, digiOutDoesDither, digiOutDoesStretch, digiOutDoesShrink, digiOutDoesMask, skip 1, digiOutDoesDouble, digiOutDoesQuad, digiOutDoesQuarter, digiOutDoesSixteenth, digiOutDoesRotate, digiOutDoesHorizFlip, digiOutDoesVertFlip, digiOutDoesSkew, digiOutDoesBlend, digiOutDoesWarp, digiOutDoesHW_DMA, digiOutDoesHWPlayThru, digiOutDoesILUT, digiOutDoesKeyColor, digiOutDoesAsyncGrabs, digiOutDoesUnreadableScreenBits, digiOutDoesCompress, digiOutDoesCompressOnly, digiOutDoesPlayThruDuringCompress, digiOutDoesCompressPartiallyVisible, digiOutDoesNotNeedCopyOfCompressData};*/ /*struct DigitizerInfo { short vdigType; long inputCapabilityFlags, outputCapabilityFlags; long inputCurrentFlags, outputCurrentFlags; short slot; GDHandle gdh, maskgdh; short minDestHeight, minDestWidth; short maxDestHeight, maxDestWidth; short blendLevels; long reserved;};*/ /*struct VdigType { long digType, reserved;};*/ /*struct VdigTypeList { short count; VdigType list[1];};*/ /*struct VdigBufferRec { PixMapHandle dest; Point location; long reserved;};*/ /*struct VdigBufferRecList { short count; MatrixRecordPtr matrix; RgnHandle mask; VdigBufferRec list[1];};*/ //typedef VdigBufferRecList *VdigBufferRecListPtr; //typedef VdigBufferRecListPtr *VdigBufferRecListHandle; //typedef CALLBACK_API(void,VdigIntProcPtr)(long flags, long refcon); //typedef STACK_UPP_TYPE(VdigIntProcPtr); /*struct VDCompressionList { CodecComponent codec; CodecType cType; Str63 typeName, name; long formatFlags, compressFlags, reserved;};*/ //typedef VDCompressionList * VDCompressionListPtr; //typedef VDCompressionListPtr *VDCompressionListHandle; /*bitset { dmaDepth1, dmaDepth2, dmaDepth4, dmaDepth8, dmaDepth16, dmaDepth32, dmaDepth2Gray, dmaDepth4Gray, dmaDepth8Gray};*/ //enum {kVDIGControlledFrameRate=-1}; //bitset {vdDeviceFlagShowInputsAsDevices, vdDeviceFlagHideDevice}; /*bitset { vdFlagCaptureStarting, vdFlagCaptureStopping, vdFlagCaptureIsForPreview, vdFlagCaptureIsForRecord, vdFlagCaptureLowLatency, vdFlagCaptureAlwaysUseTimeBase, vdFlagCaptureSetSettingsBegin, vdFlagCaptureSetSettingsEnd};*/ /*\class VDC VDE VDGetMaxSrcRect (short inputStd, Rect *maxSrcRect) VDE VDGetActiveSrcRect(short inputStd, Rect *activeSrcRect) VDE VD[GS]etDigitizerRect(Rect *digitizerRect) VDE VDGetVBlankRect(short inputStd, Rect *vBlankRect) VDE VDGetMaskPixMap(PixMapHandlemaskPixMap) VDE VDGetPlayThruDestination(PixMapHandle * dest, Rect *destRect, MatrixRecord * m, RgnHandle *mask) VDE VDUseThisCLUT(CTabHandle colorTableHandle) VDE VD[SG*]etInputGammaValue(Fixed channel1, Fixed channel2, Fixed channel3) VDE VD[GS]etBrightness(uint16 *) VDE VD[GS]etContrast(uint16 *) VDE VD[GS]etHue(uint16 *) VDE VD[GS]etSharpness(uint16 *) VDE VD[GS]etSaturation(uint16 *) VDE VDGrabOneFrame(VDC ci) VDE VDGetMaxAuxBuffer(PixMapHandle *pm, Rect *r) VDE VDGetDigitizerInfo(DigitizerInfo *info) VDE VDGetCurrentFlags(long *inputCurrentFlag, long *outputCurrentFlag) VDE VD[SG*]etKeyColor(long index) VDE VDAddKeyColor(long *index) VDE VDGetNextKeyColor(long index) VDE VD[GS]etKeyColorRange(RGBColor minRGB, RGBColor maxRGB) VDE VDSetDigitizerUserInterrupt(long flags, VdigIntUPP userInterruptProc, long refcon) VDE VD[SG*]etInputColorSpaceMode(short colorSpaceMode) VDE VD[SG*]etClipState(short clipEnable) VDE VDSetClipRgn(RgnHandle clipRegion) VDE VDClearClipRgn(RgnHandle clipRegion) VDE VDGetCLUTInUse(CTabHandle *colorTableHandle) VDE VD[SG*]etPLLFilterType(short pllType) VDE VDGetMaskandValue(uint16 blendLevel, long *mask, long *value) VDE VDSetMasterBlendLevel(uint16 *blendLevel) VDE VDSetPlayThruDestination(PixMapHandledest, RectPtr destRect, MatrixRecordPtr m, RgnHandle mask) VDE VDSetPlayThruOnOff(short state) VDE VD[SG*]etFieldPreference(short fieldFlag) VDE VDPreflightDestination(Rect *digitizerRect, PixMap **dest, RectPtr destRect, MatrixRecordPtr m) VDE VDPreflightGlobalRect(GrafPtr theWindow, Rect *globalRect) VDE VDSetPlayThruGlobalRect(GrafPtr theWindow, Rect *globalRect) VDE VDSetInputGammaRecord(VDGamRecPtrinputGammaPtr) VDE VDGetInputGammaRecord(VDGamRecPtr *inputGammaPtr) VDE VD[SG]etBlackLevelValue(uint16 *) VDE VD[SG]etWhiteLevelValue(uint16 *) VDE VDGetVideoDefaults(uint16 *blackLevel, uint16 *whiteLevel, uint16 *brightness, uint16 *hue, uint16 *saturation, uint16 *contrast, uint16 *sharpness) VDE VDGetNumberOfInputs(short *inputs) VDE VDGetInputFormat(short input, short *format) VDE VD[SG*]etInput(short input) VDE VDSetInputStandard(short inputStandard) VDE VDSetupBuffers(VdigBufferRecListHandle bufferList) VDE VDGrabOneFrameAsync(short buffer) VDE VDDone(short buffer) VDE VDSetCompression(OSTypecompressType, short depth, Rect *bounds, CodecQspatialQuality, CodecQtemporalQuality, long keyFrameRate) VDE VDCompressOneFrameAsync(VDC ci) VDE VDCompressDone(UInt8 *queuedFrameCount, Ptr *theData, long *dataSize, UInt8 *similarity, TimeRecord *t) VDE VDReleaseCompressBuffer(Ptr bufferAddr) VDE VDGetImageDescription(ImageDescriptionHandle desc) VDE VDResetCompressSequence(VDC ci) VDE VDSetCompressionOnOff(Boolean) VDE VDGetCompressionTypes(VDCompressionListHandle h) VDE VDSetTimeBase(TimeBase t) VDE VDSetFrameRate(Fixed framesPerSecond) VDE VDGetDataRate(long *milliSecPerFrame, Fixed *framesPerSecond, long *bytesPerSecond) VDE VDGetSoundInputDriver(Str255 soundDriverName) VDE VDGetDMADepths(long *depthArray, long *preferredDepth) VDE VDGetPreferredTimeScale(TimeScale *preferred) VDE VDReleaseAsyncBuffers(VDC ci) VDE VDSetDataRate(long bytesPerSecond) VDE VDGetTimeCode(TimeRecord *atTime, void *timeCodeFormat, void *timeCodeTime) VDE VDUseSafeBuffers(Boolean useSafeBuffers) VDE VDGetSoundInputSource(long videoInput, long *soundInput) VDE VDGetCompressionTime(OSTypecompressionType, short depth, Rect *srcRect, CodecQ *spatialQuality, CodecQ *temporalQuality, ulong *compressTime) VDE VDSetPreferredPacketSize(long preferredPacketSizeInBytes) VDE VD[SG*]etPreferredImageDimensions(long width, long height) VDE VDGetInputName(long videoInput, Str255 name) VDE VDSetDestinationPort(CGrafPtr destPort) VDE VDGetDeviceNameAndFlags(Str255 outName, UInt32 *outNameFlags) VDE VDCaptureStateChanging(UInt32inStateFlags) VDE VDGetUniqueIDs(UInt64 *outDeviceID, UInt64 *outInputID) VDE VDSelectUniqueIDs(const UInt64 *inDeviceID, const UInt64 *inInputID) \end class VDC */ \class FormatQuickTimeCamera < Format struct FormatQuickTimeCamera : Format { P<Dim> dim; Pt<uint8> buf; VDC vdc; int m_newFrame; SeqGrabComponent m_sg; SGChannel m_vc; short m_pixelDepth; Rect rect; GWorldPtr m_srcGWorld; PixMapHandle m_pixMap; Ptr m_baseAddr; long m_rowBytes; int m_quality; //int m_colorspace; FormatQuickTimeCamera() : vdc(0) {} \decl void initialize (Symbol mode, Symbol source, String filename); \decl void frame (); \decl void close (); \grin 0 int }; // /System/Library/Frameworks/CoreServices.framework/Frameworks/CarbonCore.framework/Headers/Components.h static int nn(int c) {return c?c:' ';} \def void initialize (Symbol mode, Symbol source, String filename) { L //vdc = SGGetVideoDigitizerComponent(c); rb_call_super(argc,argv); dim = new Dim(240,320,4); OSErr e; rect.top=rect.left=0; rect.bottom=dim->v[0]; rect.right=dim->v[1]; int n=0; Component c = 0; ComponentDescription cd; cd.componentType = SeqGrabComponentType; cd.componentSubType = 0; cd.componentManufacturer = 0; cd.componentFlags = 0; cd.componentFlagsMask = 0; for(;;) { c = FindNextComponent(c, &cd); if (!c) break; ComponentDescription cd2; Ptr name=0,info=0,icon=0; GetComponentInfo(c,&cd2,&name,&info,&icon); gfpost("Component #%d",n); char *t = (char *)&cd.componentType; gfpost(" type='%c%c%c%c'",nn(t[3]),nn(t[2]),nn(t[1]),nn(t[0])); t = (char *)&cd.componentSubType; gfpost(" subtype='%c%c%c%c'",nn(t[3]),nn(t[2]),nn(t[1]),nn(t[0])); gfpost(" name=%08x, *name='%*s'",name, *name, name+1); gfpost(" info=%08x, *info='%*s'",info, *name, info+1); n++; } gfpost("number of components: %d",n); m_sg = OpenDefaultComponent(SeqGrabComponentType, 0); if(!m_sg) RAISE("could not open default component"); e=SGInitialize(m_sg); if(e!=noErr) RAISE("could not initialize SG"); e=SGSetDataRef(m_sg, 0, 0, seqGrabDontMakeMovie); if (e!=noErr) RAISE("dataref failed"); e=SGNewChannel(m_sg, VideoMediaType, &m_vc); if(e!=noErr) gfpost("could not make new SG channel"); e=SGSetChannelBounds(m_vc, &rect); if(e!=noErr) gfpost("could not set SG ChannelBounds"); e=SGSetChannelUsage(m_vc, seqGrabPreview); if(e!=noErr) gfpost("could not set SG ChannelUsage"); // m_rowBytes = m_vidXSize*4; switch (3) { case 0: e=SGSetChannelPlayFlags(m_vc, channelPlayNormal); break; case 1: e=SGSetChannelPlayFlags(m_vc, channelPlayHighQuality); break; case 2: e=SGSetChannelPlayFlags(m_vc, channelPlayFast); break; case 3: e=SGSetChannelPlayFlags(m_vc, channelPlayAllData); break; } int dataSize = dim->prod(); buf = ARRAY_NEW(uint8,dataSize); m_rowBytes = dim->prod(1); e=QTNewGWorldFromPtr (&m_srcGWorld,k32ARGBPixelFormat, &rect,NULL,NULL,0,buf,m_rowBytes); if (0/*yuv*/) { int dataSize = dim->prod()*2/4; buf = ARRAY_NEW(uint8,dataSize); m_rowBytes = dim->prod(1)*2/4; e=QTNewGWorldFromPtr (&m_srcGWorld,k422YpCbCr8CodecType, &rect,NULL,NULL,0,buf,m_rowBytes); } if (e!=noErr) RAISE("error #%d at QTNewGWorldFromPtr",e); if (!m_srcGWorld) RAISE("Could not allocate off screen"); SGSetGWorld(m_sg,(CGrafPtr)m_srcGWorld, NULL); SGStartPreview(m_sg); } /*pascal Boolean pix_videoDarwin :: SeqGrabberModalFilterProc (DialogPtr theDialog, const EventRecord *theEvent, short *itemHit, long refCon){ Boolean handled = false; if ((theEvent->what == updateEvt) && ((WindowPtr) theEvent->message == (WindowPtr) refCon)) { BeginUpdate ((WindowPtr) refCon); EndUpdate ((WindowPtr) refCon); handled = true; } WindowRef awin = GetDialogWindow(theDialog); ShowWindow (awin); SetWindowClass(awin,kUtilityWindowClass); //ChangeWindowAttributes(awin,kWindowStandardHandlerAttribute,0); SGPanelEvent(m_sg,m_vc,theDialog,0,theEvent,itemHit,&handled); // AEProcessAppleEvent (theEvent); return handled; } void pix_videoDarwin :: DoVideoSettings(){ Rect newActiveVideoRect; Rect curBounds, curVideoRect, newVideoRect; ComponentResult err; SGModalFilterUPP seqGragModalFilterUPP; err = SGGetChannelBounds (m_vc, &curBounds); err = SGGetVideoRect (m_vc, &curVideoRect); err = SGPause (m_sg, true); seqGragModalFilterUPP = (SGModalFilterUPP)NewSGModalFilterUPP(SeqGrabberModalFilterProc); err = SGSettingsDialog(m_sg, m_vc, 0, NULL, seqGrabSettingsPreviewOnly, seqGragModalFilterUPP, (long)m_srcGWorld); DisposeSGModalFilterUPP(seqGragModalFilterUPP); err = SGGetVideoRect (m_vc, &newVideoRect); err = SGGetSrcVideoBounds (m_vc, &newActiveVideoRect); err = SGPause (m_sg, false); } */ \def void frame () { GridOutlet out(this,0,dim); out.send(dim->prod(),buf); L} \def void close () { L if (m_vc) { if (::SGDisposeChannel(m_sg, m_vc)) RAISE("SGDisposeChannel"); m_vc=0; } if (m_sg) { if (::CloseComponent(m_sg)) RAISE("CloseComponent"); m_sg = NULL; if (m_srcGWorld) { ::DisposeGWorld(m_srcGWorld); m_pixMap = NULL; m_srcGWorld = NULL; m_baseAddr = NULL; } } } GRID_INLET(FormatQuickTimeCamera,0) { RAISE("Unimplemented. Sorry."); //!@#$ if (in->dim->n != 3) RAISE("expecting 3 dimensions: rows,columns,channels"); if (in->dim->get(2) != 3) RAISE("expecting 3 channels (got %d)",in->dim->get(2)); in->set_factor(in->dim->prod()); } GRID_FLOW { } GRID_FINISH { } GRID_END \classinfo { IEVAL(rself, \ruby install '#io:quicktimecamera',1,1 @comment="Apple Quicktime (CAMERA MODULE)" @flags=4 \end ruby );} \end class FormatQuickTimeCamera \class FormatQuickTimeApple < Format struct FormatQuickTimeApple : Format { Movie movie; TimeValue time; short movie_file; GWorldPtr gw; /* just like an X11 Image or Pixmap, maybe. */ Pt<uint8> buffer; P<Dim> dim; int nframe, nframes; FormatQuickTimeApple() : movie(0), time(0), movie_file(0), gw(0), buffer(), dim(0), nframe(0), nframes(0) {} \decl void initialize (Symbol mode, Symbol source, String filename); \decl void close (); \decl void codec_m (String c); \decl void colorspace_m (Symbol c); \decl Ruby frame (); \decl void seek (int frame); \grin 0 }; \def void seek (int frame) { nframe=frame; } \def Ruby frame () { CGrafPtr savedPort; GDHandle savedDevice; SetMovieGWorld(movie,gw,GetGWorldDevice(gw)); Rect r; GetMovieBox(movie,&r); PixMapHandle pixmap = GetGWorldPixMap(gw); short flags = nextTimeStep; if (nframe>=nframes) return Qfalse; if (nframe==0) flags |= nextTimeEdgeOK; TimeValue duration; OSType mediaType = VisualMediaCharacteristic; GetMovieNextInterestingTime(movie, flags,1,&mediaType,time,0,&time,&duration); if (time<0) { time=0; return Qfalse; } // gfpost("quicktime frame #%d; time=%d duration=%d", nframe, (long)time, (long)duration); SetMovieTimeValue(movie,nframe*duration); MoviesTask(movie,0); GridOutlet out(this,0,dim); Pt<uint32> bufu32 = Pt<uint32>((uint32 *)buffer.p,dim->prod()/4); int n = dim->prod()/4; int i; for (i=0; i<n&-4; i+=4) { bufu32[i+0]=(bufu32[i+0]<<8)+(bufu32[i+0]>>24); bufu32[i+1]=(bufu32[i+1]<<8)+(bufu32[i+1]>>24); bufu32[i+2]=(bufu32[i+2]<<8)+(bufu32[i+2]>>24); bufu32[i+3]=(bufu32[i+3]<<8)+(bufu32[i+3]>>24); } for (; i<n; i++) { bufu32[i+0]=(bufu32[i+0]<<8)+(bufu32[i+0]>>24); } out.send(dim->prod(),buffer); int nf=nframe; nframe++; return INT2NUM(nf); } GRID_INLET(FormatQuickTimeApple,0) { RAISE("Unimplemented. Sorry."); //!@#$ if (in->dim->n != 3) RAISE("expecting 3 dimensions: rows,columns,channels"); if (in->dim->get(2) != 3) RAISE("expecting 3 channels (got %d)",in->dim->get(2)); in->set_factor(in->dim->prod()); } GRID_FLOW { } GRID_FINISH { } GRID_END \def void codec_m (String c) { RAISE("Unimplemented. Sorry."); } \def void colorspace_m (Symbol c) { RAISE("Unimplemented. Sorry."); } \def void close () { //!@#$ if (movie) { DisposeMovie(movie); DisposeGWorld(gw); CloseMovieFile(movie_file); movie_file=0; } rb_call_super(argc,argv); } \def void initialize (Symbol mode, Symbol source, String filename) { int err; rb_call_super(argc,argv); if (source==SYM(file)) { filename = rb_funcall(mGridFlow,SI(find_file),1,filename); FSSpec fss; FSRef fsr; err = FSPathMakeRef((const UInt8 *)rb_str_ptr(filename), &fsr, NULL); if (err) goto err; err = FSGetCatalogInfo(&fsr, kFSCatInfoNone, NULL, NULL, &fss, NULL); if (err) goto err; err = OpenMovieFile(&fss,&movie_file,fsRdPerm); if (err) goto err; } else { RAISE("usage: quicktime [file <filename> | camera bleh]"); } NewMovieFromFile(&movie, movie_file, NULL, NULL, newMovieActive, NULL); Rect r; GetMovieBox(movie, &r); gfpost("handle=%d movie=%d tracks=%d", movie_file, movie, GetMovieTrackCount(movie)); gfpost("duration=%d; timescale=%d cHz", (long)GetMovieDuration(movie), (long)GetMovieTimeScale(movie)); nframes = GetMovieDuration(movie); /* i don't think so */ gfpost("rect=((%d..%d),(%d..%d))", r.top, r.bottom, r.left, r.right); OffsetRect(&r, -r.left, -r.top); SetMovieBox(movie, &r); dim = new Dim(r.bottom-r.top, r.right-r.left, 4); SetMoviePlayHints(movie, hintsHighQuality, hintsHighQuality); buffer = ARRAY_NEW(uint8,dim->prod()); err = QTNewGWorldFromPtr(&gw, k32ARGBPixelFormat, &r, NULL, NULL, 0, buffer, dim->prod(1)); if (err) goto err; return; err: RAISE("can't open file `%s': error #%d (%s)", rb_str_ptr(filename), err, rb_str_ptr(rb_funcall(mGridFlow,SI(macerr),1,INT2NUM(err)))); } \classinfo { EnterMovies(); IEVAL(rself, \ruby install '#io:quicktime',1,1 @comment="Apple Quicktime (using Apple's)" @flags=4 suffixes_are'mov' def self.new(mode,source,filename) if source==:camera then FormatQuickTimeCamera.new(mode,source,filename) else super end end \end ruby );} \end class FormatQuickTimeApple void startup_quicktimeapple () { \startall } --- NEW FILE: sdl.c --- /* $Id: sdl.c,v 1.1 2005/10/04 02:02:15 matju Exp $ GridFlow Copyright (c) 2001,2002,2003,2004 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include "../base/grid.h.fcs" #include <stdio.h> #include <stdlib.h> #include <string.h> #include <errno.h> #include <sys/time.h> #include <signal.h> #include <SDL/SDL.h> static bool in_use = false; \class FormatSDL < Format struct FormatSDL : Format { SDL_Surface *screen; P<BitPacking> bit_packing; P<Dim> dim; void resize_window (int sx, int sy); void call (); Pt<uint8> pixels () { return Pt<uint8>((uint8 *)screen->pixels, dim->prod(0,1)*bit_packing->bytes); } \decl void initialize (Symbol mode); \decl void close (); \grin 0 int }; void FormatSDL::call() { SDL_Event event; while(SDL_PollEvent(&event)) {} IEVAL(rself,"@clock.delay 20"); } void FormatSDL::resize_window (int sx, int sy) { dim = new Dim(sy,sx,3); screen = SDL_SetVideoMode(sx,sy,0,SDL_SWSURFACE); if (!screen) RAISE("Can't switch to (%d,%d,%dbpp): %s", sy,sx,24, SDL_GetError()); } GRID_INLET(FormatSDL,0) { if (in->dim->n != 3) RAISE("expecting 3 dimensions: rows,columns,channels"); if (in->dim->get(2) != 3) RAISE("expecting 3 channels: red,green,blue (got %d)",in->dim->get(2)); int sxc = in->dim->prod(1); int sx = in->dim->get(1), osx = dim->get(1); int sy = in->dim->get(0), osy = dim->get(0); in->set_factor(sxc); if (sx!=osx || sy!=osy) resize_window(sx,sy); } GRID_FLOW { int bypl = screen->pitch; int sxc = in->dim->prod(1); int sx = in->dim->get(1); int y = in->dex / sxc; assert((in->dex % sxc) == 0); assert((n % sxc) == 0); if (SDL_MUSTLOCK(screen)) if (SDL_LockSurface(screen) < 0) return; //??? for (; n>0; y++, data+=sxc, n-=sxc) { /* convert line */ bit_packing->pack(sx, data, pixels()+y*bypl); } if (SDL_MUSTLOCK(screen)) SDL_UnlockSurface(screen); } GRID_FINISH { SDL_UpdateRect(screen,0,0,in->dim->get(1),in->dim->get(0)); } GRID_END \def void close () { IEVAL(rself,"@clock.unset"); in_use=false; } \def void initialize (Symbol mode) { dim=0;screen=0; rb_call_super(argc,argv); if (in_use) RAISE("only one FormatSDL object at a time; sorry"); in_use=true; if (SDL_Init(SDL_INIT_VIDEO)<0) RAISE("SDL_Init() error: %s",SDL_GetError()); atexit(SDL_Quit); resize_window(320,240); SDL_PixelFormat *f = screen->format; uint32 mask[3] = {f->Rmask,f->Gmask,f->Bmask}; switch (f->BytesPerPixel) { case 1: RAISE("8 bpp not supported"); break; case 2: case 3: case 4: bit_packing = new BitPacking(is_le(),f->BytesPerPixel,3,mask); break; default: RAISE("%d bytes/pixel: how do I deal with that?",f->BytesPerPixel); break; } IEVAL(rself,"@clock = Clock.new self"); } \classinfo { IEVAL(rself,"install '#io:sdl',1,1;@flags=2;@comment='Simple Directmedia Layer'"); } \end class FormatSDL void startup_sdl () { \startall } --- NEW FILE: aalib.c --- /* $Id: aalib.c,v 1.1 2005/10/04 02:02:15 matju Exp $ GridFlow Copyright (c) 2001,2002,2003 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include "../base/grid.h.fcs" #define aa_hardwareparams aa_hardware_params #include <aalib.h> /* MINNOR is a typo in aalib.h, sorry */ typedef #if AA_LIB_MINNOR == 2 int #else enum aa_attribute #endif AAAttr; \class FormatAALib < Format struct FormatAALib : Format { aa_context *context; aa_renderparams *rparams; int autodraw; /* as for X11 */ bool raw_mode; FormatAALib () : context(0), autodraw(1) {} \decl void initialize (Symbol mode, Symbol target); \decl void close (); \decl void _0_hidecursor (); \decl void _0_print (int y, int x, int a, Symbol text); \decl void _0_draw (); \decl void _0_autodraw (int autodraw); \decl void _0_dump (); \grin 0 int }; GRID_INLET(FormatAALib,0) { if (!context) RAISE("boo"); if (in->dim->n != 3) RAISE("expecting 3 dimensions: rows,columns,channels"); switch (in->dim->get(2)) { case 1: raw_mode = false; break; case 2: raw_mode = true; break; default: RAISE("expecting 1 greyscale channel (got %d)",in->dim->get(2)); } in->set_factor(in->dim->get(1)*in->dim->get(2)); } GRID_FLOW { int f = in->factor(); if (raw_mode) { int sx = min(f,aa_scrwidth(context)); int y = in->dex/f; while (n) { if (y>=aa_scrheight(context)) return; for (int x=0; x<sx; x++) { context->textbuffer[y*aa_scrwidth(context)+x]=data[x*2+0]; context->attrbuffer[y*aa_scrwidth(context)+x]=data[x*2+1]; } y++; n-=f; data+=f; } } else { int sx = min(f,context->imgwidth); int y = in->dex/f; while (n) { if (y>=context->imgheight) return; for (int x=0; x<sx; x++) aa_putpixel(context,x,y,data[x]); y++; n-=f; data+=f; } } } GRID_FINISH { if (!raw_mode) { aa_palette pal; for (int i=0; i<256; i++) aa_setpalette(pal,i,i,i,i); aa_renderpalette(context,pal,rparams,0,0, aa_scrwidth(context),aa_scrheight(context)); } if (autodraw==1) aa_flush(context); } GRID_END \def void close () { if (context) { aa_close(context); context=0; } } \def void _0_hidecursor () { aa_hidemouse(context); } \def void _0_draw () { aa_flush(context); } \def void _0_print (int y, int x, int a, Symbol text) { aa_puts(context,x,y,(AAAttr)a,(char *)rb_sym_name(text)); if (autodraw==1) aa_flush(context); } \def void _0_autodraw (int autodraw) { if (autodraw<0 || autodraw>1) RAISE("autodraw=%d is out of range",autodraw); this->autodraw = autodraw; } \def void _0_dump () { int32 v[] = {aa_scrheight(context), aa_scrwidth(context), 2}; GridOutlet out(this,0,new Dim(3,v)); for (int y=0; y<aa_scrheight(context); y++) { for (int x=0; x<aa_scrwidth(context); x++) { STACK_ARRAY(int32,data,2); data[0] = context->textbuffer[y*aa_scrwidth(context)+x]; data[1] = context->attrbuffer[y*aa_scrwidth(context)+x]; out.send(2,data); } } } /* !@#$ varargs missing here */ \def void initialize (Symbol mode, Symbol target) { rb_call_super(argc,argv); argc-=2; argv+=2; char *argv2[argc]; for (int i=0; i<argc; i++) argv2[i] = strdup(rb_str_ptr(rb_funcall(argv[i],SI(to_s),0))); if (mode!=SYM(out)) RAISE("write-only, sorry"); aa_parseoptions(0,0,&argc,argv2); for (int i=0; i<argc; i++) free(argv2[i]); Ruby drivers = rb_ivar_get(rb_obj_class(rself),SI(@drivers)); Ruby driver_address = rb_hash_aref(drivers,target); if (driver_address==Qnil) RAISE("unknown aalib driver '%s'",rb_sym_name(target)); aa_driver *driver = FIX2PTR(aa_driver,driver_address); context = aa_init(driver,&aa_defparams,0); rparams = aa_getrenderparams(); if (!context) RAISE("opening aalib didn't work"); int32 v[]={context->imgheight,context->imgwidth,1}; gfpost("aalib image size: %s",(new Dim(3,v))->to_s()); } \classinfo { Ruby drivers = rb_ivar_set(rself,SI(@drivers),rb_hash_new()); const aa_driver *const *p = aa_drivers; for (; *p; p++) { rb_hash_aset(drivers,ID2SYM(rb_intern((*p)->shortname)), PTR2FIX(*p)); } // IEVAL(rself,"GridFlow.post('aalib supports: %s', @drivers.keys.join(', '))"); IEVAL(rself,"install '#in:aalib',1,1;@flags=2;@comment='Ascii Art Library'"); } \end class FormatAALib void startup_aalib () { \startall }

1 0

externals/gridflow/cpu mmx.rb,NONE,1.1
by Mathieu Bouchard 04 Oct '05

04 Oct '05

Update of /cvsroot/pure-data/externals/gridflow/cpu In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21117/cpu Added Files: mmx.rb Log Message: starting to commit gridflow 0.8.0 ... if you know how to use "cvs import" please mail me and i'll use it for 0.8.1 --- NEW FILE: mmx.rb --- =begin $Id: mmx.rb,v 1.1 2005/10/04 02:02:14 matju Exp $ GridFlow Copyright (c) 2001,2002,2003,2004 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. =end STDOUT.reopen ARGV[0], "w" $loader = File.open ARGV[1], "w" $count = 0 $lines = 0 puts "; generated by/for GridFlow 0.8.0" $loader.puts "#include \"../base/grid.h.fcs\"\nextern \"C\" {" # this class is not really used yet (only self.make) class AsmFunction def initialize(name) @name = name @label_count = 1 end def self.make(name) puts "", "GLOBAL #{name}", "#{name}:" puts "push ebp", "mov ebp,esp", "push esi", "push edi" yield AsmFunction.new(name) puts "pop edi", "pop esi", "leave", "ret", "" end def make_until(*ops) a = @label_count b = @label_count+1 @label_count+=2 ops[-1]<<" #{@name}_#{b}" puts "#{@name}_#{a}: ", *ops yield puts "jmp #{@name}_#{a}" puts "#{@name}_#{b}:" end end $sizeof = { :uint8 => 1, :int16 => 2, :int32 => 4, :int64 => 8, :float32 => 4, :float64 => 8, } $accum = { :uint8 => "al", :int16 => "ax", :int32 => "eax", } $asm_type = { :uint8 => "byte", :int16 => "word", :int32 => "dword", :int64 => "qword", } # in the following, the opcode "_" means no such thing seems available. # also >> for x86 ought to be shr in the uint8 case. # btw, i got all of the MMX information from the NASM manual, Appendix B. $opcodes = { # [--GF--|--x86--|--mmx-et-al----------------------------------------] # [ | |-uint8-|-int16-|-int32-|-int64-|-float32-|-float64-] :add => %w[ + add paddb paddw paddd paddq ], :sub => %w[ - sub psubb psubw psubd psubq ], :and => %w[ & and pand pand pand pand ], :xor => %w[ ^ xor pxor pxor pxor pxor ], :or => %w[ | or por por por por ], # :max => %w[ max _ pmaxub pmaxsw _ _ ], # not plain MMX !!! (req.Katmai) # :min => %w[ min _ pminub pminsw _ _ ], # not plain MMX !!! (req.Katmai) # :eq => %w[ == _ pcmpeqb pcmpeqw pcmpeqd _ ], # :gt => %w[ > _ pcmpgtb pcmpgtw pcmpgtd _ ], # :shl => %w[ << shl _ psllw pslld psllq ], # noncommutative # :shr => %w[ >> sar _ psraw psrad _ ], # noncommutative # :clipadd => %w[ clip+ _ paddusb paddsw _ _ ], # future use # :clipsub => %w[ clip- _ psubusb psubsw _ _ ], # future use # :andnot => %w[ &not _ pandn pandn pandn pandn ], # not planned } $opcodes.each {|k,op| op.map! {|x| if x=="_" then nil else x end } STDERR.puts op.inspect } $decls = "" $install = "" def make_fun_map(op,type) s="mmx_#{type}_map_#{op}" size = $sizeof[type] accum = $accum[type] sym = $opcodes[op][0] opcode = $opcodes[op][1] mopcode = $opcodes[op][size+(size<4 ? 1 : 0)] return if not mopcode AsmFunction.make(s) {|a| puts "mov ecx,[ebp+8]", "mov esi,[ebp+12]", "mov eax,[ebp+16]" puts "mov dx,ax", "shl eax,8", "mov al,dl" if size==1 puts "mov edx,eax", "shl eax,16", "mov ax,dx" if size<=2 puts "push eax", "push eax", "movq mm7,[esp]", "add esp,8" foo = proc {|n| a.make_until("cmp ecx,#{8/size*n}","jb near") { 0.step(n,4) {|k| nn=[n-k,4].min o=(0..3).map{|x| 8*(x+k) } for i in 0...nn do puts "movq mm#{i},[esi+#{o[i]}]" end for i in 0...nn do puts "#{mopcode} mm#{i},mm7" end for i in 0...nn do puts "movq [esi+#{o[i]}],mm#{i}" end } puts "lea esi,[esi+#{8*n}]", "lea ecx,[ecx-#{8/size*n}]" } } foo.call 4 foo.call 1 a.make_until("test ecx,ecx", "jz") { puts "#{opcode} #{$asm_type[type]} [esi],#{accum}", "lea esi,[esi+#{size}]" puts "dec ecx" } puts "emms" } $decls << "void #{s}(int,#{type}*,#{type});\n" $install << "FIX2PTR(Numop,rb_hash_aref(op_dict,SYM(#{sym})))" $install << "->on_#{type}.op_map = #{s};\n" $count += 1 end def make_fun_zip(op,type) s="mmx_#{type}_zip_#{op}" size = $sizeof[type] accum = $accum[type] sym = $opcodes[op][0] opcode = $opcodes[op][1] mopcode = $opcodes[op][size+(size<4 ? 1 : 0)] return if not mopcode AsmFunction.make(s) {|a| puts "mov ecx,[ebp+8]", "mov edi,[ebp+12]", "mov esi,[ebp+16]"#, "mov ebx,[ebp+20]" foo = proc {|n| a.make_until("cmp ecx,#{8/size*n}","jb near") { 0.step(n,4) {|k| nn=[n-k,4].min o=(0..3).map{|x| 8*(x+k) } for i in 0...nn do puts "movq mm#{i},[edi+#{o[i]}]" end for i in 0...nn do puts "movq mm#{i+4},[esi+#{o[i]}]" end for i in 0...nn do puts "#{mopcode} mm#{i},mm#{i+4}" end for i in 0...nn do puts "movq [edi+#{o[i]}],mm#{i}" end } #for i in 0...n do puts "movq [ebx+#{8*i}],mm#{i}" end puts "lea edi,[edi+#{8*n}]" puts "lea esi,[esi+#{8*n}]" #puts "lea ebx,[ebx+#{8*n}]" puts "lea ecx,[ecx-#{8/size*n}]" } } foo.call 4 foo.call 1 a.make_until("test ecx,ecx", "jz") { # requires commutativity ??? fails with shl, shr puts "mov #{accum},[esi]" puts "#{opcode} #{$asm_type[type]} [edi],#{accum}" #puts "mov #{accum},[edi]" #puts "#{opcode} #{accum},[esi]" #puts "mov [ebx],#{accum}" puts "lea edi,[edi+#{size}]" puts "lea esi,[esi+#{size}]" #puts "lea ebx,[ebx+#{size}]" puts "dec ecx" } puts "emms" } #$decls << "void #{s}(int,#{type}*,#{type}*,#{type}*);\n" $decls << "void #{s}(int,#{type}*,#{type}*);\n" $install << "FIX2PTR(Numop,rb_hash_aref(op_dict,SYM(#{sym})))" $install << "->on_#{type}.op_zip = #{s};\n" $count += 1 end for op in $opcodes.keys do for type in [:uint8, :int16#, :int32 ] do make_fun_map(op,type) make_fun_zip(op,type) end end $loader.puts $decls $loader.puts %` }; /* extern */ #include <stdlib.h> void startup_mmx_loader () {/*bogus*/} void startup_mmx () { if (getenv("NO_MMX")) return; if (EVAL(\"GridFlow.bridge_name\")!=Qnil) gfpost(\"startup_cpu: using MMX optimisations\"); #{$install} }` STDERR.puts "automatically generated #{$count} MMX asm functions" =begin notes: CPUID has a bit for detecting MMX PACKSSDW PACKSSWB PACKUSWB = saturation-casting PCMPxx: Compare Packed Integers PMULHW, PMULLW: Multiply Packed _unsigned_ 16-bit Integers, and Store PUNPCKxxx: Unpack and Interleave Data =end

1 0

[PD-cvs] externals/gridflow/bridge placebo.rb, NONE, 1.1 puredata.c, NONE, 1.1 puredata.rb, NONE, 1.1
by Mathieu Bouchard 04 Oct '05

04 Oct '05

Update of /cvsroot/pure-data/externals/gridflow/bridge In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21117/bridge Added Files: placebo.rb puredata.c puredata.rb Log Message: starting to commit gridflow 0.8.0 ... if you know how to use "cvs import" please mail me and i'll use it for 0.8.1 --- NEW FILE: puredata.c --- /* $Id: puredata.c,v 1.1 2005/10/04 02:02:13 matju Exp $ GridFlow Copyright (c) 2001,2002,2003,2004,2005 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* 'bridge_puredata.c' becomes 'gridflow.pd_linux' which loads Ruby and tells Ruby to load the other 95% of Gridflow. GridFlow creates the FObject class and then subclasses it many times, each time calling FObject.install(), which tells the bridge to register a class in puredata. Puredata objects have proxies for each of the non-first inlets so that any inlet may receive any distinguished message. All inlets are typed as 'anything', and the 'anything' method translates the whole message to Ruby objects and tries to call a Ruby method of the proper name. */ #define IS_BRIDGE #include "../base/grid.h.fcs" /* resolving conflict: T_OBJECT will be PD's, not Ruby's */ #undef T_OBJECT #undef EXTERN #include <m_pd.h> #include <ctype.h> #include <stdarg.h> #include <unistd.h> #include "g_canvas.h" /* **************************************************************** */ struct BFObject; struct FMessage { BFObject *self; int winlet; t_symbol *selector; int ac; const t_atom *at; bool is_init; }; #include <sys/time.h> #include <signal.h> #include <setjmp.h> #define rb_sym_name rb_sym_name_r4j static const char *rb_sym_name(Ruby sym) {return rb_id2name(SYM2ID(sym));} static BuiltinSymbols *syms; void CObject_freeee (void *victim) { CObject *self = (CObject *)victim; self->check_magic(); if (!self->rself) { fprintf(stderr,"attempt to free object that has no rself\n"); abort(); } self->rself = 0; /* paranoia */ delete self; } /* can't even refer to the other mGridFlow because we don't link statically to the other gridflow.so */ static Ruby mGridFlow2=0; static Ruby mPointer=0; \class Pointer < CObject struct Pointer : CObject { void *p; Pointer() { assert(!"DYING HORRIBLY"); } Pointer(void *_p) : p(_p) {} \decl Ruby ptr (); }; \def Ruby ptr () { return LONG2NUM(((long)p)); } \classinfo { IEVAL(rself, "self.module_eval{" "def inspect; p=('%08x'%ptr).gsub(/^\\.\\.f/,''); \"#<Pointer:#{p}>\" % ptr; end;" "alias to_s inspect }" );} \end class Pointer Ruby Pointer_s_new (void *ptr) { return Data_Wrap_Struct(EVAL("GridFlow::Pointer"), 0, 0, new Pointer(ptr)); } void *Pointer_get (Ruby rself) { DGS(Pointer); return self->p; } static Ruby make_error_message () { char buf[1000]; sprintf(buf,"%s: %s",rb_class2name(rb_obj_class(ruby_errinfo)), rb_str_ptr(rb_funcall(ruby_errinfo,SI(to_s),0))); Ruby ary = rb_ary_new2(2); Ruby backtrace = rb_funcall(ruby_errinfo,SI(backtrace),0); rb_ary_push(ary,rb_str_new2(buf)); for (int i=0; i<2 && i<rb_ary_len(backtrace); i++) rb_ary_push(ary,rb_funcall(backtrace,SI([]),1,INT2NUM(i))); // rb_ary_push(ary,rb_funcall(rb_funcall(backtrace,SI(length),0),SI(to_s),0)); return ary; } static int ninlets_of (Ruby qlass) { if (!rb_ivar_defined(qlass,SYM2ID(syms->iv_ninlets))) RAISE("no inlet count"); return INT(rb_ivar_get(qlass,SYM2ID(syms->iv_ninlets))); } static int noutlets_of (Ruby qlass) { if (!rb_ivar_defined(qlass,SYM2ID(syms->iv_noutlets))) RAISE("no outlet count"); return INT(rb_ivar_get(qlass,SYM2ID(syms->iv_noutlets))); } #ifndef STACK_GROW_DIRECTION #define STACK_GROW_DIRECTION -1 #endif extern "C" void Init_stack(VALUE *addr); static VALUE *localize_sysstack () { long bp; sscanf(RUBY_STACK_END,"0x%08lx",&bp); //fprintf(stderr,"old RUBY_STACK_END = %08lx\n",bp); // HACK (2004.08.29: alx has a problem; i hope it doesn't get worse) // this rounds to the last word of a 4k block // cross fingers that no other OS does it too different // !@#$ doesn't use STACK_GROW_DIRECTION // bp=((bp+0xfff)&~0xfff)-sizeof(void*); // GAAAH bp=((bp+0xffff)&~0xffff)-sizeof(void*); //fprintf(stderr,"new RUBY_STACK_END = %08lx\n",bp); return (VALUE *)bp; } //**************************************************************** // BFObject struct BFObject : t_object { int32 magic; // paranoia Ruby rself; int nin; // per object settings (not class) int nout; // per object settings (not class) t_outlet **out; void check_magic () { if (magic != OBJECT_MAGIC) { fprintf(stderr,"Object memory corruption! (ask the debugger)\n"); for (int i=-1; i<=1; i++) { fprintf(stderr,"this[0]=0x%08x\n",((int*)this)[i]); } raise(11); } } }; static t_class *find_bfclass (t_symbol *sym) { t_atom a[1]; SETSYMBOL(a,sym); char buf[4096]; if (sym==&s_list) strcpy(buf,"list"); else atom_string(a,buf,sizeof(buf)); Ruby v = rb_hash_aref(rb_ivar_get(mGridFlow2, SI(@fclasses)), rb_str_new2(buf)); if (v==Qnil) { post("GF: class not found: '%s'",buf); return 0; } if (Qnil==rb_ivar_get(v,SI(@bfclass))) { post("@bfclass missing for '%s'",buf); return 0; } return FIX2PTR(t_class,rb_ivar_get(v,SI(@bfclass))); } static t_class *BFProxy_class; struct BFProxy : t_object { BFObject *parent; int inlet; }; static void Bridge_export_value(Ruby arg, t_atom *at) { if (INTEGER_P(arg)) { SETFLOAT(at,NUM2INT(arg)); } else if (SYMBOL_P(arg)) { const char *name = rb_sym_name(arg); SETSYMBOL(at,gensym((char *)name)); } else if (FLOAT_P(arg)) { SETFLOAT(at,RFLOAT(arg)->value); } else if (rb_obj_class(arg)==mPointer) { SETPOINTER(at,(t_gpointer*)Pointer_get(arg)); } else { RAISE("cannot convert argument of class '%s'", rb_str_ptr(rb_funcall(rb_funcall(arg,SI(class),0),SI(inspect),0))); } } static Ruby Bridge_import_value(const t_atom *at) { t_atomtype t = at->a_type; if (t==A_SYMBOL) { return ID2SYM(rb_intern(at->a_w.w_symbol->s_name)); } else if (t==A_FLOAT) { return rb_float_new(at->a_w.w_float); } else if (t==A_POINTER) { return Pointer_s_new(at->a_w.w_gpointer); } else { return Qnil; /* unknown */ } } static Ruby BFObject_method_missing_1 (FMessage *fm) { Ruby argv[fm->ac+2]; argv[0] = INT2NUM(fm->winlet); argv[1] = ID2SYM(rb_intern(fm->selector->s_name)); for (int i=0; i<fm->ac; i++) argv[2+i] = Bridge_import_value(fm->at+i); fm->self->check_magic(); rb_funcall2(fm->self->rself,SI(send_in),fm->ac+2,argv); return Qnil; } static Ruby BFObject_rescue (FMessage *fm) { Ruby error_array = make_error_message(); // for (int i=0; i<rb_ary_len(error_array); i++) // post("%s\n",rb_str_ptr(rb_ary_ptr(error_array)[i])); if (fm->self) pd_error(fm->self,"%s",rb_str_ptr( rb_funcall(error_array,SI(join),1,rb_str_new2("\n")))); if (fm->self && fm->is_init) fm->self = 0; return Qnil; } static void BFObject_method_missing (BFObject *bself, int winlet, t_symbol *selector, int ac, t_atom *at) { FMessage fm = { bself, winlet, selector, ac, at, false }; if (!bself->rself) { pd_error(bself,"message to a dead object. (supposed to be impossible)"); return; } rb_rescue2( (RMethod)BFObject_method_missing_1,(Ruby)&fm, (RMethod)BFObject_rescue,(Ruby)&fm, rb_eException,0); } static void BFObject_method_missing0 (BFObject *self, t_symbol *s, int argc, t_atom *argv) { BFObject_method_missing(self,0,s,argc,argv); } static void BFProxy_method_missing(BFProxy *self, t_symbol *s, int argc, t_atom *argv) { BFObject_method_missing(self->parent,self->inlet,s,argc,argv); } static Ruby BFObject_init_1 (FMessage *fm) { Ruby argv[fm->ac+1]; for (int i=0; i<fm->ac; i++) argv[i+1] = Bridge_import_value(fm->at+i); if (fm->selector==&s_list) { argv[0] = rb_str_new2("list"); // pd is slightly broken here } else { argv[0] = rb_str_new2(fm->selector->s_name); } Ruby rself = rb_funcall2(rb_const_get(mGridFlow2,SI(FObject)),SI([]),fm->ac+1,argv); DGS(FObject); self->bself = fm->self; self->bself->rself = rself; int ninlets = self->bself->nin = ninlets_of(rb_funcall(rself,SI(class),0)); int noutlets = self->bself->nout = noutlets_of(rb_funcall(rself,SI(class),0)); for (int i=1; i<ninlets; i++) { BFProxy *p = (BFProxy *)pd_new(BFProxy_class); p->parent = self->bself; p->inlet = i; inlet_new(self->bself, &p->ob_pd, 0,0); } self->bself->out = new t_outlet*[noutlets]; for (int i=0; i<noutlets; i++) { self->bself->out[i] = outlet_new(self->bself,&s_anything); } rb_funcall(rself,SI(initialize2),0); return rself; } static void *BFObject_init (t_symbol *classsym, int ac, t_atom *at) { t_class *qlass = find_bfclass(classsym); if (!qlass) return 0; BFObject *bself = (BFObject *)pd_new(qlass); bself->magic = OBJECT_MAGIC; bself->check_magic(); FMessage fm = { self: bself, winlet:-1, selector: classsym, ac: ac, at: at, is_init: true }; long r = rb_rescue2( (RMethod)BFObject_init_1,(Ruby)&fm, (RMethod)BFObject_rescue,(Ruby)&fm, rb_eException,0); return r==Qnil ? 0 : (void *)bself; // return NULL if broken object } static void BFObject_delete_1 (FMessage *fm) { fm->self->check_magic(); if (fm->self->rself) { rb_funcall(fm->self->rself,SI(delete),0); } else { post("BFObject_delete is NOT handling BROKEN object at %08x",(int)fm); } } static void BFObject_delete (BFObject *bself) { bself->check_magic(); FMessage fm = { self: bself, winlet:-1, selector: gensym("delete"), ac: 0, at: 0, is_init: false }; rb_rescue2( (RMethod)BFObject_delete_1,(Ruby)&fm, (RMethod)BFObject_rescue,(Ruby)&fm, rb_eException,0); bself->magic = 0xDeadBeef; } /* **************************************************************** */ struct RMessage { VALUE rself; ID sel; int argc; VALUE *argv; }; // this was called rb_funcall_rescue[...] but recently (ruby 1.8.2) // got a conflict with a new function in ruby. VALUE rb_funcall_myrescue_1(RMessage *rm) { return rb_funcall2(rm->rself,rm->sel,rm->argc,rm->argv); } static Ruby rb_funcall_myrescue_2 (RMessage *rm) { Ruby error_array = make_error_message(); // for (int i=0; i<rb_ary_len(error_array); i++) // post("%s\n",rb_str_ptr(rb_ary_ptr(error_array)[i])); post("%s",rb_str_ptr(rb_funcall(error_array,SI(join),1,rb_str_new2("\n")))); return Qnil; } VALUE rb_funcall_myrescue(VALUE rself, ID sel, int argc, ...) { va_list foo; va_start(foo,argc); VALUE argv[argc]; for (int i=0; i<argc; i++) argv[i] = va_arg(foo,VALUE); RMessage rm = { rself, sel, argc, argv }; va_end(foo); return rb_rescue2( (RMethod)rb_funcall_myrescue_1,(Ruby)&rm, (RMethod)rb_funcall_myrescue_2,(Ruby)&rm, rb_eException,0); } /* Call this to get a gobj's bounding rectangle in pixels */ void bf_getrectfn(t_gobj *x, struct _glist *glist, int *x1, int *y1, int *x2, int *y2) { BFObject *bself = (BFObject*)x; Ruby can = PTR2FIX(glist_getcanvas(glist)); Ruby a = rb_funcall_myrescue(bself->rself,SI(pd_getrect),1,can); if (TYPE(a)!=T_ARRAY || rb_ary_len(a)<4) { post("bf_getrectfn: return value should be 4-element array"); *x1=*y1=*x2=*y2=0; return; } *x1 = INT(rb_ary_ptr(a)[0]); *y1 = INT(rb_ary_ptr(a)[1]); *x2 = INT(rb_ary_ptr(a)[2]); *y2 = INT(rb_ary_ptr(a)[3]); } /* and this to displace a gobj: */ void bf_displacefn(t_gobj *x, struct _glist *glist, int dx, int dy) { Ruby can = PTR2FIX(glist_getcanvas(glist)); BFObject *bself = (BFObject *)x; bself->te_xpix+=dx; bself->te_ypix+=dy; rb_funcall_myrescue(bself->rself,SI(pd_displace),3,can,INT2NUM(dx),INT2NUM(dy)); canvas_fixlinesfor(glist, (t_text *)x); } /* change color to show selection: */ void bf_selectfn(t_gobj *x, struct _glist *glist, int state) { Ruby can = PTR2FIX(glist_getcanvas(glist)); rb_funcall_myrescue(((BFObject*)x)->rself,SI(pd_select),2,can,INT2NUM(state)); } /* change appearance to show activation/deactivation: */ void bf_activatefn(t_gobj *x, struct _glist *glist, int state) { Ruby can = PTR2FIX(glist_getcanvas(glist)); rb_funcall_myrescue(((BFObject*)x)->rself,SI(pd_activate),2,can,INT2NUM(state)); } /* warn a gobj it's about to be deleted */ void bf_deletefn(t_gobj *x, struct _glist *glist) { Ruby can = PTR2FIX(glist_getcanvas(glist)); rb_funcall_myrescue(((BFObject*)x)->rself,SI(pd_delete),1,can); canvas_deletelinesfor(glist, (t_text *)x); } /* making visible or invisible */ void bf_visfn(t_gobj *x, struct _glist *glist, int flag) { Ruby can = PTR2FIX(glist_getcanvas(glist)); Ruby rself = ((BFObject*)x)->rself; DGS(FObject); self->check_magic(); rb_funcall_myrescue(((BFObject*)x)->rself,SI(pd_vis),2,can,INT2NUM(flag)); } /* field a mouse click (when not in "edit" mode) */ int bf_clickfn(t_gobj *x, struct _glist *glist, int xpix, int ypix, int shift, int alt, int dbl, int doit) { Ruby can = PTR2FIX(glist_getcanvas(glist)); Ruby ret = rb_funcall_myrescue(((BFObject*)x)->rself,SI(pd_click),7,can, INT2NUM(xpix),INT2NUM(ypix), INT2NUM(shift),INT2NUM(alt), INT2NUM(dbl),INT2NUM(doit)); if (TYPE(ret) == T_FIXNUM) return INT(ret); post("bf_clickfn: expected Fixnum"); return 0; } /* save to a binbuf */ void bf_savefn(t_gobj *x, t_binbuf *b) { rb_funcall_myrescue(((BFObject*)x)->rself,SI(pd_save),1,Qnil); } /* open properties dialog */ void bf_propertiesfn(t_gobj *x, struct _glist *glist) { Ruby can = PTR2FIX(glist_getcanvas(glist)); rb_funcall_myrescue(((BFObject*)x)->rself,SI(pd_properties),1,can); } /* get keypresses during focus */ void bf_keyfn(void *x, t_floatarg fkey) { rb_funcall_myrescue(((BFObject*)x)->rself,SI(pd_key),1,INT2NUM((int)fkey)); } /* get motion diff during focus */ void bf_motionfn(void *x, t_floatarg dx, t_floatarg dy) { rb_funcall_myrescue(((BFObject*)x)->rself,SI(pd_motion),2, INT2NUM((int)dx), INT2NUM((int)dy)); } /* **************************************************************** */ static void BFObject_class_init_1 (t_class *qlass) { class_addanything(qlass,(t_method)BFObject_method_missing0); } \class FObject static Ruby FObject_s_install2(Ruby rself, Ruby name) { if (TYPE(name)!=T_STRING) RAISE("name must be String"); t_class *qlass = class_new(gensym(rb_str_ptr(name)), (t_newmethod)BFObject_init, (t_method)BFObject_delete, sizeof(BFObject), CLASS_DEFAULT, A_GIMME,0); rb_ivar_set(rself, SI(@bfclass), PTR2FIX(qlass)); FMessage fm = {0, -1, 0, 0, 0, false}; rb_rescue2( (RMethod)BFObject_class_init_1,(Ruby)qlass, (RMethod)BFObject_rescue,(Ruby)&fm, rb_eException,0); return Qnil; } static Ruby FObject_send_out2(int argc, Ruby *argv, Ruby rself) { //\def Ruby send_out2(...) { DGS(FObject); BFObject *bself = self->bself; if (!bself) { //post("FObject#send_out2 : bself is NULL, rself=%08x",rself); return Qnil; } bself->check_magic(); Ruby qlass = rb_funcall(rself,SI(class),0); int outlet = INT(argv[0]); Ruby sym = argv[1]; argc-=2; argv+=2; t_atom sel, at[argc]; Bridge_export_value(sym,&sel); for (int i=0; i<argc; i++) Bridge_export_value(argv[i],at+i); t_outlet *out = bself->te_outlet; outlet_anything(bself->out[outlet],atom_getsymbol(&sel),argc,at); return Qnil; } static Ruby FObject_s_set_help (Ruby rself, Ruby path) { path = rb_funcall(path,SI(to_s),0); Ruby qlassid = rb_ivar_get(rself,SI(@bfclass)); if (qlassid==Qnil) RAISE("@bfclass==nil ???"); t_class *qlass = FIX2PTR(t_class,qlassid); class_sethelpsymbol(qlass,gensym(rb_str_ptr(path))); return Qnil; } static Ruby GridFlow_s_gui (int argc, Ruby *argv, Ruby rself) { if (argc!=1) RAISE("bad args"); Ruby command = rb_funcall(argv[0],SI(to_s),0); sys_gui(rb_str_ptr(command)); return Qnil; } static Ruby GridFlow_s_bind (Ruby rself, Ruby argv0, Ruby argv1) { if (TYPE(argv0)==T_STRING) { #if PD_VERSION_INT < 37 RAISE("requires Pd 0.37"); #else Ruby name = rb_funcall(argv0,SI(to_s),0); Ruby qlassid = rb_ivar_get(rb_hash_aref(rb_ivar_get(mGridFlow2,SI(@fclasses)),name),SI(@bfclass)); if (qlassid==Qnil) RAISE("no such class: %s",rb_str_ptr(name)); pd_typedmess(&pd_objectmaker,gensym(rb_str_ptr(name)),0,0); t_pd *o = pd_newest(); pd_bind(o,gensym(rb_str_ptr(argv1))); #endif } else { Ruby rself = argv0; DGS(FObject); t_symbol *s = gensym(rb_str_ptr(argv1)); t_pd *o = (t_pd *)(self->bself); //fprintf(stderr,"binding %08x to: \"%s\" (%08x %s)\n",o,rb_str_ptr(argv[1]),s,s->s_name); pd_bind(o,s); } return Qnil; } static Ruby FObject_s_gui_enable (Ruby rself) { Ruby qlassid = rb_ivar_get(rself,SI(@bfclass)); if (qlassid==Qnil) RAISE("no class id ?"); t_widgetbehavior *wb = new t_widgetbehavior; wb->w_getrectfn = bf_getrectfn; wb->w_displacefn = bf_displacefn; wb->w_selectfn = bf_selectfn; wb->w_activatefn = bf_activatefn; wb->w_deletefn = bf_deletefn; wb->w_visfn = bf_visfn; wb->w_clickfn = bf_clickfn; //wb->w_savefn = bf_savefn; //wb->w_propertiesfn = bf_propertiesfn; class_setwidget(FIX2PTR(t_class,qlassid),wb); return Qnil; } static Ruby FObject_focus (Ruby rself, Ruby canvas_, Ruby x_, Ruby y_) { DGS(FObject); t_glist *canvas = FIX2PTR(t_glist,canvas_); t_gobj *bself = (t_gobj *)(self->bself); int x = INT(x_); int y = INT(y_); glist_grab(canvas,bself, bf_motionfn, bf_keyfn, x,y); return Qnil; } // doesn't use rself but still is aside FObject_focus for symmetry reasons. static Ruby FObject_unfocus (Ruby rself, Ruby canvas_) { DGS(FObject); t_glist *canvas = FIX2PTR(t_glist,canvas_); glist_grab(canvas,0,0,0,0,0); return Qnil; } static Ruby FObject_add_inlets (Ruby rself, Ruby n_) { DGS(FObject); if (!self->bself) RAISE("there is no bself"); int n = INT(n_); for (int i=self->bself->nin; i<self->bself->nin+n; i++) { BFProxy *p = (BFProxy *)pd_new(BFProxy_class); p->parent = self->bself; p->inlet = i; inlet_new(self->bself, &p->ob_pd, 0,0); } self->bself->nin+=n; return Qnil; } static Ruby FObject_add_outlets (Ruby rself, Ruby n_) { DGS(FObject); if (!self->bself) RAISE("there is no bself"); int n = INT(n_); t_outlet **oldouts = self->bself->out; self->bself->out = new t_outlet*[self->bself->nout+n]; memcpy(self->bself->out,oldouts,self->bself->nout*sizeof(t_outlet*)); for (int i=self->bself->nout; i<self->bself->nout+n; i++) { self->bself->out[i] = outlet_new(self->bself,&s_anything); } self->bself->nout+=n; return Qnil; } static Ruby bridge_add_to_menu (int argc, Ruby *argv, Ruby rself) { if (argc!=1) RAISE("bad args"); Ruby name = rb_funcall(argv[0],SI(to_s),0); Ruby qlassid = rb_ivar_get(rb_hash_aref(rb_ivar_get(mGridFlow2,SI(@fclasses)),name),SI(@bfclass)); if (qlassid==Qnil) RAISE("no such class: %s",rb_str_ptr(name)); //!@#$ return Qnil; } static Ruby GridFlow_s_add_creator_2 (Ruby rself, Ruby name_) { t_symbol *name = gensym(rb_str_ptr(rb_funcall(name_,SI(to_s),0))); class_addcreator((t_newmethod)BFObject_init,name,A_GIMME,0); return Qnil; } static Ruby FObject_get_position (Ruby rself, Ruby canvas) { DGS(FObject); t_text *bself = (t_text *)(self->bself); t_glist *c = FIX2PTR(t_glist,canvas); float x0,y0; if (c->gl_havewindow || !c->gl_isgraph) { x0=bself->te_xpix; y0=bself->te_ypix; } else { // graph-on-parent: have to zoom float zx = float(c->gl_x2 - c->gl_x1) / (c->gl_screenx2 - c->gl_screenx1); float zy = float(c->gl_y2 - c->gl_y1) / (c->gl_screeny2 - c->gl_screeny1); x0 = glist_xtopixels(c, c->gl_x1 + bself->te_xpix*zx); y0 = glist_ytopixels(c, c->gl_y1 + bself->te_ypix*zy); } Ruby a = rb_ary_new(); rb_ary_push(a,INT2NUM((int)x0)); rb_ary_push(a,INT2NUM((int)y0)); return a; } \classinfo {} \end class FObject //**************************************************************** \class Clock < CObject struct Clock : CObject { t_clock *serf; Ruby owner; /* copy of ptr that serf already has, for marking */ \decl void set (double systime); \decl void delay(double delaytime); \decl void unset(); }; void Clock_fn (Ruby rself) { rb_funcall_myrescue(rself,SI(call),0); } void Clock_mark (Clock *self) { rb_gc_mark(self->owner); } void Clock_free (Clock *self) { clock_free(self->serf); CObject_freeee(self); } Ruby Clock_s_new (Ruby qlass, Ruby owner) { Clock *self = new Clock(); self->rself = Data_Wrap_Struct(qlass, Clock_mark, Clock_free, self); self->serf = clock_new((void*)owner,(t_method)Clock_fn); self->owner = owner; return self->rself; } \def void set (double systime) { clock_set(serf, systime); } \def void delay(double delaytime) { clock_delay(serf,delaytime); } \def void unset() { clock_unset(serf); } \classinfo {} \end class Clock //**************************************************************** Ruby GridFlow_s_post_string (Ruby rself, Ruby string) { if (TYPE(string)!=T_STRING) RAISE("not a string!"); post("%s",rb_str_ptr(string)); return Qnil; } #define SDEF(_name1_,_name2_,_argc_) \ rb_define_singleton_method(mGridFlow2,_name1_,(RMethod)GridFlow_s_##_name2_,_argc_) Ruby gf_bridge_init (Ruby rself) { Ruby ver = EVAL("GridFlow::GF_VERSION"); if (strcmp(rb_str_ptr(ver), GF_VERSION) != 0) { RAISE("GridFlow version mismatch: " "main library is '%s'; bridge is '%s'", rb_str_ptr(ver), GF_VERSION); } syms = FIX2PTR(BuiltinSymbols,rb_ivar_get(mGridFlow2,SI(@bsym))); Ruby fo = EVAL("GridFlow::FObject"); rb_define_singleton_method(fo,"install2",(RMethod)FObject_s_install2,1); rb_define_singleton_method(fo,"gui_enable", (RMethod)FObject_s_gui_enable, 0); rb_define_singleton_method(fo,"set_help", (RMethod)FObject_s_set_help, 1); rb_define_method(fo,"get_position",(RMethod)FObject_get_position,1); rb_define_method(fo,"send_out2", (RMethod)FObject_send_out2,-1); rb_define_method(fo,"send_out2", (RMethod)FObject_send_out2,-1); rb_define_method(fo,"add_inlets", (RMethod)FObject_add_inlets, 1); rb_define_method(fo,"add_outlets", (RMethod)FObject_add_outlets, 1); rb_define_method(fo,"unfocus", (RMethod)FObject_unfocus, 1); rb_define_method(fo, "focus", (RMethod)FObject_focus, 3); SDEF("post_string",post_string,1); SDEF("add_creator_2",add_creator_2,1); SDEF("gui",gui,-1); SDEF("bind",bind,2); // SDEF("add_to_menu",add_to_menu,-1); \startall rb_define_singleton_method(EVAL("GridFlow::Clock" ),"new", (RMethod)Clock_s_new, 1); rb_define_singleton_method(EVAL("GridFlow::Pointer"),"new", (RMethod)Pointer_s_new, 1); mPointer = EVAL("GridFlow::Pointer"); EVAL("class<<GridFlow;attr_accessor :config; end"); EVAL("GridFlow.config = {'PUREDATA_PATH' => %{"PUREDATA_PATH"}}"); return Qnil; } struct BFGridFlow : t_object {}; t_class *bindpatcher; static void *bindpatcher_init (t_symbol *classsym, int ac, t_atom *at) { t_pd *bself = pd_new(bindpatcher); if (ac!=1 || at->a_type != A_SYMBOL) { post("bindpatcher: oops"); } else { t_symbol *s = atom_getsymbol(at); post("binding patcher to: %s",s->s_name); pd_bind((t_pd *)canvas_getcurrent(),s); } return bself; } extern "C" void gridflow_setup () { char *foo[] = {"Ruby-for-PureData","-w","-e",";"}; post("setting up Ruby-for-PureData..."); /* post("pd_getfilename() = %s", pd_getfilename()->s_name); post("pd_getdirname() = %s", pd_getdirname()->s_name); post("canvas_getcurrentdir() = %p", canvas_getcurrentdir()); char *dirresult = new char[242]; char *nameresult; int fd = open_via_path("","gridflow",".so",dirresult,&nameresult,242,1); post("open_via_path: fd=%d dirresult=\"%s\" nameresult=\"%s\"",fd,dirresult,nameresult); delete[] dirresult; */ ruby_init(); Init_stack(localize_sysstack()); ruby_options(COUNT(foo),foo); post("we are using Ruby version %s",rb_str_ptr(EVAL("RUBY_VERSION"))); Ruby cData = rb_const_get(rb_cObject,SI(Data)); BFProxy_class = class_new(gensym("ruby_proxy"), NULL,NULL,sizeof(BFProxy),CLASS_PD|CLASS_NOINLET, A_NULL); class_addanything(BFProxy_class,BFProxy_method_missing); rb_define_singleton_method(cData,"gf_bridge_init", (RMethod)gf_bridge_init,0); mGridFlow2 = EVAL( "module GridFlow; class<<self; attr_reader :bridge_name; end; " "@bridge_name = 'puredata'; self end"); post("(done)"); if (! EVAL("begin require 'gridflow'; true; rescue Exception => e;\ STDERR.puts \"[#{e.class}] [#{e.message}]:\n#{e.backtrace.join'\n'}\"; false; end")) { post("ERROR: Cannot load GridFlow-for-Ruby (gridflow.so)\n"); return; } bindpatcher = class_new(gensym("bindpatcher"), (t_newmethod)bindpatcher_init, 0, sizeof(t_object),CLASS_DEFAULT,A_GIMME,0); } --- NEW FILE: placebo.rb --- =begin $Id: placebo.rb,v 1.1 2005/10/04 02:02:13 matju Exp $ GridFlow Copyright (c) 2001,2002,2003,2004,2005 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. =end class Object def self.dummy(sel) self.module_eval "def #{sel}(*args) GridFlow.post \"dummy #{sel}: %s\", args.inspect end" end end module GridFlow class<<self # def add_creator_2(*args) post "dummy add_creator_2: %s", args.inspect end dummy :add_creator_2 def post_string(s) STDERR.puts s end end class Clock def initialize(victim) @victim=victim end dummy :delay end class Pointer dummy :initialize end end --- NEW FILE: puredata.rb --- =begin $Id: puredata.rb,v 1.1 2005/10/04 02:02:13 matju Exp $ GridFlow Copyright (c) 2001,2002 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. =end # <matju> alx1: in puredata.rb, just after the header, you have a %w() block, # and in it you write the name of your object, and if your helpfile is not # named like your object, then you add an equal sign and the filename #!@#$ DON'T PUT ABSTRACTIONS IN THE %w() !!! # @mouse=help_mouse @motion_detection=help_motion_detect @fade=help_fade # @apply_colormap_channelwise @checkers @complex_sq @contrast # @posterize @ravel @greyscale_to_rgb @rgb_to_greyscale @solarize @spread #rgb_to_yuv=#rgb_to_yuv_and_#yuv_to_rgb #yuv_to_rgb=#rgb_to_yuv_and_#yuv_to_rgb #clip #contrast #fade #numop #remap_image # NEW help files #!@#$ (what's #+-help.pd ? #print-help2.pd ?) %w( # #cast #dim #reverse #pack=#unpack-#pack #unpack=#unpack-#pack renamefile #in plotter_control listelement exec ls #print unix_time ).each {|name| if name =~ /=/ then name,file = name.split(/=/) else file = name end begin x = GridFlow.fclasses[name] x.set_help "gridflow/flow_classes/#{file}-help.pd" rescue Exception => e GridFlow.post "for [#{name}], #{e.class}: #{e}" # + ":\n" + e.backtrace.join("\n") end } # OLD help files %w( @cast @convolve @downscale_by @draw_polygon @export=@importexport @finished @fold @for @global @grade @import=@importexport @inner=@foldinnerouter @in=@inout @join @layer @outer=@foldinnerouter @out=@inout @! @perspective printargs @print @redim rubyprint @scale_by @scale_to @scan @store ).each {|name| if name =~ /=/ then name,file = name.split(/=/) else file = name end begin GridFlow.fclasses[name].set_help "gridflow/#{file}.pd" rescue Exception => e GridFlow.post "ruby #{e.class}: #{e}:\n" + e.backtrace.join("\n") end } #GridFlow.gui "frame .controls.gridflow -relief ridge -borderwidth 2\n" #GridFlow.gui "button .controls.gridflow.button -text FOO\n" #GridFlow.gui "pack .controls.gridflow.button -side left\n" #GridFlow.gui "pack .controls.gridflow -side right\n" GridFlow.gui %q{ if {[catch { # pd 0.37 menu .mbar.gridflow -tearoff $pd_tearoff .mbar add cascade -label "GridFlow" -menu .mbar.gridflow set gfmenu .mbar.gridflow }]} { # pd 0.36 ###the problem is that GridFlow.bind requires 0.37 } catch { $gfmenu add command -label "profiler_dump" -command {pd "gridflow profiler_dump;"} $gfmenu add command -label "profiler_reset" -command {pd "gridflow profiler_reset;"} $gfmenu add command -label "formats" -command {pd "gridflow formats;"} } if {[string length [info command post]] == 0} { proc post {x} {puts $x} } # if not running Impd: if {[string length [info command listener_new]] == 0} { # start of part duplicated from Impd proc listener_new {self name} { global _ set _($self:hist) {} set _($self:histi) 0 frame $self label $self.label -text "$name: " entry $self.entry -width 40 # entry $self.count -width 5 pack $self.label -side left pack $self.entry -side left -fill x -expand yes # pack $self.count -side left pack $self -fill x -expand no bind $self.entry <Up> "listener_up $self" bind $self.entry <Down> "listener_down $self" } proc listener_up {self} { global _ if {$_($self:histi) > 0} {set _($self:histi) [expr -1+$_($self:histi)]} $self.entry delete 0 end $self.entry insert 0 [lindex $_($self:hist) $_($self:histi)] $self.entry icursor end # $self.count delete 0 end # $self.count insert 0 "$_($self:histi)/[llength $_($self:hist)]" } proc listener_down {self} { global _ if {$_($self:histi) < [llength $_($self:hist)]} {incr _($self:histi)} $self.entry delete 0 end $self.entry insert 0 [lindex $_($self:hist) $_($self:histi)] $self.entry icursor end # $self.count delete 0 end # $self.count insert 0 "$_($self:histi)/[llength $_($self:hist)]" } proc listener_append {self v} { global _ lappend _($self:hist) $v set _($self:histi) [llength $_($self:hist)] } proc tcl_eval {} { set l [.tcl.entry get] post "tcl: $l" post "returns: [eval $l]" listener_append .tcl [.tcl.entry get] .tcl.entry delete 0 end } if {[catch { listener_new .tcl "Tcl" bind .tcl.entry <Return> {tcl_eval} }]} { listener_new .tcl "Tcl" {tcl_eval} } } # end of part duplicated from Impd proc ruby_eval {} { set l {} foreach c [split [.ruby.entry get] ""] {lappend l [scan $c %c]} pd "gridflow eval $l;" listener_append .ruby [.ruby.entry get] .ruby.entry delete 0 end } if {[catch { listener_new .ruby "Ruby" bind .ruby.entry <Return> {ruby_eval} }]} { listener_new .ruby "Ruby" {ruby_eval} } } # GridFlow.gui if false GridFlow.gui %q{ catch { if {[file exists ${pd_guidir}/lib/gridflow/icons/peephole.gif]} { global pd_guidir image create photo icon_peephole -file ${pd_guidir}/lib/gridflow/icons/peephole.gif global butt button_bar_add peephole {guiext peephole} } { puts $stderr GAAAH } } } # GridFlow.gui end

1 0

externals/gridflow/base bitpacking.c, NONE, 1.1 flow_objects.c, NONE, 1.1 flow_objects.rb, NONE, 1.1 flow_objects_for_image.c, NONE, 1.1 flow_objects_for_matrix.c, NONE, 1.1 grid.c, NONE, 1.1 grid.h, NONE, 1.1 main.c, NONE, 1.1 main.rb, NONE, 1.1 number.c, NONE, 1.1 source_filter.rb, NONE, 1.1 test.rb, NONE, 1.1
by Mathieu Bouchard 04 Oct '05

04 Oct '05

Update of /cvsroot/pure-data/externals/gridflow/base In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21117/base Added Files: bitpacking.c flow_objects.c flow_objects.rb flow_objects_for_image.c flow_objects_for_matrix.c grid.c grid.h main.c main.rb number.c source_filter.rb test.rb Log Message: starting to commit gridflow 0.8.0 ... if you know how to use "cvs import" please mail me and i'll use it for 0.8.1 --- NEW FILE: source_filter.rb --- $keywords = %w(class decl def end grdecl) $stack = [] $classes = [] ClassDecl = Struct.new(:name,:supername,:methods,:grins,:attrs,:info) MethodDecl = Struct.new(:rettype,:selector,:arglist,:minargs,:maxargs,:where) Arg = Struct.new(:type,:name,:default) class MethodDecl def ==(o) return false unless rettype==o.rettype && maxargs==o.maxargs # && minargs==o.minargs arglist.each_index{|i| arglist[i] == o.arglist[i] or return false } return true end end class Arg def ==(o) type==o.type && name==o.name # && default==o.default end end In = File.open ARGV[0], "r" Out = File.open ARGV[1], "w" def handle_class(line) raise "already in class #{where}" if $stack[-1] and ClassDecl===$stack[-1] #STDERR.puts "class: #{line}" /^(\w+)(?:\s*<\s*(\w+))?$/.match line or raise "syntax error #{where}" q=ClassDecl.new($1,$2,{},{},{},false) $stack << q $classes << q Out.puts "" end def parse_methoddecl(line,term) /^(\w+)\s+(\w+)\s*$([^$]*)\)\s*#{term}/.match line or raise "syntax error #{where} #{line}" rettype,selector,arglist = $1,$2,$3 arglist,minargs,maxargs = parse_arglist arglist MethodDecl.new(rettype,selector,arglist,minargs,maxargs,where) end def parse_arglist(arglist) arglist = arglist.split(/,/) maxargs = arglist.length args = arglist.map {|arg| if /^\s*\.\.\.\s*$/.match arg then maxargs=-1; next end /^\s*([\w\s\*<>]+)\s*\b(\w+)\s*(?:\=(.*))?/.match arg or raise "syntax error in \"#{arg}\" #{where}" type,name,default=$1,$2,$3 Arg.new(type.sub(/\s+$/,""),name,default) }.compact minargs = args.length minargs-=1 while minargs>0 and args[minargs-1].default [args,minargs,maxargs] end def unparse_arglist(arglist,with_default=true) arglist.map {|arg| x="#{arg.type} #{arg.name} " x<<'='<<arg.default if with_default and arg.default x }.join(", ") end def where "[#{ARGV[0]}:#{$linenumber}]" end def handle_attr(line) type = line.gsub(%r"//.*$","").gsub(%r"/\*.*\*/","").gsub(%r";?\s*$","") name = type.slice!(/\w+$/) raise "missing \\class #{where}" if not $stack[-1] or not ClassDecl===$stack[-1] $stack[-1].attrs[name]=Arg.new(type,name,nil) Out.print line Out.puts "//FCS" handle_decl "void _0_#{name}_m (#{type} #{name});" Out.puts "# #{$linenumber}" end def handle_decl(line) raise "missing \\class #{where}" if not $stack[-1] or not ClassDecl===$stack[-1] classname = $stack[-1].name m = parse_methoddecl(line,";\s*$") $stack[-1].methods[m.selector] = m Out.print "#{m.rettype} #{m.selector}(int argc, Ruby *argv" Out.print "," if m.arglist.length>0 Out.print "#{unparse_arglist m.arglist});" Out.puts "static Ruby #{m.selector}_wrap"+ "(int argc, Ruby *argv, Ruby rself);//FCS" Out.puts "# #{$linenumber+1}" end def handle_def(line) m = parse_methoddecl(line,"\{?.*$") term = line[/\{.*/] qlass = $stack[-1] raise "missing \\class #{where}" if not qlass or not ClassDecl===qlass classname = qlass.name if qlass.methods[m.selector] n = m; m = qlass.methods[m.selector] if m!=n then STDERR.puts "warning: def does not match decl:" STDERR.puts "#{m.where}: \\decl #{m.inspect}" STDERR.puts "#{n.where}: \\def #{n.inspect}" end else qlass.methods[m.selector] = m end Out.print "Ruby #{classname}::#{m.selector}_wrap"+ "(int argc, Ruby *argv, Ruby rself) {"+ "static const char *methodspec = "+ "\"#{qlass.name}::#{m.selector}(#{unparse_arglist m.arglist,false})\";"+ "DGS(#{classname});" Out.print "if (argc<#{m.minargs}" Out.print "||argc>#{m.maxargs}" if m.maxargs!=-1 Out.print ") RAISE(\"got %d args instead of %d..%d in %s\""+ ",argc,#{m.minargs},#{m.maxargs},methodspec);" error = proc {|x,y| "RAISE(\"got %s instead of #{x} in %s\","+ "rb_str_ptr(rb_inspect(rb_obj_class(#{y}))),methodspec)" } m.arglist.each_with_index{|arg,i| case arg.type when "Symbol" Out.print "if (argc>#{i} && TYPE(argv[#{i}])!=T_SYMBOL) "+ error[arg.type,"argv[#{i}]"]+";" when "Array" Out.print "if (argc>#{i} && TYPE(argv[#{i}])!=T_ARRAY) "+ error[arg.type,"argv[#{i}]"]+";" when "String" Out.print "if (argc>#{i} && TYPE(argv[#{i}])==T_SYMBOL) "+ "argv[#{i}]=rb_funcall(argv[#{i}],SI(to_s),0);" Out.print "if (argc>#{i} && TYPE(argv[#{i}])!=T_STRING) "+ error[arg.type,"argv[#{i}]"]+";" end } # Out.print "return " if m.rettype!="void" Out.print "VALUE foo = " if m.rettype!="void" ### Out.print " self->#{m.selector}(argc,argv" m.arglist.each_with_index{|arg,i| if arg.default then Out.print ",argc<#{i+1}?#{arg.default}:convert(argv[#{i}],(#{arg.type}*)0)" else Out.print ",convert(argv[#{i}],(#{arg.type}*)0)" end } Out.print ");" Out.print "self->check_magic();" Out.print "return Qnil;" if m.rettype=="void" Out.print "return foo;" if m.rettype!="void" ### Out.print "} #{m.rettype} #{classname}::#{m.selector}(int argc, Ruby *argv" Out.print "," if m.arglist.length>0 Out.puts "#{unparse_arglist m.arglist, false})#{term}//FCS" end def handle_classinfo(line) frame = $stack[-1] cl = frame.name line="{}" if /^\s*$/ =~ line Out.puts "static void #{cl}_startup (Ruby rself);" Out.puts "static void *#{cl}_allocator () {return new #{cl};}" Out.puts "static MethodDecl #{cl}_methods[] = {" Out.puts frame.methods.map {|foo,method| c,s = frame.name,method.selector "{ \"#{s}\",(RMethod)#{c}::#{s}_wrap }" }.join(",") Out.puts "}; FClass ci#{cl} = { #{cl}_allocator, #{cl}_startup," Out.puts "#{cl.inspect}, COUNT(#{cl}_methods), #{cl}_methods };" Out.puts "void #{frame.name}_startup (Ruby rself) "+line end def handle_grin(line) fields = line.split(/\s+/) i = fields[0].to_i c = $stack[-1].name Out.print "template <class T> void grin_#{i}(GridInlet *in, int n, Pt<T> data);" Out.print "template <class T> static void grinw_#{i} (GridInlet *in, int n, Pt<T> data);" Out.print "static GridHandler grid_#{i}_hand;" handle_decl "Ruby _#{i}_grid(...);" $stack[-1].grins[i] = fields.dup end def handle_end(line) frame = $stack.pop fields = line.split(/\s+/) n = fields.length if ClassDecl===frame then #handle_classinfo if not frame.info cl = frame.name if fields[0]!="class" or (n>1 and fields[1]!=cl) then raise "end not matching #{where}" end $stack.push frame frame.attrs.each {|name,attr| type,name,default = attr.to_a #STDERR.puts "type=#{type} name=#{name} default=#{default}" handle_def "void _0_#{name}_m (#{type} #{name}) { this->#{name}=#{name}; }" } frame.grins.each {|i,v| k = case v[1] when nil; '4' when 'int32'; '1' when 'int'; '2' when 'float'; 'F' else raise 'BORK BORK BORK' end Out.print "static GridHandler #{cl}_grid_#{i}_hand = GRIN#{k}(#{cl},#{i});" handle_def "Ruby _#{i}_grid(...) {"+ "if (in.size()<=#{i}) in.resize(#{i}+1);"+ "if (!in[#{i}]) in[#{i}]=new GridInlet((GridObject *)this,&#{cl}_grid_#{i}_hand);"+ "return in[#{i}]->begin(argc,argv);}" } $stack.pop Out.puts "# #{$linenumber}" end if :ruby==frame then if fields[0]!="ruby" then raise "expected \\end ruby" end end Out.puts "" end def handle_startall(line) $classes.each {|q| Out.print "rb_funcall(EVAL(\"GridFlow\"),SI(fclass_install),2,PTR2FIX(&ci#{q.name})," if q.supername then Out.print "EVAL(\"GridFlow::#{q.supername}\"));" else Out.print "Qnil);" end } Out.puts "" end def handle_ruby(line) Out.puts "" $stack.push :ruby end $rubymode=false $linenumber=1 loop{ x = In.gets break if not x if /^\s*\\(\w+)\s*(.*)$/.match x then begin send("handle_#{$1}",$2) rescue StandardError => e STDERR.puts e.inspect STDERR.puts "at line #{$linenumber}" STDERR.puts e.backtrace File.unlink ARGV[1] exit 1 end else if $stack[-1]==:ruby then x.gsub!(/([\\\"])/) { "\\"+$1 } x="\"#{x.chomp}\\n\"\n" end Out.puts x end $linenumber+=1 } --- NEW FILE: flow_objects_for_matrix.c --- /* $Id: flow_objects_for_matrix.c,v 1.1 2005/10/04 02:02:13 matju Exp $ GridFlow Copyright (c) 2001,2002,2003 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include <math.h> #include "grid.h.fcs" // produce an upper triangular matrix with ones on the diagonal // will also affect any additional columns using the same row-operations void expect_complete_matrix (P<Dim> d) { if (d->n!=2) RAISE("bletch"); if (d->get(0)>d->get(1)) RAISE("argh"); } \class GridMatrixSolve < GridObject struct GridMatrixSolve : GridObject { Numop *op_sub; Numop *op_mul; Numop *op_div; PtrGrid matrix; GridMatrixSolve() { matrix.constrain(expect_complete_matrix); } \decl void initialize (); \grin 0 float }; GRID_INPUT(GridMatrixSolve,0,matrix) { int n = matrix->dim->get(0); // # rows int m = matrix->dim->get(1); // # columns Pt<T> mat = (Pt<T>)*matrix; for (int j=0; j<n; j++) { op_div->map(m,mat+j*m,mat[j*m+j]); for (int i=j+1; i<n; i++) { STACK_ARRAY(T,row,m); COPY(row,mat+j,m); op_mul->map(m,row,mat[i*m+j]); op_sub->zip(m,mat+i*m,row); } } GridOutlet out(this,0,matrix->dim); out.send(n*m,mat); } GRID_END \def void initialize () { rb_call_super(argc,argv); this->op_sub = op_sub; this->op_mul = op_mul; this->op_div = op_div; } \classinfo { IEVAL(rself,"install '#matrix_solve',1,1"); } \end class void startup_flow_objects_for_matrix () { \startall } --- NEW FILE: main.rb --- =begin $Id: main.rb,v 1.1 2005/10/04 02:02:13 matju Exp $ GridFlow Copyright (c) 2001,2002 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. =end # ENV["RUBY_VERBOSE_GC"]="yes" # this file gets loaded by main.c upon startup # module GridFlow is supposed to be created by main.c # this includes GridFlow.post_string(s) # because Ruby1.6 has no #object_id and Ruby1.8 warns on #id unless Object.instance_methods(true).include? "object_id" class Object; alias object_id id end end # in case of bug in Ruby ("Error: Success") module Errno; class E000 < StandardError; end; end #$post_log = File.open "/tmp/gridflow.log", "w" $post_log = nil class Array def split(elem) r=[] j=0 for i in 0...length (r<<self[j,i-j]; j=i+1) if self[i]==elem end r<<self[j,length-j] end end module GridFlow #------------------ def self.post(s,*a) post_string(sprintf("%s"+s,post_header,*a)) ($post_log << sprintf(s,*a); $post_log.flush) if $post_log end class<<self attr_accessor :data_path attr_accessor :post_header attr_accessor :verbose attr_reader :fobjects attr_reader :fclasses attr_reader :cpu_hertz attr_reader :subprocesses attr_reader :bridge_name alias gfpost post end @subprocesses={} @verbose=false @data_path=[] if GridFlow.respond_to? :config then @data_path << GridFlow.config["PUREDATA_PATH"]+"/extra/gridflow/images" end def self.hunt_zombies #STDERR.puts "GridFlow.hunt_zombies" # the $$ value is bogus begin died = [] subprocesses.each {|x,v| Process.waitpid2(x,Process::WNOHANG) and died<<x } rescue Errno::ECHILD end #STDERR.puts died.inspect died.each {|x| subprocesses.delete x } end def self.packstring_for_nt(nt) case nt when :u, :u8, :uint8; "C*" when :s, :i16, :int16; "s*" when :i, :i32, :int32; "l*" when :f, :f32, :float32; "f*" when :d, :f64, :float64; "d*" else raise "no decoder for #{nt.inspect}" end end self.post_header = "[gf] " def self.gfpost2(fmt,s); post("%s",s) end if GridFlow.bridge_name then post "This is GridFlow #{GridFlow::GF_VERSION} within Ruby version #{RUBY_VERSION}" post "base/main.c was compiled on #{GridFlow::GF_COMPILE_TIME}" post "Please use at least 1.6.6 if you plan to use sockets" if RUBY_VERSION<"1.6.6" end if not GridFlow.bridge_name then require "gridflow/bridge/placebo" end Brace1 = "{".intern Brace2 = "}".intern Paren1 = "(".intern Paren2 = ")".intern def self.parse(m) m = m.gsub(/(\{|\})/," \\1 ").split(/\s+/) m.map! {|x| case x when Integer, Symbol; x when /^[+\-]?[0-9]+$/; x.to_i when String; x.intern end } m end def self.stringify_list(argv) argv.map {|x| stringify x }.join(" ") end def self.stringify(arg) case arg when Integer, Float, Symbol; arg.to_s when Array; "{#{stringify_list arg}}" end end ::Object.module_eval do def FloatOrSymbol(x) Float(x) rescue x.intern end end # adding some functionality to that: class FObject @broken_ok = false @do_loadbangs = true class<<self # global attr_accessor :broken_ok # per-class attr_reader :ninlets attr_reader :noutlets attr_accessor :do_loadbangs attr_accessor :comment def foreign_name; @foreign_name if defined? @foreign_name end end def post(*a) GridFlow.post(*a) end def self.subclass(*args,&b) qlass = Class.new self qlass.install(*args) qlass.module_eval(&b) end alias :total_time :total_time_get alias :total_time= :total_time_set attr_writer :args # String attr_accessor :argv # Array attr_reader :outlets attr_accessor :parent_patcher attr_accessor :properties attr_accessor :classname def initialize2; end def args if defined? @args @args else "[#{self.class} ...]" end end alias info args def connect outlet, object, inlet @outlets ||= [] @outlets[outlet] ||= [] @outlets[outlet].push [object, inlet] end def self.name_lookup sym qlasses = GridFlow.fclasses qlass = qlasses[sym.to_s] if not qlass return qlasses['broken'] if @broken_ok raise "object class '#{sym}' not found" end qlass end def self.[](*m) o=nil if m.length==1 and m[0] =~ / / o="[#{m[0]}]" m=GridFlow.parse(m[0]) else o=m.inspect end GridFlow.handle_braces!(m) ms = m.split ','.intern m = ms.shift qlass = m.shift qlassname = qlass.to_s qlass = name_lookup qlass.to_s unless Class===qlass r = qlass.new(*m) r.classname = qlassname GridFlow.post "%s",r.args if GridFlow.verbose for x in ms do r.send_in(-2, *x) end if FObject.do_loadbangs r end def inspect if args then "#<#{self.class} #{args}>" else super end end def initialize(*argv) s = GridFlow.stringify_list argv @argv = argv @args = "[" @args << (self.class.foreign_name || self.to_s) @args << " " if s.length>0 @args << s << "]" @parent_patcher = nil @properties = {} @init_messages = [] end end class FPatcher < FObject class << self attr_reader :fobjects attr_reader :wires end def initialize(*) super fobjects = self.class.fobjects wires = self.class.wires @fobjects = fobjects.map {|x| if String===x then FObject[x] else x.call end } @inlets = [] @ninlets = self.class.ninlets or raise "oops" i=0 @fobjects << self while i<wires.length do a,b,c,d = wires[i,4] if a==-1 then a=self @inlets[b]||=[] @inlets[b] << [@fobjects[c],d] else if c==-1 then @fobjects[a].connect b,self,d+@ninlets else @fobjects[a].connect b,@fobjects[c],d end end i+=4 end end def method_missing(sym,*args) sym=sym.to_s if sym =~ /^_(\d)_(.*)/ then inl = Integer $1 sym = $2.intern if inl<@ninlets then raise "#{inspect} has not @inlets[#{inl}]" if not @inlets[inl] for x in @inlets[inl] do x[0].send_in x[1],sym,*args end else send_out(inl-@ninlets,sym,*args) end else super end end end def GridFlow.estimate_cpu_clock u0,t0=GridFlow.rdtsc,Time.new.to_f; sleep 0.01 u1,t1=GridFlow.rdtsc,Time.new.to_f; (u1-u0)/(t1-t0) end begin @cpu_hertz = (0...3).map { GridFlow.estimate_cpu_clock }.sort[1] # median of three tries rescue GridFlow.post $! end def GridFlow.find_file s s=s.to_s if s==File.basename(s) then dir = GridFlow.data_path.find {|x| File.exist? "#{x}/#{s}" } if dir then "#{dir}/#{s}" else s end elsif GridFlow.respond_to? :find_file_2 GridFlow.find_file_2 s else s end end def GridFlow.macerr(i) begin f=File.open("/System/Library/Frameworks/CoreServices.framework/"+ "Versions/A/Frameworks/CarbonCore.framework/Versions/A/Headers/"+ "MacErrors.h") while f.gets m = /^\s*(\w+)\s*=\s*(-\d+),\s*\/\*\s*(.*)\s*\*\/$/.match $_ next if not m if m[2].to_i == i then return "#{m[2]}: \"#{m[3]}\"" end end return "no error message available for this error number" rescue FileError return "Can't find Apple's precious copyrighted list of error messages on this system." ensure f.close if f end end end # module GridFlow class IO def nonblock= flag bit = Fcntl::O_NONBLOCK state = fcntl(Fcntl::F_GETFL, 0) fcntl(Fcntl::F_SETFL, (state & ~bit) | (if flag; bit else 0 end)) end end def protect yield rescue Exception => e STDERR.puts "#{e.class}: #{e}" STDERR.puts e.backtrace end def GridFlow.load_user_config require "gridflow/bridge/puredata.rb" if GridFlow.bridge_name == "puredata" user_config_file = ENV["HOME"] + "/.gridflow_startup" begin load user_config_file if File.exist? user_config_file rescue Exception => e GridFlow.post "#{e.class}: #{e}:\n" + e.backtrace.join("\n") GridFlow.post "while loading ~/.gridflow_startup" end end require "gridflow/base/flow_objects.rb" require "gridflow/format/main.rb" %w( # #for #finished #type #dim #transpose #perspective #store #outer #grade #redim #import #export #export_list #cast #scale_by #downscale_by #draw_polygon #draw_image #layer #print #pack #export_symbol #rotate #in #out ).each {|k| GridFlow::FObject.name_lookup(k).add_creator k.gsub(/#/,"@") } END { GridFlow.fobjects.each {|k,v| k.delete if k.respond_to? :delete } GridFlow.fobjects.clear GC.start } --- NEW FILE: flow_objects_for_image.c --- /* $Id: flow_objects_for_image.c,v 1.1 2005/10/04 02:02:13 matju Exp $ GridFlow Copyright (c) 2001,2002,2003 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include <math.h> #include "grid.h.fcs" static void expect_picture (P<Dim> d) { if (d->n!=3) RAISE("(height,width,chans) dimensions please");} static void expect_rgb_picture (P<Dim> d) { expect_picture(d); if (d->get(2)!=3) RAISE("(red,green,blue) channels please");} static void expect_rgba_picture (P<Dim> d) { expect_picture(d); if (d->get(2)!=4) RAISE("(red,green,blue,alpha) channels please");} static void expect_max_one_dim (P<Dim> d) { if (d->n>1) { RAISE("expecting Dim[] or Dim[n], got %s",d->to_s()); }} //**************************************************************** //{ Dim[A,B,*Cs]<T>,Dim[D,E]<T> -> Dim[A,B,*Cs]<T> } static void expect_convolution_matrix (P<Dim> d) { if (d->n != 2) RAISE("only exactly two dimensions allowed for now (got %d)", d->n); } // entry in a compiled convolution kernel struct PlanEntry { int y,x; bool neutral; }; \class GridConvolve < GridObject struct GridConvolve : GridObject { \attr Numop *op_para; \attr Numop *op_fold; \attr PtrGrid seed; \attr PtrGrid b; PtrGrid a; int plann; PlanEntry *plan; //Pt? int margx,margy; // margins GridConvolve () : plan(0) { b.constrain(expect_convolution_matrix); plan=0; } \decl void initialize (Grid *r=0); \decl void _0_op (Numop *op); \decl void _0_fold (Numop *op); \decl void _0_seed (Grid *seed); \grin 0 \grin 1 template <class T> void copy_row (Pt<T> buf, int sx, int y, int x); template <class T> void make_plan (T bogus); ~GridConvolve () {if (plan) delete[] plan;} }; template <class T> void GridConvolve::copy_row (Pt<T> buf, int sx, int y, int x) { int day = a->dim->get(0), dax = a->dim->get(1), dac = a->dim->prod(2); y=mod(y,day); x=mod(x,dax); Pt<T> ap = (Pt<T>)*a + y*dax*dac; while (sx) { int sx1 = min(sx,dax-x); COPY(buf,ap+x*dac,sx1*dac); x=0; buf += sx1*dac; sx -= sx1; } } static Numop *OP(Ruby x) {return FIX2PTR(Numop,rb_hash_aref(op_dict,x));} template <class T> void GridConvolve::make_plan (T bogus) { P<Dim> da = a->dim, db = b->dim; int dby = db->get(0); int dbx = db->get(1); if (plan) delete[] plan; plan = new PlanEntry[dbx*dby]; int i=0; for (int y=0; y<dby; y++) { for (int x=0; x<dbx; x++) { T rh = ((Pt<T>)*b)[y*dbx+x]; bool neutral = op_para->on(rh)->is_neutral(rh,at_right); bool absorbent = op_para->on(rh)->is_absorbent(rh,at_right); STACK_ARRAY(T,foo,1); if (absorbent) { foo[0] = 0; op_para->map(1,foo,rh); absorbent = op_fold->on(rh)->is_neutral(foo[0],at_right); } if (absorbent) continue; plan[i].y = y; plan[i].x = x; plan[i].neutral = neutral; i++; } } plann = i; } GRID_INLET(GridConvolve,0) { SAME_TYPE(in,b); SAME_TYPE(in,seed); P<Dim> da = in->dim, db = b->dim; if (!db) RAISE("right inlet has no grid"); if (!seed) RAISE("seed missing"); if (db->n != 2) RAISE("right grid must have two dimensions"); if (da->n < 2) RAISE("left grid has less than two dimensions"); if (seed->dim->n != 0) RAISE("seed must be scalar"); if (da->get(0) < db->get(0)) RAISE("grid too small (y): %d < %d", da->get(0), db->get(0)); if (da->get(1) < db->get(1)) RAISE("grid too small (x): %d < %d", da->get(1), db->get(1)); margy = (db->get(0)-1)/2; margx = (db->get(1)-1)/2; a=new Grid(in->dim,in->nt); out=new GridOutlet(this,0,da,in->nt); } GRID_FLOW { COPY((Pt<T>)*a+in->dex, data, n); } GRID_FINISH { Numop *op_put = OP(SYM(put)); make_plan((T)0); int dbx = b->dim->get(1); int day = a->dim->get(0); int n = a->dim->prod(1); int sx = a->dim->get(1)+dbx-1; int n2 = sx*a->dim->prod(2); STACK_ARRAY(T,buf,n); STACK_ARRAY(T,buf2,n2); T orh=0; for (int iy=0; iy<day; iy++) { op_put->map(n,buf,*(T *)*seed); for (int i=0; i<plann; i++) { int jy = plan[i].y; int jx = plan[i].x; T rh = ((Pt<T>)*b)[jy*dbx+jx]; if (i==0 || plan[i].y!=plan[i-1].y || orh!=rh) { copy_row(buf2,sx,iy+jy-margy,-margx); if (!plan[i].neutral) op_para->map(n2,buf2,rh); } op_fold->zip(n,buf,buf2+jx*a->dim->prod(2)); orh=rh; } out->send(n,buf); } a=0; } GRID_END GRID_INPUT(GridConvolve,1,b) {} GRID_END \def void _0_op (Numop *op ) { this->op_para=op; } \def void _0_fold (Numop *op ) { this->op_fold=op; } \def void _0_seed (Grid *seed) { this->seed=seed; } \def void initialize (Grid *r) { rb_call_super(argc,argv); this->op_para = op_mul; this->op_fold = op_add; this->seed = new Grid(new Dim(),int32_e,true); this->b= r ? r : new Grid(new Dim(1,1),int32_e,true); } \classinfo { IEVAL(rself,"install '#convolve',2,1"); } \end class GridConvolve /* ---------------------------------------------------------------- */ /* "#scale_by" does quick scaling of pictures by integer factors */ /*{ Dim[A,B,3]<T> -> Dim[C,D,3]<T> }*/ \class GridScaleBy < GridObject struct GridScaleBy : GridObject { \attr PtrGrid scale; // integer scale factor int scaley; int scalex; \decl void initialize (Grid *factor=0); \grin 0 \grin 1 void prepare_scale_factor () { scaley = ((Pt<int32>)*scale)[0]; scalex = ((Pt<int32>)*scale)[scale->dim->prod()==1 ? 0 : 1]; if (scaley<1) scaley=2; if (scalex<1) scalex=2; } }; GRID_INLET(GridScaleBy,0) { P<Dim> a = in->dim; expect_picture(a); out=new GridOutlet(this,0,new Dim(a->get(0)*scaley,a->get(1)*scalex,a->get(2)),in->nt); in->set_factor(a->get(1)*a->get(2)); } GRID_FLOW { int rowsize = in->dim->prod(1); STACK_ARRAY(T,buf,rowsize*scalex); int chans = in->dim->get(2); #define Z(z) buf[p+z]=data[i+z] for (; n>0; data+=rowsize, n-=rowsize) { int p=0; #define LOOP(z) \ for (int i=0; i<rowsize; i+=z) \ for (int k=0; k<scalex; k++, p+=3) switch (chans) { case 3: LOOP(3) {Z(0);Z(1);Z(2);} break; case 4: LOOP(4) {Z(0);Z(1);Z(2);Z(3);} break; default: LOOP(chans) {for (int c=0; c<chans; c++) Z(c);} } #undef LOOP for (int j=0; j<scaley; j++) out->send(rowsize*scalex,buf); } #undef Z } GRID_END static void expect_scale_factor (P<Dim> dim) { if (dim->prod()!=1 && dim->prod()!=2) RAISE("expecting only one or two numbers"); } GRID_INPUT(GridScaleBy,1,scale) { prepare_scale_factor(); } GRID_END \def void initialize (Grid *factor) { scale.constrain(expect_scale_factor); rb_call_super(argc,argv); scale=new Grid(INT2NUM(2)); if (factor) scale=factor; prepare_scale_factor(); } \classinfo { IEVAL(rself,"install '#scale_by',2,1"); } \end class GridScaleBy // ---------------------------------------------------------------- //{ Dim[A,B,3]<T> -> Dim[C,D,3]<T> } \class GridDownscaleBy < GridObject struct GridDownscaleBy : GridObject { \attr PtrGrid scale; \attr bool smoothly; int scaley; int scalex; PtrGrid temp; \decl void initialize (Grid *factor=0, Symbol option=Qnil); \grin 0 \grin 1 void prepare_scale_factor () { scaley = ((Pt<int32>)*scale)[0]; scalex = ((Pt<int32>)*scale)[scale->dim->prod()==1 ? 0 : 1]; if (scaley<1) scaley=2; if (scalex<1) scalex=2; } }; GRID_INLET(GridDownscaleBy,0) { P<Dim> a = in->dim; if (a->n!=3) RAISE("(height,width,chans) please"); out=new GridOutlet(this,0,new Dim(a->get(0)/scaley,a->get(1)/scalex,a->get(2)),in->nt); in->set_factor(a->get(1)*a->get(2)); // i don't remember why two rows instead of just one. temp=new Grid(new Dim(2,in->dim->get(1)/scalex,in->dim->get(2)),in->nt); } GRID_FLOW { int rowsize = in->dim->prod(1); int rowsize2 = temp->dim->prod(1); Pt<T> buf = (Pt<T>)*temp; //!@#$ maybe should be something else than T ? int xinc = in->dim->get(2)*scalex; int y = in->dex / rowsize; int chans=in->dim->get(2); #define Z(z) buf[p+z]+=data[i+z] if (smoothly) { while (n>0) { if (y%scaley==0) CLEAR(buf,rowsize2); #define LOOP(z) \ for (int i=0,p=0; p<rowsize2; p+=z) \ for (int j=0; j<scalex; j++,i+=z) switch (chans) { case 1: LOOP(1) {Z(0);} break; case 2: LOOP(2) {Z(0);Z(1);} break; case 3: LOOP(3) {Z(0);Z(1);Z(2);} break; case 4: LOOP(4) {Z(0);Z(1);Z(2);Z(3);} break; default:LOOP(chans) {for (int k=0; k<chans; k++) Z(k);} break; } #undef LOOP y++; if (y%scaley==0 && out->dim) { op_div->map(rowsize2,buf,(T)(scalex*scaley)); out->send(rowsize2,buf); CLEAR(buf,rowsize2); } data+=rowsize; n-=rowsize; } #undef Z } else { #define Z(z) buf[p+z]=data[i+z] for (; n>0 && out->dim; data+=rowsize, n-=rowsize,y++) { if (y%scaley!=0) continue; #define LOOP(z) for (int i=0,p=0; p<rowsize2; i+=xinc, p+=z) switch(in->dim->get(2)) { case 1: LOOP(1) {Z(0);} break; case 2: LOOP(2) {Z(0);Z(1);} break; case 3: LOOP(3) {Z(0);Z(1);Z(2);} break; case 4: LOOP(4) {Z(0);Z(1);Z(2);Z(3);} break; default:LOOP(chans) {for (int k=0; k<chans; k++) Z(k);}break; } #undef LOOP out->send(rowsize2,buf); } } #undef Z } GRID_END GRID_INPUT(GridDownscaleBy,1,scale) { prepare_scale_factor(); } GRID_END \def void initialize (Grid *factor, Symbol option) { scale.constrain(expect_scale_factor); rb_call_super(argc,argv); scale=new Grid(INT2NUM(2)); if (factor) scale=factor; prepare_scale_factor(); smoothly = option==SYM(smoothly); } \classinfo { IEVAL(rself,"install '#downscale_by',2,1"); } \end class GridDownscaleBy //**************************************************************** \class GridLayer < GridObject struct GridLayer : GridObject { PtrGrid r; GridLayer() { r.constrain(expect_rgb_picture); } \grin 0 int \grin 1 int }; GRID_INLET(GridLayer,0) { NOTEMPTY(r); SAME_TYPE(in,r); P<Dim> a = in->dim; expect_rgba_picture(a); if (a->get(1)!=r->dim->get(1)) RAISE("same width please"); if (a->get(0)!=r->dim->get(0)) RAISE("same height please"); in->set_factor(a->prod(2)); out=new GridOutlet(this,0,r->dim); } GRID_FLOW { Pt<T> rr = ((Pt<T>)*r) + in->dex*3/4; STACK_ARRAY(T,foo,n*3/4); #define COMPUTE_ALPHA(c,a) \ foo[j+c] = (data[i+c]*data[i+a] + rr[j+c]*(256-data[i+a])) >> 8 for (int i=0,j=0; i<n; i+=4,j+=3) { COMPUTE_ALPHA(0,3); COMPUTE_ALPHA(1,3); COMPUTE_ALPHA(2,3); } #undef COMPUTE_ALPHA out->send(n*3/4,foo); } GRID_END GRID_INPUT(GridLayer,1,r) {} GRID_END \classinfo { IEVAL(rself,"install '#layer',2,1"); } \end class GridLayer // **************************************************************** // pad1,pad2 only are there for 32-byte alignment struct Line { int32 y1,x1,y2,x2,x,m,pad1,pad2; }; static void expect_polygon (P<Dim> d) { if (d->n!=2 || d->get(1)!=2) RAISE("expecting Dim[n,2] polygon"); } \class DrawPolygon < GridObject struct DrawPolygon : GridObject { \attr Numop *op; \attr PtrGrid color; \attr PtrGrid polygon; PtrGrid color2; PtrGrid lines; int lines_start; int lines_stop; DrawPolygon() { color.constrain(expect_max_one_dim); polygon.constrain(expect_polygon); } \decl void initialize (Numop *op, Grid *color=0, Grid *polygon=0); \grin 0 \grin 1 \grin 2 int32 void init_lines(); }; void DrawPolygon::init_lines () { int nl = polygon->dim->get(0); lines=new Grid(new Dim(nl,8), int32_e); Pt<Line> ld = Pt<Line>((Line *)(int32 *)*lines,nl); Pt<int32> pd = *polygon; for (int i=0,j=0; i<nl; i++) { ld[i].y1 = pd[j+0]; ld[i].x1 = pd[j+1]; j=(j+2)%(2*nl); ld[i].y2 = pd[j+0]; ld[i].x2 = pd[j+1]; if (ld[i].y1>ld[i].y2) memswap(Pt<int32>(ld+i)+0,Pt<int32>(ld+i)+2,2); } } static int order_by_starting_scanline (const void *a, const void *b) { return ((Line *)a)->y1 - ((Line *)b)->y1; } static int order_by_column (const void *a, const void *b) { return ((Line *)a)->x - ((Line *)b)->x; } GRID_INLET(DrawPolygon,0) { NOTEMPTY(color); NOTEMPTY(polygon); NOTEMPTY(lines); SAME_TYPE(in,color); if (in->dim->n!=3) RAISE("expecting 3 dimensions"); if (in->dim->get(2)!=color->dim->get(0)) RAISE("image does not have same number of channels as stored color"); out=new GridOutlet(this,0,in->dim,in->nt); lines_start = lines_stop = 0; in->set_factor(in->dim->get(1)*in->dim->get(2)); int nl = polygon->dim->get(0); qsort((int32 *)*lines,nl,sizeof(Line),order_by_starting_scanline); int cn = color->dim->prod(); color2=new Grid(new Dim(cn*16), color->nt); for (int i=0; i<16; i++) COPY((Pt<T>)*color2+cn*i,(Pt<T>)*color,cn); } GRID_FLOW { int nl = polygon->dim->get(0); Pt<Line> ld = Pt<Line>((Line *)(int32 *)*lines,nl); int f = in->factor(); int y = in->dex/f; int cn = color->dim->prod(); Pt<T> cd = (Pt<T>)*color2; while (n) { while (lines_stop != nl && ld[lines_stop].y1<=y) lines_stop++; for (int i=lines_start; i<lines_stop; i++) { if (ld[i].y2<=y) { memswap(ld+i,ld+lines_start,1); lines_start++; } } if (lines_start == lines_stop) { out->send(f,data); } else { int32 xl = in->dim->get(1); Pt<T> data2 = ARRAY_NEW(T,f); COPY(data2,data,f); for (int i=lines_start; i<lines_stop; i++) { Line &l = ld[i]; l.x = l.x1 + (y-l.y1)*(l.x2-l.x1+1)/(l.y2-l.y1+1); } qsort(ld+lines_start,lines_stop-lines_start, sizeof(Line),order_by_column); for (int i=lines_start; i<lines_stop-1; i+=2) { int xs = max(ld[i].x,(int32)0), xe = min(ld[i+1].x,xl); if (xs>=xe) continue; /* !@#$ WHAT? */ while (xe-xs>=16) { op->zip(16*cn,data2+cn*xs,cd); xs+=16; } op->zip((xe-xs)*cn,data2+cn*xs,cd); } out->give(f,data2); } n-=f; data+=f; y++; } } GRID_END GRID_INPUT(DrawPolygon,1,color) {} GRID_END GRID_INPUT(DrawPolygon,2,polygon) {init_lines();} GRID_END \def void initialize (Numop *op, Grid *color, Grid *polygon) { rb_call_super(argc,argv); this->op = op; if (color) this->color=color; if (polygon) { this->polygon=polygon; init_lines(); } } \classinfo { IEVAL(rself,"install '#draw_polygon',3,1"); } \end class DrawPolygon //**************************************************************** static void expect_position(P<Dim> d) { if (d->n!=1) RAISE("position should have 1 dimension, not %d", d->n); if (d->v[0]!=2) RAISE("position dim 0 should have 2 elements, not %d", d->v[0]); } \class DrawImage < GridObject struct DrawImage : GridObject { \attr Numop *op; \attr PtrGrid image; \attr PtrGrid position; \attr bool alpha; \attr bool tile; DrawImage() : alpha(false), tile(false) { position.constrain(expect_position); image.constrain(expect_picture); } \decl void initialize (Numop *op, Grid *image=0, Grid *position=0); \decl void _0_alpha (bool v=true); \decl void _0_tile (bool v=true); \grin 0 \grin 1 \grin 2 int32 // draw row # ry of right image in row buffer buf, starting at xs // overflow on both sides has to be handled automatically by this method template <class T> void draw_segment(Pt<T> obuf, Pt<T> ibuf, int ry, int x0); }; #define COMPUTE_ALPHA(c,a) obuf[j+(c)] = ibuf[j+(c)] + (rbuf[a])*(obuf[j+(c)]-ibuf[j+(c)])/256; #define COMPUTE_ALPHA4(b) \ COMPUTE_ALPHA(b+0,b+3); \ COMPUTE_ALPHA(b+1,b+3); \ COMPUTE_ALPHA(b+2,b+3); \ obuf[b+3] = rbuf[b+3] + (255-rbuf[b+3])*(ibuf[j+b+3])/256; template <class T> void DrawImage::draw_segment(Pt<T> obuf, Pt<T> ibuf, int ry, int x0) { if (ry<0 || ry>=image->dim->get(0)) return; // outside of image int sx = in[0]->dim->get(1), rsx = image->dim->get(1); int sc = in[0]->dim->get(2), rsc = image->dim->get(2); Pt<T> rbuf = (Pt<T>)*image + ry*rsx*rsc; if (x0>sx || x0<=-rsx) return; // outside of buffer int n=rsx; if (x0+n>sx) n=sx-x0; if (x0<0) { rbuf-=rsc*x0; n+=x0; x0=0; } if (alpha && rsc==4 && sc==3) { // RGB by RGBA //!@#$ optimise int j=sc*x0; for (; n; n--, rbuf+=4, j+=3) { op->zip(sc,obuf+j,rbuf); COMPUTE_ALPHA(0,3); COMPUTE_ALPHA(1,3); COMPUTE_ALPHA(2,3); } } else if (alpha && rsc==4 && sc==4) { // RGBA by RGBA op->zip(n*rsc,obuf+x0*rsc,rbuf); int j=sc*x0; for (; n>=4; n-=4, rbuf+=16, j+=16) { COMPUTE_ALPHA4(0);COMPUTE_ALPHA4(4); COMPUTE_ALPHA4(8);COMPUTE_ALPHA4(12); } for (; n; n--, rbuf+=4, j+=4) { COMPUTE_ALPHA4(0); } } else { // RGB by RGB, etc op->zip(n*rsc,obuf+sc*x0,rbuf); } } GRID_INLET(DrawImage,0) { NOTEMPTY(image); NOTEMPTY(position); SAME_TYPE(in,image); if (in->dim->n!=3) RAISE("expecting 3 dimensions"); int lchan = in->dim->get(2); int rchan = image->dim->get(2); if (alpha && rchan!=4) { RAISE("alpha mode works only with 4 channels in right_hand"); } if (lchan != rchan-(alpha?1:0) && lchan != rchan) { RAISE("right_hand has %d channels, alpha=%d, left_hand has %d, expecting %d or %d", rchan, alpha?1:0, lchan, rchan-(alpha?1:0), rchan); } out=new GridOutlet(this,0,in->dim,in->nt); in->set_factor(in->dim->get(1)*in->dim->get(2)); } GRID_FLOW { int f = in->factor(); int y = in->dex/f; if (position->nt != int32_e) RAISE("position has to be int32"); int py = ((int32*)*position)[0], rsy = image->dim->v[0], sy=in->dim->get(0); int px = ((int32*)*position)[1], rsx = image->dim->v[1], sx=in->dim->get(1); for (; n; y++, n-=f, data+=f) { int ty = div2(y-py,rsy); if (tile || ty==0) { Pt<T> data2 = ARRAY_NEW(T,f); COPY(data2,data,f); if (tile) { for (int x=px-div2(px+rsx-1,rsx)*rsx; x<sx; x+=rsx) { draw_segment(data2,data,mod(y-py,rsy),x); } } else { draw_segment(data2,data,y-py,px); } out->give(f,data2); } else { out->send(f,data); } } } GRID_END GRID_INPUT(DrawImage,1,image) {} GRID_END GRID_INPUT(DrawImage,2,position) {} GRID_END \def void _0_alpha (bool v=true) { alpha = v; gfpost("ALPHA=%d",v); } \def void _0_tile (bool v=true) { tile = v; } \def void initialize (Numop *op, Grid *image, Grid *position) { rb_call_super(argc,argv); this->op = op; if (image) this->image=image; if (position) this->position=position; else this->position=new Grid(new Dim(2),int32_e,true); } \classinfo { IEVAL(rself,"install '#draw_image',3,1"); } \end class DrawImage void startup_flow_objects_for_image () { \startall } --- NEW FILE: number.c --- /* $Id: number.c,v 1.1 2005/10/04 02:02:13 matju Exp $ GridFlow Copyright (c) 2001,2002,2003,2004 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include "grid.h.fcs" #include <math.h> #include <stdlib.h> #include <stdio.h> #include <limits.h> #ifdef PASS1 NumberType number_type_table[] = { #define FOO(_sym_,_size_,_flags_,args...) NumberType( #_sym_, _size_, _flags_, args ), NUMBER_TYPES(FOO) #undef FOO }; const long number_type_table_n = COUNT(number_type_table); #endif // those are bogus class-templates in the sense that you don't create // objects from those, you just call static functions. The same kind // of pattern is present in STL to overcome some limitations of C++. template <class T> class Op { public: // I call abort() on those because I can't say they're purevirtual. static T f(T a, T b) {abort();} static bool is_neutral(T x, LeftRight side) {assert(!"Op::is_neutral called?");} static bool is_absorbent(T x, LeftRight side) {assert(!"Op::is_absorbent called?");} }; template <class O> class OpLoops { public: template <class T> static void op_map (int n, T *as, T b) { if (!n) return; #define FOO(I) as[I]=O::f(as[I],b); UNROLL_8(FOO,n,as) #undef FOO } template <class T> static void op_zip (int n, T *as, T *bs) { if (!n) return; int ba=bs-as; // really! #define FOO(I) as[I]=O::f(as[I],as[ba+I]); UNROLL_8(FOO,n,as) #undef FOO } // disabled template <class T> static void op_zip2 (int n, T *as, T *bs, T *cs) { if (!n) return; int ba=bs-as, ca=cs-as; #define FOO(I) as[ca+I]=O::f(as[I],as[ba+I]); UNROLL_8(FOO,n,as) #undef FOO } #define W(i) as[i]=O::f(as[i],bs[i]); #define Z(i,j) as[i]=O::f(O::f(O::f(O::f(as[i],bs[i]),bs[i+j]),bs[i+j+j]),bs[i+j+j+j]); template <class T> static void op_fold (int an, int n, T *as, T *bs) { switch (an) { case 1: for (; (n&3)!=0; bs++, n--) W(0); for (; n; bs+=4, n-=4) { Z(0,1); } break; case 2: for (; (n&3)!=0; bs+=2, n--) { W(0); W(1); } for (; n; bs+=8, n-=4) { Z(0,2); Z(1,2); } break; case 3: for (; (n&3)!=0; bs+=3, n--) { W(0); W(1); W(2); } for (; n; bs+=12, n-=4) { Z(0,3); Z(1,3); Z(2,3); } break; case 4: for (; (n&3)!=0; bs+=4, n--) { W(0); W(1); W(2); W(3); } for (; n; bs+=16, n-=4) { Z(0,4); Z(1,4); Z(2,4); Z(3,4); } break; default:for (; n--; ) { int i=0; for (; i<(an&-4); i+=4, bs+=4) { as[i+0]=O::f(as[i+0],bs[0]); as[i+1]=O::f(as[i+1],bs[1]); as[i+2]=O::f(as[i+2],bs[2]); as[i+3]=O::f(as[i+3],bs[3]); } for (; i<an; i++, bs++) as[i] = O::f(as[i],*bs); } } } template <class T> static void op_scan (int an, int n, T *as, T *bs) { for (; n--; as=bs-an) { for (int i=0; i<an; i++, as++, bs++) *bs=O::f(*as,*bs); } } }; template <class T> static void quick_mod_map (int n, T *as, T b) { if (!b) return; #define FOO(I) as[I]=mod(as[I],b); UNROLL_8(FOO,n,as) #undef FOO } template <class T> static void quick_ign_map (int n, T *as, T b) {} template <class T> static void quick_ign_zip (int n, T *as, T *bs) {} template <class T> static void quick_put_map (int n, T *as, T b) { #define FOO(I) as[I]=b; UNROLL_8(FOO,n,as) #undef FOO } #ifdef PASS1 void quick_put_map (int n, int16 *as, int16 b) { if (n&1!=0 && (long)as&4!=0) { *as++=b; n--; } quick_put_map (n>>1, (int32 *)as, (int32)(b<<16)+b); if (n&1!=0) *as++=b; } void quick_put_map (int n, uint8 *as, uint8 b) { while (n&3!=0 && (long)as&4!=0) { *as++=b; n--; } int32 c=(b<<8)+b; c+=c<<16; quick_put_map (n>>2, (int32 *)as, c); while (n&3!=0) *as++=b; } #endif template <class T> static void quick_put_zip (int n, T *as, T *bs) { gfmemcopy((uint8 *)as, (uint8 *)bs, n*sizeof(T)); } // classic two-input operator #define DEF_OP(op,expr,neutral,absorbent) \ template <class T> class Y##op : Op<T> { public: \ inline static T f(T a, T b) { return expr; } \ inline static bool is_neutral (T x, LeftRight side) { return neutral; } \ inline static bool is_absorbent(T x, LeftRight side) { return absorbent; } }; #define DEF_OPFT(op,expr,neutral,absorbent,T) \ template <> class Y##op<T> : Op<T> { public: \ inline static T f(T a, T b) { return expr; } \ inline static bool is_neutral (T x, LeftRight side) { return neutral; } \ inline static bool is_absorbent(T x, LeftRight side) { return absorbent; } }; \ // this macro is for operators that have different code for the float version #define DEF_OPF(op,expr,expr2,neutral,absorbent) \ DEF_OP( op,expr, neutral,absorbent) \ DEF_OPFT(op,expr2,neutral,absorbent,float32) \ DEF_OPFT(op,expr2,neutral,absorbent,float64) #define DECL_OPON(base,op,T) NumopOn<T>( \ &base<Y##op<T> >::op_map, &base<Y##op<T> >::op_zip, \ &base<Y##op<T> >::op_fold, &base<Y##op<T> >::op_scan, \ &Y##op<T>::is_neutral, &Y##op<T>::is_absorbent) #define DECL_OPON_NOFOLD(base,op,T) NumopOn<T>( \ &base<Y##op<T> >::op_map, &base<Y##op<T> >::op_zip, 0,0, \ &Y##op<T>::is_neutral, &Y##op<T>::is_absorbent) #define DECL_OP(op,sym,flags) Numop(0, sym, \ DECL_OPON(OpLoops,op,uint8), DECL_OPON(OpLoops,op,int16), \ DECL_OPON(OpLoops,op,int32) NONLITE(, DECL_OPON(OpLoops,op,int64), \ DECL_OPON(OpLoops,op,float32), DECL_OPON(OpLoops,op,float64)), flags) #define DECL_OP_NOFLOAT(op,sym,flags) Numop(0, sym, \ DECL_OPON(OpLoops,op,uint8), DECL_OPON(OpLoops,op,int16), \ DECL_OPON(OpLoops,op,int32) NONLITE(, DECL_OPON(OpLoops,op,int64), \ NumopOn<float32>(0,0,0,0,0,0), NumopOn<float64>(0,0,0,0,0,0)), flags) #define DECL_OP_NOFOLD(op,sym,flags) Numop(0, sym, \ DECL_OPON_NOFOLD(OpLoops,op,uint8), DECL_OPON_NOFOLD(OpLoops,op,int16), \ DECL_OPON_NOFOLD(OpLoops,op,int32) NONLITE(, DECL_OPON_NOFOLD(OpLoops,op,int64), \ DECL_OPON_NOFOLD(OpLoops,op,float32), DECL_OPON_NOFOLD(OpLoops,op,float64)), flags) template <class T> static inline T gf_floor (T a) { return (T) floor((double)a); } template <class T> static inline T gf_trunc (T a) { return (T) floor(abs((double)a)) * (a<0?-1:1); } /* uint8 clipadd(uint8 a, uint8 b) { int32 c=a+b; return c<0?0:c>255?255:c; } int16 clipadd(int16 a, int16 b) { int32 c=a+b; return c<-0x8000?-0x8000:c>0x7fff?0x7fff:c; } int32 clipadd(int32 a, int32 b) { int64 c=a+b; return c<-0x80000000?-0x80000000:c>0x7fffffff?0x7fffffff:c; } int64 clipadd(int64 a, int64 b) { int64 c=(a>>1)+(b>>1)+(a&b&1); return c<(nt_smallest(0LL)/2?nt_smallest(0LL):c>nt_greatest(0LL)/2?nt_greatest(0LL):a+b; } uint8 clipsub(uint8 a, uint8 b) { int32 c=a-b; return c<0?0:c>255?255:c; } int16 clipsub(int16 a, int16 b) { int32 c=a-b; return c<-0x8000?-0x8000:c>0x7fff?0x7fff:c; } int32 clipsub(int32 a, int32 b) { int64 c=a-b; return c<-0x80000000?-0x80000000:c>0x7fffffff?0x7fffffff:c; } int64 clipsub(int64 a, int64 b) { int64 c=(a>>1)-(b>>1); //??? return c<(nt_smallest(0LL)/2?nt_smallest(0LL):c>nt_greatest(0LL)/2?nt_greatest(0LL):a-b; } */ #ifdef PASS1 DEF_OP(ignore, a, side==at_right, side==at_left) DEF_OP(put, b, side==at_left, side==at_right) DEF_OP(add, a+b, x==0, false) DEF_OP(sub, a-b, side==at_right && x==0, false) DEF_OP(bus, b-a, side==at_left && x==0, false) DEF_OP(mul, a*b, x==1, x==0) DEF_OP(mulshr8, ((int32)a*(int32)b)>>8, (int64)x==256, x==0) //!@#$ bug with int64 DEF_OP(div, b==0 ? 0 : a/b, side==at_right && x==1, false) DEF_OP(div2, b==0 ? 0 : div2(a,b), side==at_right && x==1, false) DEF_OP(vid, a==0 ? 0 : b/a, side==at_left && x==1, false) DEF_OP(vid2, a==0 ? 0 : div2(b,a), side==at_left && x==1, false) DEF_OPF(mod, b==0 ? 0 : mod(a,b), b==0 ? 0 : a-b*gf_floor(a/b), false, side==at_left && x==0 || side==at_right && x==1) DEF_OPF(dom, a==0 ? 0 : mod(b,a), a==0 ? 0 : b-a*gf_floor(b/a), false, side==at_left && x==0 || side==at_right && x==1) //DEF_OPF(rem, b==0 ? 0 : a%b, b==0 ? 0 : a-b*gf_trunc(a/b)) //DEF_OPF(mer, a==0 ? 0 : b%a, a==0 ? 0 : b-a*gf_trunc(b/a)) DEF_OP(rem, b==0?0:a%b, false, side==at_left&&x==0 || side==at_right&&x==1) DEF_OP(mer, a==0?0:b%a, false, side==at_left&&x==0 || side==at_right&&x==1) #endif #ifdef PASS2 DEF_OP(gcd, gcd(a,b), x==0, x==1) DEF_OP(gcd2, gcd2(a,b), x==0, x==1) // should test those and pick one of the two DEF_OP(lcm, a==0 || b==0 ? 0 : lcm(a,b), x==1, x==0) DEF_OPF(or , a|b, (float32)((int32)a | (int32)b), x==0, x==nt_all_ones(&x)) DEF_OPF(xor, a^b, (float32)((int32)a ^ (int32)b), x==0, false) DEF_OPF(and, a&b, (float32)((int32)a & (int32)b), x==nt_all_ones(&x), x==0) DEF_OPF(shl, a<<b, a*pow(2.0,+b), side==at_right && x==0, false) DEF_OPF(shr, a>>b, a*pow(2.0,-b), side==at_right && x==0, false) DEF_OP(sc_and, a ? b : a, side==at_left && x!=0, side==at_left && x==0) DEF_OP(sc_or, a ? a : b, side==at_left && x==0, side==at_left && x!=0) DEF_OP(min, min(a,b), x==nt_greatest(&x), x==nt_smallest(&x)) DEF_OP(max, max(a,b), x==nt_smallest(&x), x==nt_greatest(&x)) #endif #ifdef PASS3 DEF_OP(cmp, cmp(a,b), false, false) DEF_OP(eq, a == b, false, false) DEF_OP(ne, a != b, false, false) DEF_OP(gt, a > b, false, side==at_left&&x==nt_smallest(&x)||side==at_right&&x==nt_greatest(&x)) DEF_OP(le, a <= b, false, side==at_left&&x==nt_smallest(&x)||side==at_right&&x==nt_greatest(&x)) DEF_OP(lt, a < b, false, side==at_left&&x==nt_greatest(&x)||side==at_right&&x==nt_smallest(&x)) DEF_OP(ge, a >= b, false, side==at_left&&x==nt_greatest(&x)||side==at_right&&x==nt_smallest(&x)) DEF_OP(sin, (T)(b * sin(a * (M_PI / 18000))), false, false) // "LN=9000+36000n RA=0 LA=..." DEF_OP(cos, (T)(b * cos(a * (M_PI / 18000))), false, false) // "LN=36000n RA=0 LA=..." DEF_OP(atan, (T)(atan2(a,b) * (18000 / M_PI)), false, false) // "LA=0" DEF_OP(tanh, (T)(b * tanh(a * (M_PI / 18000))), false, x==0) DEF_OP(gamma, b<=0 ? 0 : (T)(0+floor(pow(a/256.0,256.0/b)*256.0)), false, false) // "RN=256" DEF_OP(pow, ipow(a,b), false, false) // "RN=1" DEF_OP(log, (T)(a==0 ? 0 : b * log(gf_abs(a))), false, false) // "RA=0" // 0.7.8 //DEF_OPF(clipadd, clipadd(a,b), a+b, x==0, false) //DEF_OPF(clipsub, clipsub(a,b), a-b, side==at_right && x==0, false) DEF_OP(abssub, gf_abs(a-b), false, false) DEF_OP(sqsub, (a-b)*(a-b), false, false) DEF_OP(avg, (a+b)/2, false, false) DEF_OP(hypot, (T)(0+floor(sqrt(a*a+b*b))), false, false) DEF_OP(sqrt, (T)(0+floor(sqrt(a))), false, false) DEF_OP(rand, a==0 ? 0 : random()%(int32)a, false, false) //DEF_OP(erf,"erf*", 0) #endif extern Numop op_table1[], op_table2[], op_table3[]; extern const long op_table1_n, op_table2_n, op_table3_n; #ifdef PASS1 Numop op_table1[] = { DECL_OP(ignore, "ignore", OP_ASSOC), DECL_OP(put, "put", OP_ASSOC), DECL_OP(add, "+", OP_ASSOC|OP_COMM), // "LINV=sub" DECL_OP(sub, "-", 0), DECL_OP(bus, "inv+", 0), DECL_OP(mul, "*", OP_ASSOC|OP_COMM), DECL_OP_NOFLOAT(mulshr8, "*>>8", OP_ASSOC|OP_COMM), DECL_OP(div, "/", 0), DECL_OP_NOFLOAT(div2, "div", 0), DECL_OP(vid, "inv*", 0), DECL_OP_NOFLOAT(vid2, "swapdiv", 0), DECL_OP_NOFLOAT(mod, "%", 0), DECL_OP_NOFLOAT(dom, "swap%", 0), DECL_OP_NOFLOAT(rem, "rem", 0), DECL_OP_NOFLOAT(mer, "swaprem", 0), }; const long op_table1_n = COUNT(op_table1); #endif #ifdef PASS2 Numop op_table2[] = { DECL_OP_NOFLOAT(gcd, "gcd", OP_ASSOC|OP_COMM), DECL_OP_NOFLOAT(gcd2, "gcd2", OP_ASSOC|OP_COMM), DECL_OP_NOFLOAT(lcm, "lcm", OP_ASSOC|OP_COMM), DECL_OP(or , "|", OP_ASSOC|OP_COMM), DECL_OP(xor, "^", OP_ASSOC|OP_COMM), DECL_OP(and, "&", OP_ASSOC|OP_COMM), DECL_OP_NOFOLD(shl, "<<", 0), DECL_OP_NOFOLD(shr, ">>", 0), DECL_OP_NOFOLD(sc_and,"&&", 0), DECL_OP_NOFOLD(sc_or, "||", 0), DECL_OP(min, "min", OP_ASSOC|OP_COMM), DECL_OP(max, "max", OP_ASSOC|OP_COMM), }; const long op_table2_n = COUNT(op_table2); #endif #ifdef PASS3 Numop op_table3[] = { DECL_OP_NOFOLD(eq, "==", OP_COMM), DECL_OP_NOFOLD(ne, "!=", OP_COMM), DECL_OP_NOFOLD(gt, ">", 0), DECL_OP_NOFOLD(le, "<=", 0), DECL_OP_NOFOLD(lt, "<", 0), DECL_OP_NOFOLD(ge, ">=", 0), DECL_OP_NOFOLD(cmp, "cmp", 0), DECL_OP_NOFOLD(sin, "sin*", 0), DECL_OP_NOFOLD(cos, "cos*", 0), DECL_OP_NOFOLD(atan, "atan", 0), DECL_OP_NOFOLD(tanh, "tanh*", 0), DECL_OP_NOFOLD(gamma, "gamma", 0), DECL_OP_NOFOLD(pow, "**", 0), DECL_OP_NOFOLD(log, "log*", 0), // 0.7.8 // DECL_OP(clipadd,"clip+", OP_ASSOC|OP_COMM), // DECL_OP(clipsub,"clip-", 0), DECL_OP_NOFOLD(abssub,"abs-", OP_COMM), DECL_OP_NOFOLD(sqsub,"sq-", OP_COMM), DECL_OP_NOFOLD(avg,"avg", OP_COMM), DECL_OP_NOFOLD(hypot,"hypot", OP_COMM), DECL_OP_NOFOLD(sqrt,"sqrt", 0), DECL_OP_NOFOLD(rand,"rand", 0), //DECL_OP_NOFOLD(erf,"erf*", 0), }; const long op_table3_n = COUNT(op_table3); #endif // D=dictionary, A=table, A##_n=table count. #define INIT_TABLE(D,A) { D=IEVAL(mGridFlow,"@"#D" ||= {}"); \ for(int i=0; i<A##_n; i++) { \ A[i].sym = ID2SYM(rb_intern(A[i].name)); \ rb_hash_aset(D,A[i].sym,PTR2FIX((A+i)));}} #ifdef PASS1 Ruby op_dict = Qnil; Ruby number_type_dict = Qnil; void startup_number () { INIT_TABLE(op_dict,op_table1) INIT_TABLE(op_dict,op_table2) INIT_TABLE(op_dict,op_table3) INIT_TABLE(number_type_dict,number_type_table) for (int i=0; i<COUNT(number_type_table); i++) { number_type_table[i].index = (NumberTypeE) i; char a[64]; strcpy(a,number_type_table[i].aliases); char *b = strchr(a,','); if (b) { *b=0; rb_hash_aset(number_type_dict, ID2SYM(rb_intern(b+1)), PTR2FIX(&number_type_table[i])); } rb_hash_aset(number_type_dict, ID2SYM(rb_intern(a)), PTR2FIX(&number_type_table[i])); } // S:name; M:mode; F:replacement function; #define OVERRIDE_INT(S,M,F) { \ Numop *foo = FIX2PTR(Numop,rb_hash_aref(op_dict,SYM(S))); \ foo->on_uint8.op_##M=F; \ foo->on_int16.op_##M=F; \ foo->on_int32.op_##M=F; } OVERRIDE_INT(ignore,map,quick_ign_map); OVERRIDE_INT(ignore,zip,quick_ign_zip); //OVERRIDE_INT(put,map,quick_put_map); //OVERRIDE_INT(put,zip,quick_put_zip); //OVERRIDE_INT(%,map,quick_mod_map); // !@#$ does that make an improvement at all? } #endif --- NEW FILE: flow_objects.rb --- =begin $Id: flow_objects.rb,v 1.1 2005/10/04 02:02:13 matju Exp $ GridFlow Copyright (c) 2001,2002,2003,2004 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License [...1437 lines suppressed...] def _0_float i; @i=i; send_out 0, *@a[@i]; end def _1_list(*l) @a[@i]=l; end def _0_save(filename,format=nil) f=File.open(filename.to_s,"w") if format then @a.each {|x| f.puts(format.to_s%x) } else @a.each {|x| f.puts(x.join(",")) } end f.close end def _0_load(filename) f=File.open(filename.to_s,"r") @a.clear f.each {|x| @a.push x.split(",").map {|y| Float(y) rescue y.intern }} f.close end } end # module GridFlow --- NEW FILE: test.rb --- # $Id: test.rb,v 1.1 2005/10/04 02:02:13 matju Exp $ $:.delete_if {|x| x=='.' } require "gridflow" include GridFlow GridFlow.verbose=true $imdir = "./images" $animdir = "/opt/mex" srand Time.new.to_i $port = 4200+rand(100) def pressakey; puts "press return to continue."; readline; end class Expect < FObject def praise(*a) #raise(*a) puts a [...1047 lines suppressed...] #test_anim "open file #{$imdir}/g001.jpg"#,"loop 0" #test_anim "open ppm file #{$animdir}/b.ppm.cat" #test_anim "open jpeg file #{$imdir}/rgb.jpeg.cat" #test_anim "open quicktime file BLAH" #test_anim "open quicktime file #{$imdir}/rgb_uncompressed.mov" #test_anim "open quicktime file #{$imdir}/test_mjpega.mov" #test_anim "open ppm gzfile motion_tracking.ppm.cat.gz" #test_anim "open videodev /dev/video","channel 1","size 480 640" #test_anim "open videodev /dev/video1 noinit","transfer read" #test_anim "open videodev /dev/video","channel 1","size 120 160" #test_anim "open mpeg file /home/matju/net/Animations/washington_zoom_in.mpeg" #test_anim "open quicktime file /home/matju/Shauna/part_1.mov" #test_anim "open quicktime file #{$imdir}/gt.mov" #test_anim "open quicktime file /home/matju/pics/domopers_hi.mov" #test_anim "open quicktime file /home/matju/net/c.mov" #test_formats #test_tcp #test_sound #test_metro #$mainloop.loop --- NEW FILE: flow_objects.c --- /* $Id: flow_objects.c,v 1.1 2005/10/04 02:02:13 matju Exp $ GridFlow Copyright (c) 2001,2002,2003,2004 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License [...1150 lines suppressed...] } } GRID_END \def void initialize (int32 z) {rb_call_super(argc,argv); this->z=z; } \classinfo { IEVAL(rself,"install '#perspective',1,1"); } \end class GridPerspective static Numop *OP(Ruby x) { return FIX2PTR(Numop,rb_hash_aref(op_dict,x)); } void startup_flow_objects () { op_add = OP(SYM(+)); op_sub = OP(SYM(-)); op_mul = OP(SYM(*)); op_shl = OP(SYM(<<)); op_mod = OP(SYM(%)); op_and = OP(SYM(&)); op_div = OP(SYM(/)); op_put = OP(SYM(put)); \startall } --- NEW FILE: bitpacking.c --- /* $Id: bitpacking.c,v 1.1 2005/10/04 02:02:13 matju Exp $ GridFlow Copyright (c) 2001,2002,2003,2004 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include "grid.h.fcs" #include <math.h> #include <stdlib.h> #include <stdio.h> #define CONVERT1 t = \ (((in[0] << hb[0]) >> 7) & mask[0]) | \ (((in[1] << hb[1]) >> 7) & mask[1]) | \ (((in[2] << hb[2]) >> 7) & mask[2]) #define CONVERT2 \ for (t=0,i=0; i<self->size; i++) t |= (((in[i] << hb[i]) >> 7) & mask[i]); #define CONVERT3 \ for (t=0,i=0; i<self->size; i++) { \ t |= ((in[i]>>(7-hb[i]))|(in[i]<<(hb[i]-7))) & mask[i]; \ } #define WRITE_LE \ for (int bytes = self->bytes; bytes; bytes--, t>>=8) *out++ = t; #define WRITE_BE { int bytes; \ bytes = self->bytes; \ while (bytes--) { out[bytes] = t; t>>=8; }\ out += self->bytes; } /* this macro would be faster if the _increment_ was done only once every loop. or maybe gcc does it, i dunno */ #define NTIMES(_x_) \ for (; n>=4; n-=4) { _x_ _x_ _x_ _x_ } \ for (; n; n--) { _x_ } /* this could be faster (use asm) */ void swap32 (int n, Pt<uint32> data) { NTIMES({ uint32 x = *data; x = (x<<16) | (x>>16); x = ((x&0xff00ff)<<8) | ((x>>8)&0xff00ff); *data++ = x; }) } /* this could be faster (use asm or do it in int32 chunks) */ void swap16 (int n, Pt<uint16> data) { NTIMES({ uint16 x = *data; *data++ = (x<<8) | (x>>8); }) } /* **************************************************************** */ template <class T> static void default_pack(BitPacking *self, int n, Pt<T> in, Pt<uint8> out) { uint32 t; int i; int hb[4]; uint32 mask[4]; int sameorder = self->endian==2 || self->endian==::is_le(); int size = self->size; for (i=0; i<self->size; i++) hb[i] = highest_bit(self->mask[i]); memcpy(mask,self->mask,size*sizeof(uint32)); if (sameorder && size==3) { switch(self->bytes) { case 2: NTIMES(t=CONVERT1; *((int16 *)out)=t; out+=2; in+=3;) return; case 4: NTIMES(t=CONVERT1; *((int32 *)out)=t; out+=4; in+=3;) return; } } if (self->is_le()) { switch (size) { case 3: for (; n--; in+=3) {CONVERT1; WRITE_LE;} break; case 4: for (; n--; in+=4) {CONVERT3; WRITE_LE;} break; default:for (; n--; in+=size) {CONVERT2; WRITE_LE;}} } else { switch (size) { case 3: for (; n--; in+=3) {CONVERT1; WRITE_BE;} break; case 4: for (; n--; in+=4) {CONVERT3; WRITE_BE;} break; default:for (; n--; in+=size) {CONVERT2; WRITE_BE;}} } } #define LOOP_UNPACK(_reader_) \ for (; n; n--) { \ int bytes=0; uint32 temp=0; _reader_; \ for (int i=0; i<self->size; i++, out++) { \ uint32 t=temp&self->mask[i]; \ *out = (t<<(7-hb[i]))|(t>>(hb[i]-7)); \ } \ } // *out++ = ((temp & self->mask[i]) << 7) >> hb[i]; template <class T> static void default_unpack(BitPacking *self, int n, Pt<uint8> in, Pt<T> out) { int hb[4]; for (int i=0; i<self->size; i++) hb[i] = highest_bit(self->mask[i]); if (is_le()) { // smallest byte first LOOP_UNPACK( for(; self->bytes>bytes; bytes++, in++) temp |= *in<<(8*bytes); ) } else { // biggest byte first LOOP_UNPACK( bytes=self->bytes; for (; bytes; bytes--, in++) temp=(temp<<8)|*in; ) } } /* **************************************************************** */ template <class T> static void pack2_565(BitPacking *self, int n, Pt<T> in, Pt<uint8> out) { const int hb[3] = {15,10,4}; const uint32 mask[3] = {0x0000f800,0x000007e0,0x0000001f}; uint32 t; NTIMES( t=CONVERT1; *((short *)out)=t; out+=2; in+=3; ) } template <class T> static void pack3_888(BitPacking *self, int n, Pt<T> in, Pt<uint8> out) { Pt<int32> o32 = (Pt<int32>)out; while (n>=4) { o32[0] = (in[5]<<24) | (in[ 0]<<16) | (in[ 1]<<8) | in[2]; o32[1] = (in[7]<<24) | (in[ 8]<<16) | (in[ 3]<<8) | in[4]; o32[2] = (in[9]<<24) | (in[10]<<16) | (in[11]<<8) | in[6]; o32+=3; in+=12; n-=4; } out = (Pt<uint8>)o32; NTIMES( out[2]=in[0]; out[1]=in[1]; out[0]=in[2]; out+=3; in+=3; ) } /* template <> static void pack3_888(BitPacking *self, int n, Pt<uint8> in, Pt<uint8> out) { Pt<uint32> o32 = Pt<uint32>((uint32 *)out.p,n*3/4); Pt<uint32> i32 = Pt<uint32>((uint32 *)in.p,n*3/4); while (n>=4) { #define Z(w,i) ((word##w>>(i*8))&255) uint32 word0 = i32[0]; uint32 word1 = i32[1]; uint32 word2 = i32[2]; o32[0] = (Z(1,1)<<24) | (Z(0,0)<<16) | (Z(0,1)<<8) | Z(0,2); o32[1] = (Z(1,3)<<24) | (Z(2,0)<<16) | (Z(0,3)<<8) | Z(1,0); o32[2] = (Z(2,1)<<24) | (Z(2,2)<<16) | (Z(2,3)<<8) | Z(1,2); o32+=3; i32+=3; n-=4; } #undef Z out = (Pt<uint8>)o32; in = (Pt<uint8>)i32; NTIMES( out[2]=in[0]; out[1]=in[1]; out[0]=in[2]; out+=3; in+=3; ) } */ template <class T> static void pack3_888b(BitPacking *self, int n, Pt<T> in, Pt<uint8> out) { Pt<int32> o32 = (Pt<int32>)out; while (n>=4) { o32[0] = (in[0]<<16) | (in[1]<<8) | in[2]; o32[1] = (in[3]<<16) | (in[4]<<8) | in[5]; o32[2] = (in[6]<<16) | (in[7]<<8) | in[8]; o32[3] = (in[9]<<16) | (in[10]<<8) | in[11]; o32+=4; in+=12; n-=4; } NTIMES( o32[0] = (in[0]<<16) | (in[1]<<8) | in[2]; o32++; in+=3; ) } /* (R,G,B,?) -> B:8,G:8,R:8,0:8 */ template <class T> static void pack3_bgrn8888(BitPacking *self, int n, Pt<T> in, Pt<uint8> out) { /* NTIMES( out[2]=in[0]; out[1]=in[1]; out[0]=in[2]; out+=4; in+=4; ) */ Pt<int32> i32 = (Pt<int32>)in; Pt<int32> o32 = (Pt<int32>)out; while (n>=4) { o32[0] = ((i32[0]&0xff)<<16) | (i32[0]&0xff00) | ((i32[0]>>16)&0xff); o32[1] = ((i32[1]&0xff)<<16) | (i32[1]&0xff00) | ((i32[1]>>16)&0xff); o32[2] = ((i32[2]&0xff)<<16) | (i32[2]&0xff00) | ((i32[2]>>16)&0xff); o32[3] = ((i32[3]&0xff)<<16) | (i32[3]&0xff00) | ((i32[3]>>16)&0xff); o32+=4; i32+=4; n-=4; } NTIMES( o32[0] = ((i32[0]&0xff)<<16) | (i32[0]&0xff00) | ((i32[0]>>16)&0xff); o32++; i32++; ) } static uint32 bp_masks[][4] = { {0x0000f800,0x000007e0,0x0000001f,0}, {0x00ff0000,0x0000ff00,0x000000ff,0}, }; static Packer bp_packers[] = { {default_pack, default_pack, default_pack}, {pack2_565, pack2_565, pack2_565}, {pack3_888, pack3_888, pack3_888}, {pack3_888b, default_pack, default_pack}, {pack3_bgrn8888, default_pack, default_pack}, }; static Unpacker bp_unpackers[] = { {default_unpack, default_unpack, default_unpack}, }; static BitPacking builtin_bitpackers[] = { BitPacking(2, 2, 3, bp_masks[0], &bp_packers[1], &bp_unpackers[0]), BitPacking(1, 3, 3, bp_masks[1], &bp_packers[2], &bp_unpackers[0]), BitPacking(1, 4, 3, bp_masks[1], &bp_packers[3], &bp_unpackers[0]), BitPacking(1, 4, 4, bp_masks[1], &bp_packers[4], &bp_unpackers[0]), }; /* **************************************************************** */ bool BitPacking::eq(BitPacking *o) { if (!(bytes == o->bytes)) return false; if (!(size == o->size)) return false; for (int i=0; i<size; i++) { if (!(mask[i] == o->mask[i])) return false; } if (endian==o->endian) return true; /* same==little on a little-endian; same==big on a big-endian */ return (endian ^ o->endian ^ ::is_le()) == 2; } BitPacking::BitPacking(int endian, int bytes, int size, uint32 *mask, Packer *packer, Unpacker *unpacker) { this->endian = endian; this->bytes = bytes; this->size = size; for (int i=0; i<size; i++) this->mask[i] = mask[i]; if (packer) { this->packer = packer; this->unpacker = unpacker; return; } int packeri=-1; this->packer = &bp_packers[0]; this->unpacker = &bp_unpackers[0]; for (int i=0; i<(int)(sizeof(builtin_bitpackers)/sizeof(BitPacking)); i++) { BitPacking *bp = &builtin_bitpackers[i]; if (this->eq(bp)) { this->packer = bp->packer; this->unpacker = bp->unpacker; packeri=i; goto end; } } end:; /* ::gfpost("Bitpacking: endian=%d bytes=%d size=%d packeri=%d", endian, bytes, size, packeri); ::gfpost(" packer=0x%08x unpacker=0x%08x",this->packer,this->unpacker); ::gfpost(" mask=[0x%08x,0x%08x,0x%08x,0x%08x]",mask[0],mask[1],mask[2],mask[3]); */ } bool BitPacking::is_le() { return endian==1 || (endian ^ ::is_le())==3; } template <class T> void BitPacking::pack(int n, Pt<T> in, Pt<uint8> out) { switch (NumberTypeE_type_of(*in)) { case uint8_e: packer->as_uint8(this,n,(Pt<uint8>)in,out); break; case int16_e: packer->as_int16(this,n,(Pt<int16>)in,out); break; case int32_e: packer->as_int32(this,n,(Pt<int32>)in,out); break; default: RAISE("argh"); } } template <class T> void BitPacking::unpack(int n, Pt<uint8> in, Pt<T> out) { switch (NumberTypeE_type_of(*out)) { case uint8_e: unpacker->as_uint8(this,n,in,(Pt<uint8>)out); break; case int16_e: unpacker->as_int16(this,n,in,(Pt<int16>)out); break; case int32_e: unpacker->as_int32(this,n,in,(Pt<int32>)out); break; default: RAISE("argh"); } } // i'm sorry... see the end of grid.c for an explanation... //static void make_hocus_pocus () { // exit(1); #define FOO(S) \ ((BitPacking*)0)->pack(0,Pt<S>(),Pt<uint8>()); \ ((BitPacking*)0)->unpack(0,Pt<uint8>(),Pt<S>()); EACH_NUMBER_TYPE(FOO) #undef FOO } --- NEW FILE: grid.h --- /* $Id: grid.h,v 1.1 2005/10/04 02:02:13 matju Exp $ GridFlow Copyright (c) 2001,2002,2003,2004 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License [...1070 lines suppressed...] GFStackFrame s[GF_STACK_MAX]; int n; GFStack() { n = 0; } void push (FObject *o) __attribute__((noinline)); void pop () __attribute__((noinline)); }; extern GFStack gf_stack; struct GFStackMarker { int n; bool flag; GFStackMarker(FObject *o) { n = gf_stack.n; gf_stack.push(o); flag=true; } ~GFStackMarker() { while (gf_stack.n != n) gf_stack.pop(); } bool once () { if (flag) { flag=false; return true; } else return false; } }; typedef GridObject Format; #endif // __GF_GRID_H --- NEW FILE: main.c --- /* $Id: main.c,v 1.1 2005/10/04 02:02:13 matju Exp $ GridFlow Copyright (c) 2001,2002,2003,2004 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include <stdlib.h> #include <sys/stat.h> #include <sys/time.h> #include <time.h> #include <stdarg.h> #include <string.h> #include <signal.h> #include <stdio.h> #include <fcntl.h> #include <unistd.h> #include <stdarg.h> #include "grid.h.fcs" #include "../config.h" #include <assert.h> #include <limits.h> BuiltinSymbols bsym; GFStack gf_stack; Ruby mGridFlow; Ruby cFObject; extern "C"{ void rb_raise0( const char *file, int line, const char *func, VALUE exc, const char *fmt, ...) { va_list args; char buf[BUFSIZ]; va_start(args,fmt); vsnprintf(buf, BUFSIZ, fmt, args); buf[BUFSIZ-1]=0; va_end(args); VALUE e = rb_exc_new2(exc, buf); char buf2[BUFSIZ]; snprintf(buf2, BUFSIZ, "%s:%d:in `%s'", file, line, func); buf2[BUFSIZ-1]=0; VALUE ary = rb_funcall(e,SI(caller),0); if (gf_stack.n) { rb_funcall(ary,SI(unshift),2,rb_str_new2(buf2), rb_str_new2(INFO(gf_stack.s[gf_stack.n-1].o))); } else { rb_funcall(ary,SI(unshift),1,rb_str_new2(buf2)); } rb_funcall(e,SI(set_backtrace),1,ary); rb_exc_raise(e); }}; Ruby rb_ary_fetch(Ruby rself, int i) { Ruby argv[] = { INT2NUM(i) }; return rb_ary_aref(COUNT(argv),argv,rself); } //---------------------------------------------------------------- // CObject static void CObject_mark (void *z) {} void CObject_free (void *foo) { CObject *self = (CObject *)foo; self->check_magic(); if (!self->rself) { fprintf(stderr,"attempt to free object that has no rself\n"); abort(); } self->rself = 0; /* paranoia */ delete self; } //---------------------------------------------------------------- // Dim void Dim::check() { if (n>MAX_DIMENSIONS) RAISE("too many dimensions"); for (int i=0; i<n; i++) if (v[i]<0) RAISE("Dim: negative dimension"); } // !@#$ big leak machine? // returns a string like "Dim[240,320,3]" char *Dim::to_s() { // if you blow 256 chars it's your own fault char buf[256]; char *s = buf; s += sprintf(s,"Dim["); for(int i=0; i<n; i++) s += sprintf(s,"%s%d", ","+!i, v[i]); s += sprintf(s,"]"); return strdup(buf); } //---------------------------------------------------------------- \class FObject < CObject static void FObject_prepare_message(int &argc, Ruby *&argv, Ruby &sym, FObject *foo=0) { if (argc<1) { sym = bsym._bang; } else if (argc>1 && !SYMBOL_P(*argv)) { sym = bsym._list; } else if (INTEGER_P(*argv)||FLOAT_P(*argv)) { sym = bsym._float; } else if (SYMBOL_P(*argv)) { sym = *argv; argc--, argv++; } else if (argc==1 && TYPE(*argv)==T_ARRAY) { sym = bsym._list; argc = rb_ary_len(*argv); argv = rb_ary_ptr(*argv); } else { RAISE("%s received bad message: argc=%d; argv[0]=%s",foo?INFO(foo):"", argc, argc ? rb_str_ptr(rb_inspect(argv[0])) : ""); } } struct Helper { int argc; Ruby *argv; FObject *self; Ruby rself; int n; // stack level }; static Ruby GridFlow_handle_braces(Ruby rself, Ruby argv); // inlet #-1 is reserved for SystemInlet messages // inlet #-2 is for inlet #0 messages that happen at start time static void send_in_2 (Helper *h) { PROF(h->self) { int argc = h->argc; Ruby *argv = h->argv; if (h->argc<1) RAISE("not enough args"); int inlet = INT(argv[0]); argc--, argv++; Ruby foo; if (argc==1 && TYPE(argv[0])==T_STRING /* && argv[0] =~ / / */) { foo = rb_funcall(mGridFlow,SI(parse),1,argv[0]); argc = rb_ary_len(foo); argv = rb_ary_ptr(foo); } if (argc>1) { foo = rb_ary_new4(argc,argv); GridFlow_handle_braces(0,foo); argc = rb_ary_len(foo); argv = rb_ary_ptr(foo); } if (inlet==-2) { Array init_messages = rb_ivar_get(h->rself,SI(@init_messages)); rb_ary_push(init_messages, rb_ary_new4(argc,argv)); inlet=0; } if (inlet<0 || inlet>9 /*|| inlet>real_inlet_max*/) if (inlet!=-3 && inlet!=-1) RAISE("invalid inlet number: %d", inlet); Ruby sym; FObject_prepare_message(argc,argv,sym,h->self); // if (rb_const_get(mGridFlow,SI(@verbose))==Qtrue) gfpost m.inspect char buf[256]; if (inlet==-1) sprintf(buf,"_sys_%s",rb_sym_name(sym)); else sprintf(buf,"_%d_%s",inlet,rb_sym_name(sym)); rb_funcall2(h->rself,rb_intern(buf),argc,argv); } /* PROF */ } static void send_in_3 (Helper *h) { while (gf_stack.n > h->n) gf_stack.pop(); } \def void send_in (...) { Helper h = {argc,argv,this,rself,gf_stack.n}; rb_ensure( (RMethod)send_in_2,(Ruby)&h, (RMethod)send_in_3,(Ruby)&h); } \def void send_out (...) { int n=0; if (argc<1) RAISE("not enough args"); int outlet = INT(*argv); if (outlet<0 || outlet>9 /*|| outlet>real_outlet_max*/) RAISE("invalid outlet number: %d",outlet); argc--, argv++; Ruby sym; FObject_prepare_message(argc,argv,sym,this); Ruby noutlets2 = rb_ivar_get(rb_obj_class(rself),SYM2ID(SYM(@noutlets))); if (TYPE(noutlets2)!=T_FIXNUM) { IEVAL(rself,"STDERR.puts inspect"); RAISE("don't know how many outlets this has"); } int noutlets = INT(noutlets2); //if (outlet<0 || outlet>=noutlets) RAISE("outlet %d does not exist",outlet); // was PROF(0) a hack because of exception-handling problems? PROF(0) { Ruby argv2[argc+2]; for (int i=0; i<argc; i++) argv2[2+i] = argv[i]; argv2[0] = INT2NUM(outlet); argv2[1] = sym; rb_funcall2(rself,SI(send_out2), argc+2, argv2); Ruby ary = rb_ivar_defined(rself,SYM2ID(bsym.iv_outlets)) ? rb_ivar_get(rself,SYM2ID(bsym.iv_outlets)) : Qnil; if (ary==Qnil) goto end; if (TYPE(ary)!=T_ARRAY) RAISE("send_out: expected array"); ary = rb_ary_fetch(ary,outlet); if (ary==Qnil) goto end; if (TYPE(ary)!=T_ARRAY) RAISE("send_out: expected array"); n = rb_ary_len(ary); for (int i=0; i<n; i++) { Ruby conn = rb_ary_fetch(ary,i); Ruby rec = rb_ary_fetch(conn,0); int inl = INT(rb_ary_fetch(conn,1)); argv2[0] = INT2NUM(inl); rb_funcall2(rec,SI(send_in),argc+2,argv2); } } /* PROF */ end:; } Ruby FObject_s_new(Ruby argc, Ruby *argv, Ruby qlass) { Ruby allocator = rb_ivar_defined(qlass,SI(@allocator)) ? rb_ivar_get(qlass,SI(@allocator)) : Qnil; FObject *self; if (allocator==Qnil) { // this is a pure-ruby FObject/GridObject // !@#$ GridObject is in FObject constructor (ugly) self = new GridObject; } else { // this is a C++ FObject/GridObject void*(*alloc)() = (void*(*)())FIX2PTR(void,allocator); self = (FObject *)alloc(); } self->check_magic(); Ruby keep = rb_ivar_get(mGridFlow, SI(@fobjects)); self->bself = 0; Ruby rself = Data_Wrap_Struct(qlass, CObject_mark, CObject_free, self); self->rself = rself; rb_hash_aset(keep,rself,Qtrue); // prevent sweeping rb_funcall2(rself,SI(initialize),argc,argv); return rself; } Ruby FObject_s_install(Ruby rself, Ruby name, Ruby inlets2, Ruby outlets2) { int inlets, outlets; Ruby name2; if (SYMBOL_P(name)) { name2 = rb_funcall(name,SI(to_str),0); } else if (TYPE(name) == T_STRING) { name2 = rb_funcall(name,SI(dup),0); } else { RAISE("expect symbol or string"); } inlets = INT(inlets2); if ( inlets<0 || inlets>9) RAISE("..."); outlets = INT(outlets2); if (outlets<0 || outlets>9) RAISE("..."); rb_ivar_set(rself,SI(@ninlets),INT2NUM(inlets)); rb_ivar_set(rself,SI(@noutlets),INT2NUM(outlets)); rb_ivar_set(rself,SI(@foreign_name),name2); rb_hash_aset(rb_ivar_get(mGridFlow,SI(@fclasses)), name2, rself); rb_funcall(rself, SI(install2), 1, name2); return Qnil; } \def Ruby total_time_get () {return gf_ull2num(total_time);} \def Ruby total_time_set (Ruby x) { if (argc<1) RAISE("muh"); total_time = TO(uint64,x); return argv[0]; } \def void delete_m () { Ruby keep = rb_ivar_get(mGridFlow, SI(@fobjects)); rb_funcall(keep,SI(delete),1,rself); } \classinfo \end class FObject /* ---------------------------------------------------------------- */ /* C++<->Ruby bridge for classes/functions in base/number.c */ static Ruby String_swap32_f (Ruby rself) { int n = rb_str_len(rself)/4; swap32(n,Pt<uint32>((uint32 *)rb_str_ptr(rself),n)); return rself; } static Ruby String_swap16_f (Ruby rself) { int n = rb_str_len(rself)/2; swap16(n,Pt<uint16>((uint16 *)rb_str_ptr(rself),n)); return rself; } NumberTypeE NumberTypeE_find (Ruby sym) { if (TYPE(sym)!=T_SYMBOL) RAISE("expected symbol (not %s)", rb_str_ptr(rb_inspect(rb_obj_class(sym)))); Ruby nt_dict = rb_ivar_get(mGridFlow,SI(@number_type_dict)); Ruby v = rb_hash_aref(nt_dict,sym); if (v!=Qnil) return FIX2PTR(NumberType,v)->index; RAISE("unknown number type \"%s\"", rb_sym_name(sym)); } /* **************************************************************** */ \class BitPacking < CObject \def void initialize(Ruby foo1, Ruby foo2, Ruby foo3) {} // !@#$ doesn't support number types \def String pack2 (String ins, String outs=Qnil) { int n = rb_str_len(ins) / sizeof(int32) / size; Pt<int32> in = Pt<int32>((int32 *)rb_str_ptr(ins),rb_str_len(ins)); int bytes2 = n*bytes; Ruby out = outs!=Qnil ? rb_str_resize(outs,bytes2) : rb_str_new("",bytes2); rb_str_modify(out); pack(n,Pt<int32>(in,n),Pt<uint8>((uint8 *)rb_str_ptr(out),bytes2)); return out; } // !@#$ doesn't support number types \def String unpack2 (String ins, String outs=Qnil) { int n = rb_str_len(argv[0]) / bytes; Pt<uint8> in = Pt<uint8>((uint8 *)rb_str_ptr(ins),rb_str_len(ins)); int bytes2 = n*size*sizeof(int32); Ruby out = outs!=Qnil ? rb_str_resize(outs,bytes2) : rb_str_new("",bytes2); rb_str_modify(out); unpack(n,Pt<uint8>((uint8 *)in,bytes2),Pt<int32>((int32 *)rb_str_ptr(out),n)); return out; } static Ruby BitPacking_s_new(Ruby argc, Ruby *argv, Ruby qlass) { Ruby keep = rb_ivar_get(mGridFlow, rb_intern("@fobjects")); if (argc!=3) RAISE("bad args"); if (TYPE(argv[2])!=T_ARRAY) RAISE("bad mask"); int endian = INT(argv[0]); int bytes = INT(argv[1]); Ruby *masks = rb_ary_ptr(argv[2]); uint32 masks2[4]; int size = rb_ary_len(argv[2]); if (size<1) RAISE("not enough masks"); if (size>4) RAISE("too many masks (%d)",size); for (int i=0; i<size; i++) masks2[i] = NUM2UINT(masks[i]); BitPacking *self = new BitPacking(endian,bytes,size,masks2); Ruby rself = Data_Wrap_Struct(qlass, 0, CObject_free, self); self->rself = rself; rb_hash_aset(keep,rself,Qtrue); // prevent sweeping (leak) (!@#$ WHAT???) rb_funcall2(rself,SI(initialize),argc,argv); return rself; } \classinfo \end class BitPacking void gfpost(const char *fmt, ...) { va_list args; int length; va_start(args,fmt); const int n=256; char post_s[n]; length = vsnprintf(post_s,n,fmt,args); if (length<0 || length>=n) sprintf(post_s+n-6,"[...]"); /* safety */ va_end(args); rb_funcall(mGridFlow,SI(gfpost2),2,rb_str_new2(fmt),rb_str_new2(post_s)); } void define_many_methods(Ruby rself, int n, MethodDecl *methods) { for (int i=0; i<n; i++) { MethodDecl *md = &methods[i]; char *buf = strdup(md->selector); if (strlen(buf)>2 && strcmp(buf+strlen(buf)-2,"_m")==0) buf[strlen(buf)-2]=0; rb_define_method(rself,buf,(RMethod)md->method,-1); rb_enable_super(rself,buf); free(buf); } } static Ruby GridFlow_fclass_install(Ruby rself_, Ruby fc_, Ruby super) { FClass *fc = FIX2PTR(FClass,fc_); Ruby rself = super!=Qnil ? rb_define_class_under(mGridFlow, fc->name, super) : rb_funcall(mGridFlow,SI(const_get),1,rb_str_new2(fc->name)); define_many_methods(rself,fc->methodsn,fc->methods); rb_ivar_set(rself,SI(@allocator),PTR2FIX((void*)(fc->allocator))); //#!@$?? if (fc->startup) fc->startup(rself); return Qnil; } //---------------------------------------------------------------- // GridFlow.class //\class GridFlow_s < patate typedef void (*Callback)(void*); static Ruby GridFlow_exec (Ruby rself, Ruby data, Ruby func) { void *data2 = FIX2PTR(void,data); Callback func2 = (Callback) FIX2PTR(void,func); func2(data2); return Qnil; } static Ruby GridFlow_get_id (Ruby rself, Ruby arg) { fprintf(stderr,"%ld\n",arg); return INT2NUM((int)arg); } Ruby GridFlow_rdtsc (Ruby rself) { return gf_ull2num(rdtsc()); } /* This code handles nested lists because PureData (0.38) doesn't do it */ static Ruby GridFlow_handle_braces(Ruby rself, Ruby argv) { int stack[16]; int stackn=0; Ruby *av = rb_ary_ptr(argv); int ac = rb_ary_len(argv); int j=0; for (int i=0; i<ac; ) { int close=0; if (SYMBOL_P(av[i])) { const char *s = rb_sym_name(av[i]); while (*s=='(' || *s=='{') { if (stackn==16) RAISE("too many nested lists (>16)"); stack[stackn++]=j; s++; } const char *se = s+strlen(s); while (se[-1]==')' || se[-1]=='}') { se--; close++; } if (s!=se) { Ruby u = rb_str_new(s,se-s); av[j++] = rb_funcall(rself,SI(FloatOrSymbol),1,u); } } else { av[j++]=av[i]; } i++; while (close--) { if (!stackn) RAISE("unbalanced '}' or ')'",av[i]); Ruby a2 = rb_ary_new(); int j2 = stack[--stackn]; for (int k=j2; k<j; k++) rb_ary_push(a2,av[k]); j=j2; av[j++] = a2; } } if (stackn) RAISE("unbalanced '{' or '(' (stackn=%d)",stackn); RARRAY(argv)->len = j; return rself; } /* ---------------------------------------------------------------- */ static uint32 memcpy_calls = 0; static uint64 memcpy_bytes = 0; static uint64 memcpy_time = 0; static uint32 malloc_calls = 0; /* only new not delete */ static uint64 malloc_bytes = 0; /* only new not delete */ static uint64 malloc_time = 0; /* in cpu ticks */ // don't touch. static void gfmemcopy32(int32 *as, int32 *bs, int n) { int32 ba = bs-as; #define FOO(I) as[I] = (as+ba)[I]; UNROLL_8(FOO,n,as) #undef FOO } void gfmemcopy(uint8 *out, const uint8 *in, int n) { uint64 t = rdtsc(); memcpy_calls++; memcpy_bytes+=n; for (; n>16; in+=16, out+=16, n-=16) { ((int32*)out)[0] = ((int32*)in)[0]; ((int32*)out)[1] = ((int32*)in)[1]; ((int32*)out)[2] = ((int32*)in)[2]; ((int32*)out)[3] = ((int32*)in)[3]; } for (; n>4; in+=4, out+=4, n-=4) { *(int32*)out = *(int32*)in; } for (; n; in++, out++, n--) { *out = *in; } t=rdtsc()-t; memcpy_time+=t; } extern "C" { void *gfmalloc(size_t n) { uint64 t = rdtsc(); void *p = malloc(n); long align = (long)p & 7; if (align) fprintf(stderr,"malloc alignment = %ld mod 8\n",align); t=rdtsc()-t; malloc_time+=t; malloc_calls++; malloc_bytes+=n; return p; } void gffree(void *p) { uint64 t = rdtsc(); free(p); t=rdtsc()-t; malloc_time+=t; }}; Ruby GridFlow_memcpy_calls (Ruby rself) { return LONG2NUM(memcpy_calls); } Ruby GridFlow_memcpy_bytes (Ruby rself) { return gf_ull2num(memcpy_bytes); } Ruby GridFlow_memcpy_time (Ruby rself) { return gf_ull2num(memcpy_time); } Ruby GridFlow_malloc_calls (Ruby rself) { return LONG2NUM(malloc_calls); } Ruby GridFlow_malloc_bytes (Ruby rself) { return gf_ull2num(malloc_bytes); } Ruby GridFlow_malloc_time (Ruby rself) { return gf_ull2num(malloc_time); } Ruby GridFlow_profiler_reset2 (Ruby rself) { memcpy_calls = memcpy_bytes = memcpy_time = 0; malloc_calls = malloc_bytes = malloc_time = 0; return Qnil; } /* ---------------------------------------------------------------- */ void startup_number(); void startup_grid(); void startup_flow_objects(); void startup_flow_objects_for_image(); void startup_flow_objects_for_matrix(); Ruby cFormat; #define SDEF(_class_,_name_,_argc_) \ rb_define_singleton_method(c##_class_,#_name_,(RMethod)_class_##_s_##_name_,_argc_) #define SDEF2(_name1_,_name2_,_argc_) \ rb_define_singleton_method(mGridFlow,_name1_,(RMethod)_name2_,_argc_) STARTUP_LIST(void) // Ruby's entrypoint. void Init_gridflow () { #define FOO(_sym_,_name_) bsym._sym_ = ID2SYM(rb_intern(_name_)); BUILTIN_SYMBOLS(FOO) #undef FOO signal(11,SIG_DFL); // paranoia mGridFlow = EVAL("module GridFlow; CObject = ::Object; " "class<<self; attr_reader :bridge_name; end; " "def post_string(s) STDERR.puts s end; " "self end"); SDEF2("exec",GridFlow_exec,2); SDEF2("get_id",GridFlow_get_id,1); SDEF2("rdtsc",GridFlow_rdtsc,0); SDEF2("profiler_reset2",GridFlow_profiler_reset2,0); SDEF2("memcpy_calls",GridFlow_memcpy_calls,0); SDEF2("memcpy_bytes",GridFlow_memcpy_bytes,0); SDEF2("memcpy_time", GridFlow_memcpy_time,0); SDEF2("malloc_calls",GridFlow_malloc_calls,0); SDEF2("malloc_bytes",GridFlow_malloc_bytes,0); SDEF2("malloc_time", GridFlow_malloc_time,0); SDEF2("handle_braces!",GridFlow_handle_braces,1); SDEF2("fclass_install",GridFlow_fclass_install,2); //#define FOO(A) fprintf(stderr,"sizeof("#A")=%d\n",sizeof(A)); //FOO(Dim) FOO(BitPacking) FOO(GridHandler) FOO(GridInlet) FOO(GridOutlet) FOO(GridObject) //#undef FOO rb_ivar_set(mGridFlow, SI(@fobjects), rb_hash_new()); rb_ivar_set(mGridFlow, SI(@fclasses), rb_hash_new()); rb_ivar_set(mGridFlow, SI(@bsym), PTR2FIX(&bsym)); rb_define_const(mGridFlow, "GF_VERSION", rb_str_new2(GF_VERSION)); rb_define_const(mGridFlow, "GF_COMPILE_TIME", rb_str_new2(GF_COMPILE_TIME)); cFObject = rb_define_class_under(mGridFlow, "FObject", rb_cObject); EVAL( \ruby module GridFlow class FObject def send_out2(*) end def self.install2(*) end def self.add_creator(name) name=name.to_str.dup GridFlow.fclasses[name]=self GridFlow.add_creator_2 name end end end \end ruby ); define_many_methods(cFObject,COUNT(FObject_methods),FObject_methods); SDEF(FObject, install, 3); SDEF(FObject, new, -1); ID gbi = SI(gf_bridge_init); if (rb_respond_to(rb_cData,gbi)) rb_funcall(rb_cData,gbi,0); Ruby cBitPacking = rb_define_class_under(mGridFlow, "BitPacking", rb_cObject); define_many_methods(cBitPacking, ciBitPacking.methodsn, ciBitPacking.methods); SDEF(BitPacking,new,-1); rb_define_method(rb_cString, "swap32!", (RMethod)String_swap32_f, 0); rb_define_method(rb_cString, "swap16!", (RMethod)String_swap16_f, 0); startup_number(); startup_grid(); startup_flow_objects(); startup_flow_objects_for_image(); startup_flow_objects_for_matrix(); if (!EVAL("begin require 'gridflow/base/main.rb'; true\n" "rescue Exception => e; " "STDERR.puts \"can't load: #{$!}\n" "backtrace: #{$!.backtrace.join\"\n\"}\n" "$: = #{$:.inspect}\"\n; false end")) return; cFormat = EVAL("GridFlow::Format"); STARTUP_LIST() EVAL("h=GridFlow.fclasses; h['#io:window'] = h['#io:quartz']||h['#io:x11']||h['#io:sdl']"); EVAL("GridFlow.load_user_config"); signal(11,SIG_DFL); // paranoia } void GFStack::push (FObject *o) { void *bp = &o; // really. just finding our position on the stack. if (n>=GF_STACK_MAX) RAISE("stack overflow (maximum %d FObject activations at once)", GF_STACK_MAX); uint64 t = rdtsc(); if (n) s[n-1].time = t - s[n-1].time; s[n].o = o; s[n].bp = bp; s[n].time = t; n++; } void GFStack::pop () { uint64 t = rdtsc(); if (!n) RAISE("stack underflow (WHAT?)"); n--; if (s[n].o) s[n].o->total_time += t - s[n].time; if (n) s[n-1].time = t - s[n-1].time; } uint64 gf_timeofday () { timeval t; gettimeofday(&t,0); return t.tv_sec*1000000+t.tv_usec; } --- NEW FILE: grid.c --- /* $Id: grid.c,v 1.1 2005/10/04 02:02:13 matju Exp $ GridFlow Copyright (c) 2001,2002,2003,2004 by Mathieu Bouchard This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. See file ../COPYING for further informations on licensing terms. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include <stdlib.h> #include <fcntl.h> #include <errno.h> #include <stdio.h> #include <string.h> #include <unistd.h> #include <sys/time.h> #include "grid.h.fcs" #include <ctype.h> /* copied from bridge/puredata.c (sorry: linkage issue) */ struct Pointer : CObject { void *p; Pointer(void *_p) : p(_p) {}}; Ruby Pointer_s_noo (void *ptr) { return Data_Wrap_Struct(EVAL("GridFlow::Pointer"), 0, 0, new Pointer(ptr));} static void *Pointer_gut (Ruby rself) {DGS(Pointer); return self->p;} //#define TRACE fprintf(stderr,"%s %s [%s:%d]\n",INFO(parent),__PRETTY_FUNCTION__,__FILE__,__LINE__);assert(this); #define TRACE assert(this); #define CHECK_TYPE(d) \ if (NumberTypeE_type_of(d)!=this->nt) RAISE("%s(%s): " \ "type mismatch during transmission (got %s expecting %s)", \ INFO(parent), \ __PRETTY_FUNCTION__, \ number_type_table[NumberTypeE_type_of(d)].name, \ number_type_table[this->nt].name); #define CHECK_BUSY(s) \ if (!dim) RAISE("%s: " #s " not busy",INFO(parent)); #define CHECK_ALIGN(d) \ {int bytes = number_type_table[nt].size/8; \ int align = ((long)(void*)d)%bytes; \ if (align) {L;gfpost("%s(%s): Alignment Warning: %p is not %d-aligned: %d", \ INFO(parent), __PRETTY_FUNCTION__, (void*)d,bytes,align);}} #define CHECK_ALIGN2(d,nt) \ {int bytes = number_type_table[nt].size/8; \ int align = ((long)(void*)d)%bytes; \ if (align) {L;gfpost("Alignment Warning: %p is not %d-aligned: %d", \ (void*)d,bytes,align);}} // **************** Grid ****************************************** #define FOO(S) static inline void NUM(Ruby x, S &y) {y=convert(x,(int32*)0);} EACH_INT_TYPE(FOO) #undef FOO #define FOO(S) \ static inline void NUM(Ruby x, S &y) { \ if (TYPE(x)==T_FLOAT) y = RFLOAT(x)->value; \ else if (INTEGER_P(x)) y = convert(x,(S*)0); \ else RAISE("expected Float (or at least Integer)");} EACH_FLOAT_TYPE(FOO) #undef FOO void Grid::init_from_ruby_list(int n, Ruby *a, NumberTypeE nt) { Ruby delim = SYM(#); for (int i=0; i<n; i++) { if (a[i] == delim) { STACK_ARRAY(int32,v,i); if (i!=0 && TYPE(a[i-1])==T_SYMBOL) nt=NumberTypeE_find(a[--i]); for (int j=0; j<i; j++) v[j] = convert(a[j],(int32*)0); init(new Dim(i,v),nt); CHECK_ALIGN2(this->data,nt); if (a[i] != delim) i++; i++; a+=i; n-=i; goto fill; } } if (n!=0 && TYPE(a[0])==T_SYMBOL) { nt = NumberTypeE_find(a[0]); a++, n--; } init(new Dim(n),nt); CHECK_ALIGN2(this->data,nt); fill: int nn = dim->prod(); n = min(n,nn); #define FOO(type) { \ Pt<type> p = (Pt<type>)*this; \ if (n==0) CLEAR(p,nn); \ else { \ for (int i=0; i<n; i++) NUM(a[i],p[i]); \ for (int i=n; i<nn; i+=n) COPY(p+i,p,min(n,nn-i)); }} TYPESWITCH(nt,FOO,) #undef FOO } void Grid::init_from_ruby(Ruby x) { if (TYPE(x)==T_ARRAY) { init_from_ruby_list(rb_ary_len(x),rb_ary_ptr(x)); } else if (INTEGER_P(x) || FLOAT_P(x)) { init(new Dim(),int32_e); CHECK_ALIGN2(this->data,nt); ((Pt<int32>)*this)[0] = INT(x); } else { rb_funcall( EVAL("proc{|x| raise \"can't convert to grid: #{x.inspect}\"}"), SI(call),1,x); } } // **************** GridInlet ************************************* // must be set before the end of GRID_BEGIN phase, and so cannot be changed // afterwards. This is to allow some optimisations. Anyway there is no good reason // why this would be changed afterwards. void GridInlet::set_factor(int factor) { if(!dim) RAISE("huh?"); if(factor<=0) RAISE("%s: factor=%d should be >= 1",INFO(parent),factor); if (dim->prod() && dim->prod() % factor) RAISE("%s: set_factor: expecting divisor",INFO(parent)); if (factor > 1) { buf=new Grid(new Dim(factor), nt); bufi=0; } else { buf=0; } } static Ruby GridInlet_begin_1(GridInlet *self) { #define FOO(T) self->gh->flow(self,-1,Pt<T>()); break; TYPESWITCH(self->nt,FOO,) #undef FOO return Qnil; } static Ruby GridInlet_begin_2(GridInlet *self) { self->dim = 0; // hack return (Ruby) 0; } bool GridInlet::supports_type(NumberTypeE nt) { #define FOO(T) return !! gh->flow_##T; TYPESWITCH(nt,FOO,return false) #undef FOO } Ruby GridInlet::begin(int argc, Ruby *argv) {TRACE; if (!argc) return PTR2FIX(this); GridOutlet *back_out = (GridOutlet *) Pointer_gut(argv[0]); nt = (NumberTypeE) INT(argv[1]); argc-=2, argv+=2; PROF(parent) { if (dim) { gfpost("%s: grid inlet conflict; aborting %s in favour of %s", INFO(parent), INFO(sender), INFO(back_out->parent)); abort(); } sender = back_out->parent; if ((int)nt<0 || (int)nt>=(int)number_type_table_end) RAISE("%s: inlet: unknown number type",INFO(parent)); if (!supports_type(nt)) RAISE("%s: number type %s not supported here", INFO(parent), number_type_table[nt].name); STACK_ARRAY(int32,v,argc); for (int i=0; i<argc; i++) v[i] = NUM2INT(argv[i]); P<Dim> dim = this->dim = new Dim(argc,v); dex=0; buf=0; int r = rb_ensure( (RMethod)GridInlet_begin_1,(Ruby)this, (RMethod)GridInlet_begin_2,(Ruby)this); if (!r) {abort(); goto hell;} this->dim = dim; back_out->callback(this); hell:;} // PROF return Qnil; } template <class T> void GridInlet::flow(int mode, int n, Pt<T> data) {TRACE; CHECK_BUSY(inlet); CHECK_TYPE(*data); CHECK_ALIGN(data); PROF(parent) { if (this->mode==0) {dex += n; return;} // ignore data if (n==0) return; // no data switch(mode) { case 4:{ int d = dex + bufi; if (d+n > dim->prod()) { gfpost("grid input overflow: %d of %d from [%s] to [%s]", d+n, dim->prod(), INFO(sender), 0); n = dim->prod() - d; if (n<=0) return; } int bufn = factor(); if (buf && bufi) { Pt<T> bufd = (Pt<T>)*buf; int k = min(n,bufn-bufi); COPY(bufd+bufi,data,k); bufi+=k; data+=k; n-=k; if (bufi==bufn) { int newdex = dex+bufn; if (this->mode==6) { Pt<T> data2 = ARRAY_NEW(T,bufn); COPY(data2,bufd,bufn); CHECK_ALIGN(data2); gh->flow(this,bufn,data2); } else { CHECK_ALIGN(bufd); gh->flow(this,bufn,bufd); } dex = newdex; bufi = 0; } } int m = (n/bufn)*bufn; if (m) { int newdex = dex + m; if (this->mode==6) { Pt<T> data2 = ARRAY_NEW(T,m); COPY(data2,data,m); CHECK_ALIGN(data2); gh->flow(this,m,data2); } else { gh->flow(this,m,data); } dex = newdex; } data += m; n -= m; if (buf && n>0) COPY((Pt<T>)*buf+bufi,data,n), bufi+=n; }break; case 6:{ assert(!buf); int newdex = dex + n; gh->flow(this,n,data); if (this->mode==4) delete[] (T *)data; dex = newdex; }break; case 0: break; // ignore data default: RAISE("%s: unknown inlet mode",INFO(parent)); }} // PROF } void GridInlet::end() {TRACE; assert(this); if (!dim) RAISE("%s: inlet not busy",INFO(parent)); if (dim->prod() != dex) { gfpost("incomplete grid: %d of %d from [%s] to [%s]", dex, dim->prod(), INFO(sender), INFO(parent)); } PROF(parent) { #define FOO(T) gh->flow(this,-2,Pt<T>()); TYPESWITCH(nt,FOO,) #undef FOO } // PROF dim=0; buf=0; dex=0; } template <class T> void GridInlet::from_grid2(Grid *g, T foo) {TRACE; nt = g->nt; dim = g->dim; int n = g->dim->prod(); gh->flow(this,-1,Pt<T>()); if (n>0 && this->mode!=0) { Pt<T> data = (Pt<T>)*g; CHECK_ALIGN(data); int size = g->dim->prod(); if (this->mode==6) { Pt<T> d = data; data = ARRAY_NEW(T,size); // problem with int64,float64 here. COPY(data,d,size); CHECK_ALIGN(data); gh->flow(this,n,data); } else { int ntsz = number_type_table[nt].size; int m = GridOutlet::MAX_PACKET_SIZE/*/ntsz*//factor(); if (!m) m++; m *= factor(); while (n) { if (m>n) m=n; CHECK_ALIGN(data); gh->flow(this,m,data); data+=m; n-=m; dex+=m; } } } gh->flow(this,-2,Pt<T>()); //!@#$ add error handling. // rescue; abort(); end ??? dim = 0; dex = 0; } void GridInlet::from_grid(Grid *g) {TRACE; if (!supports_type(g->nt)) RAISE("%s: number type %s not supported here", INFO(parent), number_type_table[g->nt].name); #define FOO(T) from_grid2(g,(T)0); TYPESWITCH(g->nt,FOO,) #undef FOO } /* **************** GridOutlet ************************************ */ void GridOutlet::begin(int woutlet, P<Dim> dim, NumberTypeE nt) {TRACE; int n = dim->count(); this->nt = nt; this->dim = dim; Ruby a[n+4]; a[0] = INT2NUM(woutlet); a[1] = bsym._grid; a[2] = Pointer_s_noo(this); a[3] = INT2NUM(nt); for(int i=0; i<n; i++) a[4+i] = INT2NUM(dim->get(i)); parent->send_out(COUNT(a),a); frozen=true; if (!dim->prod()) {end(); return;} int32 lcm_factor = 1; for (uint32 i=0; i<inlets.size(); i++) lcm_factor = lcm(lcm_factor,inlets[i]->factor()); if (nt != buf->nt) { // biggest packet size divisible by lcm_factor int32 v = (MAX_PACKET_SIZE/lcm_factor)*lcm_factor; if (v==0) v=MAX_PACKET_SIZE; // factor too big. don't have a choice. buf=new Grid(new Dim(v),nt); } } // send modifies dex; send_direct doesn't template <class T> void GridOutlet::send_direct(int n, Pt<T> data) {TRACE; assert(data); assert(frozen); CHECK_BUSY(outlet); CHECK_TYPE(*data); CHECK_ALIGN(data); for (; n>0; ) { int pn = min(n,MAX_PACKET_SIZE); for (uint32 i=0; i<inlets.size(); i++) inlets[i]->flow(4,pn,data); data+=pn, n-=pn; } } void GridOutlet::flush() {TRACE; if (!bufi) return; #define FOO(T) send_direct(bufi,(Pt<T>)*buf); TYPESWITCH(buf->nt,FOO,) #undef FOO bufi = 0; } template <class T, class S> static void convert_number_type(int n, Pt<T> out, Pt<S> in) { for (int i=0; i<n; i++) out[i]=(T)in[i]; } //!@#$ buffering in outlet still is 8x faster...? //!@#$ should use BitPacking for conversion...? // send modifies dex; send_direct doesn't template <class T> void GridOutlet::send(int n, Pt<T> data) {TRACE; assert(data); assert(frozen); if (!n) return; CHECK_BUSY(outlet); CHECK_ALIGN(data); if (NumberTypeE_type_of(*data)!=nt) { int bs = MAX_PACKET_SIZE; #define FOO(T) { \ STACK_ARRAY(T,data2,bs); \ for (;n>=bs;n-=bs,data+=bs) { \ convert_number_type(bs,data2,data); send(bs,data2);} \ convert_number_type(n,data2,data); \ send(n,data2); } TYPESWITCH(nt,FOO,) #undef FOO } else { dex += n; assert(dex <= dim->prod()); if (n > MIN_PACKET_SIZE || bufi + n > MAX_PACKET_SIZE) flush(); if (n > MIN_PACKET_SIZE) { send_direct(n,data); } else { COPY((Pt<T>)*buf+bufi,data,n); bufi += n; } if (dex==dim->prod()) end(); } } template <class T> void GridOutlet::give(int n, Pt<T> data) {TRACE; assert(data); CHECK_BUSY(outlet); assert(frozen); assert(dex+n <= dim->prod()); CHECK_ALIGN(data); if (NumberTypeE_type_of(*data)!=nt) { send(n,data); delete[] (T *)data; return; } if (inlets.size()==1 && inlets[0]->mode == 6) { // this is the copyless buffer passing flush(); inlets[0]->flow(6,n,data); dex += n; } else { flush(); send_direct(n,data); dex += n; delete[] (T *)data; } if (dex==dim->prod()) end(); } void GridOutlet::callback(GridInlet *in) {TRACE; CHECK_BUSY(outlet); assert(!frozen); int mode = in->mode; assert(mode==6 || mode==4 || mode==0); inlets.push_back(in); } \class GridObject < FObject //!@#$ does not handle types properly //!@#$ most possibly a big hack template <class T> void GridObject_r_flow(GridInlet *in, int n, Pt<T> data) { GridObject *self = in->parent; uint32 i; for (i=0; i<self->in.size(); i++) if (in==self->in[i].p) break; if (i==self->in.size()) RAISE("inlet not found?"); if (n==-1) { rb_funcall(self->rself,SI(send_in),2,INT2NUM(i),SYM(rgrid_begin)); } else if (n>=0) { Ruby buf = rb_str_new((char *)((uint8 *)data),n*sizeof(T)); rb_funcall(self->rself,SI(send_in),3,INT2NUM(i),SYM(rgrid_flow),buf); } else { rb_funcall(self->rself,SI(send_in),2,INT2NUM(i),SYM(rgrid_end)); } } \def Symbol inlet_nt (int inln) { if (inln<0 || inln>=(int)in.size()) RAISE("bad inlet number"); P<GridInlet> inl = in[inln]; if (!inl) RAISE("no such inlet #%d",inln); if (!inl->dim) return Qnil; return number_type_table[inl->nt].sym; } \def Array inlet_dim (int inln) { if (inln<0 || inln>=(int)in.size()) RAISE("bad inlet number"); P<GridInlet> inl = in[inln]; if (!inl) RAISE("no such inlet #%d",inln); if (!inl->dim) return Qnil; int n=inl->dim->count(); Ruby a = rb_ary_new2(n); for(int i=0; i<n; i++) rb_ary_push(a,INT2NUM(inl->dim->v[i])); return a; } \def void inlet_set_factor (int inln, int factor) { if (inln<0 || inln>=(int)in.size()) RAISE("bad inlet number"); P<GridInlet> inl = in[inln]; if (!inl) RAISE("no such inlet #%d",inln); if (!inl->dim) RAISE("inlet #%d not active",inln); inl->set_factor(factor); } \def void send_out_grid_begin (int outlet, Array buf, NumberTypeE nt=int32_e) { if (outlet<0) RAISE("bad outlet number"); int n = rb_ary_len(buf); Ruby *p = rb_ary_ptr(buf); STACK_ARRAY(int32,v,n); for (int i=0; i<n; i++) v[i] = convert(p[i],(int32*)0); out = new GridOutlet(this,outlet,new Dim(n,v),nt); // valgrind says leak? } template <class T> void send_out_grid_flow_2(P<GridOutlet> go, Ruby s, T bogus) { int n = rb_str_len(s) / sizeof(T); Pt<T> p = rb_str_pt(s,T); go->send(n,p); } \def void send_out_grid_flow (int outlet, String buf, NumberTypeE nt=int32_e) { if (outlet<0) RAISE("bad outlet number"); #define FOO(T) send_out_grid_flow_2(out,argv[1],(T)0); TYPESWITCH(nt,FOO,) #undef FOO } // install_rgrid(Integer inlet, Boolean multi_type? = true) static Ruby GridObject_s_install_rgrid(int argc, Ruby *argv, Ruby rself) { if (argc<1 || argc>2) RAISE("er..."); IEVAL(rself,"@handlers||=[]"); Ruby handlers = rb_ivar_get(rself,SI(@handlers)); GridHandler *gh = new GridHandler; bool mt = argc>1 ? argv[1]==Qtrue : 0; /* multi_type? */ if (mt) { #define FOO(S) gh->flow_##S = GridObject_r_flow; EACH_NUMBER_TYPE(FOO) #undef FOO } else { #define FOO(S) gh->flow_##S = 0; EACH_NUMBER_TYPE(FOO) #undef FOO } gh->flow_int32 = GridObject_r_flow; //IEVAL(rself,"self.class_eval { def _0_grid(*a) ___grid(0,*a) end }"); rb_funcall(handlers,SI([]=),2,INT2NUM(INT(argv[0])),PTR2FIX(gh)); return Qnil; } static Ruby GridObject_s_instance_methods(int argc, Ruby *argv, Ruby rself) { static const char *names[] = {"grid","list","float"}; Ruby list = rb_class_instance_methods(argc,argv,rself); Ruby handlers = rb_ivar_get(rself,SI(@handlers)); if (handlers==Qnil) return list; for (int i=0; i<rb_ary_len(handlers); i++) { Ruby ghp = rb_ary_ptr(handlers)[i]; if (ghp==Qnil) continue; GridHandler *gh = FIX2PTR(GridHandler,ghp); char buf[256]; for (int j=0; j<COUNT(names); j++) { sprintf(buf,"_%d_%s",i,names[j]); rb_ary_push(list,rb_str_new2(buf)); } } return list; } // this does auto-conversion of list/float to grid // this also (will) do grid inputs for ruby stuff. \def Ruby method_missing (...) { { if (argc<1) RAISE("not enough arguments"); if (!SYMBOL_P(argv[0])) RAISE("expected symbol"); const char *name = rb_sym_name(argv[0]); char *endp; if (*name++!='_') goto hell; int i = strtol(name,&endp,10); if (name==endp) goto hell; if (*endp++!='_') goto hell; if (strcmp(endp,"grid")==0) { Ruby handlers = rb_ivar_get(rb_obj_class(rself),SI(@handlers)); if (TYPE(handlers)!=T_ARRAY) { rb_p(handlers); RAISE("gridhandler-list missing (maybe forgot install_rgrid ?)" " while trying to receive on inlet %d",i); } if (i>=rb_ary_len(handlers)) RAISE("BORK"); GridHandler *gh = FIX2PTR(GridHandler, rb_ary_ptr(handlers)[i]); if (in.size()<=(uint32)i) in.resize(i+1); if (!in[i]) in[i]=new GridInlet((GridObject *)this,gh); return in[i]->begin(argc-1,argv+1); } // we call the grid method recursively to ask it its GridInlet* // don't do this before checking the missing method is exactly that =) char foo[42]; sprintf(foo,"_%d_grid",i); P<GridInlet> inl = FIX2PTR(GridInlet,rb_funcall(rself,rb_intern(foo),0)); if (strcmp(endp,"list" )==0) return inl->from_ruby_list(argc-1,argv+1), Qnil; if (strcmp(endp,"float")==0) return inl->from_ruby (argc-1,argv+1), Qnil; } hell: return rb_call_super(argc,argv); } \classinfo { IEVAL(rself,"install 'GridObject',0,0"); // define in Ruby-metaclass rb_define_singleton_method(rself,"instance_methods",(RMethod)GridObject_s_instance_methods,-1); rb_define_singleton_method(rself,"install_rgrid",(RMethod)GridObject_s_install_rgrid,-1); rb_enable_super(rb_singleton_class(rself),"instance_methods"); } \end class GridObject Ruby cGridObject; void startup_grid () { \startall cGridObject = rb_const_get(mGridFlow,SI(GridObject)); } // never call this. this is a hack to make some things work. // i'm trying to circumvent either a bug in the compiler or i don't have a clue. :-( void make_gimmick () { GridOutlet foo(0,0,0); #define FOO(S) foo.give(0,Pt<S>()); EACH_NUMBER_TYPE(FOO) #undef FOO }

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs October 2005