max v2;
#N vpatcher 305 281 1090 692;
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P newex 24 139 109 196617 expr (127./(2.*$f1));
#P window linecount 3;
#P comment 301 70 144 196617 Create tendency toward integer multiples of speed (for harmonic tones);
#P window linecount 2;
#P comment 492 250 146 196617 Send speed signal to playmodule;
#P window linecount 1;
#P newex 463 202 47 196617 r sigvar;
#P newex 24 113 88 196617 r playscalefactor;
#P newex 579 204 61 196617 s dispspeed;
#P newex 15 91 75 196617 r playspeeddir;
#P newex 549 227 72 196617 send~ speedsig;
#P window setfont "Sans Serif" 20.;
#P comment 204 28 206 196628 SPEED & DIRECTION;
#P window setfont "Sans Serif" 9.;
#P flonum 200 70 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 302 159 27 196617 -1.;
#P newex 302 137 160 196617 if $f1<0.0 then $f1 else out2 $f1;
#P newex 267 137 29 196617 + 1.;
#P newex 267 113 160 196617 if $f1>0.0 then $f1 else out2 $f1;
#P newex 330 191 45 196617 <= 0.17;
#P user gswitch 245 191 41 32 0 0;
#P newex 381 191 38 196617 abs 0.;
#P newex 424 191 27 196617 - 0.;
#P newex 267 91 27 196617 int;
#P newex 200 163 45 196617 <= 0.17;
#P user gswitch 162 189 41 32 0 0;
#P newex 200 140 38 196617 abs 0.;
#P newex 200 115 27 196617 - 0.;
#P newex 200 91 27 196617 int;
#P newex 504 68 51 196617 pack 0. 2;
#P newex 504 91 44 196617 line 0. 1;
#P newex 507 202 44 196617 r onvar;
#P message 625 150 14 196617 1;
#P message 587 148 14 196617 0;
#P newex 587 126 48 196617 select 0.;
#P newex 562 174 27 196617 gate;
#P flonum 507 228 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 15 189 27 196617 - 2.;
#P newex 15 165 34 196617 / 32.;
#P newex 549 202 25 196617 sig~;
#P window linecount 3;
#P comment 561 68 86 196617 Make a smooth line from discreet controller data;
#P window linecount 6;
#P comment 502 124 75 196617 Make sure speed value is never 0 (to prevent clicks \, b/c the audio stops);
#P window linecount 4;
#P comment 50 165 76 196617 Bring controller data to a suitable range for speed;
#P window linecount 9;
#P comment 139 70 46 196617 Create tendency toward integer multiples of speed (for harmonic tones);
#P user panel 139 68 100 155;
#X brgb 214 214 214;
#X frgb 157 157 157;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P user panel 13 86 116 125;
#X brgb 214 214 214;
#X frgb 157 157 157;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P user panel 503 65 137 52;
#X brgb 214 214 214;
#X frgb 157 157 157;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P user panel 503 122 137 73;
#X brgb 214 214 214;
#X frgb 157 157 157;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P flonum 344 162 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P flonum 267 66 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P user panel 244 64 209 162;
#X brgb 214 214 214;
#X frgb 157 157 157;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P user panel 461 199 178 67;
#X brgb 214 214 214;
#X frgb 157 157 157;
#X border 1;
#X rounded 0;
#X shadow 0;
#X done;
#P window linecount 4;
#P comment 12 237 339 196617 INFO: Module uses user input to control the playback speed signal \, and therefore also the pitch. Also controls playback direction: positive speed signals cause forward playback \, and negative speed signals cause backward playback.;
#P connect 41 0 14 0;
#P connect 14 0 15 0;
#P connect 43 0 47 0;
#P fasten 43 0 15 1 29 135 110 135 110 160 37 160;
#P fasten 47 0 14 1 29 161 44 161;
#P fasten 28 0 27 0 205 186 167 186;
#P fasten 38 0 27 1 205 88 182 88;
#P fasten 24 0 27 2 205 112 197 112;
#P fasten 15 0 38 0 20 215 135 215 135 63 205 63;
#P connect 38 0 24 0;
#P connect 24 0 25 0;
#P connect 25 0 26 0;
#P connect 26 0 28 0;
#P fasten 38 0 25 1 205 87 230 87 230 111 222 111;
#P fasten 33 0 32 0 335 213 288 213 288 187 250 187;
#P fasten 3 0 32 1 272 87 265 87;
#P fasten 27 0 3 0 167 229 241 229 241 63 272 63;
#P connect 3 0 29 0;
#P connect 29 0 34 0;
#P connect 34 0 35 0;
#P fasten 4 0 32 2 349 184 280 184;
#P fasten 34 1 36 0 422 134 307 134;
#P connect 36 0 37 0;
#P fasten 31 0 33 0 386 214 375 214 375 188 335 188;
#P fasten 36 1 4 0 457 158 349 158;
#P fasten 35 0 4 0 272 181 338 181 338 159 349 159;
#P fasten 37 0 4 0 307 179 335 179 335 157 349 157;
#P fasten 30 0 31 0 429 215 420 215 420 188 386 188;
#P fasten 4 0 30 0 349 184 429 184;
#P fasten 3 0 30 1 272 83 446 83;
#P fasten 32 0 23 0 250 229 458 229 458 61 509 61;
#P connect 23 0 22 0;
#P fasten 44 0 16 0 468 224 512 224;
#P connect 21 0 16 0;
#P fasten 17 0 16 0 567 197 543 197 543 224 512 224;
#P fasten 16 0 13 0 512 245 546 245 546 199 554 199;
#P connect 13 0 40 0;
#P fasten 19 0 17 0 592 169 567 169;
#P fasten 20 0 17 0 630 171 567 171;
#P fasten 22 0 17 1 509 116 584 116;
#P fasten 16 0 42 0 512 249 636 249 636 201 584 201;
#P fasten 22 0 18 0 509 119 592 119;
#P connect 18 0 19 0;
#P connect 18 1 20 0;
#P pop;
