[sharing is fun] ghostly traily shapes

Aug 29, 2007 at 8:51am

[sharing is fun] ghostly traily shapes

I was testing some problems I had with erase_color ( I think) and I made
this little bugger of a patch. Draws nice ghost-like beam-me-up type shapes.

Hope you dig it.
Andreas.

#P window setfont “Sans Serif” 9.;
#P window linecount 1;
#P hidden newex 378 105 45 9109513 loadbang;
#P hidden message 378 125 43 9109513 set 255;
#P user hslider 378 144 18 51 256 1 0 0;
#P message 317 145 60 9109513 saturation $1;
#P newex 317 206 74 9109513 vexpr $i1 / 255.;
#P user swatch 317 163 128 32;
#P message 406 231 26 9109513 0.03;
#P message 406 215 26 9109513 0.02;
#P message 406 199 26 9109513 0.01;
#P newex 295 232 100 9109513 pak color 0. 1. 0. 0.03;
#N vpatcher 652 412 1252 812;
#P window setfont “Sans Serif” 9.;
#P newex 185 51 57 9109513 random 360;
#N vpatcher 947 309 1274 581;
#P inlet 189 28 15 0;
#P window setfont “Sans Serif” 9.;
#P newex 125 47 75 9109513 pak set $1 1000;
#P message 6 73 49 9109513 $1 808;
#P outlet 6 202 15 0;
#P inlet 6 31 15 0;
#P newex 93 117 39 9109513 t b f;
#P message 93 97 20 9109513 $1;
#P newex 6 143 29 9109513 tanh;
#P newex 6 169 158 9109513 scale -0.986614 0.986614 0. 1.;
#P message 6 97 67 9109513 -2.5 , 2.5 $2;
#P newex 93 144 27 9109513 f;
#P newex 6 118 53 9109513 line 0. 20;
#P fasten 10 0 9 0 130 69 11 69;
#P connect 7 0 9 0;
#P connect 9 0 2 0;
#P connect 2 0 0 0;
#P connect 0 0 4 0;
#P connect 4 0 3 0;
#P connect 3 0 8 0;
#P fasten 9 0 5 0 11 93 98 93;
#P connect 5 0 6 0;
#P connect 6 0 1 0;
#P connect 1 0 3 3;
#P fasten 3 0 1 1 11 195 173 195 173 140 115 140;
#P connect 6 1 3 4;
#P connect 11 0 10 2;
#P pop;
#P newobj 185 71 60 9109513 p tanh_ramp;
#P newex 117 51 57 9109513 random 360;
#N vpatcher 137 491 737 891;
#P inlet 259 21 15 0;
#P window setfont “Sans Serif” 9.;
#P newex 195 40 75 9109513 pak set $1 1000;
#P message 76 66 49 9109513 $1 808;
#P outlet 76 359 15 0;
#P inlet 76 24 15 0;
#P newex 163 144 39 9109513 t b f;
#P message 163 117 20 9109513 $1;
#P newex 76 244 29 9109513 tanh;
#P newex 76 306 158 9109513 scale -0.986614 0.986614 0. 1.;
#P message 76 117 67 9109513 -2.5 , 2.5 $2;
#P newex 163 233 27 9109513 f;
#P newex 76 214 53 9109513 line 0. 20;
#P connect 7 0 9 0;
#P fasten 10 0 9 0 200 62 81 62;
#P connect 9 0 2 0;
#P connect 2 0 0 0;
#P connect 0 0 4 0;
#P connect 4 0 3 0;
#P connect 3 0 8 0;
#P connect 9 0 5 0;
#P connect 5 0 6 0;
#P connect 6 0 1 0;
#P connect 1 0 3 3;
#P fasten 3 0 1 1 81 339 274 339 274 229 185 229;
#P connect 6 1 3 4;
#P connect 11 0 10 2;
#P pop;
#P newobj 117 71 63 9109513 p tanh_ramp;
#P newex 50 50 57 9109513 random 360;
#N vpatcher 504 360 1104 760;
#P inlet 259 21 15 0;
#P window setfont “Sans Serif” 9.;
#P newex 195 40 75 9109513 pak set $1 1000;
#P message 76 66 49 9109513 $1 808;
#P outlet 76 359 15 0;
#P inlet 76 24 15 0;
#P newex 163 144 39 9109513 t b f;
#P message 163 117 20 9109513 $1;
#P newex 76 244 29 9109513 tanh;
#P newex 76 306 158 9109513 scale -0.986614 0.986614 0. 1.;
#P message 76 117 67 9109513 -2.5 , 2.5 $2;
#P newex 163 233 27 9109513 f;
#P newex 76 214 53 9109513 line 0. 20;
#P fasten 10 0 9 0 200 62 81 62;
#P connect 7 0 9 0;
#P connect 9 0 2 0;
#P connect 2 0 0 0;
#P connect 0 0 4 0;
#P connect 4 0 3 0;
#P connect 3 0 8 0;
#P connect 9 0 5 0;
#P connect 5 0 6 0;
#P connect 6 0 1 0;
#P connect 1 0 3 3;
#P fasten 3 0 1 1 81 339 274 339 274 229 185 229;
#P connect 6 1 3 4;
#P connect 11 0 10 2;
#P pop;
#P newobj 50 71 64 9109513 p tanh_ramp;
#P inlet 50 30 15 0;
#P inlet 117 31 15 0;
#P inlet 185 31 15 0;
#P outlet 50 95 15 0;
#P outlet 117 95 15 0;
#P outlet 185 95 15 0;
#P connect 5 0 7 0;
#P connect 7 0 6 0;
#P connect 6 0 2 0;
#P connect 4 0 9 0;
#P fasten 9 0 8 0 122 66 122 66;
#P connect 8 0 1 0;
#P connect 3 0 11 0;
#P fasten 11 0 10 0 190 66 190 66;
#P connect 10 0 0 0;
#P pop;
#P newobj 205 189 69 9109513 p rot.;
#P comment 51 302 100 9109513 … and bang to reset.;
#P toggle 205 122 15 0;
#P newex 205 142 55 9109513 metro 3000;
#P newex 176 212 98 9109513 pak rotatexyz 0. 0. 0.;
#P button 205 164 15 0;
#P button 51 321 44 14;
#P newex 31 399 38 9109513 pipe 20;
#P newex 51 370 27 9109513 t 0 1;
#P flonum 31 426 35 9 0 0 0 139 0 0 0 221 221 221 222 222 222 0 0 0;
#P message 31 445 100 9109513 erase_color 0. 0. 0. $1;
#P newex 40 188 27 9109513 – 10.;
#P newex 40 165 27 9109513 / 15.;
#P newex 40 143 34 9109513 % 300;
#P newex 40 212 99 9109513 pak position 0. 0. -15.;
#N counter;
#X flags 0 0;
#P newobj 40 120 66 9109513 counter;
#P newex 40 235 127 9109513 jit.gl.handle bleen @visible 0;
#P newex 19 493 262 9109513 jit.window bleen @floating 1 @fsaa 1 @rect
100 100 420 950;
#P toggle 19 36 15 0;
#P newex 19 89 53 9109513 t b b erase;
#P newex 19 61 50 9109513 qmetro 10;
#P newex 19 469 335 9109513 jit.gl.render bleen @blend_enable 1
@blend_mode 6 1 @erase_color 0. 0. 0. 0.;
#P window linecount 2;
#P newex 40 261 243 9109513 jit.gl.gridshape bleen @shape plane @scale
0.2 4. 1. @color 0. 1. 0. 0.01 @blend_enable 1 @blend_mode 6 1;
#P window linecount 1;
#P comment 37 36 100 9109513 Toggle to render…;
#P comment 150 36 186 9109513 and let it run for a little while to
manifest…;
#P window setfont “Sans Serif” 10.;
#P comment 345 369 140 9109514 andreas{at}wetterberg{dot}dk;
#P connect 20 0 25 0;
#P fasten 20 0 25 1 210 183 239 183;
#P fasten 20 0 25 2 210 183 268 183;
#P connect 32 0 30 0;
#P hidden connect 34 0 33 0;
#P hidden connect 33 0 32 0;
#P hidden connect 35 0 34 0;
#P connect 31 0 26 1;
#P connect 30 0 31 0;
#P connect 28 0 26 4;
#P connect 29 0 26 4;
#P connect 27 0 26 4;
#P fasten 26 0 3 0 300 256 45 256;
#P connect 25 2 21 3;
#P connect 22 0 20 0;
#P connect 25 1 21 2;
#P connect 25 0 21 1;
#P fasten 23 0 22 0 210 139 210 139;
#P connect 7 0 5 0;
#P fasten 7 0 23 0 24 56 210 56;
#P fasten 14 0 11 2 45 209 103 209;
#P connect 19 0 17 0;
#P fasten 21 0 3 0 181 258 45 258;
#P connect 9 0 3 0;
#P connect 11 0 9 0;
#P connect 13 0 14 0;
#P connect 12 0 13 0;
#P connect 10 0 12 0;
#P connect 6 1 10 0;
#P lcolor 15;
#P connect 16 0 15 0;
#P fasten 18 0 16 0 36 422 36 422;
#P fasten 17 1 16 0 73 422 36 422;
#P fasten 17 0 18 0 56 394 36 394;
#P fasten 15 0 4 0 36 465 24 465;
#P fasten 6 0 4 0 24 287 24 287;
#P fasten 6 2 4 0 66 116 24 116;
#P connect 5 0 6 0;
#P window clipboard copycount 36;

#33455
Aug 29, 2007 at 11:48am

Where is max’ “export to screensaver” command when you need it?

Mattijs

#111520
Aug 29, 2007 at 4:41pm

Sunshine. ;)

#111521

You must be logged in to reply to this topic.