#N struct 1003-rectangle float x float c float step; #N struct 1003-array array tab 1003-draw float x float y float c; #N struct 1003-draw float x float y float c; #N canvas 754 139 514 612 10; #N canvas 659 48 1207 956 lissa-seq 0; #X obj 838 1086 s \$0-rectanglePointer; #X msg 898 822 clear; #X obj 899 976 s \$0-arrayPointer; #X obj 858 954 t b p; #X obj 858 932 append \$0-array x y; #X msg 988 888 traverse \$1 \, bang; #X obj 988 910 pointer; #X obj 988 866 symbol pd-\$0-paintSubpatch; #X obj 858 1020 setsize \$0-array tab; #X msg 858 910 200 200; #X obj 898 844 s pd-\$0-paintSubpatch; #X obj 838 1064 append \$0-rectangle x; #X msg 838 1042 0; #X obj 858 999 nbx 3 15 1 128 0 0 empty \$0-steps steps 41 10 0 10 -262130 -1 -1 26 256; #X obj 838 800 t b b b b; #X obj 851 733 bng 15 250 50 0 empty \$0-reset reset 17 7 0 10 -262144 -1 -1; #X obj 838 710 loadbang; #X obj 851 753 t b b; #X obj 851 775 s \$0-cInit; #X obj 552 839 set \$0-rectangle c; #X obj 552 800 nbx 5 14 -1e+037 1e+037 0 0 empty \$0-bgcolor bgcolor 0 -8 0 10 -262130 -1 -1 235 256; #X obj 457 694 r \$0-stepNumber; #X obj 457 883 element \$0-array tab; #X obj 594 861 r \$0-arrayPointer; #X obj 457 905 get \$0-draw x y; #X floatatom 457 993 5 0 0 0 - - -, f 5; #X floatatom 540 994 5 0 0 0 - - -, f 5; #X obj 457 971 i; #X obj 559 972 i; #X obj 517 1117 hradio 15 1 1 8 empty \$0-scale scale 0 -8 0 10 -262130 -1 -1 5; #X obj 517 1137 text size \$0-scales; #X obj 541 1020 nbx 5 14 0 127 0 0 empty \$0-random random 0 -8 0 10 -262130 -1 -1 0 256; #X obj 523 1061 random 0; #X obj 523 1083 -; #X obj 589 1044 * 2; #X obj 589 1066 + 1; #X obj 457 1100 +; #X obj 457 1078 *; #X obj 499 1210 text get \$0-scales; #X obj 457 1166 t f b f; #X obj 499 1188 f; #X obj 541 1039 t f f; #X obj 457 1210 /; #X obj 499 1232 f; #X obj 457 1056 / 12; #X obj 457 1232 * 12; #X obj 457 1188 -; #X obj 457 1144 i; #X obj 457 1122 + 0.5; #X obj 457 1034 t f b; #X obj 457 1254 +; #X obj 457 1369 noteout; #X obj 473 1333 pgmout; #X obj 532 1314 nbx 5 14 -1e+037 1e+037 0 0 empty \$0-channel channel 0 -8 0 10 -262130 -1 -1 0 256; #X obj 473 1314 nbx 5 14 0 127 0 0 empty \$0-sound sound 0 -8 0 10 -262130 -1 -1 12 256; #X obj 457 1276 makenote 100 200; #X obj 559 949 + 30; #X obj 457 949 + 30; #X obj 36 711 cnv 15 200 120 empty empty empty 20 12 0 14 -261682 -66577 0; #X obj 675 710 r \$0-rectanglePointer; #X obj 457 1012 +; #X obj 495 960 nbx 3 14 -1e+037 1e+037 0 0 empty \$0-transpose transpose 0 -8 0 10 -262130 -1 -1 8 256; #X obj 700 907 r \$0-arrayPointer; #X obj 605 929 set \$0-array c; #X obj 605 910 nbx 5 14 0 999 0 0 empty \$0-linecolor linecolor 0 -8 0 10 -262130 -1 -1 688 256; #X obj 540 1166 mod; #N canvas 2535 482 450 300 \$0-paintSubpatch 0; #X scalar 1003-rectangle 0 235 0 \;; #X scalar 1003-array 200 200 688 \; 0 0 770 \; 0 0 0 \; 0 0 0 \; 0 0 0 \; 0 0 0 \; 0 0 0 \; 0 0 0 \; 0 0 0 \; 0 0 0 \; 0 0 0 \; 0 0 0 \; 0 0 0 \; 0 0 0 \; 0 0 0 \; 0 0 0 \; 0 0 0 \; 0 0 0 \; 0 0 0 \; 0 0 0 \; 0 0 0 \; 0 0 0 \; 0 0 0 \; 0 0 0 \; 0 0 0 \; 0 0 0 \; 0 0 0 \; \;; #X coords 0 400 400 0 400 400 2 0 0; #X restore 30 130 pd \$0-paintSubpatch; #N canvas 57 197 579 677 seq 0; #X obj 54 83 metro 200; #X obj 136 39 pow -1; #X obj 136 61 * 30000; #X obj 54 105 f; #X obj 54 127 + 1; #X obj 126 188 r feel; #X obj 54 149 & 255; #X obj 54 193 & 1; #X obj 54 171 t f f; #X obj 54 215 pack; #X obj 55 237 route 0 1; #X obj 126 237 *; #X obj 136 210 t b f; #X floatatom 126 259 5 0 0 0 - - -, f 5; #X obj 84 259 pipe; #X obj 76 598 s \$0-stepNumber; #X obj 136 19 nbx 5 14 -1e+037 1e+037 0 1 empty bpm bpm 0 -8 0 10 -262130 -1 -1 183 256; #X obj 190 296 nbx 5 14 1 128 0 1 empty \$0-steps steps 0 -8 0 10 -262130 -1 -1 26 256; #X obj 54 38 tgl 15 0 empty play play 17 7 0 10 -262130 -1 -1 0 1; #X obj 84 313 f; #X obj 114 313 + 1; #X obj 146 312 mod 128; #X msg 144 291 0; #X obj 84 292 b; #X obj 54 58 t f b; #N canvas 965 222 903 701 probabilities 0; #N canvas 0 50 450 300 (subpatch) 0; #X array \$0probs 32 float 3; #A 0 42 43 43 43 43 43 43 43 43 43 43 43 61.5 20 22 21 16 17 78 67 55 47 42 39 34 30 28 28 29 35 39 39; #X coords 0 100 32 0 320 100 1 0 0; #X restore 105 118 graph; #X obj -11 22 inlet; #X obj 10 488 outlet; #X obj 491 223 \$0; #X obj 499 244 pack f f; #X obj 476 194 t b f; #X obj 549 -12 \$0; #X obj 557 9 pack f f; #X obj 575 -51 t b f; #X obj 415 63 float; #X obj 397 102 nbx 2 14 2 32 0 1 empty empty len -20 7 0 10 -262144 -1 -1 32 256; #X msg 500 267 \; \$1probs resize \$2; #X obj -5 309 tabread \$0probs; #X obj -4 90 mod; #X obj 108 220 hsl 315 8 0 1 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X obj 17 117 /; #X obj 53 367 random 1000; #X obj -1 48 t f b; #X obj 7 454 select 0; #X obj 53 387 / 10; #X obj 19 422 <=; #X obj -6 349 *; #X obj 261 104 hsl 100 8 -2 2 0 1 empty empty dns -25 6 0 10 -262144 -1 -1 9000 1; #X obj 197 298 pow; #X obj 194 242 t b f; #X msg 193 270 2; #X text 69 -81 trigger probabilities sequencer \, up to 32 step pattern ; #X text -7 5 songpos; #X obj 187 103 bng 12 250 50 0 empty empty clr 17 7 0 10 -258113 -1 -1; #X msg 558 32 \; \$1probs const 0; #X connect 1 0 17 0; #X connect 3 0 4 0; #X connect 4 0 11 0; #X connect 5 0 3 0; #X connect 5 1 4 1; #X connect 6 0 7 0; #X connect 7 0 29 0; #X connect 8 0 6 0; #X connect 8 1 7 1; #X connect 9 0 5 0; #X connect 10 0 9 0; #X connect 10 0 13 1; #X connect 10 0 15 1; #X connect 12 0 21 0; #X connect 13 0 12 0; #X connect 13 0 15 0; #X connect 15 0 14 0; #X connect 16 0 19 0; #X connect 17 0 13 0; #X connect 17 1 16 0; #X connect 18 0 2 0; #X connect 19 0 20 1; #X connect 20 0 18 0; #X connect 21 0 20 0; #X connect 22 0 24 0; #X connect 23 0 21 1; #X connect 24 0 25 0; #X connect 24 1 23 1; #X connect 25 0 23 0; #X connect 28 0 8 0; #X coords 0 -1 1 1 330 130 2 100 100; #X restore 114 408 pd probabilities; #X obj 56 555 f; #X floatatom 27 594 5 0 0 0 - - -, f 5; #X floatatom 25 376 5 0 0 0 - - -, f 5; #X obj 116 571 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 91 355 t f f; #X connect 0 0 3 0; #X connect 1 0 2 0; #X connect 2 0 0 1; #X connect 2 0 12 0; #X connect 3 0 4 0; #X connect 4 0 6 0; #X connect 5 0 11 0; #X connect 6 0 3 1; #X connect 6 0 8 0; #X connect 7 0 9 0; #X connect 8 0 7 0; #X connect 8 1 9 1; #X connect 9 0 10 0; #X connect 10 0 23 0; #X connect 10 1 14 0; #X connect 11 0 13 0; #X connect 11 0 14 1; #X connect 12 0 11 0; #X connect 12 1 11 1; #X connect 14 0 23 0; #X connect 16 0 1 0; #X connect 17 0 21 1; #X connect 18 0 24 0; #X connect 19 0 20 0; #X connect 19 0 28 0; #X connect 19 0 30 0; #X connect 20 0 21 0; #X connect 21 0 19 1; #X connect 22 0 21 0; #X connect 23 0 19 0; #X connect 24 0 0 0; #X connect 24 1 22 0; #X connect 25 0 26 0; #X connect 25 0 29 0; #X connect 26 0 15 0; #X connect 26 0 27 0; #X connect 30 0 26 1; #X connect 30 1 25 0; #X restore 46 809 pd seq; #X obj 46 787 text define -k \$0-scales; #A set 0 1 2 3 4 5 6 7 8 9 10 11 \; 0 0 2 2 4 5 5 7 7 9 9 11 \; 0 2 4 5 7 9 11 \; 0 2 3 5 7 8 10 \; 0 4 7 \; 0 3 7 \; 0 1 \; 0 \;; #X obj 565 818 change; #X obj 565 861 b; #X obj 681 1057 until; #X obj 681 1106 f 0; #X obj 710 1106 + 1; #X msg 696 1081 0; #X obj 791 1336 nbx 5 14 -1e+037 1e+037 0 0 empty \$0-lissajous_p1 lissajous_p1 0 -8 0 10 -262130 -1 -1 433.68 256; #X obj 787 1390 nbx 5 14 -1e+037 1e+037 0 0 empty \$0-lissajous_p2 lissajous_p2 0 -8 0 10 -262130 -1 -1 819 256; #X obj 687 1447 set \$0-draw y; #X obj 851 1182 element \$0-array tab; #X obj 985 1171 r \$0-arrayPointer; #X obj 683 1032 f; #X obj 958 1313 spigot; #X obj 997 1293 tgl 15 0 empty \$0-motion motion 17 7 0 10 -262144 -1 -1 1 1; #X obj 701 1012 nbx 3 15 1 128 0 0 empty \$0-steps steps 41 10 0 10 -262130 -1 -1 26 256; #X obj 701 1256 set \$0-draw c; #X obj 783 1214 nbx 5 14 -1e+037 1e+037 0 0 empty \$0-color color 0 -8 0 10 -262130 -1 -1 602 256; #X obj 701 1234 f; #X obj 721 1183 nbx 5 14 -1e+037 1e+037 0 0 empty \$0-colorOn colorOn 0 -8 0 10 -262130 -1 -1 770 256; #X obj 721 1150 sel; #X obj 783 1180 b; #X obj 976 1347 nbx 5 14 0 999 0 0 empty \$0-mSpeed mSpeed 0 -8 0 10 -262130 -1 -1 25.57 256; #X obj 681 1333 *; #X obj 699 1311 / 100; #X obj 457 927 / 8; #X obj 559 927 / 8; #X obj 552 763 r \$0-cInit; #X obj 932 1371 * 1; #X obj 691 1354 expr sin(6.2832*$f1*$f2/$f3)*150; #X obj 681 1410 expr sin((6.2832*$f1*$f2/$f3)+$f4/3)*150; #N canvas 514 354 450 75 \$0-array 0; #X obj 16 20 struct \$0-array array tab \$0-draw float x float y float c; #X obj 16 42 plot tab c 0 0 0; #X restore 46 743 pd \$0-array; #N canvas 72 344 359 121 \$0-draw 0; #X obj 15 18 struct \$0-draw float x float y float c; #X obj 44 115 filledpolygon c 44 10 0 0 100 0 100 100 0 100; #X restore 46 721 pd \$0-draw; #N canvas 807 595 470 178 \$0-rectangle 0; #X obj 44 92 s \$0-rectangle; #X text 42 34 This is a one pixel polygon that will be stretched to the size of the area; #X obj 44 70 struct \$0-rectangle float x float c float step; #X obj 44 114 filledpolygon c 0 0 0 0 500 0 500 500 0 500; #X obj 44 145 drawnumber step 5 20 0 step=; #X connect 2 0 0 0; #X restore 46 765 pd \$0-rectangle; #X obj 251 1442 f; #X obj 233 1311 until; #X obj 233 1333 f; #X obj 277 1311 0; #X obj 263 1333 + 1; #X obj 251 1464 set \$0-draw c; #X msg 233 1289 128; #X obj 339 1442 element \$0-array tab; #X obj 476 1420 r \$0-arrayPointer; #X obj 265 1208 nbx 5 14 -1e+037 1e+037 0 0 empty \$0-color color 0 -8 0 10 -262130 -1 -1 602 256; #X obj 233 1399 sel; #X obj 251 1420 b; #X obj 251 1377 r \$0-stepNumber; #X obj 233 1267 t b b; #X obj 233 1355 t f f; #X obj 233 1245 t b f; #X obj 307 1314 nbx 5 14 -1e+037 1e+037 0 0 empty \$0-colorOn colorOn 0 -8 0 10 -262130 -1 -1 770 256; #X obj 357 1333 r \$0-stepNumber; #X obj 339 1355 f; #X obj 307 1333 t f b; #X obj 307 1256 r \$0-cInit; #X obj 976 1366 / 100; #X obj 699 1291 nbx 5 14 1 1000 0 0 empty \$0-lissajous_p3 lissajous_p3 0 -8 0 10 -262130 -1 -1 223.08 256; #X obj 743 990 f; #X obj 773 990 + 1; #X obj 761 969 0; #X obj 761 947 r play; #X obj 683 968 t b b f b; #X obj 517 739 set \$0-rectangle step; #X obj 457 717 t f f b f; #X obj 30 530 cnv 15 500 100 empty empty empty 20 12 0 14 -261682 -66577 0; #X obj 246 565 nbx 3 15 1 128 0 1 \$0-sound \$0-no-r pgm 41 10 0 10 -203904 -1 -1 12 256; #X obj 246 580 nbx 3 15 1 16 0 0 \$0-channel \$0-no-r midich 41 10 0 10 -203904 -1 -1 1 256; #X obj 36 535 tgl 15 0 play \$0-no-r play 17 7 0 10 -262130 -1 -1 0 1; #X obj 36 550 nbx 3 15 20 500 0 1 bpm \$0-no-r bpm 41 10 0 10 -262130 -1 -1 183 256; #X obj 36 565 nbx 3 15 1 128 0 1 \$0-steps \$0-no-r steps 41 10 0 10 -262130 -1 -1 26 256; #X obj 39 595 hsl 35 15 0 0.33 0 1 feel \$0-no-r swing 39 10 0 10 -262130 -1 -1 900 0; #X obj 36 580 nbx 3 15 0 9 0 1 \$0-random \$0-no-r random 41 10 0 10 -262130 -1 -1 0 256; #X obj 371 580 nbx 5 14 0 999 0 1 \$0-colorOn \$0-no-r colorOn 0 -8 0 10 -262130 -1 -1 770 256; #X obj 371 551 nbx 5 14 0 999 0 1 \$0-color \$0-no-r color 0 -8 0 10 -262130 -1 -1 602 256; #X obj 246 550 hradio 15 1 1 8 \$0-scale \$0-no-r scale 0 -8 0 10 -262130 -1 -1 5; #X obj 313 610 nbx 5 14 0 999 0 1 \$0-bgcolor \$0-no-r bgcolor 0 -8 0 10 -262130 -1 -1 235 256; #X obj 36 610 nbx 3 14 -1e+037 1e+037 0 1 \$0-transpose \$0-no-r transp 41 10 0 10 -262130 -1 -1 8 256; #X obj 371 610 nbx 5 14 0 999 0 1 \$0-linecolor \$0-no-r linecolor 0 -8 0 10 -262130 -1 -1 688 256; #X obj 123 549 nbx 5 14 1 1000 0 1 \$0-lissajous_p1 empty lissajous_p1 0 -8 0 10 -262130 -1 -1 433.68 256; #X obj 123 610 nbx 5 14 1 1000 0 1 \$0-lissajous_p3 empty lissajous_p3 0 -8 0 10 -262130 -1 -1 223.08 256; #X obj 189 609 tgl 15 1 \$0-motion - motion 17 7 0 10 -262130 -1 -1 1 1; #X obj 246 610 nbx 5 14 1 100 0 1 \$0-mSpeed \$0-no-r mSpeed 0 -8 0 10 -262130 -1 -1 25.57 256; #X obj 123 579 nbx 5 14 1 1000 0 1 \$0-lissajous_p2 empty lissajous_p2 0 -8 0 10 -262130 -1 -1 819 256; #X obj 612 1277 moses 12; #X obj 739 1207 f; #X floatatom 635 1402 5 0 0 0 - - -, f 5; #X obj 692 1383 set \$0-draw x; #X obj 621 1435 print; #X obj 681 1128 t f b f f b; #X obj 289 1122 + 550; #X floatatom 950 1401 5 0 0 0 - - -, f 5; #X obj 895 1326 / 32; #X obj 794 1153 - 0; #X connect 1 0 10 0; #X connect 3 0 13 0; #X connect 3 1 2 0; #X connect 3 1 8 1; #X connect 4 0 3 0; #X connect 5 0 6 0; #X connect 6 0 4 2; #X connect 6 0 11 1; #X connect 7 0 5 0; #X connect 9 0 4 0; #X connect 11 0 0 0; #X connect 12 0 11 0; #X connect 13 0 8 0; #X connect 14 0 12 0; #X connect 14 1 9 0; #X connect 14 2 7 0; #X connect 14 3 1 0; #X connect 15 0 17 0; #X connect 16 0 14 0; #X connect 17 0 18 0; #X connect 17 1 14 0; #X connect 20 0 19 0; #X connect 20 0 69 0; #X connect 21 0 131 0; #X connect 22 0 24 0; #X connect 23 0 22 1; #X connect 24 0 93 0; #X connect 24 1 94 0; #X connect 25 0 60 0; #X connect 26 0 60 0; #X connect 27 0 25 0; #X connect 28 0 26 0; #X connect 29 0 30 0; #X connect 29 0 40 1; #X connect 30 0 37 1; #X connect 30 0 42 1; #X connect 30 0 65 1; #X connect 31 0 41 0; #X connect 32 0 33 0; #X connect 33 0 36 1; #X connect 34 0 35 0; #X connect 35 0 32 1; #X connect 36 0 48 0; #X connect 37 0 36 0; #X connect 38 0 43 0; #X connect 39 0 46 0; #X connect 39 1 40 0; #X connect 39 2 65 0; #X connect 40 0 38 0; #X connect 41 0 33 1; #X connect 41 1 34 0; #X connect 42 0 45 0; #X connect 43 0 50 1; #X connect 44 0 37 0; #X connect 45 0 50 0; #X connect 46 0 42 0; #X connect 47 0 39 0; #X connect 48 0 47 0; #X connect 49 0 44 0; #X connect 49 1 32 0; #X connect 50 0 55 0; #X connect 53 0 52 1; #X connect 53 0 51 2; #X connect 54 0 52 0; #X connect 55 0 151 0; #X connect 55 1 51 1; #X connect 56 0 28 0; #X connect 57 0 27 0; #X connect 59 0 19 1; #X connect 59 0 130 1; #X connect 60 0 49 0; #X connect 60 0 157 0; #X connect 61 0 60 1; #X connect 62 0 63 1; #X connect 64 0 63 0; #X connect 65 0 38 1; #X connect 65 0 46 1; #X connect 69 0 70 0; #X connect 70 0 64 0; #X connect 71 0 72 0; #X connect 72 0 73 0; #X connect 72 0 156 0; #X connect 73 0 72 1; #X connect 74 0 72 1; #X connect 75 0 97 1; #X connect 76 0 98 1; #X connect 78 0 84 1; #X connect 78 0 154 1; #X connect 78 0 77 1; #X connect 79 0 78 1; #X connect 80 0 71 0; #X connect 81 0 96 0; #X connect 82 0 81 1; #X connect 83 0 80 1; #X connect 83 0 98 2; #X connect 85 0 86 1; #X connect 86 0 84 0; #X connect 87 0 86 1; #X connect 88 0 87 0; #X connect 88 1 89 0; #X connect 89 0 152 0; #X connect 90 0 123 0; #X connect 91 0 98 0; #X connect 91 0 97 0; #X connect 92 0 91 1; #X connect 93 0 57 0; #X connect 94 0 56 0; #X connect 95 0 20 0; #X connect 95 0 64 0; #X connect 96 0 158 0; #X connect 96 0 159 0; #X connect 96 0 98 3; #X connect 97 0 154 0; #X connect 97 0 155 0; #X connect 98 0 77 0; #X connect 102 0 107 0; #X connect 103 0 104 0; #X connect 104 0 106 0; #X connect 104 0 116 0; #X connect 105 0 104 1; #X connect 106 0 104 1; #X connect 108 0 103 0; #X connect 109 0 107 1; #X connect 110 0 109 1; #X connect 111 0 152 1; #X connect 112 1 113 0; #X connect 113 0 102 0; #X connect 114 0 112 1; #X connect 115 0 108 0; #X connect 115 1 105 0; #X connect 116 0 112 0; #X connect 116 1 109 0; #X connect 117 0 115 0; #X connect 117 1 102 1; #X connect 118 0 121 0; #X connect 119 0 120 1; #X connect 120 0 109 0; #X connect 121 0 107 0; #X connect 121 1 120 0; #X connect 122 0 111 0; #X connect 122 0 118 0; #X connect 123 0 96 1; #X connect 124 0 92 0; #X connect 125 0 81 0; #X connect 125 0 126 0; #X connect 126 0 125 1; #X connect 127 0 125 1; #X connect 128 0 127 0; #X connect 129 0 80 0; #X connect 129 1 74 0; #X connect 129 2 88 1; #X connect 129 3 125 0; #X connect 131 0 22 0; #X connect 131 1 129 0; #X connect 131 2 20 0; #X connect 131 3 130 0; #X connect 151 1 51 0; #X connect 152 0 86 1; #X connect 156 0 91 0; #X connect 156 0 153 0; #X connect 156 2 88 0; #X connect 156 3 160 0; #X connect 156 4 86 0; #X connect 157 0 111 0; #X connect 159 0 97 2; #X connect 160 0 78 0; #X coords 0 600 500 0 500 600 2 30 30; #X restore 7 5 pd lissa-seq;