atari5200~-help.pd

#N canvas 195 336 448 449 10;
#X obj 95 367 dac~;
#X floatatom 94 33 5 0 0 0 - - -, f 5;
#X floatatom 110 78 5 0 0 1 Frequency - -, f 5;
#X floatatom 117 103 5 0 0 1 Volume_+_Noise - -, f 5;
#X obj 95 321 atari5200~;
#X floatatom 122 135 5 0 0 1 Frequency - -, f 5;
#X floatatom 129 158 5 0 0 1 Volume_+_Noise - -, f 5;
#X floatatom 136 193 5 0 0 1 Frequency - -, f 5;
#X floatatom 142 215 5 0 0 1 Volume_+_Noise - -, f 5;
#X floatatom 147 248 5 0 0 1 Frequency - -, f 5;
#X floatatom 152 271 5 0 0 1 Volume_+_Noise - -, f 5;
#N canvas 0 22 422 393 info 0;
#X text 31 21 Pokey contains four audio channel \, with separate frequency
\, noise and voice level control. Each channel has 8-bit frequency
divider and 8-bit register to select noise and volume. AUDF1 to AUDF4
– frequency register (AUDio Frequency) AUDC1 to AUDC4 – volume
and noise register (AUDio Control) AUDCTL – general register \, which
controls generators (AUDio ConTroL) The design of the POKEY made it
possible for games to have polyphonic music and sound effects of up
to four channels. POKEY's sound is distinctive: when the four channels
are used independently \, there is noticeable detuning of parts of
the 12-tone equal temperament scale \, due to lack of pitch accuracy.
Channels may be paired for higher accuracy \; in addition \, multiple
forms of distortion are available \, allowing a thicker sound. The
distortion is primarily used in music for bass parts. One of the sound-engines
developed for the Atari 8-bit family was called the AMP engine (Advanced
Music Processor). This was used by the musician Gary Gilbertson.;
#X restore 238 368 pd info;
#X text 269 253 <---CHANNEL 4;
#X text 260 82 <---CHANNEL 1;
#X text 263 135 <---CHANNEL 2;
#X text 268 196 <---CHANNEL 3;
#X text 15 -19 ATARI5200~ "POKEY" (Pot Keyboard Integrated Circuit)
Sound Emulator;
#N canvas 0 22 874 517 Another_example 0;
#X obj 27 268 *~ 0.5;
#X floatatom 76 270 0 0 0 0 - - -;
#X obj 27 293 *~ 0.01;
#X msg 116 312 stop;
#X msg 95 293 startwindow;
#X obj 27 337 dac~;
#N canvas 89 353 852 330 manipulator 0;
#X floatatom 453 212 0 0 0 0 - - -;
#X floatatom 415 213 0 0 0 0 - - -;
#X obj 26 214 inlet~;
#X obj 9 214 inlet~;
#X floatatom 94 241 0 0 0 0 - - -;
#X floatatom 53 241 0 0 0 0 - - -;
#X obj 705 236 inlet~;
#X obj 684 236 inlet~;
#X obj 619 270 counter 0;
#X obj 619 239 metro 16;
#X obj 283 37 prepend fetch;
#X obj 8 84 multiSlider;
#X obj 201 37 prepend size;
#X obj 542 30 prepend store;
#X floatatom 506 31 0 0 0 0 - - -;
#N canvas 10 59 600 400 manager 0;
#X obj 155 235 change;
#X obj 98 235 change;
#X obj 155 285 outlet~;
#X obj 98 284 outlet~;
#X obj 139 199 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 155 144 1;
#X msg 137 144 0;
#X obj 155 171 gate;
#X obj 82 196 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 98 141 1;
#X msg 80 141 0;
#X obj 98 168 gate;
#X obj 83 88 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 83 54 inlet~;
#X obj 177 54 inlet~;
#X obj 120 54 inlet~;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 4 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 7 0;
#X connect 7 0 4 0;
#X connect 7 0 0 0;
#X connect 8 0 10 0;
#X connect 9 0 11 0;
#X connect 10 0 11 0;
#X connect 11 0 8 0;
#X connect 11 0 1 0;
#X connect 12 0 9 0;
#X connect 12 0 5 0;
#X connect 13 0 12 0;
#X connect 14 0 7 1;
#X connect 15 0 11 1;
#X restore 377 236 pd manager;
#X obj 377 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 417 142 600 400 control 0;
#X obj 279 134 * 15;
#X obj 279 84 != 1;
#X obj 111 102 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 166 233 |;
#X obj 259 134 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 259 189 & 15;
#X obj 279 34 inlet~;
#X obj 111 169 << 5;
#X obj 148 67 << 4;
#X floatatom 183 67 0 0 0 0 - - -;
#X obj 183 34 inlet~;
#X obj 148 34 inlet~;
#X obj 64 34 inlet~;
#X obj 166 281 outlet~;
#X obj 131 199 |;
#X floatatom 111 148 0 0 0 0 - - -;
#X text 219 68 volume;
#X text 51 149 distortion;
#X connect 0 0 5 1;
#X connect 1 0 4 0;
#X connect 1 0 0 0;
#X connect 2 0 15 0;
#X connect 3 0 13 0;
#X connect 4 0 5 0;
#X connect 5 0 2 0;
#X connect 5 0 3 1;
#X connect 6 0 1 0;
#X connect 7 0 14 0;
#X connect 8 0 14 1;
#X connect 9 0 5 0;
#X connect 10 0 9 0;
#X connect 11 0 8 0;
#X connect 12 0 15 0;
#X connect 14 0 3 0;
#X connect 15 0 7 0;
#X restore 246 237 pd control;
#X obj 291 216 inlet~;
#X obj 261 213 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 542 84 function;
#X obj 276 84 function;
#X obj 246 262 outlet~;
#X msg 772 63 clear;
#X obj 97 37 prepend domain;
#X obj 93 8 inlet~;
#X obj 542 255 outlet~;
#X text 391 67 volume;
#X text 646 67 frequency;
#X text 115 67 distortion;
#X connect 1 0 4 0;
#X connect 2 0 8 0;
#X connect 4 0 0 0;
#X connect 4 0 8 1;
#X connect 7 0 21 0;
#X connect 7 0 9 0;
#X connect 7 0 20 0;
#X connect 9 0 10 0;
#X connect 11 0 10 0;
#X connect 12 0 16 0;
#X connect 13 0 12 0;
#X connect 14 0 4 0;
#X connect 14 0 8 1;
#X connect 15 0 14 0;
#X connect 17 0 22 0;
#X connect 18 0 17 3;
#X connect 19 0 17 1;
#X connect 20 0 26 0;
#X connect 21 0 17 2;
#X connect 23 0 21 0;
#X connect 23 0 20 0;
#X connect 24 0 21 0;
#X connect 24 0 20 0;
#X connect 25 0 24 0;
#X connect 25 0 11 0;
#X restore 307 210 pd manipulator;
#X obj 307 112 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 349 193 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 343 176 mute;
#X floatatom 335 160 0 0 0 0 - - -;
#X text 370 161 length;
#X floatatom 321 141 0 0 0 0 - - -;
#X text 357 142 rate;
#X text 309 91 play;
#N canvas 80 433 852 330 manipulator 0;
#X floatatom 453 212 0 0 0 0 - - -;
#X floatatom 415 213 0 0 0 0 - - -;
#X obj 26 214 inlet~;
#X obj 9 214 inlet~;
#X floatatom 94 241 0 0 0 0 - - -;
#X floatatom 53 241 0 0 0 0 - - -;
#X obj 705 236 inlet~;
#X obj 684 236 inlet~;
#X obj 619 270 counter 0;
#X obj 619 239 metro 16;
#X obj 283 37 prepend fetch;
#X obj 8 84 multiSlider;
#X obj 201 37 prepend size;
#X obj 542 30 prepend store;
#X floatatom 506 31 0 0 0 0 - - -;
#N canvas 10 59 600 400 manager 0;
#X obj 155 235 change;
#X obj 98 235 change;
#X obj 155 285 outlet~;
#X obj 98 284 outlet~;
#X obj 139 199 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 155 144 1;
#X msg 137 144 0;
#X obj 155 171 gate;
#X obj 82 196 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 98 141 1;
#X msg 80 141 0;
#X obj 98 168 gate;
#X obj 83 88 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 83 54 inlet~;
#X obj 177 54 inlet~;
#X obj 120 54 inlet~;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 4 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 7 0;
#X connect 7 0 4 0;
#X connect 7 0 0 0;
#X connect 8 0 10 0;
#X connect 9 0 11 0;
#X connect 10 0 11 0;
#X connect 11 0 8 0;
#X connect 11 0 1 0;
#X connect 12 0 9 0;
#X connect 12 0 5 0;
#X connect 13 0 12 0;
#X connect 14 0 7 1;
#X connect 15 0 11 1;
#X restore 377 236 pd manager;
#X obj 377 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 417 142 600 400 control 0;
#X obj 279 134 * 15;
#X obj 279 84 != 1;
#X obj 111 102 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 166 233 |;
#X obj 259 134 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 259 189 & 15;
#X obj 279 34 inlet~;
#X obj 111 169 << 5;
#X obj 148 67 << 4;
#X floatatom 183 67 0 0 0 0 - - -;
#X obj 183 34 inlet~;
#X obj 148 34 inlet~;
#X obj 64 34 inlet~;
#X obj 166 281 outlet~;
#X obj 131 199 |;
#X floatatom 111 148 0 0 0 0 - - -;
#X text 219 68 volume;
#X text 51 149 distortion;
#X connect 0 0 5 1;
#X connect 1 0 4 0;
#X connect 1 0 0 0;
#X connect 2 0 15 0;
#X connect 3 0 13 0;
#X connect 4 0 5 0;
#X connect 5 0 2 0;
#X connect 5 0 3 1;
#X connect 6 0 1 0;
#X connect 7 0 14 0;
#X connect 8 0 14 1;
#X connect 9 0 5 0;
#X connect 10 0 9 0;
#X connect 11 0 8 0;
#X connect 12 0 15 0;
#X connect 14 0 3 0;
#X connect 15 0 7 0;
#X restore 246 237 pd control;
#X obj 291 216 inlet~;
#X obj 261 213 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 542 84 function;
#X obj 276 84 function;
#X obj 246 262 outlet~;
#X msg 772 63 clear;
#X obj 97 37 prepend domain;
#X obj 93 8 inlet~;
#X obj 542 255 outlet~;
#X text 391 67 volume;
#X text 646 67 frequency;
#X text 115 67 distortion;
#X connect 1 0 4 0;
#X connect 2 0 8 0;
#X connect 4 0 0 0;
#X connect 4 0 8 1;
#X connect 7 0 21 0;
#X connect 7 0 9 0;
#X connect 7 0 20 0;
#X connect 9 0 10 0;
#X connect 11 0 10 0;
#X connect 12 0 16 0;
#X connect 13 0 12 0;
#X connect 14 0 4 0;
#X connect 14 0 8 1;
#X connect 15 0 14 0;
#X connect 17 0 22 0;
#X connect 18 0 17 3;
#X connect 19 0 17 1;
#X connect 20 0 26 0;
#X connect 21 0 17 2;
#X connect 23 0 21 0;
#X connect 23 0 20 0;
#X connect 24 0 21 0;
#X connect 24 0 20 0;
#X connect 25 0 24 0;
#X connect 25 0 11 0;
#X restore 195 210 pd manipulator;
#X obj 195 112 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 237 193 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 231 176 mute;
#X floatatom 223 160 0 0 0 0 - - -;
#X text 258 161 length;
#X floatatom 209 141 0 0 0 0 - - -;
#X text 245 142 rate;
#N canvas 150 425 852 330 manipulator 0;
#X floatatom 453 212 0 0 0 0 - - -;
#X floatatom 415 213 0 0 0 0 - - -;
#X obj 26 214 inlet~;
#X obj 9 214 inlet~;
#X floatatom 94 241 0 0 0 0 - - -;
#X floatatom 53 241 0 0 0 0 - - -;
#X obj 705 236 inlet~;
#X obj 684 236 inlet~;
#X obj 619 270 counter 0;
#X obj 619 239 metro 16;
#X obj 283 37 prepend fetch;
#X obj 33 100 multiSlider;
#X obj 201 37 prepend size;
#X obj 542 30 prepend store;
#X floatatom 506 31 0 0 0 0 - - -;
#N canvas 10 59 600 400 manager 0;
#X obj 155 235 change;
#X obj 98 235 change;
#X obj 155 285 outlet~;
#X obj 98 284 outlet~;
#X obj 139 199 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 155 144 1;
#X msg 137 144 0;
#X obj 155 171 gate;
#X obj 82 196 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 98 141 1;
#X msg 80 141 0;
#X obj 98 168 gate;
#X obj 83 88 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 83 54 inlet~;
#X obj 177 54 inlet~;
#X obj 120 54 inlet~;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 4 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 7 0;
#X connect 7 0 4 0;
#X connect 7 0 0 0;
#X connect 8 0 10 0;
#X connect 9 0 11 0;
#X connect 10 0 11 0;
#X connect 11 0 8 0;
#X connect 11 0 1 0;
#X connect 12 0 9 0;
#X connect 12 0 5 0;
#X connect 13 0 12 0;
#X connect 14 0 7 1;
#X connect 15 0 11 1;
#X restore 377 236 pd manager;
#X obj 377 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 417 142 600 400 control 0;
#X obj 279 134 * 15;
#X obj 279 84 != 1;
#X obj 111 102 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 166 233 |;
#X obj 259 134 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 259 189 & 15;
#X obj 279 34 inlet~;
#X obj 111 169 << 5;
#X obj 148 67 << 4;
#X floatatom 183 67 0 0 0 0 - - -;
#X obj 183 34 inlet~;
#X obj 148 34 inlet~;
#X obj 64 34 inlet~;
#X obj 166 281 outlet~;
#X obj 131 199 |;
#X floatatom 111 148 0 0 0 0 - - -;
#X text 219 68 volume;
#X text 51 149 distortion;
#X connect 0 0 5 1;
#X connect 1 0 4 0;
#X connect 1 0 0 0;
#X connect 2 0 15 0;
#X connect 3 0 13 0;
#X connect 4 0 5 0;
#X connect 5 0 2 0;
#X connect 5 0 3 1;
#X connect 6 0 1 0;
#X connect 7 0 14 0;
#X connect 8 0 14 1;
#X connect 9 0 5 0;
#X connect 10 0 9 0;
#X connect 11 0 8 0;
#X connect 12 0 15 0;
#X connect 14 0 3 0;
#X connect 15 0 7 0;
#X restore 246 237 pd control;
#X obj 291 216 inlet~;
#X obj 261 213 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 542 101 function;
#X obj 285 103 function;
#X obj 246 262 outlet~;
#X msg 772 63 clear;
#X obj 97 37 prepend domain;
#X obj 93 8 inlet~;
#X obj 542 255 outlet~;
#X text 391 67 volume;
#X text 646 67 frequency;
#X text 115 67 distortion;
#X connect 1 0 4 0;
#X connect 2 0 8 0;
#X connect 4 0 0 0;
#X connect 4 0 8 1;
#X connect 7 0 21 0;
#X connect 7 0 9 0;
#X connect 7 0 20 0;
#X connect 9 0 10 0;
#X connect 11 0 10 0;
#X connect 12 0 16 0;
#X connect 13 0 12 0;
#X connect 14 0 4 0;
#X connect 14 0 8 1;
#X connect 15 0 14 0;
#X connect 17 0 22 0;
#X connect 18 0 17 3;
#X connect 19 0 17 1;
#X connect 20 0 26 0;
#X connect 21 0 17 2;
#X connect 23 0 21 0;
#X connect 23 0 20 0;
#X connect 24 0 21 0;
#X connect 24 0 20 0;
#X connect 25 0 24 0;
#X connect 25 0 11 0;
#X restore 83 210 pd manipulator;
#X obj 83 112 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 125 193 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 119 176 mute;
#X floatatom 111 160 0 0 0 0 - - -;
#X text 146 161 length;
#X floatatom 97 141 0 0 0 0 - - -;
#X text 133 142 rate;
#X text 85 91 play;
#N canvas 80 433 852 330 manipulator 0;
#X floatatom 453 212 0 0 0 0 - - -;
#X floatatom 415 213 0 0 0 0 - - -;
#X obj 26 214 inlet~;
#X obj 9 214 inlet~;
#X floatatom 94 241 0 0 0 0 - - -;
#X floatatom 53 241 0 0 0 0 - - -;
#X obj 705 236 inlet~;
#X obj 684 236 inlet~;
#X obj 619 270 counter 0;
#X obj 619 239 metro 16;
#X obj 283 37 prepend fetch;
#X obj 8 84 multiSlider;
#X obj 201 37 prepend size;
#X obj 542 30 prepend store;
#X floatatom 506 31 0 0 0 0 - - -;
#N canvas 10 59 600 400 manager 0;
#X obj 155 235 change;
#X obj 98 235 change;
#X obj 155 285 outlet~;
#X obj 98 284 outlet~;
#X obj 139 199 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 155 144 1;
#X msg 137 144 0;
#X obj 155 171 gate;
#X obj 82 196 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 98 141 1;
#X msg 80 141 0;
#X obj 98 168 gate;
#X obj 83 88 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 83 54 inlet~;
#X obj 177 54 inlet~;
#X obj 120 54 inlet~;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 4 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 7 0;
#X connect 7 0 4 0;
#X connect 7 0 0 0;
#X connect 8 0 10 0;
#X connect 9 0 11 0;
#X connect 10 0 11 0;
#X connect 11 0 8 0;
#X connect 11 0 1 0;
#X connect 12 0 9 0;
#X connect 12 0 5 0;
#X connect 13 0 12 0;
#X connect 14 0 7 1;
#X connect 15 0 11 1;
#X restore 377 236 pd manager;
#X obj 377 214 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 417 142 600 400 control 0;
#X obj 279 134 * 15;
#X obj 279 84 != 1;
#X obj 111 102 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 166 233 |;
#X obj 259 134 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 259 189 & 15;
#X obj 279 34 inlet~;
#X obj 111 169 << 5;
#X obj 148 67 << 4;
#X floatatom 183 67 0 0 0 0 - - -;
#X obj 183 34 inlet~;
#X obj 148 34 inlet~;
#X obj 64 34 inlet~;
#X obj 166 281 outlet~;
#X obj 131 199 |;
#X floatatom 111 148 0 0 0 0 - - -;
#X text 219 68 volume;
#X text 51 149 distortion;
#X connect 0 0 5 1;
#X connect 1 0 4 0;
#X connect 1 0 0 0;
#X connect 2 0 15 0;
#X connect 3 0 13 0;
#X connect 4 0 5 0;
#X connect 5 0 2 0;
#X connect 5 0 3 1;
#X connect 6 0 1 0;
#X connect 7 0 14 0;
#X connect 8 0 14 1;
#X connect 9 0 5 0;
#X connect 10 0 9 0;
#X connect 11 0 8 0;
#X connect 12 0 15 0;
#X connect 14 0 3 0;
#X connect 15 0 7 0;
#X restore 246 237 pd control;
#X obj 291 216 inlet~;
#X obj 261 213 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 542 84 function;
#X obj 276 84 function;
#X obj 246 262 outlet~;
#X msg 772 63 clear;
#X obj 97 37 prepend domain;
#X obj 93 8 inlet~;
#X obj 542 255 outlet~;
#X text 391 67 volume;
#X text 646 67 frequency;
#X text 115 67 distortion;
#X connect 1 0 4 0;
#X connect 2 0 8 0;
#X connect 4 0 0 0;
#X connect 4 0 8 1;
#X connect 7 0 21 0;
#X connect 7 0 9 0;
#X connect 7 0 20 0;
#X connect 9 0 10 0;
#X connect 11 0 10 0;
#X connect 12 0 16 0;
#X connect 13 0 12 0;
#X connect 14 0 4 0;
#X connect 14 0 8 1;
#X connect 15 0 14 0;
#X connect 17 0 22 0;
#X connect 18 0 17 3;
#X connect 19 0 17 1;
#X connect 20 0 26 0;
#X connect 21 0 17 2;
#X connect 23 0 21 0;
#X connect 23 0 20 0;
#X connect 24 0 21 0;
#X connect 24 0 20 0;
#X connect 25 0 24 0;
#X connect 25 0 11 0;
#X restore 419 209 pd manipulator;
#X text 543 135 Distortion mapping table for manipulator patcher...
;
#X text 190 275 Each of the 4 POKEY sound channels have been deconstructed
for user friendly manipulation. Each "manipulator" subpatch reveals
three components to each channel: Distortion \, Volume \, and Frequency.
1 Choose a "rate" (playback speed) and "length" (segment length) for
a channel. Selection of these values will size the tables inside the
"manipulator" subpatches accordingly. 2 Activate the channel of interest
by hitting "Play". The corresponding segment of data will be looped.
3 Midi CC input allows the user to change the playback direction and
position for each channel. See the "controller" subpatch for details.
For proper POKEY emulation \, please use a sampling rate of 32kHz.
;
#X obj 419 111 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 461 192 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 455 175 mute;
#X floatatom 447 159 0 0 0 0 - - -;
#X text 482 160 length;
#X floatatom 433 140 0 0 0 0 - - -;
#X text 469 141 rate;
#X text 421 90 play;
#X obj 391 36 midiin;
#N canvas 10 59 716 318 controller 0;
#X obj 555 42 inlet~;
#X floatatom 555 66 0 0 0 0 - - -;
#X obj 413 42 inlet~;
#X floatatom 413 66 0 0 0 0 - - -;
#X obj 270 42 inlet~;
#X floatatom 270 66 0 0 0 0 - - -;
#X obj 128 42 inlet~;
#X floatatom 128 66 0 0 0 0 - - -;
#X text 489 229 Pos;
#X text 560 229 Dir;
#X text 501 246 Channel 4;
#X obj 491 213 outlet~;
#X obj 562 213 outlet~;
#X obj 491 187 * 1;
#X obj 491 148 / 127;
#X obj 491 122 unpack 0 0;
#X obj 562 122 unpack 0 0;
#X obj 562 148 / 64;
#X obj 349 213 outlet~;
#X obj 420 213 outlet~;
#X obj 349 187 * 1;
#X obj 349 148 / 127;
#X obj 349 122 unpack 0 0;
#X obj 420 122 unpack 0 0;
#X obj 420 148 / 64;
#X text 346 229 Pos;
#X text 417 229 Dir;
#X text 363 246 Channel 3;
#X text 204 229 Pos;
#X text 276 229 Dir;
#X text 225 246 Channel 2;
#X obj 206 213 outlet~;
#X obj 278 213 outlet~;
#X obj 206 187 * 1;
#X obj 206 148 / 127;
#X obj 206 122 unpack 0 0;
#X obj 278 122 unpack 0 0;
#X obj 278 148 / 64;
#X obj 65 213 outlet~;
#X obj 135 213 outlet~;
#X obj 21 41 inlet~;
#X obj 65 187 * 1;
#X obj 65 148 / 127;
#X obj 65 122 unpack 0 0;
#X obj 135 122 unpack 0 0;
#X obj 135 148 / 64;
#X obj 65 97 route 10 11 12 13 14 15 16 17;
#X obj 21 65 midiparse;
#X text 62 229 Pos;
#X text 132 229 Dir;
#X text 74 246 Channel 1;
#X connect 0 0 1 0;
#X connect 1 0 13 1;
#X connect 2 0 3 0;
#X connect 3 0 20 1;
#X connect 4 0 5 0;
#X connect 5 0 33 1;
#X connect 6 0 7 0;
#X connect 7 0 41 1;
#X connect 13 0 11 0;
#X connect 14 0 13 0;
#X connect 15 0 14 0;
#X connect 16 0 17 0;
#X connect 17 0 12 0;
#X connect 20 0 18 0;
#X connect 21 0 20 0;
#X connect 22 0 21 0;
#X connect 23 0 24 0;
#X connect 24 0 19 0;
#X connect 33 0 31 0;
#X connect 34 0 33 0;
#X connect 35 0 34 0;
#X connect 36 0 37 0;
#X connect 37 0 32 0;
#X connect 40 0 47 0;
#X connect 41 0 38 0;
#X connect 42 0 41 0;
#X connect 43 0 42 0;
#X connect 44 0 45 0;
#X connect 45 0 39 0;
#X connect 46 0 43 0;
#X connect 46 1 44 0;
#X connect 46 2 35 0;
#X connect 46 3 36 0;
#X connect 46 4 22 0;
#X connect 46 5 23 0;
#X connect 46 6 15 0;
#X connect 46 7 16 0;
#X connect 47 2 46 0;
#X restore 391 64 pd controller;
#N canvas 24 34 605 513 mastercontrol 0;
#X text 117 353 Bit 7 (17 vs 9 bit poly counter);
#X text 146 304 Bit 6 (Clock channel 1 with undivided clock);
#X text 175 254 Bit 5 (Clock channel 3 with undivided clock);
#X text 204 207 Bit 4 (Cascade dividers 2 & 1);
#X text 233 160 Bit 3 (Cascade dividers 4 & 3);
#X text 249 114 Bit 2 (Filter enable on C1. Select frequency with channel
2);
#X text 248 70 Bit 1 (Filter enable on C3. Select frequency with channel
4);
#X obj 47 456 outlet~;
#X obj 60 379 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 47 400 |;
#X obj 38 351 << 7;
#X obj 38 35 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#X obj 89 330 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 76 351 |;
#X obj 67 302 << 6;
#X obj 118 280 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 105 301 |;
#X obj 150 229 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 134 252 |;
#X obj 163 205 |;
#X obj 178 182 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 208 135 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 192 158 |;
#X obj 221 90 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 221 112 |;
#X obj 96 252 << 5;
#X obj 96 35 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#X obj 67 35 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#X obj 126 206 << 4;
#X obj 153 158 << 3;
#X obj 153 35 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 126 35 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 238 35 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 183 113 << 2;
#X obj 208 67 << 1;
#X obj 208 35 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 183 35 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 255 35 Bit 0 (clock/120 or clock/28);
#X connect 8 0 9 0;
#X connect 9 0 7 0;
#X connect 10 0 9 0;
#X connect 11 0 10 0;
#X connect 12 0 13 0;
#X connect 13 0 8 0;
#X connect 13 0 9 1;
#X connect 14 0 13 0;
#X connect 15 0 16 0;
#X connect 16 0 12 0;
#X connect 16 0 13 1;
#X connect 17 0 18 0;
#X connect 18 0 15 0;
#X connect 18 0 16 1;
#X connect 19 0 17 0;
#X connect 19 0 18 1;
#X connect 20 0 19 0;
#X connect 21 0 22 0;
#X connect 22 0 20 0;
#X connect 22 0 19 1;
#X connect 23 0 24 0;
#X connect 24 0 21 0;
#X connect 24 0 22 1;
#X connect 25 0 16 0;
#X connect 26 0 25 0;
#X connect 27 0 14 0;
#X connect 28 0 18 0;
#X connect 29 0 19 0;
#X connect 30 0 29 0;
#X connect 31 0 28 0;
#X connect 32 0 23 0;
#X connect 32 0 24 1;
#X connect 33 0 22 0;
#X connect 34 0 24 0;
#X connect 35 0 34 0;
#X connect 36 0 33 0;
#X restore 543 223 pd mastercontrol;
#X text 533 39 0 0 0 -> (5->17) bit poly switch \; 0 0 1 \, 0 1 1 ->
5 bit poly \; 0 1 0 -> (5->4) bit poly switch \; 1 0 0 -> 17 bit poly
\; 1 0 1 \, 1 1 1 -> pure tone (poly off) \; 1 1 0 -> 4 bit poly;
#X obj 27 241 atari5200~ 0 0 0 0 0;
#X connect 0 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 5 0;
#X connect 2 0 5 1;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 6 0 47 5;
#X connect 6 1 47 6;
#X connect 7 0 6 0;
#X connect 8 0 6 3;
#X connect 10 0 6 2;
#X connect 12 0 6 1;
#X connect 15 0 47 3;
#X connect 15 1 47 4;
#X connect 16 0 15 0;
#X connect 17 0 15 3;
#X connect 19 0 15 2;
#X connect 21 0 15 1;
#X connect 23 0 47 1;
#X connect 23 1 47 2;
#X connect 24 0 23 0;
#X connect 25 0 23 3;
#X connect 27 0 23 2;
#X connect 29 0 23 1;
#X connect 32 0 47 7;
#X connect 32 1 47 8;
#X connect 35 0 32 0;
#X connect 36 0 32 3;
#X connect 38 0 32 2;
#X connect 40 0 32 1;
#X connect 43 0 44 0;
#X connect 44 0 23 4;
#X connect 44 1 23 5;
#X connect 44 2 15 4;
#X connect 44 3 15 5;
#X connect 44 4 6 4;
#X connect 44 5 6 5;
#X connect 44 6 32 4;
#X connect 44 7 32 5;
#X connect 45 0 47 9;
#X connect 47 0 0 0;
#X restore 238 392 pd Another_example;
#X connect 1 0 4 1;
#X connect 2 0 4 2;
#X connect 3 0 4 3;
#X connect 4 0 0 0;
#X connect 4 0 0 1;
#X connect 5 0 4 4;
#X connect 6 0 4 5;
#X connect 7 0 4 6;
#X connect 8 0 4 7;
#X connect 9 0 4 8;
#X connect 10 0 4 9;