[PD] emulating early video synths - sync

Sun May 7 18:13:11 CEST 2006

Hi Thomas,

Thanks for sharing - nice additions!

Here's something else I noticed. I experimented with making the  
pix_sig2pix~ part an abstraction with block~ 4096 while the main  
patch with the oscillators uses the default block~ (64 I think) so  
that I could hear the sounds creating the images.
When the oscillators are in the patch with the default block, then of  
course the frequencies where they seem to create more stable images  
are quite different from what they are in block~ 4096.

Best,
p

On May 7, 2006, at 9:51 AM, thomas sivertsen wrote:

> Ok, this got me thinking. I've been toying with the exact same idea  
> for a while. So I patched a bit on what was sent to the list. Here  
> is my contribution. Not much new, but you can specify time for the  
> cycle and it's in color. No sync though, and it's _very_ ugly  
> patching.  :-)
>
>    .thomas
> #N canvas 550 2 772 453 10;
> #N canvas 777 342 618 468 gemwin 1;
> #X obj 196 310 gemwin;
> #X obj 67 89 outlet;
> #X obj 67 10 inlet;
> #X msg 67 70 set destroy;
> #X msg 132 112 create \, 1;
> #X msg 198 112 destroy;
> #X msg 156 71 set create+DSP;
> #X obj 67 41 route create+DSP;
> #X msg 102 163 \; pd dsp 1;
> #X msg 280 205 fullscreen 1;
> #X msg 280 178 fullscreen 0;
> #X msg 236 141 dimen 320 240;
> #X msg 286 228 fullscreen 2;
> #X msg 322 125 dimen 540 420;
> #X connect 2 0 7 0;
> #X connect 3 0 1 0;
> #X connect 4 0 0 0;
> #X connect 5 0 0 0;
> #X connect 6 0 1 0;
> #X connect 7 0 3 0;
> #X connect 7 0 4 0;
> #X connect 7 0 8 0;
> #X connect 7 1 6 0;
> #X connect 7 1 5 0;
> #X connect 9 0 0 0;
> #X connect 10 0 0 0;
> #X connect 11 0 0 0;
> #X connect 12 0 0 0;
> #X connect 13 0 0 0;
> #X restore 31 -28 pd gemwin;
> #X msg 32 -63 destroy;
> #X obj 126 204 pix_texture;
> #X obj 127 84 gemhead;
> #X obj 127 143 pix_sig2pix~ 64 64;
> #X msg 152 174 quality 0;
> #X msg 234 174 quality 1;
> #X msg 24 73 dimen 64 64;
> #X msg 25 100 dimen 32 32;
> #X obj 126 239 rectangle 3 3;
> #N canvas 47 419 196 156 osc-abs-1 0;
> #X obj 7 28 cnv 15 180 120 empty empty empty 20 12 0 14 -233017 -66577
> 0;
> #X obj 9 40 hradio 15 1 0 8 empty empty empty 0 -6 0 8 -262144 -1 -1
> 1;
> #X obj 147 40 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1
> ;
> #X obj 9 73 hradio 15 1 0 8 empty empty empty 0 -6 0 8 -262144 -1 -1
> 0;
> #X obj 147 73 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1
> ;
> #X obj 8 186 outlet~;
> #N canvas 336 104 989 688 osc1 0;
> #X obj 68 443 outlet~;
> #X obj 68 254 *~ 0;
> #X floatatom 68 150 7 0 0 0 - - -;
> #X obj 333 251 *~ 0;
> #X floatatom 333 147 7 0 0 0 - - -;
> #X obj 481 277 block~ 4096;
> #X floatatom 155 208 5 0 0 0 - - -;
> #X floatatom 254 221 5 0 0 0 - - -;
> #X obj 252 174 bang~;
> #X obj 67 284 abs~;
> #X obj 332 322 abs~;
> #X obj 334 110 * 344.41;
> #X obj 68 99 * 5.38;
> #X obj 68 201 osc~ 30;
> #X obj 333 180 osc~ 16000;
> #X obj 218 137 loadbang;
> #X msg 212 157 0.26;
> #X obj 513 232 vline~;
> #X obj 334 224 +~;
> #X obj 68 389 *~;
> #X obj 488 85 pack 2 2000;
> #X obj 651 80 pack 0 2000;
> #X obj 651 165 select 0;
> #X obj 651 122 unpack 0 0;
> #X obj 517 133 unpack 0 0;
> #X obj 519 164 select 2;
> #X obj 521 202 del 10;
> #X obj 652 207 del 10;
> #X obj 604 259 print a;
> #X obj 675 259 print b;
> #X obj 68 36 inlet;
> #X obj 138 35 inlet;
> #X obj 337 34 inlet;
> #X obj 401 36 inlet;
> #X obj 488 25 inlet;
> #X obj 649 28 inlet;
> #X connect 1 0 9 0;
> #X connect 2 0 13 0;
> #X connect 3 0 10 0;
> #X connect 4 0 14 0;
> #X connect 6 0 13 1;
> #X connect 7 0 14 1;
> #X connect 8 0 7 0;
> #X connect 8 0 6 0;
> #X connect 9 0 19 0;
> #X connect 10 0 19 1;
> #X connect 11 0 4 0;
> #X connect 12 0 2 0;
> #X connect 13 0 1 0;
> #X connect 14 0 18 0;
> #X connect 15 0 16 0;
> #X connect 16 0 6 0;
> #X connect 16 0 7 0;
> #X connect 17 0 18 1;
> #X connect 18 0 3 0;
> #X connect 19 0 0 0;
> #X connect 20 0 17 0;
> #X connect 20 0 24 0;
> #X connect 20 0 28 0;
> #X connect 21 0 17 0;
> #X connect 21 0 23 0;
> #X connect 21 0 29 0;
> #X connect 22 0 27 0;
> #X connect 23 0 22 0;
> #X connect 24 0 25 0;
> #X connect 25 0 26 0;
> #X connect 26 0 21 0;
> #X connect 27 0 20 0;
> #X connect 30 0 12 0;
> #X connect 31 0 1 1;
> #X connect 32 0 11 0;
> #X connect 33 0 3 1;
> #X connect 34 0 20 0;
> #X connect 35 0 20 1;
> #X connect 35 0 21 1;
> #X connect 35 0 27 1;
> #X connect 35 0 26 1;
> #X restore 8 162 pd osc1 -----;
> #X obj 11 105 hsl 128 15 50 8000 0 0 empty empty empty -2 -6 0 8  
> -262144
> -1 -1 5600 1;
> #X obj 148 103 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
> -1;
> #X connect 1 0 6 0;
> #X connect 2 0 6 1;
> #X connect 3 0 6 2;
> #X connect 4 0 6 3;
> #X connect 6 0 5 0;
> #X connect 7 0 6 5;
> #X connect 8 0 6 4;
> #X coords 0 0 1 1 190 150 1;
> #X restore 148 -106 pd osc-abs-1;
> #X obj 22 140 block~ 4096;
> #N canvas 47 419 196 156 osc-abs-1 0;
> #X obj 7 28 cnv 15 180 120 empty empty empty 20 12 0 14 -233017 -66577
> 0;
> #X obj 9 40 hradio 15 1 0 8 empty empty empty 0 -6 0 8 -262144 -1 -1
> 1;
> #X obj 147 40 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1
> ;
> #X obj 9 73 hradio 15 1 0 8 empty empty empty 0 -6 0 8 -262144 -1 -1
> 0;
> #X obj 147 73 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1
> ;
> #X obj 8 186 outlet~;
> #N canvas 336 104 989 688 osc1 0;
> #X obj 68 443 outlet~;
> #X obj 68 254 *~ 0;
> #X floatatom 68 150 7 0 0 0 - - -;
> #X obj 333 251 *~ 0;
> #X floatatom 333 147 7 0 0 0 - - -;
> #X obj 481 277 block~ 4096;
> #X floatatom 155 208 5 0 0 0 - - -;
> #X floatatom 254 221 5 0 0 0 - - -;
> #X obj 252 174 bang~;
> #X obj 67 284 abs~;
> #X obj 332 322 abs~;
> #X obj 334 110 * 344.41;
> #X obj 68 99 * 5.38;
> #X obj 68 201 osc~ 30;
> #X obj 333 180 osc~ 16000;
> #X obj 218 137 loadbang;
> #X msg 212 157 0.26;
> #X obj 513 232 vline~;
> #X obj 334 224 +~;
> #X obj 68 389 *~;
> #X obj 488 85 pack 2 2000;
> #X obj 651 80 pack 0 2000;
> #X obj 651 165 select 0;
> #X obj 651 122 unpack 0 0;
> #X obj 517 133 unpack 0 0;
> #X obj 519 164 select 2;
> #X obj 521 202 del 10;
> #X obj 652 207 del 10;
> #X obj 604 259 print a;
> #X obj 675 259 print b;
> #X obj 68 36 inlet;
> #X obj 138 35 inlet;
> #X obj 337 34 inlet;
> #X obj 401 36 inlet;
> #X obj 488 25 inlet;
> #X obj 649 28 inlet;
> #X connect 1 0 9 0;
> #X connect 2 0 13 0;
> #X connect 3 0 10 0;
> #X connect 4 0 14 0;
> #X connect 6 0 13 1;
> #X connect 7 0 14 1;
> #X connect 8 0 7 0;
> #X connect 8 0 6 0;
> #X connect 9 0 19 0;
> #X connect 10 0 19 1;
> #X connect 11 0 4 0;
> #X connect 12 0 2 0;
> #X connect 13 0 1 0;
> #X connect 14 0 18 0;
> #X connect 15 0 16 0;
> #X connect 16 0 6 0;
> #X connect 16 0 7 0;
> #X connect 17 0 18 1;
> #X connect 18 0 3 0;
> #X connect 19 0 0 0;
> #X connect 20 0 17 0;
> #X connect 20 0 24 0;
> #X connect 20 0 28 0;
> #X connect 21 0 17 0;
> #X connect 21 0 23 0;
> #X connect 21 0 29 0;
> #X connect 22 0 27 0;
> #X connect 23 0 22 0;
> #X connect 24 0 25 0;
> #X connect 25 0 26 0;
> #X connect 26 0 21 0;
> #X connect 27 0 20 0;
> #X connect 30 0 12 0;
> #X connect 31 0 1 1;
> #X connect 32 0 11 0;
> #X connect 33 0 3 1;
> #X connect 34 0 20 0;
> #X connect 35 0 20 1;
> #X connect 35 0 21 1;
> #X connect 35 0 27 1;
> #X connect 35 0 26 1;
> #X restore 8 162 pd osc1 -----;
> #X obj 11 105 hsl 128 15 50 8000 0 0 empty empty empty -2 -6 0 8  
> -262144
> -1 -1 12700 1;
> #X obj 148 103 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
> -1;
> #X connect 1 0 6 0;
> #X connect 2 0 6 1;
> #X connect 3 0 6 2;
> #X connect 4 0 6 3;
> #X connect 6 0 5 0;
> #X connect 7 0 6 5;
> #X connect 8 0 6 4;
> #X coords 0 0 1 1 190 150 1;
> #X restore 351 -104 pd osc-abs-1;
> #N canvas 47 419 196 156 osc-abs-1 0;
> #X obj 7 28 cnv 15 180 120 empty empty empty 20 12 0 14 -233017 -66577
> 0;
> #X obj 9 40 hradio 15 1 0 8 empty empty empty 0 -6 0 8 -262144 -1 -1
> 1;
> #X obj 147 40 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1
> ;
> #X obj 9 73 hradio 15 1 0 8 empty empty empty 0 -6 0 8 -262144 -1 -1
> 0;
> #X obj 147 73 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1
> ;
> #X obj 8 186 outlet~;
> #N canvas 336 104 989 688 osc1 0;
> #X obj 68 443 outlet~;
> #X obj 68 254 *~ 0;
> #X floatatom 68 150 7 0 0 0 - - -;
> #X obj 333 251 *~ 0;
> #X floatatom 333 147 7 0 0 0 - - -;
> #X obj 481 277 block~ 4096;
> #X floatatom 155 208 5 0 0 0 - - -;
> #X floatatom 254 221 5 0 0 0 - - -;
> #X obj 252 174 bang~;
> #X obj 67 284 abs~;
> #X obj 332 322 abs~;
> #X obj 334 110 * 344.41;
> #X obj 68 99 * 5.38;
> #X obj 68 201 osc~ 30;
> #X obj 333 180 osc~ 16000;
> #X obj 218 137 loadbang;
> #X msg 212 157 0.26;
> #X obj 513 232 vline~;
> #X obj 334 224 +~;
> #X obj 68 389 *~;
> #X obj 488 85 pack 2 2000;
> #X obj 651 80 pack 0 2000;
> #X obj 651 165 select 0;
> #X obj 651 122 unpack 0 0;
> #X obj 517 133 unpack 0 0;
> #X obj 519 164 select 2;
> #X obj 521 202 del 10;
> #X obj 652 207 del 10;
> #X obj 604 259 print a;
> #X obj 675 259 print b;
> #X obj 68 36 inlet;
> #X obj 138 35 inlet;
> #X obj 337 34 inlet;
> #X obj 401 36 inlet;
> #X obj 488 25 inlet;
> #X obj 649 28 inlet;
> #X connect 1 0 9 0;
> #X connect 2 0 13 0;
> #X connect 3 0 10 0;
> #X connect 4 0 14 0;
> #X connect 6 0 13 1;
> #X connect 7 0 14 1;
> #X connect 8 0 7 0;
> #X connect 8 0 6 0;
> #X connect 9 0 19 0;
> #X connect 10 0 19 1;
> #X connect 11 0 4 0;
> #X connect 12 0 2 0;
> #X connect 13 0 1 0;
> #X connect 14 0 18 0;
> #X connect 15 0 16 0;
> #X connect 16 0 6 0;
> #X connect 16 0 7 0;
> #X connect 17 0 18 1;
> #X connect 18 0 3 0;
> #X connect 19 0 0 0;
> #X connect 20 0 17 0;
> #X connect 20 0 24 0;
> #X connect 20 0 28 0;
> #X connect 21 0 17 0;
> #X connect 21 0 23 0;
> #X connect 21 0 29 0;
> #X connect 22 0 27 0;
> #X connect 23 0 22 0;
> #X connect 24 0 25 0;
> #X connect 25 0 26 0;
> #X connect 26 0 21 0;
> #X connect 27 0 20 0;
> #X connect 30 0 12 0;
> #X connect 31 0 1 1;
> #X connect 32 0 11 0;
> #X connect 33 0 3 1;
> #X connect 34 0 20 0;
> #X connect 35 0 20 1;
> #X connect 35 0 21 1;
> #X connect 35 0 27 1;
> #X connect 35 0 26 1;
> #X restore 8 162 pd osc1 -----;
> #X obj 11 105 hsl 128 15 50 8000 0 0 empty empty empty -2 -6 0 8  
> -262144
> -1 -1 4800 1;
> #X obj 148 103 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
> -1;
> #X connect 1 0 6 0;
> #X connect 2 0 6 1;
> #X connect 3 0 6 2;
> #X connect 4 0 6 3;
> #X connect 6 0 5 0;
> #X connect 7 0 6 5;
> #X connect 8 0 6 4;
> #X coords 0 0 1 1 190 150 1;
> #X restore 555 -104 pd osc-abs-1;
> #X connect 0 0 1 0;
> #X connect 1 0 0 0;
> #X connect 2 0 9 0;
> #X connect 3 0 4 0;
> #X connect 4 0 2 0;
> #X connect 5 0 2 0;
> #X connect 6 0 2 0;
> #X connect 7 0 4 0;
> #X connect 8 0 4 0;
> #X connect 10 0 4 0;
> #X connect 12 0 4 1;
> #X connect 13 0 4 2;
> _______________________________________________
> PD-list at iem.at mailing list
> UNSUBSCRIBE and account-management -> http://lists.puredata.info/ 
> listinfo/pd-list