[jitter] sharing is fun - inverting an infinite tiling around a circle

cool repos action

On Jan 4, 2008 7:27 AM, Adam Murray <adamjmurray at gmail.com> wrote:

>
> This is my first jitter patch of any worth. Open a file, click play, and
> zoom away. I like wheel.mov and dishes.mov zoomed in.
>
> Basically, it takes a polar coordinate (r,theta) and swaps it with (1/r,
> theta). The video/image is tiled using appropriate jit.repos boundmodes so
> that all points out to infinity are valid (within computation limits).
> Changing the radius r (the zoom control in my patch) makes for a nice
> effect.
>
> There are a couple strange things about this patch I don't understand. In
> the GenerateMap subpatch, I am having trouble initializing the
> transformation matrix. After the exprfill, I have to bang the starting
> matrix twice for some reason and it seems there needs to be a delay in
> between. Also, trying to initialize it with a loadbang doesn't seem to work.
> Even with a delay and deferlow. Note that if you click the zoom control it
> will correct the problem, but I want it to work immediately after loading a
> file and clicking play. Anyone have any ideas on that?
>
> Any other suggestions are appreciated, as I am still learning Jitter.
>
> Adam
>
> #P window setfont "Sans Serif" 9.;
> #P window linecount 1;
> #P newex 618 152 53 196617 pvar play;
> #P window setfont "Fixedwidth Serif" 10.;
> #P message 160 94 106 1441802 read traffic.mov;
> #P window setfont "Sans Serif" 12.;
> #P comment 283 25 36 196620 Play;
> #P toggle 283 44 40 0;
> #P objectname play;
> #P window setfont "Sans Serif" 9.;
> #P newex 29 105 53 196617 pvar play;
> #P comment 493 47 30 196617 fold;
> #P comment 493 64 30 196617 wrap;
> #N vpatcher 262 248 523 416;
> #P window setfont "Sans Serif" 9.;
> #P newex 53 54 55 196617 select 1 0;
> #P message 134 94 67 196617 boundmode 4;
> #P message 53 95 67 196617 boundmode 2;
> #P inlet 53 30 15 0;
> #P outlet 85 131 15 0;
> #P connect 1 0 4 0;
> #P connect 4 0 2 0;
> #P connect 2 0 0 0;
> #P connect 3 0 0 0;
> #P connect 4 1 3 0;
> #P pop;
> #P newobj 368 175 81 196617 p wrapmodectrl;
> #P newex 368 155 80 196617 pvar wrapmode;
> #P user radiogroup 477 45 18 32;
> #X size 2;
> #X offset 16;
> #X inactive 0;
> #X itemtype 0;
> #X flagmode 0;
> #X set 0;
> #X done;
> #P objectname wrapmode;
> #N vpatcher 481 94 754 466;
> #P window setfont "Sans Serif" 9.;
> #P newex 54 75 20 196617 t b;
> #P newex 122 137 45 196617 onebang;
> #P message 181 256 48 196617 set 1 \$1;
> #P newex 54 252 87 196617 scale 0. 1. 0.5 8.;
> #P message 66 168 46 196617 0. 5000;
> #P message 54 101 62 196617 0. \, 1. 5000;
> #P newex 54 190 40 196617 line 0.;
> #P inlet 54 55 15 0;
> #P inlet 185 50 15 0;
> #P outlet 181 276 15 0;
> #P outlet 54 274 15 0;
> #P connect 3 0 10 0;
> #P connect 10 0 5 0;
> #P connect 5 0 4 0;
> #P connect 6 0 4 0;
> #P connect 4 0 7 0;
> #P fasten 2 0 7 0 190 241 59 241;
> #P connect 7 0 0 0;
> #P connect 9 0 6 0;
> #P fasten 4 1 9 0 89 211 117 211 117 131 127 131;
> #P fasten 5 0 9 1 59 122 162 122;
> #P connect 4 0 8 0;
> #P connect 8 0 1 0;
> #P pop;
> #P newobj 547 127 58 196617 p zoomctrl;
> #P newex 547 105 76 196617 pvar autozoom;
> #P newex 616 126 57 196617 pvar zoom;
> #P message 331 121 57 196617 auto-zoom;
> #P objectname autozoom;
> #P user jit.pwindow 366 226 322 242 0 1 0 0 1 0;
> #P user jit.pwindow 28 227 322 242 0 1 0 0 1 0;
> #P comment 426 49 25 196617 in;
> #P user multiSlider 391 48 33 89 0. 1. 1 2681 47 0 0 2 0 40 0;
> #M frgb 11 0 198;
> #M brgb 255 255 255;
> #M rgb2 127 127 127;
> #M rgb3 0 0 0;
> #M rgb4 37 52 91;
> #M rgb5 74 105 182;
> #M rgb6 112 158 18;
> #M rgb7 149 211 110;
> #M rgb8 187 9 201;
> #M rgb9 224 62 37;
> #M rgb10 7 114 128;
> #P objectname zoom;
> #P window setfont "Fixedwidth Serif" 10.;
> #P message 142 74 94 1441802 read wheel.mov;
> #P message 123 52 100 1441802 read dishes.mov;
> #P window setfont "Sans Serif" 9.;
> #N vpatcher 169 149 777 552;
> #P origin 0 -6;
> #P window setfont "Sans Serif" 9.;
> #P window linecount 1;
> #P comment 178 98 49 196617 Issue 2:;
> #P comment 162 278 244 196617 multiply to increase circle radius (the zoom
> effect);
> #P window linecount 0;
> #P newex 170 76 54 196617 onebang 1;
> #P newex 113 105 55 196617 delay 250;
> #P newex 170 49 20 196617 t b;
> #P inlet 170 25 15 0;
> #P newex 170 156 142 196617 jit.matrix 2 float32 320 240;
> #P newex 57 134 29 196617 t b f;
> #P message 10 236 39 196617 val \$1;
> #P newex 57 277 99 196617 jit.op @op * @val 1;
> #P message 170 132 278 196617 exprfill 0 "2*norm[0]-1" \, exprfill 1
> "2*norm[1]-1" \, bang;
> #P window linecount 3;
> #P comment 359 312 208 196617 transform to an x \, y deltas matrix for
> mode 1 of jit.repos (assumes initial exprfilled matrix goes from -1 to 1
> on both axes);
> #P window linecount 2;
> #P newex 57 314 287 196617 jit.expr @expr "in[0].p[0]*dim[0]/2. +
> dim[0]/2.-norm[0]*dim[0]" "in[0].p[1]*dim[1]/2.+dim[1]/2.-norm[1]*dim[1]";
> #P window linecount 1;
> #P newex 57 234 140 196617 jit.expr @expr "in[0]/in[1]";
> #P newex 187 205 349 196617 jit.expr @inputs 1 @expr
> "(in[0].p[0]*in[0].p[0])+(in[0].p[1]*in[0].p[1])";
> #P inlet 57 95 15 0;
> #P outlet 57 354 15 0;
> #P comment 202 226 230 196617 calculate 1/conj(z) = x/(x^2+y^2) \,
> y/(x^2+y^2);
> #P window linecount 0;
> #P comment 316 152 141 196617 fill with x \, y coordinates from -1 to 1 on
> both axes;
> #P comment 178 112 277 196617 I can't figure out why the second delayed
> bang is necessary;
> #P comment 200 56 188 196617 loadbang here doesn't seem to work!;
> #P comment 200 42 49 196617 Issue 1:;
> #P connect 14 1 13 0;
> #P connect 6 0 14 0;
> #P connect 15 0 8 0;
> #P connect 14 0 8 0;
> #P connect 8 0 12 0;
> #P connect 13 0 12 0;
> #P connect 12 0 9 0;
> #P connect 9 0 5 0;
> #P connect 19 0 18 0;
> #P connect 16 0 17 0;
> #P connect 17 0 19 0;
> #P connect 19 0 11 0;
> #P connect 11 0 15 0;
> #P connect 18 0 15 0;
> #P connect 15 0 7 0;
> #P connect 7 0 8 1;
> #P pop;
> #P newobj 547 173 81 196617 p MapGenerator;
> #P window setfont "Sans Serif" 10.;
> #P message 204 117 33 196618 read;
> #P window setfont "Sans Serif" 9.;
> #P newex 29 129 52 196617 metro 50;
> #P newex 29 165 103 196617 jit.qt.movie 320 240;
> #P window setfont "Fixedwidth Serif" 10.;
> #P message 106 30 133 1441802 read colorswatch.pict;
> #P newex 367 199 190 1441802 jit.repos @mode 1 @boundmode 4;
> #B color 5;
> #P window setfont "Sans Serif" 12.;
> #P comment 352 79 51 196620 Zoom;
> #P window setfont "Sans Serif" 9.;
> #P comment 426 124 25 196617 out;
> #P window setfont "Sans Serif" 12.;
> #P comment 455 27 77 196620 Wrap Mode;
> #P user panel 278 21 257 122;
> #X brgb 205 235 241;
> #X frgb 0 0 0;
> #X border 1;
> #X rounded 0;
> #X shadow 0;
> #X done;
> #P user panel 100 21 172 120;
> #X brgb 231 228 182;
> #X frgb 0 0 0;
> #X border 1;
> #X rounded 0;
> #X shadow 0;
> #X done;
> #P connect 30 0 10 1;
> #P connect 20 1 18 0;
> #P connect 18 0 20 1;
> #P connect 10 0 5 1;
> #P connect 20 0 10 0;
> #P connect 19 0 20 0;
> #P connect 22 0 23 0;
> #P connect 5 0 16 0;
> #P connect 23 0 5 0;
> #P fasten 7 0 5 0 34 196 372 196;
> #P connect 7 0 15 0;
> #P fasten 29 0 7 0 165 154 34 154;
> #P connect 8 0 7 0;
> #P fasten 9 0 7 0 209 154 34 154;
> #P fasten 6 0 7 0 111 154 34 154;
> #P fasten 11 0 7 0 128 154 34 154;
> #P fasten 12 0 7 0 147 154 34 154;
> #P connect 26 0 8 0;
> #P window clipboard copycount 31;
>
>
>
>
>
> _______________________________________________
> jitter mailing list
> jitter at cycling74.com
> http://www.cycling74.com/mailman/listinfo/jitter
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.cycling74.com/pipermail/jitter/attachments/20080104/80e7531d/attachment.htm