max v2; #N vpatcher 302 87 1109 599; #P window setfont "Sans Serif" 9.; #P hidden newex 620 207 45 196617 s maxOL; #P hidden message 739 154 20 196617 25; #P hidden newex 739 127 45 196617 loadbang; #P number 566 169 35 9 1 75 67 3 0 0 0 221 221 221 222 222 222 0 0 0; #P newex 562 209 45 196617 loadbang; #P button 562 233 15 0; #P newex 562 251 135 196617 buffer~ qguass 185.759644; #N vpatcher 959 135 1312 313; #P window setfont "Sans Serif" 9.; #N vpatcher 816 565 1087 827; #P window setfont "Sans Serif" 9.; #P newex 110 143 50 196617 pack 0 0.; #N coll AmpR; #P newobj 110 171 54 196617 coll AmpR; #P newex 150 117 75 196617 expr sqrt($f1); #P newex 60 68 27 196617 - 1; #P newex 60 92 34 196617 * 0.01; #P newex 20 143 50 196617 pack 0 0.; #N coll AmpL; #P newobj 20 171 53 196617 coll AmpL; #P newex 60 117 85 196617 expr sqrt(1-$f1); #P inlet 20 35 15 0; #P connect 0 0 3 0; #P connect 3 0 2 0; #P connect 0 0 5 0; #P connect 5 0 4 0; #P connect 4 0 1 0; #P connect 1 0 3 1; #P fasten 0 0 8 0 25 137 115 137; #P connect 8 0 7 0; #P connect 4 0 6 0; #P connect 6 0 8 1; #P pop; #P newobj 258 126 55 196617 p SqrtAmp; #P newex 224 98 44 196617 Uzi 101; #N vpatcher 574 216 946 432; #P window setfont "Sans Serif" 9.; #P newex 53 73 27 196617 - 1; #P newex 13 120 50 196617 pack 0 0.; #N coll Tvalues; #P newobj 13 148 62 196617 coll Tvalues; #P newex 53 96 178 196617 expr .25*pow(1.05946325\\\,$i1*.5); #P inlet 13 31 15 0; #P comment 129 69 193 196617 generates floats spanning logarithmically from 0.25 through 4; #P comment 102 132 232 196617 take T values and multiply by 2 to get phasor frequency. Simply multiply phasor output by ms dur or number of samps to control playback of tap; #P comment 127 29 100 196617 1.059463; #P connect 3 0 6 0; #P connect 6 0 5 0; #P connect 3 0 7 0; #P connect 7 0 4 0; #P connect 4 0 6 1; #P pop; #P newobj 149 126 42 196617 p 4octT; #P newex 119 98 40 196617 Uzi 97; #P inlet 119 53 15 0; #N vpatcher 786 301 1061 541; #P window setfont "Sans Serif" 9.; #P newex 35 196 185 196617 expr sqrt((sin($f1+4.712389)*.5)+.5); #P newex 63 104 159 196617 expr (sin($f1+4.712389)*.5)+.5; #P newex 63 80 85 196617 * 0.000767; #P newex 23 132 50 196617 pack 0 0.; #P newex 23 153 68 196617 peek~ qguass; #P inlet 23 29 15 0; #P connect 0 0 2 0; #P connect 2 0 1 0; #P connect 0 0 3 0; #P connect 3 0 4 0; #P connect 4 0 2 1; #P pop; #P newobj 59 126 55 196617 p guassgen; #P newex 21 98 49 196617 Uzi 8192; #P newex 21 53 50 196617 loadbang; #P comment 143 54 145 196617 calculate transposition factors for semitones and store in a table or buffer or coll; #P connect 4 0 2 0; #P connect 1 0 2 0; #P connect 2 2 3 0; #P connect 4 0 5 0; #P connect 1 0 5 0; #P connect 5 2 6 0; #P connect 4 0 7 0; #P connect 1 0 7 0; #P connect 7 2 8 0; #P pop; #P newobj 583 232 99 196617 p generate-buffers~; #P message 3 89 28 196617 open; #P toggle 44 75 29 0; #P comment 1 28 36 196617 open sound file to record into; #P hidden newex 453 127 42 196617 s aut17; #P hidden newex 608 36 42 196617 s aut16; #P hidden newex 443 111 42 196617 s aut19; #P hidden newex 682 146 42 196617 s aut18; #P hidden newex 535 38 42 196617 s aut15; #P hidden newex 427 358 42 196617 s aut10; #P hidden newex 389 358 35 196617 s aut9; #P hidden newex 381 172 41 196617 r autr9; #P hidden newex 704 91 45 196617 r autr18; #P hidden newex 388 48 45 196617 r autr19; #P hidden newex 368 227 41 196617 r autr5; #P hidden newex 490 24 45 196617 r autr15; #P hidden newex 370 244 41 196617 r autr6; #P hidden newex 135 200 41 196617 r autr3; #P hidden newex 517 168 45 196617 r autr12; #P hidden newex 259 200 41 196617 r autr4; #P hidden newex 187 311 41 196617 r autr7; #P hidden newex 651 26 45 196617 r autr16; #P hidden newex 569 91 45 196617 r autr17; #P hidden newex 312 310 41 196617 r autr8; #P hidden newex 348 25 41 196617 r autr2; #P hidden newex 470 168 45 196617 r autr11; #P hidden newex 423 171 45 196617 r autr10; #P hidden newex 153 22 41 196617 r autr1; #N vpatcher 48 70 573 634; #P button 340 220 15 0; #P window setfont "Sans Serif" 9.; #P message 340 242 38 196617 record; #P newex 191 97 31 196617 - 10; #P button 172 98 15 0; #P message 172 117 14 196617 0; #P message 67 117 14 196617 0; #P button 67 98 15 0; #P newex 49 76 152 196617 if $i1>10 then out2 $i1 else $i1; #P message 389 150 31 196617 clear; #P message 357 150 31 196617 clear; #P message 287 150 38 196617 record; #P message 258 150 27 196617 stop; #P newex 293 75 80 196617 select 0 1 2 3 4; #P newex 163 214 68 196617 r sampstart1; #P newex 163 365 42 196617 r aut10; #P newex 402 217 54 196617 r ampbase; #P newex 163 231 55 196617 r sampdev; #P newex 163 332 49 196617 r l-rrand; #P newex 402 318 42 196617 r aut17; #P newex 402 301 42 196617 r aut16; #P newex 163 315 29 196617 r l-r; #P newex 163 265 51 196617 r gpsrand; #P newex 578 309 52 196617 r envbase; #P newex 402 234 54 196617 r amprand; #P newex 163 248 31 196617 r gps; #P newex 163 298 55 196617 r gdurrand; #P newex 402 284 42 196617 r aut15; #P newex 578 325 52 196617 r envrand; #P newex 163 281 55 196617 r gdurbase; #P newex 548 348 42 196617 r aut20; #P newex 402 351 42 196617 r aut19; #P newex 402 334 42 196617 r aut18; #P newex 163 348 35 196617 r aut9; #P newex 127 451 41 196617 s autr9; #P newex 403 468 45 196617 s autr18; #P newex 413 451 45 196617 s autr19; #P newex 548 364 45 196617 s autr20; #P newex 56 435 41 196617 s autr5; #P newex 585 412 45 196617 s autr14; #P newex 329 435 45 196617 s autr15; #P newex 96 500 41 196617 s autr6; #P newex 35 468 41 196617 s autr3; #P newex 298 484 45 196617 s autr12; #P newex 575 429 45 196617 s autr13; #P newex 46 451 41 196617 s autr4; #P newex 106 484 41 196617 s autr7; #P newex 384 500 45 196617 s autr16; #P newex 393 484 45 196617 s autr17; #P newex 116 468 41 196617 s autr8; #P newex 25 484 41 196617 s autr2; #P newex 288 500 45 196617 s autr11; #P newex 137 435 45 196617 s autr10; #P newex 14 500 41 196617 s autr1; #P newex 275 397 144 196617 mtr 10; #P newex 1 397 144 196617 mtr 10; #P message 328 150 27 196617 play; #P newex 288 190 64 196617 gate 5; #P newex 14 189 131 196617 gate 10; #P inlet 293 48 15 0; #P inlet 114 48 15 0; #P comment 91 22 67 196617 record enable select in; #P comment 272 22 68 196617 master automation in; #P comment 525 381 103 196617 r aut20 and s autr 20 currently not in use; #P fasten 54 0 8 0 394 177 6 177; #P fasten 7 0 8 0 333 170 6 170; #P fasten 51 0 8 0 263 170 6 170; #P connect 55 0 5 0; #P connect 58 0 5 0; #P connect 49 0 8 1; #P connect 5 0 8 1; #P connect 8 1 10 0; #P connect 8 2 13 0; #P connect 46 0 8 2; #P connect 5 1 8 2; #P connect 8 3 21 0; #P connect 38 0 8 3; #P connect 5 2 8 3; #P connect 8 4 18 0; #P connect 3 0 55 0; #P connect 41 0 8 4; #P connect 5 3 8 4; #P connect 8 5 25 0; #P connect 34 0 8 5; #P connect 5 4 8 5; #P connect 55 0 56 0; #P connect 56 0 57 0; #P connect 37 0 8 6; #P connect 5 5 8 6; #P connect 42 0 8 7; #P connect 5 6 8 7; #P connect 8 6 22 0; #P connect 45 0 8 8; #P connect 5 7 8 8; #P connect 8 7 17 0; #P connect 8 8 14 0; #P connect 30 0 8 9; #P connect 5 8 8 9; #P connect 8 9 29 0; #P connect 48 0 8 10; #P connect 5 9 8 10; #P fasten 52 0 5 1 292 177 140 177; #P fasten 53 0 5 1 362 177 140 177; #P connect 8 10 11 0; #P connect 55 1 59 0; #P connect 59 0 58 0; #P connect 55 1 60 0; #P connect 50 0 51 0; #P fasten 54 0 9 0 394 177 280 177; #P fasten 51 0 9 0 263 170 280 170; #P fasten 7 0 9 0 333 170 280 170; #P connect 50 2 52 0; #P fasten 57 0 6 0 72 156; #P fasten 60 0 6 0 196 143; #P connect 47 0 9 1; #P connect 6 0 9 1; #P connect 9 1 12 0; #P connect 4 0 50 0; #P connect 9 2 20 0; #P connect 39 0 9 2; #P connect 6 1 9 2; #P connect 6 2 9 3; #P connect 6 3 9 4; #P connect 50 2 7 0; #P connect 50 1 7 0; #P connect 9 5 23 0; #P connect 6 4 62 0; #P connect 62 0 61 0; #P connect 61 0 9 5; #P connect 36 0 9 5; #P fasten 53 0 6 1 362 177 347 177; #P fasten 52 0 6 1 292 177 347 177; #P connect 61 0 9 6; #P connect 43 0 9 6; #P connect 50 3 53 0; #P connect 61 0 9 7; #P connect 44 0 9 7; #P connect 61 0 9 8; #P connect 31 0 9 8; #P connect 9 6 16 0; #P connect 50 4 54 0; #P connect 61 0 9 9; #P connect 32 0 9 9; #P connect 9 7 15 0; #P connect 9 8 28 0; #P connect 9 9 27 0; #P pop; #P newobj 311 174 65 196617 p automation; #P user umenu 383 122 58 196645 1 64 138 0; #X add stop; #X add play; #X add record; #X add clear track; #X add clear all; #P user umenu 294 156 149 196645 1 64 172 0; #X add no record enabled; #X add sample start location; #X add random start location; #X add grains per second (gps); #X add gps random deviation; #X add base grain duration; #X add random grain duration; #X add left-right panning; #X add panning random deviation; #X add transposition; #X add transposition random deviation; #X add base amplitude; #X add amplitude random deviation; #X add envelope; #X add envelope random deviation; #X add cluster generator; #N vpatcher 33 58 180 246; #P outlet 87 145 15 0; #P window setfont "Sans Serif" 9.; #P newex 14 144 68 196617 s sampstart1; #P inlet 114 22 15 0; #P inlet 33 22 15 0; #P inlet 84 22 15 0; #P inlet 55 22 15 0; #P inlet 14 22 15 0; #P newex 38 114 48 196617 line 0 25; #P newex 38 75 55 196617 pack 1 1 1; #P message 38 96 54 196617 \$1 \, \$2 \$3; #P newex 38 55 27 196617 int; #P newex 67 55 27 196617 int; #P newex 97 55 27 196617 int; #P connect 6 0 11 0; #P connect 9 0 2 0; #P connect 2 0 4 0; #P connect 4 0 3 0; #P connect 3 0 5 0; #P connect 7 0 2 1; #P connect 1 0 4 1; #P fasten 9 0 1 0 38 44 72 44; #P connect 0 0 4 2; #P connect 8 0 1 1; #P connect 5 0 12 0; #P fasten 9 0 0 0 38 44 102 44; #P connect 10 0 0 1; #P pop; #P hidden newobj 187 142 62 196617 p rampsamp; #P number 303 122 74 9 1 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0; #P number 247 122 52 9 0 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0; #P number 193 122 49 9 0 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0; #P button 173 122 15 0; #P hidden newex 292 25 55 196617 s sampdev; #P number 294 80 73 9 0 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0; #P hidden message 83 110 14 196617 0; #P hidden newex 394 306 31 196617 - 48; #P hidden newex 111 182 27 196617 + 1; #P hidden message 138 182 45 196617 store \$1; #P hidden newex 119 109 45 196617 loadbang; #P hidden message 98 110 20 196617 21; #P user umenu 132 165 49 196644 1 64 181 0; #X add store 1; #X add store 2; #X add store 3; #X add store 4; #X add store 5; #X add store 6; #X add store 7; #X add store 8; #X add store 9; #X add store 10; #X add store 11; #X add store 12; #X add store 13; #X add store 14; #X add store 15; #X add store 16; #X add store 17; #X add store 18; #X add store 19; #X add store 20; #N vpreset 21; #X append 1 2 23 75 90 toggle int 0 \; 24 75 136 toggle int 0 \; 25 80 445 toggle int 0 \; 26 81 199 flonum float 0. \; 27 126 535 rslider list 2 40 \; 28 126 496 number; #X append 1 2 int 50 \; 29 126 657 number int 1000 \; 34 70 656 number int 1000 \; 35 70 495 number int 50 \; 36 70 534 rslider list 2 40 \; 39 80 476 led int 0 \; 40 281 249; #X append 1 2 hslider int 50 \; 41 280 233 incdec int 50 \; 42 280 195 number int 50 \; 43 295 249 hslider int 100 \; 44 294 233 incdec int 100 \; 45 294 195 number int 100 \; 50 292 495; #X append 1 2 number int 50 \; 51 292 461 number int 50 \; 52 211 480 uslider int 50 \; 54 278 511 incdec int 50 \; 55 211 498 uslider int 50 \; 56 277 466 incdec int 50 \; 62 292 390; #X append 1 2 flonum float 0. \; 63 278 395 incdec int 48 \; 64 212 410 uslider int 48 \; 65 277 440 incdec int 0 \; 67 212 427 uslider int 0 \; 69 292 424 flonum float 0. \; 74 230 179; #X append 1 2 flonum float 0.016 \; 75 216 233 incdec int 4 \; 76 246 233 incdec int 25 \; 77 246 196 number int 25 \; 78 231 233 incdec int 8 \; 79 261 233 incdec int 25 \; 80 261 196; #X append 1 2 number int 25 \; 86 262 249 hslider int 25 \; 87 249 249 hslider int 25 \; 88 231 249 hslider int 8 \; 89 218 249 hslider int 4 \; 90 214 177 flonum float 50. \; 98 165 132; #X append 1 2 umenu int 0 \; 105 80 294 number int 10 \; 108 122 193 number int 0 \; 109 122 247 number int 0 \; 110 122 303 number int 1 \;; #X append 2 2 23 75 90 toggle int 0 \; 24 75 136 toggle int 0 \; 25 80 445 toggle int 0 \; 26 81 199 flonum float 0. \; 27 126 535 rslider list 2 40 \; 28 126 496 number; #X append 2 2 int 50 \; 29 126 657 number int 1000 \; 34 70 656 number int 1000 \; 35 70 495 number int 50 \; 36 70 534 rslider list 2 40 \; 39 80 476 led int 0 \; 40 281 249; #X append 2 2 hslider int 12 \; 41 280 233 incdec int 12 \; 42 280 195 number int 12 \; 43 295 249 hslider int 52 \; 44 294 233 incdec int 52 \; 45 294 195 number int 52 \; 50 292 495; #X append 2 2 number int 26 \; 51 292 461 number int 49 \; 52 211 480 uslider int 49 \; 54 278 511 incdec int 26 \; 55 211 498 uslider int 26 \; 56 277 466 incdec int 49 \; 62 292 390; #X append 2 2 flonum float 14.5 \; 63 278 395 incdec int 77 \; 64 212 410 uslider int 29 \; 65 277 440 incdec int 54 \; 67 212 427 uslider int 54 \; 69 292 424 flonum float 27. \; 74 230 179; #X append 2 2 flonum float 0.09 \; 75 216 233 incdec int 32 \; 76 246 233 incdec int 26 \; 77 246 196 number int 26 \; 78 231 233 incdec int 45 \; 79 261 233 incdec int 14 \; 80 261 196; #X append 2 2 number int 14 \; 86 262 249 hslider int 14 \; 87 249 249 hslider int 26 \; 88 231 249 hslider int 45 \; 89 218 249 hslider int 32 \; 90 214 177 flonum float 330. \; 98 165 132; #X append 2 2 umenu int 1 \;; #X append 3 2 23 75 90 toggle int 0 \; 24 75 136 toggle int 0 \; 25 80 445 toggle int 0 \; 26 81 199 flonum float 0. \; 27 126 535 rslider list 35 59 \; 28 126 496 number; #X append 3 2 int 875 \; 29 126 657 number int 1475 \; 34 70 656 number int 2700 \; 35 70 495 number int 1025 \; 36 70 534 rslider list 41 108 \; 39 80 476 led int 0 \; 40 281 249; #X append 3 2 hslider int 23 \; 41 280 233 incdec int 23 \; 42 280 195 number int 23 \; 43 295 249 hslider int 72 \; 44 294 233 incdec int 72 \; 45 294 195 number int 72 \; 50 292 495; #X append 3 2 number int 76 \; 51 292 461 number int 6 \; 52 211 480 uslider int 6 \; 54 278 511 incdec int 76 \; 55 211 498 uslider int 76 \; 56 277 466 incdec int 6 \; 62 292 390; #X append 3 2 flonum float 11. \; 63 278 395 incdec int 70 \; 64 212 410 uslider int 70 \; 65 277 440 incdec int 33 \; 67 212 427 uslider int 33 \; 69 292 424 flonum float 16.5 \; 74 230 179; #X append 3 2 flonum float 0.172 \; 75 216 233 incdec int 89 \; 76 246 233 incdec int 7 \; 77 246 196 number int 7 \; 78 231 233 incdec int 86 \; 79 261 233 incdec int 33 \; 80 261 196; #X append 3 2 number int 33 \; 86 262 249 hslider int 33 \; 87 249 249 hslider int 7 \; 88 231 249 hslider int 86 \; 89 218 249 hslider int 89 \; 90 214 177 flonum float 900. \; 98 165 132; #X append 3 2 umenu int 2 \; 105 80 294 number int 10 \; 108 122 193 number int 0 \; 109 122 247 number int 1000 \; 110 122 303 number int 1000 \;; #X append 7 2 23 75 90 toggle int 0 \; 24 75 136 toggle int 0 \; 25 80 445 toggle int 0 \; 26 81 199 flonum float 14500. \; 27 126 535 rslider list 2 40 \; 28 126 496 number; #X append 7 2 int 50 \; 29 126 657 number int 1000 \; 34 70 656 number int 1000 \; 35 70 495 number int 50 \; 36 70 534 rslider list 2 40 \; 39 80 476 led int 1 \; 40 281 249; #X append 7 2 hslider int 50 \; 41 280 233 incdec int 50 \; 42 280 195 number int 50 \; 43 295 249 hslider int 0 \; 44 294 233 incdec int 0 \; 45 294 195 number int 1 \; 50 292 495; #X append 7 2 number int 0 \; 51 292 461 number int 57 \; 52 211 480 uslider int 57 \; 54 278 511 incdec int 0 \; 55 211 498 uslider int 0 \; 56 277 466 incdec int 57 \; 62 292 390; #X append 7 2 flonum float -11.5 \; 63 278 395 incdec int 25 \; 64 212 410 uslider int 25 \; 65 277 440 incdec int 0 \; 67 212 427 uslider int 0 \; 69 292 424 flonum float 0. \; 74 230 179; #X append 7 2 flonum float 0. \; 75 216 233 incdec int 19 \; 76 246 233 incdec int 30 \; 77 246 196 number int 30 \; 78 231 233 incdec int 0 \; 79 261 233 incdec int 0 \; 80 261 196; #X append 7 2 number int 0 \; 86 262 249 hslider int 0 \; 87 249 249 hslider int 30 \; 88 231 249 hslider int 0 \; 89 218 249 hslider int 19 \; 90 214 177 flonum float 100. \; 98 165 132; #X append 7 2 umenu int 6 \; 105 80 294 number int 10 \; 108 122 193 number int 0 \; 109 122 247 number int 14500 \; 110 122 303 number int 7000 \; 112 156 294 umenu int 0 \; 113 122 383; #X append 7 2 umenu int 0 \; 140 75 44 toggle int 0 \;; #X append 10 2 23 75 90 toggle int 1 \; 24 75 136 toggle int 1 \; 25 80 445 toggle int 0 \; 26 81 199 flonum float 95. \; 27 126 535 rslider list 0 5 \; 28 126 496 number; #X append 10 2 int 0 \; 29 126 657 number int 125 \; 34 70 656 number int 575 \; 35 70 495 number int 125 \; 36 70 534 rslider list 5 23 \; 39 80 476 led int 1 \; 40 281 249; #X append 10 2 hslider int 50 \; 41 280 233 incdec int 50 \; 42 280 195 number int 50 \; 43 295 249 hslider int 100 \; 44 294 233 incdec int 100 \; 45 294 195 number int 100 \; 50 292 495; #X append 10 2 number int 0 \; 51 292 461 number int 66 \; 52 211 480 uslider int 66 \; 54 278 511 incdec int 0 \; 55 211 498 uslider int 0 \; 56 277 466 incdec int 66 \; 62 292 390; #X append 10 2 flonum float 0. \; 63 278 395 incdec int 48 \; 64 212 410 uslider int 48 \; 65 277 440 incdec int 0 \; 67 212 427 uslider int 0 \; 69 292 424 flonum float 0. \; 74 230 179; #X append 10 2 flonum float 0.028 \; 75 216 233 incdec int 19 \; 76 246 233 incdec int 100 \; 77 246 196 number int 100 \; 78 231 233 incdec int 14 \; 79 261 233 incdec int 100 \; 80 261 196; #X append 10 2 number int 100 \; 86 262 249 hslider int 100 \; 87 249 249 hslider int 100 \; 88 231 249 hslider int 14 \; 89 218 249 hslider int 19 \; 90 214 177 flonum float 100. \; 98 165 132; #X append 10 2 umenu int 9 \; 105 80 294 number int 160 \; 108 122 193 number int 1000 \; 109 122 247 number int 10 \; 110 122 303 number int 50000 \; 112 156 294 umenu int 0 \; 113 122 383; #X append 10 2 umenu int 0 \; 140 75 44 toggle int 0 \;; #X append 21 2 23 75 90 toggle int 0 \; 24 75 136 toggle int 0 \; 25 80 445 toggle int 0 \; 26 81 199 flonum float 0. \; 27 126 535 rslider list 2 40 \; 28 126 496 number; #X append 21 2 int 50 \; 29 126 657 number int 1000 \; 34 70 656 number int 1000 \; 35 70 495 number int 50 \; 36 70 534 rslider list 2 40 \; 39 80 476 led int 0 \; 40 281 249; #X append 21 2 hslider int 50 \; 41 280 233 incdec int 50 \; 42 280 195 number int 50 \; 43 295 249 hslider int 100 \; 44 294 233 incdec int 100 \; 45 294 195 number int 100 \; 50 292 495; #X append 21 2 number int 50 \; 51 292 461 number int 50 \; 52 211 480 uslider int 50 \; 54 278 511 incdec int 50 \; 55 211 498 uslider int 50 \; 56 277 466 incdec int 50 \; 62 292 390; #X append 21 2 flonum float 0. \; 63 278 395 incdec int 48 \; 64 212 410 uslider int 48 \; 65 277 440 incdec int 0 \; 67 212 427 uslider int 0 \; 69 292 424 flonum float 0. \; 74 230 179; #X append 21 2 flonum float 0.016 \; 75 216 233 incdec int 4 \; 76 246 233 incdec int 25 \; 77 246 196 number int 25 \; 78 231 233 incdec int 8 \; 79 261 233 incdec int 25 \; 80 261 196; #X append 21 2 number int 25 \; 86 262 249 hslider int 25 \; 87 249 249 hslider int 25 \; 88 231 249 hslider int 8 \; 89 218 249 hslider int 4 \; 90 214 177 flonum float 50. \; 98 165 132; #X append 21 2 umenu int 1 \; 105 80 294 number int 10 \; 108 122 193 number int 0 \; 109 122 247 number int 1000 \; 110 122 303 number int 1000 \;; #P preset 183 166 80 42; #P message 4 160 41 196617 replace; #P newex 4 179 99 196617 buffer~ snd GM_aiff; #P hidden newex 2 279 55 196617 s gdurrand; #P hidden newex -1 262 55 196617 s gdurbase; #P hidden newex 44 247 51 196617 s gpsrand; #P hidden newex 10 240 31 196617 s gps; #P flonum 177 214 55 9 0. 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0; #P user hslider 249 218 11 104 200 1 0 12; #P user hslider 249 231 11 104 251 1 0 12; #P user hslider 249 249 11 104 101 1 0 12; #P user hslider 249 262 11 104 101 1 0 12; #P hidden newex 65 230 38 196617 / 500.; #P comment 88 248 94 196617 base grain dur (ms); #P comment 52 261 130 196617 rand dur (ms) added to base; #P comment 96 232 78 196617 grain f rand dev; #P comment 90 217 85 196617 grains/second (f); #P number 196 261 35 9 0 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0; #P user incdec 233 261 15 15 0 0; #P user incdec 233 231 15 15 0 0; #P number 196 246 35 9 1 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0; #P user incdec 233 246 15 15 0 0; #P user incdec 233 216 15 15 0 0; #P flonum 179 230 53 9 0. 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0; #P hidden newex 10 221 27 196617 + 5.; #P hidden newex 10 203 27 196617 * 5.; #P hidden newex 383 340 42 196617 s Tbase; #P hidden newex 426 324 42 196617 s Trand; #P flonum 424 292 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; #P hidden newex 425 308 38 196617 / 2.; #P user uslider 427 212 13 64 97 1 0 14; #P hidden newex 388 323 38 196617 / 2.; #P user incdec 440 277 15 15 0 0; #P user uslider 410 212 13 64 97 1 0 14; #P user incdec 395 278 15 15 0 0; #P flonum 390 292 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; #P comment 381 186 43 196617 T (semi- tones); #P comment 425 186 37 196617 T rand dev; #P hidden newex 480 325 54 196617 s ampbase; #P hidden newex 496 308 54 196617 s amprand; #P comment 496 186 32 196617 %amp dev; #P user incdec 466 277 15 15 0 0; #P user uslider 498 211 13 65 101 1 0 5; #P user incdec 511 278 15 15 0 0; #P comment 465 186 31 196617 cntr amp%; #P user uslider 480 211 13 65 101 1 0 5; #P number 461 292 35 9 0 100 3 3 0 0 0 221 221 221 222 222 222 0 0 0; #P number 495 292 35 9 0 100 3 3 0 0 0 221 221 221 222 222 222 0 0 0; #P hidden newex 232 311 29 196617 s l-r; #P hidden newex 262 310 49 196617 s l-rrand; #P comment 22 280 169 196617 l-r chnl location (0=left \, 100=right); #P comment 5 295 187 196617 % deviation around central chnl location; #P number 195 294 35 9 1 100 3 3 0 0 0 221 221 221 222 222 222 0 0 0; #P user incdec 233 294 15 15 0 0; #P user hslider 249 295 12 108 101 1 0 5; #P number 195 280 35 9 0 100 3 3 0 0 0 221 221 221 222 222 222 0 0 0; #P user incdec 233 280 15 15 0 0; #P user hslider 249 281 12 108 101 1 0 5; #P user led 476 80 17 17 1 10; #P hidden newex 460 145 71 196617 r masteronoff; #N vpatcher 635 253 1030 657; #P window setfont "Sans Serif" 9.; #P message 18 246 14 196617 1; #P newex 18 223 44 196617 select 0; #P inlet 5 46 15 0; #P newex 173 350 71 196617 s masteronoff; #P newex 91 144 23 196617 abs; #P newex 91 168 29 196617 + 10; #P button 91 93 15 0; #P newex 91 121 27 196617 -; #P newex 185 141 23 196617 abs; #P newex 185 164 29 196617 + 10; #P newex 185 119 27 196617 -; #P button 196 90 15 0; #P newex 162 274 27 196617 * 1; #P newex 115 293 56 196617 metro 500; #P comment 8 318 100 196617 0=don't gen sco lines 1=gen sco lines; #P toggle 115 318 15 0; #P newex 99 349 44 196617 select 0; #P button 150 351 15 0; #P number 88 249 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; #P newex 88 227 50 196617 +; #P newex 88 199 41 196617 random; #P number 177 247 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0; #P newex 177 224 50 196617 +; #P newex 177 195 41 196617 random; #P inlet 241 44 15 0; #P inlet 177 44 15 0; #P inlet 105 45 15 0; #P inlet 49 45 15 0; #P comment 91 19 43 196617 shortest silence; #P comment 39 18 44 196617 longest silence; #P comment 168 18 41 196617 longest cluster; #P comment 224 17 48 196617 shortest cluster; #P connect 29 0 30 0; #P connect 30 0 31 0; #P fasten 15 0 11 0 104 375 66 375 66 194 93 194; #P connect 11 0 12 0; #P connect 12 0 13 0; #P connect 5 0 25 0; #P connect 25 0 24 0; #P connect 4 0 24 0; #P connect 24 0 27 0; #P connect 27 0 26 0; #P connect 16 0 15 0; #P connect 5 0 24 1; #P fasten 29 0 18 0 10 273 110 280; #P fasten 31 0 16 0 23 313 120 313; #P connect 18 0 16 0; #P connect 26 0 11 1; #P fasten 5 0 12 1 133 83; #P connect 15 1 14 0; #P connect 19 0 18 1; #P connect 13 0 19 0; #P connect 10 0 19 0; #P connect 16 0 28 0; #P fasten 14 0 8 0 155 373 250 373 250 190 182 190; #P connect 8 0 9 0; #P connect 9 0 10 0; #P connect 20 0 21 0; #P connect 6 0 21 0; #P connect 21 0 23 0; #P connect 23 0 22 0; #P connect 7 0 20 0; #P connect 7 0 21 1; #P connect 22 0 8 1; #P connect 7 0 9 1; #P pop; #P hidden newobj 577 146 58 196617 p clustrand; #P user rslider 534 70 119 14 128 1 0 0 0; #P number 495 70 35 9 0 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0; #P number 656 70 35 9 0 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0; #P hidden newex 534 88 33 196617 * 25; #P hidden newex 643 89 33 196617 * 25; #P hidden newex 644 145 33 196617 * 25; #P hidden newex 535 144 33 196617 * 25; #P number 657 126 35 9 0 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0; #P number 496 126 35 9 0 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0; #P user rslider 535 126 119 14 128 1 0 0 0; #P flonum 199 81 88 9 0. 0 1 3 0 0 0 221 221 221 222 222 222 0 0 0; #P toggle 445 80 29 0; #P toggle 136 75 29 0; #P toggle 90 75 29 0; #N vpatcher 37 532 692 768; #P window setfont "Sans Serif" 9.; #P newex 541 94 50 196617 metro 50; #P button 355 112 15 0; #P newex 355 90 90 196617 clocker 50.; #P inlet 37 55 15 0; #P newex 37 162 62 196617 sfrecord~ 2; #N vpatcher 38 93 501 393; #P window setfont "Sans Serif" 9.; #P newex 37 212 62 196617 s sampstart; #P comment 87 54 79 196617 max ms random deviation from sampstart1; #P comment 20 71 53 196617 calculates with bang; #P newex 37 122 62 196617 random 101; #P newex 37 190 112 196617 if $i1<0 then 0 else $i1; #P newex 37 169 27 196617 +; #P newex 37 147 27 196617 - 0; #P newex 103 122 27 196617 / 2; #P newex 89 98 55 196617 r sampdev; #P inlet 37 100 15 0; #P newex 73 147 68 196617 r sampstart1; #P comment 143 148 100 196617 sample location in ms; #P connect 2 0 8 0; #P connect 8 0 5 0; #P connect 5 0 6 0; #P connect 6 0 7 0; #P connect 7 0 11 0; #P connect 4 0 5 1; #P connect 1 0 6 1; #P connect 3 0 8 1; #P connect 3 0 4 0; #P pop; #P newobj 504 164 61 196617 p startpoint; #P newex 271 55 71 196617 r masteronoff; #P inlet 97 55 15 0; #P newex 109 162 29 196617 dac~; #P newex 128 138 71 196617 receive~ rdac; #P newex 109 116 69 196617 receive~ ldac; #N vpatcher 680 621 1128 963; #P origin 100 1; #P window setfont "Sans Serif" 9.; #P message 257 148 45 196617 target 1; #P newex 128 213 31 196617 print; #P newex 135 40 45 196617 r maxOL; #P message 220 197 38 196617 open 2; #P button 28 142 15 0; #P newex 135 65 27 196617 - 1; #P newex 79 114 27 196617 + 1; #P message 162 142 53 196617 voices \$1; #P message 79 142 51 196617 target \$1; #P newex 112 259 102 196617 poly~ GMsndgen3 75; #P comment 53 37 72 196617 bangs in from master metro; #N counter 49; #X flags 0 0; #P newobj 79 88 66 196617 counter 49; #P inlet 79 65 15 0; #P newex 28 202 35 196617 int 25; #P newex 53 178 35 196617 r gdur; #P comment 186 41 92 196617 max overlap input; #P connect 9 0 11 0; #P connect 11 0 2 0; #P connect 1 0 2 1; #P connect 3 0 4 0; #P connect 4 0 9 0; #P connect 9 0 7 0; #P connect 2 0 6 0; #P connect 7 0 6 0; #P connect 8 0 6 0; #P connect 12 0 6 0; #P connect 15 0 6 0; #P connect 13 0 10 0; #P connect 10 0 4 4; #P fasten 13 0 8 0 140 60 167 60; #P pop; #P newobj 229 164 45 196617 p router; #N vpatcher 103 63 388 371; #P window setfont "Sans Serif" 9.; #N coll AmpR; #P newobj 112 202 54 196617 coll AmpR; #N coll AmpL; #P newobj 22 202 53 196617 coll AmpL; #P newex 22 238 38 196617 s leftx; #P newex 112 238 44 196617 s rightx; #P inlet 22 55 15 0; #P newex 74 53 49 196617 r l-rrand; #P newex 53 102 29 196617 r l-r; #P newex 88 77 27 196617 / 2; #P newex 22 102 27 196617 - 0; #P newex 22 124 27 196617 +; #P newex 22 168 112 196617 if $i1<0 then 0 else $i1; #P newex 22 146 137 196617 if $i1>100 then 100 else $i1; #P newex 22 77 62 196617 random 101; #P comment 85 102 84 196617 channel location: 0=left \, 1=right; #P comment 5 26 53 196617 calculates with bang; #P comment 127 49 130 196617 % channel random deviation from channel location; #P connect 11 0 3 0; #P connect 3 0 7 0; #P connect 7 0 6 0; #P connect 6 0 4 0; #P connect 4 0 5 0; #P connect 5 0 14 0; #P connect 14 0 13 0; #P connect 8 0 7 1; #P connect 9 0 6 1; #P connect 10 0 3 1; #P connect 10 0 8 0; #P connect 5 0 15 0; #P connect 15 0 12 0; #P pop; #P newobj 447 164 53 196617 p chnldata; #N vpatcher 50 40 343 305; #P window setfont "Sans Serif" 9.; #P newex 29 221 40 196617 s ampx; #P comment 138 58 132 196617 % channel random deviation around amp base; #P comment 12 33 53 196617 calculates with bang; #P comment 116 111 120 196617 base amplitude multiplier; #P newex 29 84 62 196617 random 101; #P newex 29 153 137 196617 if $i1>100 then 100 else $i1; #P newex 29 175 112 196617 if $i1<0 then 0 else $i1; #P newex 29 199 44 196617 / 100.; #P newex 29 131 27 196617 +; #P newex 29 109 27 196617 - 0; #P newex 95 84 27 196617 / 2; #P newex 60 109 54 196617 r ampbase; #P newex 81 60 54 196617 r amprand; #P inlet 29 62 15 0; #P connect 0 0 9 0; #P connect 9 0 4 0; #P connect 4 0 5 0; #P connect 5 0 8 0; #P connect 8 0 7 0; #P connect 7 0 6 0; #P connect 6 0 13 0; #P connect 3 0 4 1; #P connect 2 0 5 1; #P connect 1 0 9 1; #P connect 1 0 3 0; #P pop; #P newobj 390 164 53 196617 p ampdata; #N vpatcher 50 40 244 359; #P window setfont "Sans Serif" 9.; #P newex 18 195 30 196617 + 49; #N coll Tvalues; #P newobj 18 221 63 196617 coll Tvalues; #P newex 18 246 40 196617 s Traw; #P newex 64 56 42 196617 r Trand; #P inlet 18 54 15 0; #P newex 53 102 42 196617 r Tbase; #P newex 82 78 27 196617 / 2; #P newex 18 173 135 196617 if $i1<-48 then -48 else $i1; #P newex 18 149 125 196617 if $i1>48 then 48 else $i1; #P newex 18 126 30 196617 + 0; #P newex 18 102 30 196617 - 0; #P newex 18 78 56 196617 random 0; #P comment 2 25 57 196617 calculates with bang; #P connect 8 0 1 0; #P connect 1 0 2 0; #P connect 2 0 3 0; #P connect 3 0 4 0; #P connect 4 0 5 0; #P connect 5 0 12 0; #P connect 12 0 11 0; #P connect 11 0 10 0; #P connect 6 0 2 1; #P connect 7 0 3 1; #P connect 9 0 1 1; #P connect 9 0 6 0; #P pop; #P newobj 341 164 44 196617 p Tlevel; #N vpatcher 50 40 405 268; #P window setfont "Sans Serif" 9.; #P newex 78 76 27 196617 * 2; #P newex 26 181 58 196617 s metrodur; #P newex 26 160 145 196617 if $f1<0.01 then 0.01 else $f1; #P newex 26 139 33 196617 + 0.; #P newex 26 118 27 196617 - 0; #P newex 110 97 100 196617 expr (1/$f1)*1000; #P newex 110 76 31 196617 r gps; #P newex 78 54 51 196617 r gpsrand; #P newex 26 96 62 196617 random 101; #P inlet 26 55 15 0; #P comment 6 27 56 196617 calculates with bang; #P comment 144 77 87 196617 grains per second; #P comment 76 28 116 196617 random deviation around base grain duration; #P comment 230 99 100 196617 base grain duration; #P connect 4 0 5 0; #P connect 5 0 9 0; #P connect 9 0 10 0; #P connect 10 0 11 0; #P connect 11 0 12 0; #P fasten 6 0 9 1 81 73 107 73 107 115 48 115; #P connect 8 0 10 1; #P connect 6 0 13 0; #P connect 13 0 5 1; #P connect 7 0 8 0; #P pop; #P newobj 168 164 58 196617 p grainrate; #P inlet 355 55 15 0; #P newex 435 55 58 196617 r metrodur; #N vpatcher 50 40 379 228; #P window setfont "Sans Serif" 9.; #P newex 24 141 35 196617 s gdur; #P newex 24 120 114 196617 if $i1<1 then 1 else $i1; #P newex 24 98 27 196617 + 0; #P newex 79 74 55 196617 r gdurbase; #P newex 64 52 55 196617 r gdurrand; #P newex 24 74 50 196617 random 0; #P inlet 24 52 15 0; #P comment 5 25 55 196617 calculates with bang; #P comment 122 54 168 196617 random ms dur added to base ms dur; #P connect 2 0 3 0; #P connect 3 0 6 0; #P connect 6 0 7 0; #P connect 7 0 8 0; #P connect 5 0 6 1; #P connect 4 0 3 1; #P pop; #P newobj 282 164 54 196617 p graindur; #P comment 333 28 76 196617 grain generator on/off; #P comment 85 28 53 196617 audio dacs on/off; #P comment 23 28 48 196617 sf record input; #P connect 11 0 17 0; #P connect 18 0 17 0; #P connect 12 0 17 1; #P fasten 14 0 13 0 102 120; #P connect 11 0 13 0; #P connect 12 0 13 1; #P connect 20 0 6 0; #P connect 20 0 10 0; #P connect 20 0 3 0; #P connect 20 0 7 0; #P connect 5 0 19 0; #P connect 15 0 19 0; #P connect 19 0 20 0; #P connect 20 0 8 0; #P connect 4 0 19 1; #P connect 20 0 9 0; #P connect 20 0 16 0; #P pop; #P newobj 17 110 63 196617 p makenotes; #P window setfont Times 12.; #P comment 82 36 48 1310732 Audio ON/OFF; #P comment 132 35 52 1310732 Grain Generator ON/OFF; #P comment 439 28 52 1310732 Random Cluster Generator ON/OFF; #P window setfont "Sans Serif" 9.; #P comment 193 30 100 196617 sound sample location in ms (drag the numbers to move through the sound); #P comment 535 110 117 196617 random ms silence range; #P comment 535 55 118 196617 random ms cluster range; #P comment 490 42 47 196617 shortest cluster; #P comment 657 43 38 196617 longest cluster; #P comment 492 99 45 196617 shortest silence; #P comment 657 99 37 196617 longest silence; #P comment 5 120 100 196617 To load a new sample file to be granulated \, click on replace:; #P comment 123 151 150 196617 store fader positions in memory; #P comment 292 42 84 196617 maximum random ms deviation around start time; #P comment 193 97 44 196617 starting loc (ms); #P comment 247 97 41 196617 ending loc (ms); #P comment 295 97 88 196617 time (ms) to move from start to end; #P comment 172 108 17 196617 GO; #P comment 294 141 151 196617 automation record enable select; #P comment 385 84 54 196617 master automation controls; #P window setfont Times 12.; #P comment 35 36 48 1310732 Record ON/OFF; #P window setfont "Sans Serif" 10.; #P comment 36 383 552 196618 TO DO LIST: do more optimization---see if sending values can be sent to fewer GMsndGen objects and be more efficient??? allow for max overlap selection that is linked to GMsndGen being active or not using poly~ with the mute messages; #P window setfont "Sans Serif" 9.; #P comment 605 170 118 196617 Maximum Grain Overlap (determines cpu use); #P hidden connect 77 0 93 0; #P hidden connect 80 0 94 0; #P hidden connect 96 0 95 0; #P hidden connect 89 0 72 0; #P hidden connect 72 0 73 0; #P hidden connect 90 0 91 0; #P hidden connect 141 0 22 0; #P hidden connect 140 0 22 0; #P hidden connect 23 0 22 1; #P hidden fasten 88 0 92 0 254 245 49 245; #P hidden fasten 88 0 85 0 134 243 134 229 70 229; #P hidden connect 104 0 22 2; #P hidden connect 24 0 22 2; #P hidden connect 100 0 104 0; #P hidden connect 100 0 99 0; #P hidden connect 98 0 102 0; #P hidden connect 102 0 101 0; #P hidden connect 125 0 90 0; #P hidden connect 73 0 90 0; #P hidden connect 123 0 74 0; #P hidden connect 85 0 74 0; #P hidden connect 101 0 97 0; #P hidden connect 99 0 97 0; #P hidden fasten 26 0 111 0 204 140 192 140; #P hidden connect 40 0 42 0; #P hidden connect 43 0 45 0; #P hidden connect 128 0 77 0; #P hidden connect 87 0 77 0; #P hidden connect 126 0 80 0; #P hidden connect 86 0 80 0; #P hidden connect 115 0 26 0; #P hidden fasten 111 0 26 0 192 162 204 162 204 111 204 111; #P hidden connect 107 0 111 1; #P hidden connect 108 0 111 2; #P hidden connect 109 0 111 3; #P hidden connect 40 0 49 0; #P hidden connect 89 0 75 0; #P hidden connect 88 0 78 0; #P hidden connect 87 0 76 0; #P hidden connect 86 0 79 0; #P hidden connect 40 0 41 0; #P hidden connect 43 0 44 0; #P hidden connect 110 0 111 4; #P hidden connect 75 0 89 0; #P hidden connect 78 0 88 0; #P hidden connect 128 0 87 0; #P hidden connect 76 0 87 0; #P hidden connect 126 0 86 0; #P hidden connect 79 0 86 0; #P hidden connect 122 0 40 0; #P hidden connect 41 0 40 0; #P hidden connect 119 0 43 0; #P hidden connect 44 0 43 0; #P hidden connect 43 0 48 0; #P hidden connect 105 0 106 0; #P hidden connect 118 0 105 0; #P hidden connect 112 0 114 0; #P hidden connect 113 0 114 1; #P hidden connect 103 0 71 0; #P hidden connect 103 0 66 0; #P hidden connect 64 0 132 0; #P hidden connect 66 0 62 0; #P hidden connect 64 0 103 0; #P hidden connect 64 0 63 0; #P hidden connect 131 0 64 0; #P hidden connect 63 0 64 0; #P hidden connect 68 0 69 0; #P hidden connect 67 0 68 0; #P hidden connect 67 0 70 0; #P hidden connect 116 0 67 0; #P hidden connect 65 0 67 0; #P hidden connect 67 0 133 0; #P hidden connect 67 0 65 0; #P hidden connect 25 0 136 0; #P hidden connect 129 0 25 0; #P hidden connect 28 0 138 0; #P connect 52 0 51 0; #P hidden connect 52 0 56 0; #P hidden fasten 38 0 39 0 465 165 477 165 477 80 481 80; #P hidden connect 117 0 52 0; #P hidden fasten 56 0 52 0 471 209 485 209; #P hidden connect 52 0 59 0; #P hidden connect 127 0 35 0; #P hidden fasten 33 0 35 0 539 109 492 109 492 66 500 66; #P connect 55 0 50 0; #P hidden connect 120 0 28 0; #P hidden fasten 30 0 28 0 540 164 493 164 493 120 501 120; #P hidden connect 55 0 58 0; #P hidden connect 124 0 55 0; #P hidden fasten 54 0 55 0 516 207 503 207; #P hidden connect 55 0 54 0; #P hidden connect 36 0 33 0; #P hidden connect 35 0 134 0; #P hidden connect 27 0 30 0; #P connect 145 0 144 0; #P hidden connect 148 0 146 0; #P hidden fasten 25 0 37 0 450 163 582 163; #P hidden fasten 144 0 142 0 567 249 579 249 579 229 588 229; #P hidden fasten 29 0 37 1 662 143 594 143; #P hidden fasten 28 0 37 2 501 143 606 143; #P hidden connect 34 0 137 0; #P hidden fasten 34 0 37 3 661 87 699 87 699 164 618 164; #P hidden connect 146 0 149 0; #P hidden fasten 35 0 37 4 500 90 485 90 485 164 630 164; #P hidden connect 36 1 32 0; #P hidden connect 27 1 31 0; #P hidden connect 121 0 34 0; #P hidden fasten 32 0 34 0 648 110 695 110 695 66 661 66; #P hidden connect 130 0 29 0; #P hidden fasten 31 0 29 0 649 164 696 164 696 119 662 119; #P hidden connect 29 0 135 0; #P hidden connect 147 0 148 0; #P pop;