#N struct ri float x float y float g float h; #N canvas 51 202 390 310 10; #N canvas 317 93 677 586 lan 1; #X scalar ri 45 115 158 1211 \;; #X scalar ri 169 45 154 161 \;; #X scalar ri 240 169 158 1101 \;; #X scalar ri 103 240 6 31 \;; #X scalar ri 8 103 154 1411 \;; #X restore 89 111 pd lan; #N canvas 142 329 412 322 truct 0; #X obj 80 58 struct ri float x float y float g float h; #X obj 84 146 filledpolygon 300 h 5 x y g x y g x y; #X obj 82 110 filledcurve 420 h 5 x y g x y g x y; #X restore 138 111 pd truct; #X obj 41 80 bng 30 250 50 0 empty empty deal 0 -8 0 8 -232549 -262144 -1; #N canvas 261 210 618 428 raw 0; #X obj 277 172 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 33 213 pointer; #X obj 215 89 until; #X obj 215 122 f; #X obj 246 122 + 1; #X obj 290 122 sel 0; #X obj 246 141 mod 5; #X obj 323 158 random; #X obj 323 177 random; #X obj 323 196 random; #X obj 147 3 inlet; #X obj 491 99 timer; #X msg 491 150 seed \$1; #X obj 491 125 % 1000; #X obj 491 46 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 ; #X obj 516 46 != 1; #X obj 552 46 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 ; #X obj 491 71 sel 1; #X obj 530 71 sel 1; #X obj 286 289 * 100; #X obj 342 289 * 10; #X obj 342 310 t b f; #X obj 286 352 +; #X obj 398 289 t b f; #X obj 286 378 +; #X msg 28 29 \; pd-lan clear; #X msg 33 185 traverse pd-lan \, bang; #X obj 37 294 append ri x y g h; #X obj 284 257 random 16; #X obj 360 259 random 7; #X obj 429 254 random 4; #X msg 378 112 250; #X connect 0 0 7 0; #X connect 0 0 8 0; #X connect 0 0 9 0; #X connect 0 0 28 0; #X connect 0 0 29 0; #X connect 1 0 27 4; #X connect 2 0 3 0; #X connect 2 0 0 0; #X connect 3 0 4 0; #X connect 4 0 6 0; #X connect 5 0 2 1; #X connect 6 0 3 1; #X connect 6 0 5 0; #X connect 7 0 27 0; #X connect 8 0 27 1; #X connect 9 0 27 2; #X connect 10 0 31 0; #X connect 10 0 14 0; #X connect 10 0 25 0; #X connect 10 0 26 0; #X connect 10 0 2 0; #X connect 10 0 30 0; #X connect 11 0 13 0; #X connect 12 0 8 0; #X connect 12 0 7 0; #X connect 12 0 30 0; #X connect 13 0 12 0; #X connect 14 0 15 0; #X connect 14 0 17 0; #X connect 15 0 16 0; #X connect 16 0 18 0; #X connect 17 0 11 0; #X connect 18 0 11 1; #X connect 19 0 22 0; #X connect 20 0 21 0; #X connect 21 0 22 0; #X connect 21 1 22 1; #X connect 22 0 24 0; #X connect 23 0 24 0; #X connect 23 1 24 1; #X connect 24 0 27 3; #X connect 26 0 1 0; #X connect 28 0 19 0; #X connect 29 0 20 0; #X connect 30 0 23 0; #X connect 31 0 7 1; #X connect 31 0 8 1; #X connect 31 0 9 1; #X restore 41 111 pd raw; #N canvas 396 44 551 709 et///// 1; #X obj 206 112 pointer; #X msg 218 87 next; #X obj 81 60 until; #X obj 81 89 f; #X obj 112 89 + 1; #X obj 144 89 sel 0; #X obj 112 112 mod 5; #X obj 81 14 metro 300; #X msg 145 14 stop; #X obj 81 37 del 100; #X obj 206 14 del 1; #X obj 81 -14 del 2; #X obj 166 -41 inlet; #X msg 206 64 traverse pd-lan; #X obj 206 135 get ri x y g; #X obj 184 189 pack 0 0 0 0; #X obj 182 217 route 0 1 2 3 4; #X obj 261 37 bng 15 250 50 0 bng empty empty 0 -6 128 8 -262144 -1 -1; #N canvas 531 102 480 388 sun 0; #X obj 57 7 inlet; #X obj 57 35 unpack 0 0 0; #N canvas 0 0 450 300 graph1 0; #X array sun 45945 float 0; #X coords 0 1.02 45944 -1.02 200 130 1; #X restore 225 192 graph; #X obj 93 268 hip~ 5; #X obj 124 149 * 441; #X obj 96 176 *~ 0; #X obj 96 206 +~ 1; #X obj 94 292 outlet~; #X msg 95 88 1; #X msg 169 105 100; #X obj 150 53 loadbang; #X floatatom 43 61 5 0 0 0 - - -; #X floatatom 96 61 5 0 0 0 - - -; #X obj 95 237 tabread4~ sun; #X obj 302 9 inlet~; #X obj 230 9 r bng; #X msg 335 71 bang; #X obj 300 39 hip~ 20; #X obj 301 103 tabwrite~ sun; #X obj 93 119 phasor~ 440; #X obj 234 54 del 1500; #X obj 393 102 symbol; #X obj 366 160 soundfiler; #X obj 393 38 openpanel; #X obj 386 14 bng 15 250 50 0 empty sun empty 0 -6 64 8 -262144 -1 -1; #X msg 387 135 read -resize \$1 sun; #X obj 27 85 * 0.01; #X floatatom 189 157 5 0 0 0 - - -; #X connect 0 0 1 0; #X connect 1 0 11 0; #X connect 1 1 12 0; #X connect 1 2 3 1; #X connect 1 2 27 0; #X connect 3 0 7 0; #X connect 4 0 5 1; #X connect 5 0 6 0; #X connect 6 0 13 0; #X connect 8 0 19 0; #X connect 9 0 4 0; #X connect 10 0 8 0; #X connect 10 0 9 0; #X connect 11 0 26 0; #X connect 12 0 4 0; #X connect 13 0 3 0; #X connect 14 0 17 0; #X connect 15 0 20 0; #X connect 16 0 18 0; #X connect 17 0 18 0; #X connect 19 0 5 0; #X connect 20 0 16 0; #X connect 21 0 25 0; #X connect 23 0 21 0; #X connect 24 0 23 0; #X connect 25 0 22 0; #X connect 26 0 19 0; #X restore 121 320 pd sun; #N canvas 153 35 533 346 moon 0; #X obj 57 7 inlet; #X obj 57 35 unpack 0 0 0; #N canvas 0 0 450 300 graph1 0; #X array moon 68100 float 0; #X coords 0 1.02 68099 -1.02 200 130 1; #X restore 225 192 graph; #X obj 93 268 hip~ 5; #X obj 163 156 * 441; #X obj 96 176 *~ 0; #X obj 96 206 +~ 1; #X obj 93 120 phasor~ 0; #X obj 94 292 outlet~; #X msg 95 88 1; #X msg 169 105 100; #X obj 150 53 loadbang; #X obj 302 9 inlet~; #X obj 230 9 r bng; #X msg 233 68 bang; #X obj 300 39 hip~ 20; #X obj 301 103 tabwrite~ moon; #X obj 95 237 tabread4~ moon; #X obj 243 37 del 600; #X obj 393 102 symbol; #X obj 366 160 soundfiler; #X obj 393 38 openpanel; #X obj 386 14 bng 15 250 50 0 empty moon empty 0 -6 64 8 -262144 -1 -1; #X msg 387 135 read -resize \$1 moon; #X obj 43 59 * 0.01; #X obj 92 60 * 0.01; #X connect 0 0 1 0; #X connect 1 0 24 0; #X connect 1 1 25 0; #X connect 1 2 3 1; #X connect 3 0 8 0; #X connect 4 0 5 1; #X connect 5 0 6 0; #X connect 6 0 17 0; #X connect 7 0 5 0; #X connect 9 0 7 0; #X connect 10 0 4 0; #X connect 11 0 9 0; #X connect 11 0 10 0; #X connect 12 0 15 0; #X connect 13 0 18 0; #X connect 14 0 16 0; #X connect 15 0 16 0; #X connect 17 0 3 0; #X connect 18 0 14 0; #X connect 19 0 23 0; #X connect 21 0 19 0; #X connect 22 0 21 0; #X connect 23 0 20 0; #X connect 24 0 7 0; #X connect 24 0 4 0; #X connect 25 0 4 0; #X restore 183 325 pd moon; #N canvas 149 244 480 388 star 0; #X obj 57 7 inlet; #X obj 57 35 unpack 0 0 0; #N canvas 0 0 450 300 graph1 0; #X array star 15397 float 0; #X coords 0 1.02 15396 -1.02 200 130 1; #X restore 225 192 graph; #X obj 93 268 hip~ 5; #X obj 124 149 * 441; #X obj 96 176 *~ 0; #X obj 96 206 +~ 1; #X obj 93 120 phasor~ 0; #X obj 94 292 outlet~; #X msg 95 88 1; #X msg 169 105 100; #X obj 150 53 loadbang; #X obj 302 9 inlet~; #X obj 230 9 r bng; #X msg 233 68 bang; #X obj 300 39 hip~ 20; #X obj 294 102 tabwrite~ star; #X obj 95 237 tabread4~ star; #X obj 243 37 del 1200; #X obj 393 102 symbol; #X obj 366 160 soundfiler; #X obj 393 38 openpanel; #X obj 386 14 bng 15 250 50 0 empty star empty 0 -6 64 8 -262144 -1 -1; #X msg 387 135 read -resize \$1 star; #X obj 34 88 * 0.01; #X obj 62 62 * 0.01; #X connect 0 0 1 0; #X connect 1 0 24 0; #X connect 1 1 25 0; #X connect 1 2 3 1; #X connect 3 0 8 0; #X connect 4 0 5 1; #X connect 5 0 6 0; #X connect 6 0 17 0; #X connect 7 0 5 0; #X connect 9 0 7 0; #X connect 10 0 4 0; #X connect 11 0 9 0; #X connect 11 0 10 0; #X connect 12 0 15 0; #X connect 13 0 18 0; #X connect 14 0 16 0; #X connect 15 0 16 0; #X connect 17 0 3 0; #X connect 18 0 14 0; #X connect 19 0 23 0; #X connect 21 0 19 0; #X connect 22 0 21 0; #X connect 23 0 20 0; #X connect 24 0 7 0; #X connect 25 0 4 0; #X restore 254 326 pd star; #N canvas 4 101 454 569 room 0; #X obj 98 94 unpack 0 0 0; #X floatatom 128 118 5 0 0 0 - - -; #X floatatom 65 120 5 0 0 0 - - -; #X obj 220 25 inlet; #X obj 51 427 outlet~; #X obj 93 348 freeverb~; #X floatatom 174 166 5 0 0 0 - - -; #X floatatom 177 207 5 0 0 0 - - -; #X floatatom 200 230 5 0 0 0 - - -; #X floatatom 216 283 5 0 0 0 - - -; #X msg 22 290 print; #X text 212 173 roomsize (default = 0.5); #X obj 104 229 *~ 0; #X obj 59 230 *~ 0; #X obj 97 174 / 100; #X floatatom 101 157 5 0 0 0 - - -; #X text 227 209 damping in % (default = 50); #X text 252 229 width in % (default = 100); #X text 282 309 dry level (default = 0); #X text 218 187 --> beware the feedback!; #X text 268 284 wet level (default = 1/3); #X obj 155 258 * 0.001; #X obj 43 168 inlet~; #X obj 123 433 outlet~; #X obj 161 142 * 0.01; #X obj 102 138 min 100; #X obj 226 312 r dry; #X obj 168 188 min 0.88; #X obj 208 257 / 10; #X obj 298 254 loadbang; #X msg 264 254 0.45; #X connect 0 0 2 0; #X connect 0 1 1 0; #X connect 0 2 8 0; #X connect 1 0 24 0; #X connect 2 0 25 0; #X connect 3 0 0 0; #X connect 5 0 4 0; #X connect 5 1 23 0; #X connect 6 0 27 0; #X connect 7 0 21 0; #X connect 8 0 28 0; #X connect 9 0 5 5; #X connect 10 0 5 0; #X connect 12 0 5 1; #X connect 13 0 5 0; #X connect 14 0 13 1; #X connect 14 0 12 1; #X connect 15 0 14 0; #X connect 21 0 5 3; #X connect 22 0 13 0; #X connect 22 0 12 0; #X connect 24 0 6 0; #X connect 25 0 15 0; #X connect 26 0 5 6; #X connect 27 0 5 2; #X connect 28 0 5 4; #X connect 29 0 30 0; #X connect 30 0 9 0; #X restore 249 477 pd room; #X obj 218 428 *~; #X obj 240 429 *~; #X obj 266 428 *~; #X obj 290 428 *~; #X obj 211 355 inlet; #X obj 248 353 inlet; #X obj 287 352 inlet; #X obj 323 350 inlet; #X obj 259 553 dac~; #X obj 261 -34 r gat; #X obj 397 414 dbtorms; #X obj 397 464 line~; #X obj 303 517 *~; #X obj 397 439 pack 0 50; #X obj 212 519 *~; #X obj 397 382 r mvol; #N canvas 118 18 409 507 Ra 0; #X obj 125 201 metro 100; #X obj 125 223 random 100; #X obj 125 289 line~ 0 1; #X msg 125 267 1 \, 0 1; #X obj 206 335 random; #X obj 206 379 line; #X obj 78 311 osc~; #X obj 112 352 *~; #X obj 195 310 max 3; #X obj 206 357 pack 0 500; #X obj 237 222 cos; #X obj 237 200 / 100; #X obj 237 288 * 10000; #X obj 237 244 + 1; #X obj 237 266 / 2; #X obj 78 223 cos; #X obj 78 201 / 100; #X obj 78 289 * 10000; #X obj 78 245 + 1; #X obj 78 267 / 2; #X obj 195 222 cos; #X obj 195 200 / 100; #X obj 195 244 + 1; #X obj 195 266 / 2; #X obj 195 288 * 500; #X obj 98 94 unpack 0 0 0; #X obj 98 123 pack 0 0; #X obj 98 149 line; #X obj 151 123 pack 0 0; #X obj 151 149 line; #X obj 204 123 pack 0 0; #X obj 204 149 line; #X obj 125 175 r bng; #X obj 237 311 + 100; #X msg 247 93 300; #X obj 125 311 bp~ 0 50; #X obj 125 245 del 100; #X obj 237 179 + 50; #X obj 195 179 + 50; #X obj 78 180 + 50; #X floatatom 313 144 5 0 0 0 - - -; #X floatatom 316 117 5 0 0 0 - - -; #X floatatom 313 83 5 0 0 0 - - -; #X obj 102 24 inlet; #X obj 113 423 outlet~; #X connect 0 0 1 0; #X connect 1 0 36 0; #X connect 2 0 35 0; #X connect 3 0 2 0; #X connect 4 0 9 0; #X connect 5 0 35 1; #X connect 6 0 7 0; #X connect 7 0 44 0; #X connect 8 0 0 1; #X connect 8 0 1 1; #X connect 8 0 36 1; #X connect 9 0 5 0; #X connect 10 0 13 0; #X connect 11 0 10 0; #X connect 12 0 33 0; #X connect 13 0 14 0; #X connect 14 0 12 0; #X connect 15 0 18 0; #X connect 16 0 15 0; #X connect 17 0 6 0; #X connect 18 0 19 0; #X connect 19 0 17 0; #X connect 20 0 22 0; #X connect 21 0 20 0; #X connect 22 0 23 0; #X connect 23 0 24 0; #X connect 24 0 8 0; #X connect 25 0 26 0; #X connect 25 0 42 0; #X connect 25 1 28 0; #X connect 25 1 41 0; #X connect 25 2 30 0; #X connect 25 2 40 0; #X connect 26 0 27 0; #X connect 27 0 39 0; #X connect 28 0 29 0; #X connect 29 0 38 0; #X connect 30 0 31 0; #X connect 31 0 37 0; #X connect 32 0 0 0; #X connect 33 0 4 1; #X connect 34 0 26 1; #X connect 34 0 28 1; #X connect 34 0 30 1; #X connect 35 0 7 1; #X connect 36 0 3 0; #X connect 36 0 4 0; #X connect 37 0 11 0; #X connect 38 0 21 0; #X connect 39 0 16 0; #X connect 43 0 25 0; #X restore 139 246 pd Ra; #X obj 261 6 spigot; #X connect 0 0 14 0; #X connect 1 0 0 0; #X connect 2 0 3 0; #X connect 2 0 1 0; #X connect 3 0 4 0; #X connect 3 0 15 0; #X connect 4 0 6 0; #X connect 5 0 2 1; #X connect 6 0 3 1; #X connect 6 0 5 0; #X connect 7 0 9 0; #X connect 8 0 7 0; #X connect 9 0 2 0; #X connect 9 0 13 0; #X connect 10 0 13 0; #X connect 11 0 7 0; #X connect 12 0 11 0; #X connect 12 0 8 0; #X connect 12 0 10 0; #X connect 12 0 39 0; #X connect 13 0 0 0; #X connect 14 0 15 1; #X connect 14 1 15 2; #X connect 14 2 15 3; #X connect 15 0 16 0; #X connect 16 0 38 0; #X connect 16 1 18 0; #X connect 16 2 19 0; #X connect 16 3 20 0; #X connect 16 4 21 1; #X connect 18 0 23 0; #X connect 19 0 24 0; #X connect 20 0 25 0; #X connect 21 0 36 0; #X connect 21 1 34 0; #X connect 22 0 21 0; #X connect 23 0 21 0; #X connect 24 0 21 0; #X connect 25 0 21 0; #X connect 26 0 22 1; #X connect 27 0 23 1; #X connect 28 0 24 1; #X connect 29 0 25 1; #X connect 31 0 39 1; #X connect 32 0 35 0; #X connect 33 0 34 1; #X connect 33 0 36 1; #X connect 34 0 30 1; #X connect 35 0 33 0; #X connect 36 0 30 0; #X connect 37 0 32 0; #X connect 38 0 18 1; #X connect 38 0 19 1; #X connect 38 0 20 1; #X connect 38 0 22 0; #X connect 39 0 17 0; #X restore 245 110 pd et/////; #X obj 223 31 vsl 10 64 0 1 0 1 empty empty Ra 0 -8 0 8 -241600 -1 -1 5900 0; #X obj 257 31 vsl 10 64 0 1 0 1 empty empty sun -3 -8 2 8 -241291 -1 -1 5800 0; #X obj 287 31 vsl 10 64 0 1 0 1 empty empty moon -3 -8 0 8 -233017 -1 -1 5900 0; #X obj 326 31 vsl 10 64 0 1 0 1 empty empty star 0 -8 0 8 -253947 -1 -1 5900 0; #X obj 234 140 hsl 96 10 0 1 0 1 dry empty room 12 -8 130 8 -262144 -1 -1 8100 1; #X obj 41 5 tgl 15 0 empty empty empty 0 -6 0 8 -260818 -1 -1 0 1; #X obj 41 28 metro 16000; #X text 342 67 volume; #X obj 147 198 bng 15 250 50 0 sun empty sun -2 -6 129 8 -241291 -1 -1; #X obj 191 198 bng 15 250 50 0 moon empty moon -2 -6 129 8 -233017 -1 -1; #X obj 235 198 bng 15 250 50 0 star empty star -2 -6 129 8 -253945 -1 -1; #X text 10 197 ...or load audio into; #X text 10 242 therefore \, samples loaded are not retained.; #X obj 330 267 tgl 15 0 gat empty empty 0 -6 128 8 -262144 -1 -1 0 1; #X obj 269 332 loadbang; #X text 9 265 If you want samples retained.....uncheck this box >> ; #X obj 127 21 nbx 5 24 0 100 0 0 mvol vmast empty 0 -6 193 14 -253743 -123526 -1 90 256; #X text 124 7 master volume; #X msg 270 353 90; #X obj 269 374 s vmast; #X text 45 149 click "deal" \, drag the triangles by the corners; #X text 11 224 when 'deal' is clicked \, sun \, moon and star record Ra...; #X text 105 469 //hetleveiker.tripod.com; #X text 9 392 the design of this patch is based on trigon patch from kestner http://chiba.cool.ne.jp/kestner_2002/ In trying to understand how the very cool trigon patch was constructed \, I rebuilt it and ended up with this... requires externals:- freeverb~; #X connect 2 0 3 0; #X connect 2 0 4 0; #X connect 5 0 4 1; #X connect 6 0 4 2; #X connect 7 0 4 3; #X connect 8 0 4 4; #X connect 10 0 11 0; #X connect 11 0 2 0; #X connect 19 0 18 0; #X connect 19 0 23 0; #X connect 23 0 24 0;