[PD-cvs] abstractions/footils/rtc-lib/rtc 16step-seq-help.pd, NONE, 1.1 16step-seq.pd, NONE, 1.1 @.pd, NONE, 1.1 BPM2ms.pd, NONE, 1.1 ED-rhythm-help.pd, NONE, 1.1 ED-rhythm.pd, NONE, 1.1 ED-trans-help.pd, NONE, 1.1 ED-trans.pd, NONE, 1.1 ED2EP-help.pd, NONE, 1.1 ED2EP.pd, NONE, 1.1 INFROW1024.tab, NONE, 1.1 Lround-help.pd, NONE, 1.1 Lround.pd, NONE, 1.1 QT-PercPlayer.pd, NONE, 1.1 RTC-Overview.pd, NONE, 1.1 RTC-device.pd, NONE, 1.1 RTC-seed.pd, NONE, 1.1 RandomSeeder.pd, NONE, 1.1 VolAmb-help.pd, NONE, 1.1 VolAmb.pd, NONE, 1.1 add%.pd, NONE, 1.1 alea-rhythm-help.pd, NONE, 1.1 alea-rhythm.pd, NONE, 1.1 alea.pd, NONE, 1.1 anti-bis&osc.pd, NONE, 1.1 anti-bis.pd, NONE, 1.1 anti-interval-help.pd, NONE, 1.1 anti-interval.pd, NONE, 1.1 anti-octave&prime-help.pd, NONE, 1.1 anti-octave&prime.pd, NONE, 1.1 anti-octave-help.pd, NONE, 1.1 anti-octave.pd, NONE, 1.1 anti-osc-help.pd, NONE, 1.1 anti-osc.pd, NONE, 1.1 banger16.pd, NONE, 1.1 between-lin-help.pd, NONE, 1.1 between-lin-urn.pd, NONE, 1.1 between-lin.pd, NONE, 1.1 between-log-help.pd, NONE, 1.1 between-log-urn.pd, NONE, 1.1 between-log.pd, NONE, 1.1 between-variations-help.pd, NONE, 1.1 between.pd, NONE, 1.1 block-bang.pd, NONE, 1.1 brown-melody-help.pd, NONE, 1.1 brown-melody.pd, NONE, 1.1 brown-rhythm-help.pd, NONE, 1.1 brown-rhythm.pd, NONE, 1.1 brownian-help.pd, NONE, 1.1 brownian.pd, NONE, 1.1 butfirst-help.pd, NONE, 1.1 butfirst.pd, NONE, 1.1 butlast-help.pd, NONE, 1.1 butlast.pd, NONE, 1.1 check-octaves-help.pd, NONE, 1.1 check-octaves.pd, NONE, 1.1 check-row-help.pd, NONE, 1.1 check-row.pd, NONE, 1.1 choice-rhythm-help.pd, NONE, 1.1 choice-rhythm.pd, NONE, 1.1 choose-help.pd, NONE, 1.1 choose-intervals-help.pd, NONE, 1.1 choose-intervals.pd, NONE, 1.1 choose.pd, NONE, 1.1 collect.pd, NONE, 1.1 contrario.pd, NONE, 1.1 cos-slider.pd, NONE, 1.1 count-bang-help.pd, NONE, 1.1 count-bang.pd, NONE, 1.1 countdown.pd, NONE, 1.1 cp-pan~-help.pd, NONE, 1.1 cp-pan~.pd, NONE, 1.1 cresc-decresc-help.pd, NONE, 1.1 cresc-decresc.pd, NONE, 1.1 crossfade~-help.pd, NONE, 1.1 crossfade~.pd, NONE, 1.1 dB2lin.pd, NONE, 1.1 dur-from-ED.pd, NONE, 1.1 expr_scale.pd, NONE, 1.1 fibonacci.pd, NONE, 1.1 first-bang.pd, NONE, 1.1 first-help.pd, NONE, 1.1 first-shot.pd, NONE, 1.1 first.pd, NONE, 1.1 frq2note-help.pd, NONE, 1.1 frq2note.pd, NONE, 1.1 geom-help.pd, NONE, 1.1 geom.pd, NONE, 1.1 grid-rhythm-help.pd, NONE, 1.1 grid-rhythm.pd, NONE, 1.1 groove-rhythm.pd, NONE, 1.1 group-rhythm-help.pd, NONE, 1.1 group-rhythm.pd, NONE, 1.1 group-rhythm2-help.pd, NONE, 1.1 group-rhythm2.pd, NONE, 1.1 groups-help.pd, NONE, 1.1 groups.pd, NONE, 1.1 inc-dec.pd, NONE, 1.1 infinity-row-help.pd, NONE, 1.1 infinity-row.pd, NONE, 1.1 int-or-float-help.pd, NONE, 1.1 int-or-float.pd, NONE, 1.1 integ.pd, NONE, 1.1 intv2ratio-help.pd, NONE, 1.1 intv2ratio.pd, NONE, 1.1 inv.pd, NONE, 1.1 key-bang.pd, NONE, 1.1 key-bang2.pd, NONE, 1.1 last-help.pd, NONE, 1.1 last.pd, NONE, 1.1 lb.pd, NONE, 1.1 lin2dB.pd, NONE, 1.1 line2-help.pd, NONE, 1.1 line2.pd, NONE, 1.1 listlen.pd, NONE, 1.1 listreg.pd, NONE, 1.1 make-ED-scale-help.pd, NONE, 1.1 make-ED-scale.pd, NONE, 1.1 make-choice-list-help.pd, NONE, 1.1 make-choice-list.pd, NONE, 1.1 make-scale-help.pd, NONE, 1.1 make-scale.pd, NONE, 1.1 make-trans-scale-help.pd, NONE, 1.1 make-trans-scale.pd, NONE, 1.1 markov-harmony-help.pd, NONE, 1.1 markov-harmony.pd, NONE, 1.1 markov-help.pd, NONE, 1.1 markov-rhythm-help.pd, NONE, 1.1 markov-rhythm.pd, NONE, 1.1 markov.pd, NONE, 1.1 matrix12-help.pd, NONE, 1.1 metro-dev%-help.pd, NONE, 1.1 metro-dev%.pd, NONE, 1.1 minus.pd, NONE, 1.1 ms2sec-help.pd, NONE, 1.1 ms2sec.pd, NONE, 1.1 multiple-help.pd, NONE, 1.1 multiple.pd, NONE, 1.1 neutral-harmony-help.pd, NONE, 1.1 neutral-harmony.pd, NONE, 1.1 nname-help.pd, NONE, 1.1 normalize-row-help.pd, NONE, 1.1 normalize-row.pd, NONE, 1.1 note2cents-help.pd, NONE, 1.1 note2cents.pd, NONE, 1.1 note2frq-help.pd, NONE, 1.1 note2frq.pd, NONE, 1.1 note2pitch-help.pd, NONE, 1.1 note2pitch.pd, NONE, 1.1 note2st-help.pd, NONE, 1.1 note2st.pd, NONE, 1.1 nth.pd, NONE, 1.1 panning-help.pd, NONE, 1.1 pass-bang.pd, NONE, 1.1 pass.pd, NONE, 1.1 per2pass.pd, NONE, 1.1 periodic-help.pd, NONE, 1.1 periodic.pd, NONE, 1.1 permutate-row-help.pd, NONE, 1.1 permutate-row.pd, NONE, 1.1 permutate.pd, NONE, 1.1 permute-help.pd, NONE, 1.1 pitch-from-intervals-help.pd, NONE, 1.1 pitch-from-intervals.pd, NONE, 1.1 pitch-from-row-help.pd, NONE, 1.1 pitch-from-row.pd, NONE, 1.1 pitch2note-help.pd, NONE, 1.1 pitch2note.pd, NONE, 1.1 play-samp~-help.pd, NONE, 1.1 play-samp~.pd, NONE, 1.1 play.pd, NONE, 1.1 play2-help.pd, NONE, 1.1 play2.pd, NONE, 1.1 random-norep.pd, NONE, 1.1 random-ramp-help.pd, NONE, 1.1 random-ramp-urn-help.pd, NONE, 1.1 random-ramp-urn.pd, NONE, 1.1 random-ramp.pd, NONE, 1.1 random-row-help.pd, NONE, 1.1 random-row.pd, NONE, 1.1 ratio-help.pd, NONE, 1.1 ratio.pd, NONE, 1.1 ratio2intv-help.pd, NONE, 1.1 ratio2intv.pd, NONE, 1.1 reanimate.pd, NONE, 1.1 repchord-rhythm-help.pd, NONE, 1.1 repchord-rhythm.pd, NONE, 1.1 repeat-ED-help.pd, NONE, 1.1 repeat-ED.pd, NONE, 1.1 rit-acc-help.pd, NONE, 1.1 rit-acc.pd, NONE, 1.1 rota-help.pd, NONE, 1.1 rota.pd, NONE, 1.1 rotate-help.pd, NONE, 1.1 round.pd, NONE, 1.1 roundto.pd, NONE, 1.1 row-modus-help.pd, NONE, 1.1 row-modus.pd, NONE, 1.1 samp10~-help.pd, NONE, 1.1 samp10~.pd, NONE, 1.1 scale-changer-help.pd, NONE, 1.1 scale-changer.pd, NONE, 1.1 scale-rhythm.pd, NONE, 1.1 schweller-help.pd, NONE, 1.1 schweller.pd, NONE, 1.1 scramble-help.pd, NONE, 1.1 scramble.pd, NONE, 1.1 sel-princ-help.pd, NONE, 1.1 sel-princ.pd, NONE, 1.1 sequence-help.pd, NONE, 1.1 sequence.pd, NONE, 1.1 serial-rhythm-help.pd, NONE, 1.1 serial-rhythm.pd, NONE, 1.1 series-help.pd, NONE, 1.1 series.pd, NONE, 1.1 set_menu.pd, NONE, 1.1 show-pitchclass-help.pd, NONE, 1.1 show-pitchclass.pd, NONE, 1.1 show.pd, NONE, 1.1 smooth-line-help.pd, NONE, 1.1 smooth-line.pd, NONE, 1.1 sneak-help.pd, NONE, 1.1 sneak-random-help.pd, NONE, 1.1 sneak-random.pd, NONE, 1.1 sneak-rhythm-help.pd, NONE, 1.1 sneak-rhythm.pd, NONE, 1.1 sneak.pd, NONE, 1.1 sqrt-pan~-help.pd, NONE, 1.1 sqrt-pan~.pd, NONE, 1.1 st2pitch-help.pd, NONE, 1.1 st2pitch.pd, NONE, 1.1 subtr%.pd, NONE, 1.1 super-rhythm-help.pd, NONE, 1.1 super-rhythm.pd, NONE, 1.1 trans-exp-help.pd, NONE, 1.1 trans-exp.pd, NONE, 1.1 trans-help.pd, NONE, 1.1 trans-lin-help.pd, NONE, 1.1 trans-lin.pd, NONE, 1.1 trans-log-help.pd, NONE, 1.1 trans-log.pd, NONE, 1.1 trans.pd, NONE, 1.1 transp-pitch-help.pd, NONE, 1.1 transp-pitch.pd, NONE, 1.1 transpose-row-help.pd, NONE, 1.1 transpose-row.pd, NONE, 1.1 urne-help.pd, NONE, 1.1 urne.pd, NONE, 1.1 wave-rhythm-help.pd, NONE, 1.1 wave-rhythm.pd, NONE, 1.1 xrandom-help.pd, NONE, 1.1 xrandom.pd, NONE, 1.1

Frank Barknecht fbar at users.sourceforge.net
Sun Nov 26 13:57:43 CET 2006


Update of /cvsroot/pure-data/abstractions/footils/rtc-lib/rtc
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3770

Added Files:
	16step-seq-help.pd 16step-seq.pd @.pd BPM2ms.pd 
	ED-rhythm-help.pd ED-rhythm.pd ED-trans-help.pd ED-trans.pd 
	ED2EP-help.pd ED2EP.pd INFROW1024.tab Lround-help.pd Lround.pd 
	QT-PercPlayer.pd RTC-Overview.pd RTC-device.pd RTC-seed.pd 
	RandomSeeder.pd VolAmb-help.pd VolAmb.pd add%.pd 
	alea-rhythm-help.pd alea-rhythm.pd alea.pd anti-bis&osc.pd 
	anti-bis.pd anti-interval-help.pd anti-interval.pd 
	anti-octave&prime-help.pd anti-octave&prime.pd 
	anti-octave-help.pd anti-octave.pd anti-osc-help.pd 
	anti-osc.pd banger16.pd between-lin-help.pd between-lin-urn.pd 
	between-lin.pd between-log-help.pd between-log-urn.pd 
	between-log.pd between-variations-help.pd between.pd 
	block-bang.pd brown-melody-help.pd brown-melody.pd 
	brown-rhythm-help.pd brown-rhythm.pd brownian-help.pd 
	brownian.pd butfirst-help.pd butfirst.pd butlast-help.pd 
	butlast.pd check-octaves-help.pd check-octaves.pd 
	check-row-help.pd check-row.pd choice-rhythm-help.pd 
	choice-rhythm.pd choose-help.pd choose-intervals-help.pd 
	choose-intervals.pd choose.pd collect.pd contrario.pd 
	cos-slider.pd count-bang-help.pd count-bang.pd countdown.pd 
	cp-pan~-help.pd cp-pan~.pd cresc-decresc-help.pd 
	cresc-decresc.pd crossfade~-help.pd crossfade~.pd dB2lin.pd 
	dur-from-ED.pd expr_scale.pd fibonacci.pd first-bang.pd 
	first-help.pd first-shot.pd first.pd frq2note-help.pd 
	frq2note.pd geom-help.pd geom.pd grid-rhythm-help.pd 
	grid-rhythm.pd groove-rhythm.pd group-rhythm-help.pd 
	group-rhythm.pd group-rhythm2-help.pd group-rhythm2.pd 
	groups-help.pd groups.pd inc-dec.pd infinity-row-help.pd 
	infinity-row.pd int-or-float-help.pd int-or-float.pd integ.pd 
	intv2ratio-help.pd intv2ratio.pd inv.pd key-bang.pd 
	key-bang2.pd last-help.pd last.pd lb.pd lin2dB.pd 
	line2-help.pd line2.pd listlen.pd listreg.pd 
	make-ED-scale-help.pd make-ED-scale.pd 
	make-choice-list-help.pd make-choice-list.pd 
	make-scale-help.pd make-scale.pd make-trans-scale-help.pd 
	make-trans-scale.pd markov-harmony-help.pd markov-harmony.pd 
	markov-help.pd markov-rhythm-help.pd markov-rhythm.pd 
	markov.pd matrix12-help.pd metro-dev%-help.pd metro-dev%.pd 
	minus.pd ms2sec-help.pd ms2sec.pd multiple-help.pd multiple.pd 
	neutral-harmony-help.pd neutral-harmony.pd nname-help.pd 
	normalize-row-help.pd normalize-row.pd note2cents-help.pd 
	note2cents.pd note2frq-help.pd note2frq.pd note2pitch-help.pd 
	note2pitch.pd note2st-help.pd note2st.pd nth.pd 
	panning-help.pd pass-bang.pd pass.pd per2pass.pd 
	periodic-help.pd periodic.pd permutate-row-help.pd 
	permutate-row.pd permutate.pd permute-help.pd 
	pitch-from-intervals-help.pd pitch-from-intervals.pd 
	pitch-from-row-help.pd pitch-from-row.pd pitch2note-help.pd 
	pitch2note.pd play-samp~-help.pd play-samp~.pd play.pd 
	play2-help.pd play2.pd random-norep.pd random-ramp-help.pd 
	random-ramp-urn-help.pd random-ramp-urn.pd random-ramp.pd 
	random-row-help.pd random-row.pd ratio-help.pd ratio.pd 
	ratio2intv-help.pd ratio2intv.pd reanimate.pd 
	repchord-rhythm-help.pd repchord-rhythm.pd repeat-ED-help.pd 
	repeat-ED.pd rit-acc-help.pd rit-acc.pd rota-help.pd rota.pd 
	rotate-help.pd round.pd roundto.pd row-modus-help.pd 
	row-modus.pd samp10~-help.pd samp10~.pd scale-changer-help.pd 
	scale-changer.pd scale-rhythm.pd schweller-help.pd 
	schweller.pd scramble-help.pd scramble.pd sel-princ-help.pd 
	sel-princ.pd sequence-help.pd sequence.pd 
	serial-rhythm-help.pd serial-rhythm.pd series-help.pd 
	series.pd set_menu.pd show-pitchclass-help.pd 
	show-pitchclass.pd show.pd smooth-line-help.pd smooth-line.pd 
	sneak-help.pd sneak-random-help.pd sneak-random.pd 
	sneak-rhythm-help.pd sneak-rhythm.pd sneak.pd 
	sqrt-pan~-help.pd sqrt-pan~.pd st2pitch-help.pd st2pitch.pd 
	subtr%.pd super-rhythm-help.pd super-rhythm.pd 
	trans-exp-help.pd trans-exp.pd trans-help.pd trans-lin-help.pd 
	trans-lin.pd trans-log-help.pd trans-log.pd trans.pd 
	transp-pitch-help.pd transp-pitch.pd transpose-row-help.pd 
	transpose-row.pd urne-help.pd urne.pd wave-rhythm-help.pd 
	wave-rhythm.pd xrandom-help.pd xrandom.pd 
Log Message:
added rtc-lib

--- NEW FILE: first-help.pd ---
#N canvas 546 193 456 374 10;
#X obj 106 208 bng 15 250 50 1 empty empty clear_display 0 -6 0 8 -262144
-1 -1;
#X obj 65 207 show;
#X msg 65 114 1 2 3 4 5;
#X msg 85 140 a b c d e f g h i;
#X msg 65 240;
#X text 25 277 1994 by Karlheinz Essl;
#X obj 65 175 first;
#X text 25 61 Outputs first element of the input list.;
#X text 25 29 first;
#X connect 0 0 1 1;
#X connect 1 0 4 0;
#X connect 2 0 6 0;
#X connect 3 0 6 0;
#X connect 6 0 1 0;

--- NEW FILE: set_menu.pd ---
#N canvas 50 61 226 222 10;
#X obj 48 153 outlet;
#X obj 48 36 inlet;
#X obj 48 65 t b a;
#X obj 78 91 list prepend set;
#X obj 78 113 list trim;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 4 0 0 0;

--- NEW FILE: nname-help.pd ---
#N canvas 8 46 726 445 10;
#X obj 405 198 umenu 1 64;
#X text 24 44 'nname' turns an int in its inlet into a symbol representing
the note name of the corresponding MIDI note. Note that nname even
works for i > 127! The argument allows you to choose the display mode:
;
#X text 24 17 nname;
#X msg 499 19 Harmony;
#N canvas 184 47 391 221 how-to-customize... 0;
#X text 31 43 The appearance of the note names can be customized. For
this reason \, you have to open the nname-object with ResEdit. Then
you click on the STR# icon and select the resource with ID 128 The
first 12 strings label the capital note names \, the second 12 their
lower-case representation.;
#X text 31 131 By this it is possible to change the note names e.g.
to french or italian conventions: do re mi fa so... with dise/diesis
and bŽmol/bemolle.;
#X restore 315 123 pd how-to-customize...;
#X text 40 131 2 - displays MIDI note names;
#X text 40 117 1 - displays note names C4;
#X text 40 102 0 - displays pitch classes;
#X text 40 145 3 - displays german note names;
#X text 24 166 see also:;
#X msg 159 166 showchord;
#X text 24 382 1993 by Orm Finnendahl;
#X text 91 339 pitch class;
#X text 179 339 note names C4;
#X text 270 339 MIDI note names;
#X text 358 339 german note names;
#X obj 179 288 show;
#X obj 179 260 nname 1;
#X obj 270 288 show;
#X obj 270 260 nname 2;
#X obj 358 260 nname 3;
#X obj 358 288 show;
#X msg 36 224 about;
#X text 139 226 MIDI key number;
#X floatatom 90 224 0 0 0 0 - - -;
#X obj 90 260 nname 0;
#X obj 90 288 show;
#X msg 90 199 60;
#X msg 90 166 shownote;
#X msg 90 318;
#X msg 179 318;
#X msg 358 318;
#X msg 270 318;
#X obj 131 289 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 220 289 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 311 289 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 399 289 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 405 224 0 0 0 0 - - -;
#X text 434 226 display mode;
#X text 131 24 (external - FAT);
#X text 24 396 FAT implementation by Richard Dudas (IRCAM \, Paris)
;
#X connect 16 0 30 0;
#X connect 17 0 16 0;
#X connect 18 0 32 0;
#X connect 19 0 18 0;
#X connect 20 0 21 0;
#X connect 21 0 31 0;
#X connect 22 0 25 0;
#X connect 24 0 25 0;
#X connect 24 0 17 0;
#X connect 24 0 19 0;
#X connect 24 0 20 0;
#X connect 25 0 26 0;
#X connect 26 0 29 0;
#X connect 27 0 24 0;
#X connect 33 0 26 1;
#X connect 34 0 16 1;
#X connect 35 0 18 1;
#X connect 36 0 21 1;
#X connect 37 0 20 1;

--- NEW FILE: ratio2intv.pd ---
#N canvas 63 44 369 190 10;
#X obj 35 88 expr log ($f1) * 17.3123;
#X obj 35 62 inlet;
#X obj 35 121 outlet;
#X text 216 86 < 12 / ln (2);
#X text 78 141 1994 by Karlheinz Essl;
#X connect 0 0 2 0;
#X connect 1 0 0 0;

--- NEW FILE: show-pitchclass.pd ---
#N canvas 163 349 493 300 10;
#X obj 341 190 loadbang;
#X obj 19 270 outlet;
#X obj 19 32 inlet;
#X msg 349 161 H;
#X msg 319 161 Bb;
#X msg 289 161 A;
#X msg 259 161 G#;
#X msg 229 161 G;
#X msg 199 161 F#;
#X msg 169 161 F;
#X msg 139 161 E;
#X msg 109 161 D#;
#X msg 79 161 D;
#X msg 49 161 C#;
#X obj 19 83 % 12;
#X msg 19 161 C;
#X obj 19 134 sel 0 1 2 3 4 5 6 7 8 9 10 11;
#X text 277 266 2004 by Karlheinz
Essl;
#X obj 19 224 list prepend set;
#X obj 19 248 list trim;
#X msg 341 213 set;
#X obj 20 204 t a;
#X connect 0 0 20 0;
#X connect 2 0 14 0;
#X connect 3 0 21 0;
#X connect 4 0 21 0;
#X connect 5 0 21 0;
#X connect 6 0 21 0;
#X connect 7 0 21 0;
#X connect 8 0 21 0;
#X connect 9 0 21 0;
#X connect 10 0 21 0;
#X connect 11 0 21 0;
#X connect 12 0 21 0;
#X connect 13 0 21 0;
#X connect 14 0 16 0;
#X connect 15 0 21 0;
#X connect 16 0 15 0;
#X connect 16 1 13 0;
#X connect 16 2 12 0;
#X connect 16 3 11 0;
#X connect 16 4 10 0;
#X connect 16 5 9 0;
#X connect 16 6 8 0;
#X connect 16 7 7 0;
#X connect 16 8 6 0;
#X connect 16 9 5 0;
#X connect 16 10 4 0;
#X connect 16 11 3 0;
#X connect 18 0 19 0;
#X connect 19 0 1 0;
#X connect 20 0 1 0;
#X connect 21 0 18 0;

--- NEW FILE: BPM2ms.pd ---
#N canvas 38 77 230 184 10;
#X obj 36 101 outlet;
#X obj 36 46 inlet;
#X text 60 102 1998 by Karlheinz
Essl;
#X obj 36 73 expr 60000/$f1;
#X connect 1 0 3 0;
#X connect 3 0 0 0;

--- NEW FILE: ED2EP.pd ---
#N canvas 401 150 440 497 10;
#X obj 113 364 outlet;
#X obj 229 41 inlet;
#X obj 113 39 inlet;
#X text 180 441 1997-2004 by Karlheinz Essl;
#X obj 136 110 list-drip;
#X obj 136 166 +;
#X obj 164 166 f;
#X obj 206 110 f \$1;
#X obj 136 296 list prepend;
#X obj 233 296 t a;
#X obj 113 66 t b a b b;
#X obj 113 321 list;
#X text 196 169 accumulate with every element;
#X connect 1 0 7 1;
#X connect 2 0 10 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 8 0;
#X connect 6 0 5 1;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 8 0 11 1;
#X connect 9 0 8 1;
#X connect 10 0 11 0;
#X connect 10 1 4 0;
#X connect 10 2 8 1;
#X connect 10 3 7 0;
#X connect 11 0 0 0;

--- NEW FILE: trans-log.pd ---
#N canvas 388 59 694 561 10;
#X obj 25 63 inlet;
#X obj 96 44 loadbang;
#X floatatom 161 270 0 0 0 0 - - -;
#X text 226 264 q;
#X obj 138 190 sel 0;
#X msg 138 212 1;
#X obj 215 190 sel 0;
#X msg 215 212 1;
#X msg 293 212 1;
#X obj 293 190 sel 0;
#X obj 25 325 * 1;
#X obj 25 363 outlet;
#X obj 193 63 inlet;
#X obj 273 63 inlet;
#X obj 138 165 f \$1;
#X obj 215 165 f \$2;
#X obj 293 165 f \$3;
#X obj 335 63 inlet;
#X text 107 365 1993/94 by Karlheinz
Essl;
#X obj 96 70 delay 2;
#X obj 25 294 expr pow($f2 \, $f1);
#X obj 138 239 expr pow($f2/$f1 \, 1/$f3);
#X obj 96 103 t b b b;
#X obj 335 84 t b a;
#X obj 259 94 t b a;
#X connect 0 0 20 0;
#X connect 1 0 19 0;
#X connect 4 0 5 0;
#X connect 4 1 10 1;
#X connect 4 1 21 0;
#X connect 5 0 10 1;
#X connect 5 0 21 0;
#X connect 6 0 7 0;
#X connect 6 1 21 1;
#X connect 7 0 21 1;
#X connect 8 0 21 2;
#X connect 9 0 8 0;
#X connect 9 1 21 2;
#X connect 10 0 11 0;
#X connect 12 0 14 0;
#X connect 13 0 24 0;
#X connect 14 0 4 0;
#X connect 15 0 6 0;
#X connect 16 0 9 0;
#X connect 17 0 23 0;
#X connect 19 0 22 0;
#X connect 20 0 10 0;
#X connect 21 0 2 0;
#X connect 21 0 20 1;
#X connect 22 0 14 0;
#X connect 22 1 15 0;
#X connect 22 2 16 0;
#X connect 23 0 21 0;
#X connect 23 1 16 0;
#X connect 24 0 21 0;
#X connect 24 1 15 0;

--- NEW FILE: serial-rhythm.pd ---
#N canvas 421 161 477 486 10;
#X obj 239 187 - 1;
#X obj 28 389 outlet;
#X text 133 243 ED;
#X obj 28 334 metro 500;
#X obj 28 26 inlet;
#X obj 126 29 inlet;
#X obj 166 29 inlet;
#X obj 209 27 inlet;
#X obj 86 206 xrandom;
#X obj 86 74 sel 1;
#X text 55 421 1993-2004 by Karlheinz Essl;
#X text 55 406 vs. 3.1;
#X obj 149 390 outlet;
#X obj 260 389 outlet;
#X obj 209 134 int \$3;
#X obj 86 270 trans-log \$1 \$2 \$3;
#X obj 86 299 t a a;
#X obj 209 160 t a a;
#X obj 86 98 t a a;
#X obj 86 238 t a a;
#X obj 28 364 t b b;
#X obj 28 48 t a a;
#X connect 0 0 15 3;
#X connect 3 0 20 0;
#X connect 4 0 21 0;
#X connect 5 0 15 1;
#X connect 6 0 15 2;
#X connect 7 0 14 0;
#X connect 8 0 19 0;
#X connect 9 0 18 0;
#X connect 14 0 17 0;
#X connect 15 0 16 0;
#X connect 16 0 3 1;
#X connect 16 1 13 0;
#X connect 17 0 8 1;
#X connect 17 1 0 0;
#X connect 18 0 8 0;
#X connect 18 1 14 0;
#X connect 19 0 15 0;
#X connect 19 1 12 0;
#X connect 20 0 1 0;
#X connect 20 1 8 0;
#X connect 21 0 3 0;
#X connect 21 1 9 0;

--- NEW FILE: choose-intervals.pd ---
#N canvas 468 28 516 540 10;
#X obj 317 28 loadbang;
#N canvas 63 44 220 263 intv1 0;
#X obj 33 191 outlet;
#N canvas 575 224 277 339 plus-minus 0;
#X obj 33 37 inlet;
#X obj 33 182 outlet;
#X msg 75 153 -1;
#X msg 33 153 1;
#X obj 33 63 random 2;
#X obj 33 85 change;
#X obj 33 112 select 1 0;
#X connect 0 0 4 0;
#X connect 2 0 1 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 3 0;
#X connect 6 1 2 0;
#X restore 63 139 pd plus-minus;
#X obj 33 163 * 1;
#X obj 91 56 loadbang;
#X msg 91 83 1 2 5;
#X obj 33 108 permutate;
#X obj 33 33 inlet;
#X obj 33 84 t a a;
#X connect 1 0 2 1;
#X connect 2 0 0 0;
#X connect 3 0 4 0;
#X connect 4 0 5 1;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 7 1 1 0;
#X restore 145 367 pd intv1;
#N canvas 63 44 184 234 sel 0;
#X obj 35 120 outlet;
#X obj 35 65 > 1;
#X obj 35 40 inlet;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X restore 203 133 pd sel;
#X obj 331 243 sel 1;
#N canvas 63 44 226 274 select-supply 0;
#X obj 49 205 outlet;
#X msg 120 161 1 2 4 5 6;
#X msg 49 161 1 2 3 4 5;
#X obj 49 117 route 0 1;
#X obj 49 84 random 2;
#X obj 49 50 inlet;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 2 0;
#X connect 3 1 1 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X restore 208 216 pd select-supply;
#N canvas 43 55 564 407 minusifier 0;
#X obj 55 35 inlet;
#X obj 193 63 make-choice-list 6 6 0 1;
#X obj 134 268 inlet;
#X obj 55 333 outlet;
#X obj 344 165 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 293 165 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 190 165 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 241 165 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 139 165 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 88 165 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 55 237 pack 0 0 0 0 0 0;
#N canvas 38 77 558 434 proc 0;
#X obj 81 67 inlet;
#X obj 176 67 inlet;
#X obj 73 293 outlet;
#X obj 81 186 == 1;
#X obj 81 213 select 1;
#X obj 81 247 int;
#X obj 132 256 int;
#X obj 132 234 b;
#X obj 80 268 * -1;
#X obj 81 119 t b a a;
#X obj 81 162 int;
#X connect 0 0 9 0;
#X connect 1 0 10 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 7 0;
#X connect 5 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 2 0;
#X connect 9 0 10 0;
#X connect 9 1 5 1;
#X connect 9 2 6 1;
#X connect 10 0 3 0;
#X restore 317 191 pd proc;
#N canvas 38 77 668 502 proc 0;
#X obj 81 67 inlet;
#X obj 176 67 inlet;
#X obj 88 274 outlet;
#X obj 84 170 == 1;
#X obj 84 197 select 1;
#X obj 84 231 int;
#X obj 135 240 int;
#X obj 135 218 b;
#X obj 83 252 * -1;
#X obj 84 103 t b a a;
#X obj 84 146 int;
#X connect 0 0 9 0;
#X connect 1 0 10 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 7 0;
#X connect 5 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 2 0;
#X connect 9 0 10 0;
#X connect 9 1 5 1;
#X connect 9 2 6 1;
#X connect 10 0 3 0;
#X restore 266 191 pd proc;
#N canvas 38 77 665 479 proc 0;
#X obj 81 67 inlet;
#X obj 176 67 inlet;
#X obj 74 319 outlet;
#X obj 81 187 == 1;
#X obj 81 214 select 1;
#X obj 81 248 int;
#X obj 132 257 int;
#X obj 132 235 b;
#X obj 80 269 * -1;
#X obj 81 120 t b a a;
#X obj 81 163 int;
#X connect 0 0 9 0;
#X connect 1 0 10 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 7 0;
#X connect 5 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 2 0;
#X connect 9 0 10 0;
#X connect 9 1 5 1;
#X connect 9 2 6 1;
#X connect 10 0 3 0;
#X restore 215 191 pd proc;
#N canvas 38 77 624 457 proc 0;
#X obj 81 67 inlet;
#X obj 176 67 inlet;
#X obj 75 270 outlet;
#X obj 76 163 == 1;
#X obj 76 190 select 1;
#X obj 76 224 int;
#X obj 127 233 int;
#X obj 127 211 b;
#X obj 75 245 * -1;
#X obj 76 96 t b a a;
#X obj 76 139 int;
#X connect 0 0 9 0;
#X connect 1 0 10 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 7 0;
#X connect 5 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 2 0;
#X connect 9 0 10 0;
#X connect 9 1 5 1;
#X connect 9 2 6 1;
#X connect 10 0 3 0;
#X restore 164 191 pd proc;
#N canvas 38 77 594 410 proc 0;
#X obj 81 67 inlet;
#X obj 176 67 inlet;
#X obj 79 294 outlet;
#X obj 81 186 == 1;
#X obj 81 213 select 1;
#X obj 81 247 int;
#X obj 132 256 int;
#X obj 132 234 b;
#X obj 80 268 * -1;
#X obj 81 119 t b a a;
#X obj 81 162 int;
#X connect 0 0 9 0;
#X connect 1 0 10 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 7 0;
#X connect 5 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 2 0;
#X connect 9 0 10 0;
#X connect 9 1 5 1;
#X connect 9 2 6 1;
#X connect 10 0 3 0;
#X restore 112 191 pd proc;
#N canvas 38 77 519 353 proc 0;
#X obj 81 32 inlet;
#X obj 177 32 inlet;
#X obj 80 259 outlet;
#X obj 81 135 == 1;
#X obj 81 162 select 1;
#X obj 81 196 int;
#X obj 132 205 int;
#X obj 132 183 b;
#X obj 80 217 * -1;
#X obj 81 68 t b a a;
#X obj 81 111 int;
#X connect 0 0 9 0;
#X connect 1 0 10 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 7 0;
#X connect 5 0 8 0;
#X connect 6 0 2 0;
#X connect 7 0 6 0;
#X connect 8 0 2 0;
#X connect 9 0 10 0;
#X connect 9 1 5 1;
#X connect 9 2 6 1;
#X connect 10 0 3 0;
#X restore 55 190 pd proc;
#X obj 55 143 unpack 0 0 0 0 0 0;
#X obj 193 91 unpack 0 0 0 0 0 0;
#X obj 55 296 list split 1;
#X obj 55 62 t a b;
#X connect 0 0 20 0;
#X connect 1 0 18 0;
#X connect 2 0 19 1;
#X connect 4 0 11 1;
#X connect 5 0 12 1;
#X connect 6 0 14 1;
#X connect 7 0 13 1;
#X connect 8 0 15 1;
#X connect 9 0 16 1;
#X connect 10 0 19 0;
#X connect 11 0 10 5;
#X connect 12 0 10 4;
#X connect 13 0 10 3;
#X connect 14 0 10 2;
#X connect 15 0 10 1;
#X connect 16 0 10 0;
#X connect 17 0 16 0;
#X connect 17 1 15 0;
#X connect 17 2 14 0;
#X connect 17 3 13 0;
#X connect 17 4 12 0;
#X connect 17 5 11 0;
#X connect 18 0 9 0;
#X connect 18 1 8 0;
#X connect 18 2 6 0;
#X connect 18 3 7 0;
#X connect 18 4 5 0;
#X connect 18 5 4 0;
#X connect 19 0 3 0;
#X connect 20 0 17 0;
#X connect 20 1 1 0;
#X restore 208 338 pd minusifier;
#X obj 208 245 scramble;
#X obj 331 213 int;
#X obj 145 34 inlet;
#X obj 272 27 inlet;
#X obj 208 405 outlet;
#X obj 324 417 outlet;
#X text 201 451 1994-99 by Karlheinz Essl;
#X text 224 427 vs. 1.1;
#X obj 272 61 int \$1;
#X obj 208 367 check-octaves;
#X obj 208 300 list split 1;
#N canvas 0 0 450 300 gate_2 0;
#X obj 118 56 inlet;
#X obj 124 128 list prepend 0;
#X obj 201 53 inlet;
#X obj 122 181 outlet;
#X obj 205 186 outlet;
#X obj 125 154 route 0 1;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 2 0 1 1;
#X connect 5 0 3 0;
#X connect 5 1 4 0;
#X restore 145 160 pd gate_2;
#X obj 203 186 t a a;
#X obj 272 83 t a a;
#X obj 361 266 t a a;
#X obj 294 388 t b b;
#X connect 0 0 14 0;
#X connect 1 0 10 0;
#X connect 2 0 17 1;
#X connect 3 1 20 0;
#X connect 4 0 6 0;
#X connect 5 0 15 0;
#X connect 6 0 16 0;
#X connect 7 0 3 0;
#X connect 8 0 17 0;
#X connect 9 0 14 0;
#X connect 14 0 19 0;
#X connect 15 0 10 0;
#X connect 15 1 21 0;
#X connect 16 0 5 0;
#X connect 17 0 1 0;
#X connect 17 1 18 0;
#X connect 18 0 4 0;
#X connect 18 1 7 0;
#X connect 19 0 2 0;
#X connect 19 1 7 1;
#X connect 20 0 16 1;
#X connect 20 1 5 1;
#X connect 21 0 6 0;
#X connect 21 1 11 0;

--- NEW FILE: subtr%.pd ---
#N canvas 141 72 368 247 10;
#X obj 249 30 inlet;
#X obj 49 164 outlet;
#X obj 49 68 t f b;
#X obj 49 30 inlet;
#X obj 198 98 float \$1;
#X obj 49 130 expr $f1 - $f2*$f1/100;
#X text 123 185 1993-99 by Karlheinz Essl;
#X connect 0 0 4 1;
#X connect 2 0 5 0;
#X connect 2 1 4 0;
#X connect 3 0 2 0;
#X connect 4 0 5 1;
#X connect 5 0 1 0;

--- NEW FILE: note2st.pd ---
#N canvas 568 238 251 363 10;
#X obj 105 33 inlet;
#X obj 36 33 inlet;
#X obj 36 297 outlet;
#X obj 36 183 - 0;
#X obj 94 298 outlet;
#X text 36 321 1994 by Karlheinz Essl;
#X obj 36 86 - \$1;
#X obj 80 156 f;
#X obj 105 61 t a b;
#X obj 135 97 0;
#X obj 36 208 t a a;
#X obj 94 244 mod 12;
#X obj 36 113 t a a b;
#X connect 0 0 8 0;
#X connect 1 0 6 0;
#X connect 3 0 10 0;
#X connect 6 0 12 0;
#X connect 7 0 3 1;
#X connect 8 0 6 1;
#X connect 8 1 9 0;
#X connect 9 0 7 1;
#X connect 10 0 2 0;
#X connect 10 1 11 0;
#X connect 11 0 4 0;
#X connect 12 0 3 0;
#X connect 12 1 7 1;
#X connect 12 2 7 0;

--- NEW FILE: 16step-seq-help.pd ---
#N canvas 3 48 945 436 10;
#X obj 88 99 loadbang;
#N canvas 74 64 687 422 another 0;
#X obj 245 332 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 366 332 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 388 332 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 408 332 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 309 332 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 345 332 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 288 332 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 266 332 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
[...1514 lines suppressed...]
#X connect 2 9 11 0;
#X connect 2 10 12 0;
#X connect 2 11 14 0;
#X connect 2 12 13 0;
#X connect 2 13 17 0;
#X connect 2 14 16 0;
#X connect 2 15 15 0;
#X connect 19 0 22 1;
#X connect 20 0 22 0;
#X connect 22 0 2 0;
#X connect 22 0 27 1;
#X connect 23 0 21 0;
#X connect 24 0 27 0;
#X connect 25 0 27 2;
#X connect 27 0 23 0;
#X connect 27 1 26 0;
#X connect 40 0 41 0;
#X connect 41 0 39 0;
#X connect 41 0 39 1;
#X connect 42 0 41 1;

--- NEW FILE: anti-octave.pd ---
#N canvas 489 359 430 293 10;
#X obj 30 197 outlet;
#X obj 88 197 outlet;
#X obj 30 47 inlet;
#X text 104 129 check for octaves;
#X text 104 72 check for repeated notes;
#X text 59 219 1993 by Karlheinz Essl;
#X obj 30 99 t a a;
#N canvas 0 0 637 374 check1 0;
#X obj 144 113 int;
#X obj 117 112 int;
#X obj 117 155 !=;
#X obj 118 177 select 1 0;
#X obj 118 210 int;
#X obj 117 76 t a b a a;
#X obj 149 212 int;
#X text 283 133 if ($i1!=$i2) then $i1 else out2 $i1;
#X obj 117 47 inlet;
#X obj 203 44 inlet;
#X obj 120 244 outlet;
#X obj 174 245 outlet;
#X connect 0 0 2 1;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 6 0;
#X connect 4 0 10 0;
#X connect 5 0 1 0;
#X connect 5 1 0 0;
#X connect 5 2 4 1;
#X connect 5 3 6 1;
#X connect 6 0 11 0;
#X connect 8 0 5 0;
#X connect 9 0 0 1;
#X restore 30 76 pd check1;
#N canvas 0 0 637 374 check2 0;
#X obj 144 113 int;
#X obj 117 112 int;
#X obj 117 270 int;
#X obj 117 76 t a b a a;
#X obj 117 47 inlet;
#X obj 203 44 inlet;
#X obj 117 305 outlet;
#X obj 173 305 outlet;
#X text 259 123 if ($i1-$i2)%12==0 then out2 bang else $i1;
#X obj 117 155 -;
#X obj 117 190 % 12;
#X obj 117 214 == 0;
#X obj 173 281 bang;
#X obj 117 237 select 0 1;
#X connect 0 0 9 1;
#X connect 1 0 9 0;
#X connect 2 0 6 0;
#X connect 3 0 1 0;
#X connect 3 1 0 0;
#X connect 3 2 2 1;
#X connect 4 0 3 0;
#X connect 5 0 0 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 13 0;
#X connect 12 0 7 0;
#X connect 13 0 2 0;
#X connect 13 1 12 0;
#X restore 30 130 pd check2;
#X obj 30 153 t a a;
#X connect 2 0 7 0;
#X connect 6 0 8 0;
#X connect 6 1 7 1;
#X connect 7 0 6 0;
#X connect 7 1 0 0;
#X connect 8 0 9 0;
#X connect 8 1 1 0;
#X connect 9 0 0 0;
#X connect 9 1 8 1;

--- NEW FILE: urne-help.pd ---
#N canvas 196 159 823 609 10;
#X msg 81 156 bang;
#X obj 104 275 print urne;
#X obj 125 251 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 155 158 seed 10;
#X msg 157 181 clear;
#X floatatom 139 231 5 0 0 0 - - -;
#X text 78 41 generates random numbers without repetition;
#X text 37 23 urne: Unique Random Generator;
#X text 352 177 bang: output next random number without repetitions.
;
#X text 351 200 clear: put all numbers back into urn.;
#X text 351 224 seed NUM: seed random number generator;
#X text 331 157 Inlet 0:;
#X text 332 258 Inlet 1:;
#X text 335 319 Outlet 0:;
#X text 361 338 random number;
#X text 337 371 Outlet 1:;
#X text 373 279 int - set range of random numbers and reset the urn.
;
#X text 333 125 Arguments: int - range of random numbers in urn (optional)
;
#X text 83 68 Clone of the Max object [urn]. Stops when all values
have been chosen and bangs right outlet. Send "clear" message to make
it start over.;
#X msg 83 371 bang;
#N canvas 0 0 450 300 display 0;
#X obj 46 191 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 63 191 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 80 191 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 97 191 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 114 191 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 156 135 list append 0;
#X obj 46 134 list append 1;
#N canvas 0 0 450 300 count 0;
#X obj 158 193 + 1;
#X obj 122 158 until;
#X obj 122 194 f;
#X obj 122 101 inlet;
#X msg 167 157 0;
#X obj 122 120 t a b;
#X obj 122 224 outlet;
#X connect 0 0 2 1;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 2 0 6 0;
#X connect 3 0 5 0;
#X connect 4 0 2 1;
#X connect 5 0 1 0;
#X connect 5 1 4 0;
#X restore 156 90 pd count;
#X obj 46 160 route 0 1 2 3 4 5 6 7 8 9;
#X obj 131 191 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 148 191 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 165 191 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 182 191 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 199 191 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 46 36 inlet;
#X obj 156 37 inlet;
#X connect 5 0 8 0;
#X connect 6 0 8 0;
#X connect 7 0 5 0;
#X connect 8 0 0 0;
#X connect 8 1 1 0;
#X connect 8 2 2 0;
#X connect 8 3 3 0;
#X connect 8 4 4 0;
#X connect 8 5 9 0;
#X connect 8 6 10 0;
#X connect 8 7 11 0;
#X connect 8 8 12 0;
#X connect 8 9 13 0;
#X connect 14 0 6 0;
#X connect 15 0 7 0;
#X coords 0 -1 1 1 180 40 1 40 170;
#X restore 83 519 pd display;
#X text 363 389 bang \, when an empty urn receives a bang into first
inlet.;
#X msg 101 395 clear \, bang;
#X obj 127 448 t b b;
#X obj 127 468 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 256 493 f 10;
#X floatatom 150 425 5 0 0 0 - - -;
#N canvas 0 0 450 300 display 0;
#X obj 46 191 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 63 191 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 80 191 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 97 191 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 114 191 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 156 135 list append 0;
#X obj 46 134 list append 1;
#N canvas 0 0 450 300 count 0;
#X obj 158 193 + 1;
#X obj 122 158 until;
#X obj 122 194 f;
#X obj 122 101 inlet;
#X msg 167 157 0;
#X obj 122 120 t a b;
#X obj 122 224 outlet;
#X connect 0 0 2 1;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 2 0 6 0;
#X connect 3 0 5 0;
#X connect 4 0 2 1;
#X connect 5 0 1 0;
#X connect 5 1 4 0;
#X restore 156 90 pd count;
#X obj 46 160 route 0 1 2 3 4 5 6 7 8 9;
#X obj 131 191 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 148 191 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 165 191 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 182 191 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 199 191 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 46 36 inlet;
#X obj 156 37 inlet;
#X connect 5 0 8 0;
#X connect 6 0 8 0;
#X connect 7 0 5 0;
#X connect 8 0 0 0;
#X connect 8 1 1 0;
#X connect 8 2 2 0;
#X connect 8 3 3 0;
#X connect 8 4 4 0;
#X connect 8 5 9 0;
#X connect 8 6 10 0;
#X connect 8 7 11 0;
#X connect 8 8 12 0;
#X connect 8 9 13 0;
#X connect 14 0 6 0;
#X connect 15 0 7 0;
#X coords 0 -1 1 1 180 40 1 40 170;
#X restore 81 300 pd display;
#X obj 254 273 f 10;
#X obj 254 247 b;
#X text 365 425 Use the second outlet to make the urn refill automatically
if it gets empty as show in the second example with a combined "clear
\, bang" message.;
#X obj 100 492 print urne_auto;
#X obj 83 425 urne 10;
#X obj 81 230 urne 10;
#X connect 0 0 33 0;
#X connect 3 0 33 0;
#X connect 4 0 29 0;
#X connect 4 0 33 0;
#X connect 5 0 28 0;
#X connect 5 0 33 1;
#X connect 19 0 32 0;
#X connect 22 0 32 0;
#X connect 23 0 22 0;
#X connect 23 0 24 0;
#X connect 23 1 25 0;
#X connect 25 0 20 1;
#X connect 26 0 25 0;
#X connect 26 0 32 1;
#X connect 28 0 27 1;
#X connect 29 0 28 0;
#X connect 32 0 20 0;
#X connect 32 0 31 0;
#X connect 32 1 23 0;
#X connect 33 0 1 0;
#X connect 33 0 27 0;
#X connect 33 1 2 0;

--- NEW FILE: note2st-help.pd ---
#N canvas 1 48 472 396 10;
#X msg 260 22 Harmony;
#X msg 80 113 st2pitch;
#X text 14 113 see also:;
#X text 14 67 Outputs the intervals of an incoming stream of notes.
The argument resp. the number sent to the right inlet determines the
reference note.;
#X text 14 40 note2st;
#X floatatom 41 157 4 0 0 1 note - -;
#X floatatom 41 185 4 0 0 1 key-number - -;
#X floatatom 186 157 4 0 0 1 reference-note - -;
#X floatatom 186 185 4 0 0 0 - - -;
#X floatatom 186 247 0 0 0 1 interval_modulo_12 - -;
#X floatatom 41 247 0 0 0 1 interval - -;
#X text 14 297 1994 by Karlheinz Essl;
#X obj 41 218 note2st 60;
#X connect 5 0 6 0;
#X connect 6 0 12 0;
#X connect 7 0 8 0;
#X connect 8 0 12 1;
#X connect 12 0 10 0;
#X connect 12 1 9 0;

--- NEW FILE: dB2lin.pd ---
#N canvas 318 193 231 152 10;
#X obj 30 99 outlet;
#X obj 30 35 inlet;
#X text 53 100 1993 by Gerhard Eckel
;
#X obj 30 66 expr pow(10 \, ($f1/20));
#X connect 1 0 3 0;
#X connect 3 0 0 0;

--- NEW FILE: RandomSeeder.pd ---
#N canvas 50 61 393 349 10;
#X obj 44 284 outlet;
#X obj 44 54 inlet;
#X obj 44 137 date;
#X msg 44 107 date;
#X msg 99 107 time;
#X floatatom 188 195 0 0 0 0 - - -;
#X floatatom 44 195 0 0 0 0 - - -;
#X obj 44 168 sum;
#X obj 44 81 t b b;
#X obj 44 223 +;
#X floatatom 44 255 0 0 0 0 - - -;
#X text 77 256 random seed;
#X text 70 287 by Karlheinz Essl;
#X obj 188 167 list-accum;
#X connect 1 0 8 0;
#X connect 2 0 7 0;
#X connect 2 1 13 0;
#X connect 3 0 2 0;
#X connect 4 0 2 0;
#X connect 5 0 9 1;
#X connect 6 0 9 0;
#X connect 7 0 6 0;
#X connect 8 0 3 0;
#X connect 8 1 4 0;
#X connect 9 0 10 0;
#X connect 10 0 0 0;
#X connect 13 0 5 0;

--- NEW FILE: ED-rhythm.pd ---
#N canvas 485 348 490 395 10;
#X obj 73 102 t b b;
#X obj 38 206 first-bang;
#X obj 73 68 sel 1;
#X obj 73 40 inlet;
#X obj 219 264 delay;
#X msg 120 68 stop;
#X obj 298 41 inlet;
#X obj 258 41 inlet;
#X obj 377 347 outlet;
#X obj 298 326 outlet;
#X obj 258 346 outlet;
#X obj 38 346 outlet;
#X text 46 347 1995-2004 by Karlheinz
Essl;
#X obj 219 185 sel-princ \$1;
#X obj 189 306 t b b;
#X obj 219 216 t b a a;
#X obj 189 143 t b b;
#X connect 0 0 16 0;
#X connect 0 1 1 1;
#X connect 1 0 11 0;
#X connect 2 0 0 0;
#X connect 2 1 5 0;
#X connect 3 0 2 0;
#X connect 4 0 14 0;
#X connect 5 0 4 0;
#X connect 6 0 13 2;
#X connect 7 0 13 1;
#X connect 13 0 15 0;
#X connect 13 1 10 0;
#X connect 13 2 9 0;
#X connect 14 0 16 0;
#X connect 14 1 11 0;
#X connect 15 0 4 0;
#X connect 15 1 4 1;
#X connect 15 2 8 0;
#X connect 16 0 1 0;
#X connect 16 1 13 0;

--- NEW FILE: intv2ratio.pd ---
#N canvas 175 138 363 172 10;
#X obj 25 45 inlet;
#X obj 25 75 expr exp($f1* 0.0577622650467);
#X text 252 71 < ln(2) / 12;
#X obj 25 109 outlet;
#X text 100 129 1994 by Karlheinz
Essl;
#X connect 0 0 1 0;
#X connect 1 0 3 0;

--- NEW FILE: choose.pd ---
#N canvas 416 57 348 341 10;
#X obj 65 62 inlet;
#X obj 65 97 t b f;
#X obj 196 62 inlet;
#X obj 65 217 outlet;
#X obj 65 127 list;
#X text 93 251 1996 by Karlheinz Essl;
#X obj 65 186 list split;
#X obj 65 159 scramble;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 1 6 1;
#X connect 2 0 4 1;
#X connect 4 0 7 0;
#X connect 6 0 3 0;
#X connect 7 0 6 0;

--- NEW FILE: markov-harmony-help.pd ---
#N canvas 1 48 504 398 10;
#X msg 55 301;
#X text 24 38 An sequence of intervals that is generated by a one-dimensional
markov chain. The transition probabilities of the intervals have to
be sent to the right-most inlet following the conventions of the "prob"-object.
The desired start interval <int> must be sent to the middle inlet.
A bang in the left inlet outputs one chosen interval.;
#X text 24 16 markov-harmony;
#X msg 388 23 Harmony;
#X text 26 132 see also:;
#X msg 91 132 prob;
#X msg 133 132 markov-rhythm;
#X obj 55 246 markov-harmony;
#N canvas 321 334 351 198 table-of-thirds 0;
#X obj 158 30 loadbang;
#X msg 29 110 3 -4 1;
#X msg 29 85 3 4 1;
#X msg 89 110 4 -3 1;
#X msg 89 85 4 3 1;
#X obj 133 142 outlet;
#X msg 165 85 -3 4 1;
#X msg 164 110 -3 -4 1;
#X msg 231 111 -4 -3 1;
#X msg 231 86 -4 3 1;
#X connect 0 0 2 0;
#X connect 0 0 1 0;
#X connect 0 0 4 0;
#X connect 0 0 3 0;
#X connect 0 0 7 0;
#X connect 0 0 6 0;
#X connect 0 0 9 0;
#X connect 0 0 8 0;
#X connect 1 0 5 0;
#X connect 2 0 5 0;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 6 0 5 0;
#X connect 7 0 5 0;
#X connect 8 0 5 0;
#X connect 9 0 5 0;
#X restore 222 209 pd table-of-thirds;
#X floatatom 151 205 4 0 0 2 start_interval - -;
#X text 308 273 Flashes when there are no transitions possible ("I
am stuck!");
#X floatatom 181 279 4 0 0 3 chosen_interval - -;
#X text 91 301 pitch class;
#N canvas 268 187 323 175 play-it 0;
#X obj 43 102 show-pitchclass;
#X obj 43 36 inlet;
#X obj 43 67 + 60;
#X obj 43 132 outlet;
#X obj 156 102 play2 127 500 0 1;
#X obj 270 42 inlet;
#X obj 279 74 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 2 0 4 0;
#X connect 5 0 4 3;
#X connect 6 0 4 3;
#X restore 55 276 pd play-it;
#X obj 283 274 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 55 223 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 55 198 metro 200;
#X text 24 343 1994 by Karlheinz Essl;
#X obj 55 166 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X floatatom 113 169 4 0 0 2 speed - -;
#X connect 7 0 13 0;
#X connect 7 1 11 0;
#X connect 7 2 14 0;
#X connect 8 0 7 2;
#X connect 9 0 7 1;
#X connect 13 0 0 0;
#X connect 15 0 7 0;
#X connect 16 0 15 0;
#X connect 18 0 16 0;
#X connect 19 0 16 1;

--- NEW FILE: between-lin.pd ---
#N canvas 296 99 394 336 10;
#X msg 60 116 seed \$1;
#X obj 60 49 r RTC-rs;
#X obj 126 248 outlet;
#X obj 275 182 - 1;
#X obj 173 177 inlet;
#X obj 219 177 inlet;
#X obj 275 46 inlet;
#X obj 126 46 inlet;
#X obj 189 245 outlet;
#X text 180 250 1994-98 by Karlheinz
Essl;
#X text 180 264 vs 1.2;
#X obj 126 151 random \$3;
#X obj 275 121 int \$3;
#X obj 126 209 trans-lin \$1 \$2;
#X obj 126 83 t b b;
#X obj 126 176 t a a;
#X connect 0 0 11 0;
#X connect 1 0 0 0;
#X connect 3 0 13 3;
#X connect 4 0 13 1;
#X connect 5 0 13 2;
#X connect 6 0 12 0;
#X connect 7 0 14 0;
#X connect 11 0 15 0;
#X connect 12 0 3 0;
#X connect 12 0 11 1;
#X connect 13 0 2 0;
#X connect 14 0 11 0;
#X connect 14 1 12 0;
#X connect 15 0 13 0;
#X connect 15 1 8 0;

--- NEW FILE: anti-osc.pd ---
#N canvas 435 142 467 360 10;
#X obj 167 267 outlet;
#X obj 107 266 outlet;
#X obj 107 57 inlet;
#X obj 218 176 int;
#X obj 216 150 t a b;
#X obj 107 110 int;
#X obj 107 132 ==;
#X obj 107 160 select 0 1;
#X obj 107 214 t a a;
#X obj 107 86 t a a;
#X obj 107 195 int;
#X connect 2 0 9 0;
#X connect 3 0 6 1;
#X connect 4 0 3 1;
#X connect 4 1 3 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 10 0;
#X connect 7 1 0 0;
#X connect 8 0 1 0;
#X connect 8 1 4 0;
#X connect 9 0 5 0;
#X connect 9 1 10 1;
#X connect 10 0 8 0;

--- NEW FILE: roundto.pd ---
#N canvas 434 167 270 224 10;
#X text 56 173 1992 by Gerhard Eckel
;
#X obj 26 75 t f b;
#X obj 26 43 inlet;
#X obj 26 172 outlet;
#X obj 26 140 expr int($f1/$f2)*$f2;
#X obj 191 47 inlet;
#X obj 168 108 f \$1;
#X connect 1 0 4 0;
#X connect 1 1 6 0;
#X connect 2 0 1 0;
#X connect 4 0 3 0;
#X connect 5 0 6 1;
#X connect 6 0 4 1;

--- NEW FILE: cresc-decresc.pd ---
#N canvas 393 171 621 451 10;
#X obj 70 333 int;
#X obj 70 367 outlet;
#X obj 139 130 first-bang;
#X obj 70 60 inlet;
#X obj 309 368 outlet;
#X obj 309 214 delay 30;
#X text 90 405 vs. 1.1: 1993-95 by Karlheinz Essl;
#X obj 330 60 inlet;
#X obj 280 61 inlet;
#X obj 176 61 inlet;
#X obj 139 277 line 1 20;
#X obj 139 189 int \$1;
#X obj 280 110 int \$2;
#X obj 330 112 int \$3;
#X msg 139 251 \$1 \, \$2 \$3;
#X obj 330 136 t a a;
#X obj 139 231 pack 0 0 0;
#X obj 382 59 loadbang;
#X text 320 231 reopen first-bang after transition;
#X text 68 34 trigger;
#X text 178 40 start;
#X text 285 39 end;
#X text 327 40 duration;
#X floatatom 378 167 5 0 0 0 - - -;
#X obj 70 86 t a a;
#X obj 139 157 t b b;
#X connect 0 0 1 0;
#X connect 2 0 25 0;
#X connect 3 0 24 0;
#X connect 5 0 2 1;
#X connect 5 0 4 0;
#X connect 7 0 13 0;
#X connect 8 0 12 0;
#X connect 9 0 11 1;
#X connect 10 0 0 1;
#X connect 11 0 16 0;
#X connect 12 0 16 1;
#X connect 13 0 15 0;
#X connect 14 0 10 0;
#X connect 15 0 16 2;
#X connect 15 1 5 1;
#X connect 15 1 23 0;
#X connect 16 0 14 0;
#X connect 17 0 13 0;
#X connect 17 0 12 0;
#X connect 24 0 0 0;
#X connect 24 1 2 0;
#X connect 25 0 11 0;
#X connect 25 1 5 0;

--- NEW FILE: anti-osc-help.pd ---
#N canvas 4 48 531 439 10;
#X msg 155 136 anti-bis&osc;
#X msg 93 136 anti-bis;
#X floatatom 53 285 0 0 0 0 - - -;
#X obj 53 252 anti-osc;
#X obj 53 185 metro 250;
#X obj 53 161 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 53 218 random 3;
#X msg 211 22 Chance;
#X obj 104 283 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 127 283 flashes when an oscillation would have occured;
#N canvas 63 44 210 190 play-it 0;
#X obj 38 84 + 60;
#X obj 38 118 play 127 150;
#X obj 46 62 inlet;
#X connect 0 0 1 0;
#X connect 2 0 0 0;
#X restore 53 316 pd play-it;
#X text 25 347 1992 by IRCAM;
#X text 25 136 see also:;
#X text 25 65 Filters out an integer which has occured the penultimate
time. Right output sends a bang when this occurs. Does not filter out
immediate repetition as it is done by"anti-bis".;
#X text 25 33 anti-osc;
#X msg 123 219 1 \, 2 \, 3 \, 3 \, 2 \, 3;
#X floatatom 368 214 0 0 0 0 - - -;
#X obj 368 181 anti-osc;
#X obj 419 212 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 368 240 print;
#X msg 368 157 1 \, 2 \, 3 \, 3 \, 2 \, 3;
#X connect 2 0 10 0;
#X connect 3 0 2 0;
#X connect 3 1 6 0;
#X connect 3 1 8 0;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 6 0 3 0;
#X connect 15 0 3 0;
#X connect 16 0 19 0;
#X connect 17 0 16 0;
#X connect 17 1 18 0;
#X connect 20 0 17 0;

--- NEW FILE: fibonacci.pd ---
#N canvas 392 165 423 453 10;
#X obj 207 34 loadbang;
#X obj 113 334 outlet;
#X obj 113 69 inlet;
#X obj 183 137 inlet;
#X obj 133 174 inlet;
#X obj 113 131 int;
#X obj 113 260 +;
#X obj 113 205 int \$1;
#X obj 183 171 int \$1;
#X obj 207 69 t b b;
#X obj 113 154 t a a;
#X obj 113 97 b;
#X obj 183 198 t a b;
#X obj 187 229 int;
#X connect 0 0 9 0;
#X connect 2 0 11 0;
#X connect 3 0 8 0;
#X connect 4 0 7 0;
#X connect 5 0 10 0;
#X connect 6 0 5 1;
#X connect 6 0 1 0;
#X connect 7 0 6 0;
#X connect 8 0 12 0;
#X connect 9 0 7 0;
#X connect 9 1 8 0;
#X connect 10 0 7 0;
#X connect 10 1 8 0;
#X connect 11 0 5 0;
#X connect 12 0 13 1;
#X connect 12 1 13 0;
#X connect 13 0 6 1;

--- NEW FILE: groups-help.pd ---
#N canvas 466 67 574 515 10;
#X obj 174 141 loadbang;
#X floatatom 175 264 0 0 0 3 chosen_group_size - -;
#X msg 175 196 1 2 3 4;
#X obj 46 190 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 46 291 collect;
#X msg 46 344;
#X obj 90 272 bng 15 250 50 1 empty empty clear 0 -6 0 8 -262144 -1
-1;
#X floatatom 176 299 0 0 0 3 choosen_index_of_supply - -;
#X text 267 170 supply;
#X text 248 195 group list;
#X text 195 426 vs. 2.1: seedable by the RTC-seed;
#X text 195 404 1994-98 by Karlheinz Essl after G.M. Koenig;
#X text 38 24 groups;
#X text 47 49 Chooses elements from a supply (int list) sent to the
middle inlet and repeats them according to values chosen from a group
list (rightmost inlet). The values from the two parameter lists are
chosen by random (using the selection principle "series");
#X msg 174 171 0 1 2 3 4 5;
#X obj 46 228 groups;
#X connect 0 0 14 0;
#X connect 0 0 2 0;
#X connect 2 0 15 2;
#X connect 3 0 15 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 14 0 15 1;
#X connect 15 0 4 0;
#X connect 15 1 7 0;
#X connect 15 2 1 0;

--- NEW FILE: sel-princ.pd ---
#N canvas 63 44 338 388 10;
#X obj 227 258 rota;
#X obj 61 302 outlet;
#X obj 61 258 alea;
#X obj 161 258 sequence;
#X obj 61 89 t b b;
#X obj 61 60 inlet;
#X obj 119 61 inlet;
#X obj 238 60 inlet;
#X text 85 341 1993-97 by K at rlheinz Essl;
#X text 85 327 vs.4;
#X obj 148 299 outlet;
#X obj 212 302 outlet;
#X obj 119 139 int \$1;
#N canvas 712 460 407 355 gate_4 0;
#X obj 52 263 outlet;
#X obj 73 243 outlet;
#X obj 95 222 outlet;
#X obj 116 199 outlet;
#X obj 52 163 route 1 2 3 4;
#X obj 52 75 inlet;
#X obj 152 75 inlet;
#X obj 52 133 list prepend \$1;
#X connect 4 0 0 0;
#X connect 4 1 1 0;
#X connect 4 2 2 0;
#X connect 4 3 3 0;
#X connect 5 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 4 0;
#X restore 61 169 pd gate_4;
#X obj 111 258 series;
#X connect 0 0 1 0;
#X connect 0 1 10 0;
#X connect 2 0 1 0;
#X connect 2 1 10 0;
#X connect 3 0 1 0;
#X connect 3 1 11 0;
#X connect 4 0 13 0;
#X connect 4 1 12 0;
#X connect 5 0 4 0;
#X connect 6 0 12 0;
#X connect 7 0 2 1;
#X connect 7 0 3 1;
#X connect 7 0 0 1;
#X connect 7 0 14 1;
#X connect 12 0 13 1;
#X connect 13 0 2 0;
#X connect 13 1 14 0;
#X connect 13 2 3 0;
#X connect 13 3 0 0;
#X connect 14 0 1 0;
#X connect 14 1 11 0;
#X connect 14 2 10 0;

--- NEW FILE: trans-log-help.pd ---
#N canvas 256 342 682 390 10;
#X floatatom 134 196 5 0 0 0 - - -;
#X obj 134 166 trans-log 500 2000 12;
#X text 61 31 Int in left inlet outputs the nth member of a logarithmical
transition between a start value and an end value in n steps \, whereas
"steps" is the number of row elements (between start and end value)
minus one.;
#X floatatom 276 137 0 0 0 2 steps - -;
#X floatatom 181 137 0 0 0 2 start - -;
#X floatatom 228 137 0 0 0 2 end - -;
#X floatatom 134 137 0 0 0 2 index - -;
#X connect 1 0 0 0;
#X connect 3 0 1 3;
#X connect 4 0 1 1;
#X connect 5 0 1 2;
#X connect 6 0 1 0;

--- NEW FILE: 16step-seq.pd ---
#N canvas 379 262 807 386 10;
#X obj 631 70 sel 1;
#X obj 673 124 * 4;
#X obj 161 312 outlet;
#X obj 117 342 outlet;
#X obj 673 70 inlet;
#X obj 117 24 inlet;
#X obj 147 80 inlet;
#X obj 417 136 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 446 136 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 503 136 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 474 136 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 589 136 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 618 136 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 561 136 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 532 136 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 302 136 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 331 136 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 388 136 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 359 136 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 244 136 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 273 136 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 216 136 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 187 137 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 187 106 unpack 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X obj 673 106 int \$1;
#N canvas 254 475 361 306 core 0;
#X obj 168 250 outlet;
#X obj 117 105 metro 500;
#X obj 117 79 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 117 54 inlet;
#X obj 175 30 inlet;
#X obj 117 135 f;
#X obj 143 136 + 1;
#X obj 170 136 mod 16;
#X obj 117 188 tabread \$0-seq;
#N canvas 0 0 450 300 BPM2ms 0;
#X obj 36 101 outlet;
#X obj 36 46 inlet;
#X text 60 102 1998 by Karlheinz Essl;
#X obj 36 73 expr 60000/$f1;
#X connect 1 0 3 0;
#X connect 3 0 0 0;
#X restore 175 53 pd BPM2ms;
#X obj 239 250 outlet;
#X obj 239 174 select 15;
#X obj 117 157 t a a;
#X obj 117 210 select 0;
#X obj 168 230 b;
#X connect 1 0 5 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 4 0 9 0;
#X connect 5 0 6 0;
#X connect 5 0 12 0;
#X connect 6 0 7 0;
#X connect 7 0 5 1;
#X connect 8 0 13 0;
#X connect 9 0 1 1;
#X connect 11 0 10 0;
#X connect 12 0 8 0;
#X connect 12 1 11 0;
#X connect 13 1 14 0;
#X connect 14 0 0 0;
#X restore 117 286 pd core;
#X obj 187 165 pack 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X obj 147 222 list prepend 0;
#X obj 256 190 table \$0-seq 16;
#X obj 147 251 s \$0-seq;
#X obj 117 52 t a a;
#X text 361 318 1998 by Karlheinz Essel \, Pd version 2006 by Frank
Barknecht;
#X text 676 147 BPM;
#X obj 187 78 spigot;
#X obj 237 83 tgl 15 0 empty empty show_pattern 0 -6 0 8 -262144 -1
-1 0 1;
#X connect 0 0 24 0;
#X connect 1 0 25 1;
#X connect 4 0 24 0;
#X connect 5 0 30 0;
#X connect 6 0 33 0;
#X connect 6 0 27 0;
#X connect 7 0 26 8;
#X connect 8 0 26 9;
#X connect 9 0 26 11;
#X connect 10 0 26 10;
#X connect 11 0 26 14;
#X connect 12 0 26 15;
#X connect 13 0 26 13;
#X connect 14 0 26 12;
#X connect 15 0 26 4;
#X connect 16 0 26 5;
#X connect 17 0 26 7;
#X connect 18 0 26 6;
#X connect 19 0 26 2;
#X connect 20 0 26 3;
#X connect 21 0 26 1;
#X connect 22 0 26 0;
#X connect 23 0 22 0;
#X connect 23 1 21 0;
#X connect 23 2 19 0;
#X connect 23 3 20 0;
#X connect 23 4 15 0;
#X connect 23 5 16 0;
#X connect 23 6 18 0;
#X connect 23 7 17 0;
#X connect 23 8 7 0;
#X connect 23 9 8 0;
#X connect 23 10 10 0;
#X connect 23 11 9 0;
#X connect 23 12 14 0;
#X connect 23 13 13 0;
#X connect 23 14 11 0;
#X connect 23 15 12 0;
#X connect 24 0 1 0;
#X connect 25 0 3 0;
#X connect 25 1 2 0;
#X connect 27 0 29 0;
#X connect 30 0 25 0;
#X connect 30 1 0 0;
#X connect 33 0 23 0;
#X connect 34 0 33 1;

--- NEW FILE: repchord-rhythm.pd ---
#N canvas 264 96 793 561 10;
#N canvas 63 44 500 330 init 0;
#X obj 68 130 outlet;
#X obj 68 96 sel 1;
#X obj 68 69 inlet;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X restore 122 117 pd init;
#N canvas 133 167 843 484 rhythm 0;
#X obj 120 107 pass 50;
#X obj 120 135 between-log-urn 75 1500 12;
#X text 152 162 ED;
#X obj 62 309 metro 500;
#X floatatom 308 107 0 0 0 0 - - -;
#X floatatom 245 107 0 0 0 0 - - -;
#X floatatom 183 107 0 0 0 0 - - -;
#X obj 538 54 inlet;
#X obj 477 54 inlet;
#X obj 308 54 inlet;
#X obj 245 54 inlet;
#X obj 183 54 inlet;
#X obj 62 359 outlet;
#X obj 62 54 inlet;
#X obj 390 54 inlet;
#X obj 86 144 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 565 371 outlet;
#X text 316 331 % pass;
#X text 336 291 periodicity;
#X obj 308 313 per2pass;
#X obj 423 183 - 1;
#X text 321 199 index;
#X obj 278 366 outlet;
#X obj 453 370 outlet;
#X obj 472 129 outlet;
#X obj 172 176 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 423 212 t a a;
#X obj 308 259 expr_scale 0 11 0.8 0;
#X obj 477 209 t b a;
#X obj 538 207 t b a;
#X obj 278 201 t a a;
#X obj 62 332 t b b;
#X obj 120 182 t a a;
#X connect 0 0 1 0;
#X connect 1 0 32 0;
#X connect 1 1 30 0;
#X connect 3 0 31 0;
#X connect 4 0 1 3;
#X connect 4 0 20 0;
#X connect 5 0 1 2;
#X connect 6 0 1 1;
#X connect 7 0 29 0;
#X connect 8 0 28 0;
#X connect 9 0 4 0;
#X connect 10 0 5 0;
#X connect 11 0 6 0;
#X connect 13 0 3 0;
#X connect 14 0 24 0;
#X connect 15 0 3 0;
#X connect 19 0 0 1;
#X connect 20 0 26 0;
#X connect 25 0 1 0;
#X connect 26 0 27 2;
#X connect 26 1 23 0;
#X connect 27 0 19 0;
#X connect 28 0 1 0;
#X connect 28 1 27 3;
#X connect 29 0 1 0;
#X connect 29 1 27 4;
#X connect 30 0 22 0;
#X connect 30 1 27 0;
#X connect 31 0 12 0;
#X connect 31 1 0 0;
#X connect 32 0 3 1;
#X connect 32 1 16 0;
#X restore 92 278 pd rhythm;
#N canvas 63 44 333 326 chord-size 0;
#X obj 41 265 outlet;
#X text 88 203 chord size;
#X text 160 127 max. chord size;
#X obj 113 151 + 1;
#X obj 113 44 inlet;
#X obj 223 42 inlet;
#X obj 177 43 inlet;
#X obj 41 44 inlet;
#X obj 41 177 between 1 5;
#X obj 89 265 outlet;
#X obj 139 265 outlet;
#X obj 113 97 expr_scale 0 11 1 5;
#X obj 41 204 t a a;
#X obj 41 231 until;
#X obj 41 68 t a a;
#X connect 3 0 8 2;
#X connect 4 0 11 0;
#X connect 5 0 11 3;
#X connect 6 0 11 2;
#X connect 7 0 14 0;
#X connect 8 0 12 0;
#X connect 11 0 3 0;
#X connect 12 0 13 0;
#X connect 12 1 9 0;
#X connect 13 0 0 0;
#X connect 14 0 8 0;
#X connect 14 1 10 0;
#X restore 92 322 pd chord-size;
#X obj 92 351 outlet;
#X obj 273 351 outlet;
#X obj 203 350 outlet;
#X obj 147 350 outlet;
#X obj 92 54 inlet;
#X obj 332 351 outlet;
#X obj 609 52 inlet;
#X obj 436 52 inlet;
#X obj 350 52 inlet;
#X obj 264 52 inlet;
#X obj 523 52 inlet;
#X obj 178 53 inlet;
#X text 72 393 1996 by Karlheinz Essl;
#X obj 609 209 f \$6;
#X obj 523 209 f \$5;
#X obj 436 208 i \$4;
#X obj 350 209 i \$3;
#X obj 264 209 i \$2;
#X obj 178 209 i \$1;
#X obj 122 146 t b b b b b b;
#X obj 92 74 t a a;
#X connect 0 0 22 0;
#X connect 1 0 2 0;
#X connect 1 1 2 1;
#X connect 1 1 8 0;
#X connect 1 2 2 2;
#X connect 1 3 2 3;
#X connect 1 4 4 0;
#X connect 2 0 3 0;
#X connect 2 1 6 0;
#X connect 2 2 5 0;
#X connect 7 0 23 0;
#X connect 9 0 16 0;
#X connect 10 0 18 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 17 0;
#X connect 14 0 21 0;
#X connect 16 0 1 6;
#X connect 17 0 1 5;
#X connect 18 0 1 4;
#X connect 19 0 1 3;
#X connect 20 0 1 2;
#X connect 21 0 1 1;
#X connect 22 0 21 0;
#X connect 22 1 20 0;
#X connect 22 2 19 0;
#X connect 22 3 18 0;
#X connect 22 4 17 0;
#X connect 22 5 16 0;
#X connect 23 0 1 0;
#X connect 23 1 0 0;

--- NEW FILE: crossfade~.pd ---
#N canvas 335 262 445 402 10;
#X obj 183 233 pack 0 50;
#X obj 166 295 *~;
#X obj 72 231 pack 0 50;
#X obj 55 293 *~;
#X obj 183 259 line~;
#X obj 72 256 line~;
#X obj 248 86 / 127;
#X obj 248 133 expr cos($f1) \; sin($f1);
#X obj 248 108 * 1.5708;
#X text 317 108 *~ M_PI/2;
#X obj 55 24 inlet~;
#X obj 165 24 inlet~;
#X obj 56 362 outlet~;
#X obj 248 23 inlet;
#X obj 292 22 loadbang;
#X obj 292 47 f \$1;
#X connect 0 0 4 0;
#X connect 1 0 12 0;
#X connect 2 0 5 0;
#X connect 3 0 12 0;
#X connect 4 0 1 1;
#X connect 5 0 3 1;
#X connect 6 0 8 0;
#X connect 7 0 2 0;
#X connect 7 1 0 0;
#X connect 8 0 7 0;
#X connect 10 0 3 0;
#X connect 11 0 1 0;
#X connect 13 0 6 0;
#X connect 14 0 15 0;
#X connect 15 0 6 0;

--- NEW FILE: sneak-rhythm.pd ---
#N canvas 136 171 499 489 10;
#X obj 40 29 inlet;
#X obj 235 176 inlet;
#X obj 202 152 inlet;
#X obj 139 301 outlet;
#X obj 40 352 outlet;
#X obj 40 310 metro 300;
#X obj 199 302 outlet;
#X obj 341 172 - 1;
#X obj 311 26 inlet;
#X obj 249 83 sel 1;
#X text 99 50 this numbox prohibits numbers < 2!;
#X text 157 359 1994 by Karlheinz Essl;
#X obj 341 142 int \$3;
#X obj 169 230 trans-log \$1 \$2;
#X obj 139 146 t a a;
#X obj 139 114 sneak-random \$3;
#X obj 40 56 t a a;
#X obj 40 330 t b b;
#X obj 169 254 t a a;
#X obj 311 84 t a a;
#X connect 0 0 16 0;
#X connect 1 0 13 2;
#X connect 2 0 13 1;
#X connect 5 0 17 0;
#X connect 7 0 13 3;
#X connect 8 0 19 0;
#X connect 9 0 12 0;
#X connect 12 0 7 0;
#X connect 13 0 18 0;
#X connect 14 0 3 0;
#X connect 14 1 13 0;
#X connect 15 0 14 0;
#X connect 16 0 5 0;
#X connect 16 1 9 0;
#X connect 17 0 4 0;
#X connect 17 1 15 0;
#X connect 18 0 5 1;
#X connect 18 1 6 0;
#X connect 19 0 15 1;
#X connect 19 1 12 0;

--- NEW FILE: random-ramp-help.pd ---
#N canvas 112 128 736 547 10;
#X text 15 29 random-ramp;
#X text 118 13 Generates randomly fluctuating envelope shapes of a
given dynamic scale (defined by a min and a max velocity and a certain
number of values) within a time scale (defined by a min and a max ramp
time and a certain number of values). A rhythm bang set to the left
inlet outputs a velocity value. A stop message sent to the same inlet
will stop the whole process.;
#X text 380 282 randomly chosen ramp time;
#X floatatom 339 283 5 0 0 1 - - -;
#X text 263 310 randomly chosen velocity destination;
#X floatatom 229 310 4 0 0 1 - - -;
#X floatatom 265 218 4 0 0 2 nr._of_values - -;
#X floatatom 432 164 0 0 0 2 min_ramp_time - -;
#X floatatom 432 197 0 0 0 2 max_ramp_time - -;
#X floatatom 265 190 4 0 0 2 max_velocity - -;
#X floatatom 265 160 4 0 0 2 min_veloc. - -;
#X obj 120 141 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 120 250 random-ramp 10 127 5 250 2000 12;
#X obj 120 351 vsl 15 128 0 127 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 0 1;
#X text 262 127 dynamic scale - - -;
#X text 427 127 ramp durations - - -;
#X floatatom 120 286 4 0 0 1 velocity - -;
#X text 501 468 1994 by Karlheinz Essl;
#X obj 39 189 sel 0;
#X msg 39 215 stop;
#N canvas 380 246 505 336 musical 0;
#X floatatom 140 224 0 0 0 0 - - -;
#X floatatom 44 224 0 0 0 0 - - -;
#X obj 44 140 brown-rhythm 50 1000 12 0.2;
#X obj 44 188 brown-melody 21 104 0.25;
#X msg 251 140 stop;
#X obj 251 112 sel 0;
#X obj 44 66 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X text 20 33 This is a very simple musical example for using the random-ramp
object:;
#X text 74 66 start stop;
#X obj 44 252 play2 127 500 1 1;
#X text 20 294 1994 by Karlheinz Essl;
#X text 89 227 note;
#X text 185 227 velocity;
#X obj 221 188 random-ramp 10 127 5 250 2000 12;
#X obj 44 162 t a a;
#X connect 0 0 9 1;
#X connect 1 0 9 0;
#X connect 2 0 14 0;
#X connect 3 0 1 0;
#X connect 4 0 13 0;
#X connect 5 0 4 0;
#X connect 6 0 2 0;
#X connect 6 0 5 0;
#X connect 13 0 0 0;
#X connect 14 0 3 0;
#X connect 14 1 13 0;
#X restore 438 355 pd musical;
#X text 153 141 start stop;
#X obj 120 189 metro 150;
#X obj 112 351 vsl 8 128 0 127 0 0 empty empty min_vel -30 -8 0 8 -262144
-1 -1 0 1;
#X obj 135 351 vsl 8 128 0 127 0 0 empty empty max_vel 0 -8 0 8 -262144
-1 -1 0 1;
#X floatatom 432 230 4 0 0 2 nr._of_values - -;
#X connect 6 0 12 3;
#X connect 7 0 12 4;
#X connect 8 0 12 5;
#X connect 9 0 12 2;
#X connect 9 0 24 0;
#X connect 10 0 12 1;
#X connect 10 0 23 0;
#X connect 11 0 18 0;
#X connect 11 0 22 0;
#X connect 12 0 16 0;
#X connect 12 1 5 0;
#X connect 12 2 3 0;
#X connect 16 0 13 0;
#X connect 18 0 19 0;
#X connect 19 0 12 0;
#X connect 22 0 12 0;
#X connect 25 0 12 6;

--- NEW FILE: make-ED-scale.pd ---
#N canvas 410 48 567 524 10;
#X obj 144 73 inlet;
#X obj 144 420 outlet;
#X obj 323 75 inlet;
#X obj 280 215 inlet;
#X obj 225 215 inlet;
#X obj 353 234 - 1;
#X text 122 453 1994-2003 by Karlheinz Essl;
#X obj 166 272 trans-log \$1 \$2 \$3;
#X obj 353 133 int \$3;
#N canvas 0 0 450 300 count-to 0;
#X obj 109 73 inlet;
#X obj 196 74 inlet;
#X obj 109 136 until;
#X obj 109 168 f 0;
#X obj 140 168 + 1;
#X obj 109 102 t a b;
#X obj 109 191 outlet;
#X msg 196 117 0;
#X connect 0 0 5 0;
#X connect 1 0 7 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 6 0;
#X connect 4 0 3 1;
#X connect 5 0 2 0;
#X connect 7 0 3 1;
#X restore 166 193 pd count-to;
#X obj 166 140 int \$3;
#X obj 323 106 t a a;
#X obj 366 105 loadbang;
#X obj 166 365 list prepend;
#X obj 258 365 t a;
#X obj 144 392 list;
#X obj 144 101 t b b b b;
#X connect 0 0 16 0;
#X connect 2 0 11 0;
#X connect 3 0 7 2;
#X connect 4 0 7 1;
#X connect 5 0 7 3;
#X connect 7 0 13 0;
#X connect 8 0 5 0;
#X connect 9 0 7 0;
#X connect 10 0 9 0;
#X connect 11 0 10 1;
#X connect 11 1 8 0;
#X connect 12 0 8 0;
#X connect 13 0 14 0;
#X connect 13 0 15 1;
#X connect 14 0 13 1;
#X connect 15 0 1 0;
#X connect 16 0 15 0;
#X connect 16 1 10 0;
#X connect 16 2 13 1;
#X connect 16 3 9 1;

--- NEW FILE: group-rhythm.pd ---
#N canvas 145 129 575 520 10;
#X obj 109 49 inlet;
#X obj 419 69 inlet;
#X obj 237 56 inlet;
#X obj 271 74 inlet;
#X obj 315 64 inlet;
#X obj 235 412 outlet;
#X text 127 269 index;
#X obj 109 354 metro 500;
#X obj 419 270 per2pass;
#X obj 375 341 pass 33;
#X obj 109 412 outlet;
#X obj 175 244 random;
#X obj 152 303 outlet;
#X obj 212 103 sel 1;
#X obj 131 147 sel 1;
#X obj 348 240 - 1;
#X text 108 468 vs. 2;
#X text 108 451 1993-94 by Karlheinz Essl;
#X obj 419 240 float \$4;
#X obj 212 193 int \$3;
#X obj 205 302 trans-log \$1 \$2;
#X obj 175 267 t a a;
#X obj 205 323 t a a;
#X obj 109 376 t b b;
#X obj 109 78 t a a a;
#X obj 212 218 t a a;
#X obj 212 126 t a a;
#X connect 0 0 24 0;
#X connect 1 0 18 0;
#X connect 2 0 20 1;
#X connect 3 0 20 2;
#X connect 4 0 19 0;
#X connect 7 0 23 0;
#X connect 8 0 9 1;
#X connect 9 0 11 0;
#X connect 11 0 21 0;
#X connect 13 0 26 0;
#X connect 14 0 19 0;
#X connect 15 0 20 3;
#X connect 18 0 8 0;
#X connect 19 0 25 0;
#X connect 20 0 22 0;
#X connect 21 0 12 0;
#X connect 21 1 20 0;
#X connect 22 0 7 1;
#X connect 22 1 5 0;
#X connect 23 0 10 0;
#X connect 23 1 9 0;
#X connect 24 0 7 0;
#X connect 24 1 14 0;
#X connect 24 2 13 0;
#X connect 25 0 11 1;
#X connect 25 1 15 0;
#X connect 26 0 19 0;
#X connect 26 1 18 0;

--- NEW FILE: xrandom-help.pd ---
#N canvas 0 48 659 477 10;
#X text 258 322 object;
#X text 19 322 vs. 2.2: seedable by the;
#X msg 193 322 RTC-seed;
#X text 20 132 see also:;
#X text 20 59 Outputs random numbers <int> that are never repeated
unless all numbers have been generated (series-principle). The random
numbers are produced within an interval between 0 and a given maximum
(minus one) which can be the argument of the function or being sent
to the right inlet.;
#X text 20 28 xrandom;
#X floatatom 53 265 4 0 0 0 - - -;
#X obj 53 206 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 53 234 xrandom 4;
#X text 19 306 1994-98 by Karlheinz Essl;
#X msg 86 132 random;
#X msg 310 23 Chance;
#X msg 86 154 periodic;
#X msg 148 132 random-norep;
#X msg 148 154 sneak-random;
#X floatatom 111 206 4 0 0 0 - - -;
#X text 147 206 maximum range of random numbers (must be bigger than
1);
#X text 139 267 flashes when all numbers have been generated;
#X obj 111 265 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 140 41 vs. 2.2;
#X connect 7 0 8 0;
#X connect 8 0 6 0;
#X connect 8 1 18 0;
#X connect 15 0 8 1;

--- NEW FILE: ratio2intv-help.pd ---
#N canvas 305 48 457 293 10;
#X floatatom 55 130 4 0 0 1 ratio - -;
#X obj 55 161 ratio2intv;
#X text 20 237 1994 by Karlheinz Essl;
#X text 15 13 ratio2intv;
#X floatatom 55 196 4 0 0 1 interval - -;
#X msg 88 92 intv2ratio;
#X text 20 92 see also:;
#X text 19 48 Converts a ratio into an interval (int = tempered or
float = any mirco- interval).;
#X msg 198 23 Harmony;
#X connect 0 0 1 0;
#X connect 1 0 4 0;

--- NEW FILE: grid-rhythm-help.pd ---
#N canvas 240 163 567 482 10;
#X text 155 141 selection principle;
#X msg 306 12 Rhythm-Generators;
#X obj 66 268 grid-rhythm 125 10 3;
#X obj 66 212 tgl 15 0 empty empty start/stop 0 -6 0 8 -262144 -1 -1
1 1;
#X text 337 225 multiple list;
#X obj 277 197 loadbang;
#X msg 277 224 3 1 1 1;
#X floatatom 133 226 4 0 0 2 dev% - -;
#X floatatom 99 226 4 0 0 2 grid - -;
#X floatatom 201 298 4 0 0 1 ED - -;
#X text 21 43 Outputs a rhythm determined by multiples of a given rhythmic
grid \, which is the first argument. The second is the deviation from
this grid (in %) \, the third the desired selections principle (after
Gottfried Michael Koenig: 1 = alea \, 2 = series \, 3 = sequence).
A list of multiples of the rhythmical grid has to be sent into the
rightmost inlet first.;
#X text 21 11 grid-rhythm;
#X obj 66 335 QT-PercPlayer;
#X text 18 384 1993-2001 by Karlheinz Essl;
#X floatatom 167 226 4 0 0 1 sel-princ - -;
#N canvas 556 269 497 418 sel_princ 0;
#X msg 231 228 1 alea;
#X msg 231 247 2 series;
#X msg 231 267 3 sequence;
#X msg 231 289 4 rota;
#X obj 231 318 list split 1;
#X obj 231 373 outlet;
#X obj 112 61 loadbang;
#X obj 112 192 select 1 2 3 4;
#X obj 112 171 + 1;
#X obj 112 123 hradio 15 1 0 4 empty empty empty 0 -6 0 8 -262144 -1
-1 1;
#X msg 112 82 2;
#X symbolatom 108 143 10 0 0 0 - - -;
#X connect 0 0 4 0;
#X connect 1 0 4 0;
#X connect 2 0 4 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 11 0;
#X connect 6 0 10 0;
#X connect 7 0 0 0;
#X connect 7 1 1 0;
#X connect 7 2 2 0;
#X connect 7 3 3 0;
#X connect 8 0 7 0;
#X connect 9 0 8 0;
#X connect 10 0 9 0;
#X coords 0 -1 1 1 90 65 1 100 100;
#X restore 168 159 pd sel_princ;
#X msg 277 251 2 2 1 2 2 2 1;
#X msg 66 301 60;
#X connect 2 0 17 0;
#X connect 2 1 9 0;
#X connect 3 0 2 0;
#X connect 5 0 6 0;
#X connect 6 0 2 4;
#X connect 7 0 2 2;
#X connect 8 0 2 1;
#X connect 14 0 2 3;
#X connect 15 0 14 0;
#X connect 16 0 2 4;
#X connect 17 0 12 0;

--- NEW FILE: serial-rhythm-help.pd ---
#N canvas 443 269 500 398 10;
#X floatatom 129 223 4 0 0 3 row_index - -;
#X floatatom 214 225 4 0 0 3 ED - -;
#X floatatom 100 171 4 0 0 2 min_ED - -;
#X floatatom 157 170 4 0 0 2 max_ED - -;
#X floatatom 214 171 4 0 0 2 steps - -;
#X msg 84 118 alea-rhythm;
#X msg 170 118 brown-rhythm;
#X msg 269 118 sneak-rhythm;
#X text 19 69 Serial permutation (i.e. with repetition check) of entry
delays (ED) from a geometrical row defined by a min. ED \, a max. ED
and a certain number of ED-values.;
#X text 19 36 serial-rhythm;
#X text 19 118 see also:;
#X obj 44 155 tgl 15 0 empty empty start/stop 0 -6 0 8 -262144 -1 -1
0 1;
#X obj 44 196 serial-rhythm 100 1000 12;
#X msg 44 227 60;
#X text 194 50 vs. 3.1;
#X msg 236 23 Rhythm-Generators;
#X obj 44 255 QT-PercPlayer;
#X text 25 338 1993-2004 by Karlheinz Essl;
#X connect 2 0 12 1;
#X connect 3 0 12 2;
#X connect 4 0 12 3;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 12 1 0 0;
#X connect 12 2 1 0;
#X connect 13 0 16 0;

--- NEW FILE: collect.pd ---
#N canvas 663 237 419 281 10;
#X obj 195 37 inlet;
#X obj 41 37 inlet;
#X obj 41 144 outlet;
#X msg 195 74 set;
#X text 143 140 1993-2004 by Karlheinz Essl;
#X text 143 160 vs. 1.1;
#X obj 41 99 list trim;
#X obj 41 74 list prepend add2;
#X connect 0 0 3 0;
#X connect 1 0 7 0;
#X connect 3 0 2 0;
#X connect 6 0 2 0;
#X connect 7 0 6 0;

--- NEW FILE: check-octaves-help.pd ---
#N canvas 3 48 568 389 10;
#X text 24 33 check-octaves;
#X text 24 65 Checks whether an interval list sums up to an octave
and outputs the list only when it does not contain any hidden octaves..
;
#X msg 90 109 anti-octave;
#X msg 174 109 anti-octave&prime;
#X text 25 110 see also:;
#X obj 49 190 check-octaves;
#X msg 49 151 -4 -5 -3;
#X msg 156 151 1 2 6 -4;
#X msg 118 151 3 5;
#X text 221 147 interval list to be checked;
#X obj 49 220 show;
#X msg 49 260 1 2 6 -4;
#X text 116 254 outputs the interval list when the sum is not an octave
;
#X text 24 298 1993 by Karlheinz Essl;
#X msg 285 24 Harmony;
#X obj 83 222 bng 15 250 50 1 empty empty clear 0 -6 0 8 -262144 -1
-1;
#X text 176 190 bangs when sum is an octave;
#X obj 153 190 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X connect 5 0 10 0;
#X connect 5 1 17 0;
#X connect 6 0 5 0;
#X connect 7 0 5 0;
#X connect 8 0 5 0;
#X connect 10 0 11 0;
#X connect 15 0 10 1;

--- NEW FILE: random-ramp.pd ---
#N canvas 549 327 580 382 10;
#X obj 39 41 inlet;
#N canvas 43 143 716 227 choose-parameters 0;
#X obj 54 30 inlet;
#X obj 216 30 inlet;
#X obj 135 30 inlet;
#X obj 298 30 inlet;
#X obj 653 30 inlet;
#X obj 561 30 inlet;
#X obj 470 30 inlet;
#X obj 54 186 outlet;
#X obj 379 186 outlet;
#X obj 54 133 between-lin \$1 \$2 \$3;
#X obj 379 133 between-log \$4 \$5 \$6;
#X obj 54 59 t b b;
#X connect 0 0 11 0;
#X connect 1 0 9 2;
#X connect 2 0 9 1;
#X connect 3 0 9 3;
#X connect 4 0 10 3;
#X connect 5 0 10 2;
#X connect 6 0 10 1;
#X connect 9 0 7 0;
#X connect 10 0 8 0;
#X connect 11 0 9 0;
#X connect 11 1 10 0;
#X restore 163 157 pd choose-parameters;
#X obj 248 24 inlet;
#X obj 300 24 inlet;
#X obj 453 24 inlet;
#X obj 505 24 inlet;
#X obj 402 24 inlet;
#X obj 351 24 inlet;
#X obj 39 266 int;
#X obj 39 323 outlet;
#X obj 342 276 outlet;
#X msg 89 192 stop;
#X obj 289 276 outlet;
#X obj 39 129 route bang stop;
#X obj 142 25 first-bang;
#X text 241 323 1994 by Karlheinz Essl;
#X obj 214 127 i \$1;
#X obj 265 127 i \$2;
#X obj 316 127 i \$3;
#X obj 368 127 i \$4;
#X obj 419 127 i \$5;
#X obj 470 127 i \$6;
#X obj 39 295 change;
#X obj 163 298 line;
#X obj 163 244 pack 0 0;
#X obj 163 267 t a b;
#X obj 298 183 t a a a;
#X obj 209 269 del 30;
#X obj 163 199 t a a;
#X obj 142 59 t b b b b b b b;
#X obj 39 161 t a a;
#X connect 0 0 13 0;
#X connect 1 0 28 0;
#X connect 1 1 26 0;
#X connect 2 0 16 0;
#X connect 3 0 17 0;
#X connect 4 0 20 0;
#X connect 5 0 21 0;
#X connect 6 0 19 0;
#X connect 7 0 18 0;
#X connect 8 0 22 0;
#X connect 11 0 23 0;
#X connect 11 0 27 0;
#X connect 13 0 30 0;
#X connect 13 1 11 0;
#X connect 13 1 14 1;
#X connect 14 0 29 0;
#X connect 16 0 1 1;
#X connect 17 0 1 2;
#X connect 18 0 1 3;
#X connect 19 0 1 4;
#X connect 20 0 1 5;
#X connect 21 0 1 6;
#X connect 22 0 9 0;
#X connect 23 0 8 1;
#X connect 24 0 25 0;
#X connect 25 0 23 0;
#X connect 25 1 27 0;
#X connect 26 0 24 1;
#X connect 26 1 27 1;
#X connect 26 2 10 0;
#X connect 27 0 1 0;
#X connect 28 0 24 0;
#X connect 28 1 12 0;
#X connect 29 0 1 0;
#X connect 29 1 16 0;
#X connect 29 2 17 0;
#X connect 29 3 18 0;
#X connect 29 4 19 0;
#X connect 29 5 20 0;
#X connect 29 6 21 0;
#X connect 30 0 8 0;
#X connect 30 1 14 0;

--- NEW FILE: ED-trans.pd ---
#N canvas 253 37 496 592 10;
#X msg 33 297 stop;
#X obj 250 33 inlet;
#X obj 105 474 metro 500;
#X obj 33 35 inlet;
#X obj 189 34 inlet;
#X obj 243 246 int;
#X obj 98 309 int 1;
#X obj 116 358 delay 500;
#X obj 116 388 int 0;
#X obj 227 512 int;
#X obj 227 539 outlet;
#X obj 105 531 outlet;
#X text 274 487 1993-97 by Karlheinz Essl;
#X text 279 501 vs. 1.2;
#X obj 213 169 int \$2;
#X obj 152 167 int \$1;
#X obj 213 200 t a b;
#X obj 243 270 t a a;
#X obj 213 296 line 0 25;
#X obj 98 93 t b b b b a;
#X obj 213 378 t a a;
#X obj 105 498 t b b;
#X obj 33 61 route stop;
#X connect 0 0 2 0;
#X connect 1 0 14 1;
#X connect 2 0 21 0;
#X connect 3 0 22 0;
#X connect 4 0 15 1;
#X connect 5 0 17 0;
#X connect 6 0 2 0;
#X connect 7 0 8 0;
#X connect 8 0 2 0;
#X connect 9 0 10 0;
#X connect 14 0 16 0;
#X connect 15 0 18 0;
#X connect 16 0 18 0;
#X connect 16 1 5 0;
#X connect 17 0 7 1;
#X connect 17 1 18 1;
#X connect 18 0 20 0;
#X connect 19 0 6 0;
#X connect 19 1 7 0;
#X connect 19 2 14 0;
#X connect 19 3 15 0;
#X connect 19 4 5 1;
#X connect 20 0 2 1;
#X connect 20 1 9 1;
#X connect 21 0 11 0;
#X connect 21 1 9 0;
#X connect 22 0 0 0;
#X connect 22 1 19 0;

--- NEW FILE: choose-intervals-help.pd ---
#N canvas 3 48 619 394 10;
#X obj 95 241 bng 15 250 50 1 empty empty clear 0 -6 0 8 -262144 -1
-1;
#X text 29 312 1993-99 by Karlheinz Essl;
#X msg 293 23 Harmony;
#X text 28 138 see also:;
#X text 28 66 Chooses a supply between one to five different intervals.
This set fullfills certain requirements: the sum of the chosen intervals
will never be an octave \, any pairs of intervals of that supply will
never be an octave and there will never occur diminished chords from
these intervals.;
#X text 28 34 choose-intervals;
#X text 201 232 flashes when the sum of the chosen intervals would
have been an octave;
#X obj 176 240 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 176 176 4 0 0 0 - - -;
#X obj 55 176 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 55 274 5 -4 -2 -5;
#X obj 55 240 show;
#X obj 55 205 choose-intervals 1;
#N canvas 231 94 569 441 musical-example 0;
#X obj 49 59 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X text 84 66 start / stop;
#X obj 49 285 pitch2note;
#X floatatom 49 320 0 0 0 0 - - -;
#X text 274 253 register;
#X floatatom 243 252 0 0 0 0 - - -;
#X obj 243 216 brownian 2 9 0.25;
#X floatatom 357 185 0 0 0 0 - - -;
#X text 391 182 brown factor;
#X msg 173 102 3;
#X text 279 132 chosen intervals;
#X msg 246 153 -6 -1 -4;
#X obj 219 29 loadbang;
#X obj 219 58 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 240 54 new interval selection;
#X text 367 76 number of intervals;
#X floatatom 340 74 0 0 0 0 - - -;
#X obj 49 100 metro 250;
#X obj 246 133 show;
#X text 60 117 rhythm bangs;
#X obj 49 351 play2 127 500 0 1;
#X text 96 321 note;
#X obj 49 132 t b b;
#X obj 219 100 choose-intervals 3;
#N canvas 0 0 738 528 sel-princ 0;
#X msg 184 218 1 alea;
#X msg 184 237 2 series;
#X msg 184 257 3 sequence;
#X msg 184 279 4 rota;
#X obj 184 308 list split 1;
#X symbolatom 107 142 10 0 0 0 - - -;
#X obj 107 127 hradio 15 1 0 4 empty empty sel-princ 0 -6 0 8 -262144
-1 -1 2;
#X obj 185 335 outlet;
#X obj 194 129 + 1;
#X obj 141 160 select 1 2 3 4;
#X obj 244 66 inlet;
#X obj 238 95 - 1;
#X connect 0 0 4 0;
#X connect 1 0 4 0;
#X connect 2 0 4 0;
#X connect 3 0 4 0;
#X connect 4 0 7 0;
#X connect 4 1 5 0;
#X connect 6 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 9 1 1 0;
#X connect 9 2 2 0;
#X connect 9 3 3 0;
#X connect 10 0 11 0;
#X connect 11 0 6 0;
#X coords 0 -1 1 1 85 60 1 100 100;
#X restore 123 140 pd sel-princ;
#X obj 49 216 pitch-from-intervals 3;
#X connect 0 0 17 0;
#X connect 2 0 3 0;
#X connect 3 0 20 0;
#X connect 5 0 2 1;
#X connect 6 0 5 0;
#X connect 7 0 6 3;
#X connect 9 0 24 0;
#X connect 12 0 13 0;
#X connect 13 0 9 0;
#X connect 13 0 23 0;
#X connect 16 0 23 1;
#X connect 17 0 22 0;
#X connect 18 0 11 0;
#X connect 22 0 25 0;
#X connect 22 1 6 0;
#X connect 23 0 18 0;
#X connect 23 0 25 2;
#X connect 24 0 25 1;
#X connect 25 0 2 0;
#X restore 94 135 pd musical-example;
#X text 215 174 number of intervals to be chosen;
#X text 248 46 vs. 1.1;
#X text 76 177 generate!;
#X text 230 135 << click;
#X connect 0 0 11 1;
#X connect 8 0 12 1;
#X connect 9 0 12 0;
#X connect 11 0 10 0;
#X connect 12 0 11 0;
#X connect 12 1 7 0;

--- NEW FILE: group-rhythm2-help.pd ---
#N canvas 283 203 492 445 10;
#X text 297 220 group list;
#X text 50 52 Another implementation of a group-rhythm. A material
list of ED-values is sent to the middle inlet \, a list of desired
group sizes is sent to the right-most inlet. A randomly chosen ED-value
from the ED-material list will be repeated according to a randomly
chosen group size from group-list.;
#X obj 60 270 group-rhythm2;
#X msg 60 303 60;
#X obj 60 231 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X text 50 125 see also:;
#X msg 115 125 group-rhythm;
#X msg 180 238 100 200 400 800;
#X obj 180 162 loadbang;
#X msg 300 238 8 5 3 2;
#X floatatom 103 301 0 0 0 3 ED - -;
#X floatatom 146 302 4 0 0 3 group_size - -;
#X text 50 21 group-rhythm2;
#X text 89 230 start stop;
#X obj 60 352 QT-PercPlayer;
#X text 57 396 1994 by Karlheinz Essl;
#X text 177 220 ED material;
#X obj 180 183 t b b;
#X connect 2 0 3 0;
#X connect 2 1 10 0;
#X connect 2 2 11 0;
#X connect 3 0 14 0;
#X connect 4 0 2 0;
#X connect 7 0 2 1;
#X connect 8 0 17 0;
#X connect 9 0 2 2;
#X connect 17 0 7 0;
#X connect 17 1 9 0;

--- NEW FILE: rit-acc-help.pd ---
#N canvas 287 195 458 387 10;
#X text 26 25 rit-acc;
#X text 24 306 1993 by Karlheinz Essl;
#X msg 295 23 Rhythm;
#X text 27 125 see also:;
#X msg 89 124 ED-trans;
#X msg 63 234 60;
#X obj 63 162 tgl 15 0 empty empty start/stop 0 -6 0 8 -262144 -1 -1
0 1;
#X msg 154 124 sneak-rhythm;
#X obj 63 265 QT-PercPlayer;
#X floatatom 156 232 8 0 0 3 ED - -;
#X floatatom 176 179 4 0 0 2 slope - -;
#X floatatom 109 179 4 0 0 2 start_ED - -;
#X obj 63 201 rit-acc 50 1.1;
#X text 26 57 Generates a ritardando or an accelerando \, depending
on the slope parameter. If it is < 1 \, the tempo becomes faster (until
about 1 msec \, then it stops) when it is > 1 \, the speed slows down.
;
#X connect 5 0 8 0;
#X connect 6 0 12 0;
#X connect 10 0 12 2;
#X connect 11 0 12 1;
#X connect 12 0 5 0;
#X connect 12 1 9 0;

--- NEW FILE: butfirst.pd ---
#N canvas 50 61 213 198 10;
#X obj 80 118 outlet;
#X obj 41 58 inlet;
#X obj 41 88 list split 1;
#X connect 1 0 2 0;
#X connect 2 1 0 0;

--- NEW FILE: key-bang.pd ---
#N canvas 50 61 251 167 10;
#X obj 79 46 inlet;
#X obj 34 103 outlet;
#X text 59 107 1997 by Karlheinz
Essl;
#X obj 34 45 key;
#X obj 34 76 sel \$1;
#X connect 0 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 1 0;

--- NEW FILE: sqrt-pan~-help.pd ---
#N canvas 436 240 483 397 10;
#X obj 43 196 *~ 0.3;
#X obj 44 166 noise~;
#X obj 43 264 ezdac~ 0;
#X floatatom 101 196 5 0 0 0 - - -;
#X obj 101 166 / 127;
#X text 23 80 See also:;
#X msg 89 79 cp-pan~;
#X obj 43 226 sqrt-pan~;
#X text 23 51 Square root panner;
#X text 23 21 sqrt-pan~;
#X msg 260 21 Envelopes;
#X msg 264 316 Overview;
#X obj 104 142 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 6200 1;
#X text 104 123 L < < < M > > > R;
#X text 197 166 controller value;
#X text 22 328 2004 by Karlheinz Essl;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 3 0 7 1;
#X connect 4 0 3 0;
#X connect 7 0 2 0;
#X connect 7 1 2 1;
#X connect 12 0 4 0;

--- NEW FILE: make-ED-scale-help.pd ---
#N canvas 462 248 524 410 10;
#X floatatom 171 146 4 0 0 2 max_ED - -;
#X floatatom 117 145 4 0 0 2 min_ED - -;
#X obj 104 207 bng 15 250 50 1 empty empty clear 0 -6 0 8 -262144 -1
-1;
#X obj 63 206 show;
#X text 14 28 make-ED-scale;
#X text 14 61 Generates a geometrical scale of entry delays (ED) between
a min. ED and a max. ED with a certain number of elements.;
#X text 14 96 see also:;
#X msg 88 98 make-scale;
#X floatatom 226 145 4 0 0 2 number_of_elements - -;
#X msg 63 237;
#X msg 170 98 make-trans-scale;
#X msg 286 98 make-choice-list;
#X msg 341 23 Lists;
#X msg 284 23 Rhythm;
#X obj 63 141 bng 15 250 50 0 empty empty go! 0 -6 0 8 -262144 -1 -1
;
#X text 16 279 1994-2003 by Karlheinz Essl;
#X text 223 39 vs. 1.1;
#X text 16 294 vs. 1.1: now also works with floats;
#X text 16 236 scale:;
#X obj 63 175 make-ED-scale 250 1000 6;
#X connect 0 0 19 2;
#X connect 1 0 19 1;
#X connect 2 0 3 1;
#X connect 3 0 9 0;
#X connect 8 0 19 3;
#X connect 14 0 19 0;
#X connect 19 0 3 0;

--- NEW FILE: repchord-rhythm-help.pd ---
#N canvas 346 75 903 677 10;
#X text 101 193 periodicity of min.ED/max.ED <float between 0 and 1>:
determines the probability of repetition of a chosen entry delay whereas
0 means "no repetition" ("aperiodic") and 1 means "permanent repetition"
("periodic").;
#X text 101 118 min.ED \, max.ED \, (number of) ED-values <ints>: parameters
for generating a geometrical row of entry delays which serves as a
material list.;
#X text 101 162 max.chord size <int> of longest entry delay value (the
shortest is always 1);
#X text 77 52 Generates a rhythm which repetition rate and chord size
are depending on the index of the chosen ED. The following parameters
allow you to model a lot of different musical situations:;
#X text 85 193 -;
#X text 85 162 -;
#X text 86 118 -;
#X text 70 20 repchord-rhythm;
#X text 81 257 see also:;
#X msg 146 258 super-rhythm;
#X obj 126 300 tgl 15 0 empty empty start/stop 0 -6 0 8 -262144 -1
-1 1 1;
#X text 403 299 periodicity of min.ED;
#X text 563 297 periodicity of max.ED;
#X floatatom 562 325 4 0 0 0 - - -;
#X floatatom 407 322 4 0 0 0 - - -;
#X floatatom 290 327 4 0 0 2 max_chord_size - -;
#X floatatom 249 314 4 0 0 2 ED-values - -;
#X floatatom 208 327 4 0 0 2 max_ED - -;
#X floatatom 167 317 4 0 0 2 min_ED - -;
#X obj 126 452 brown-melody 36 84 0.25;
#X text 237 257 - the most powerful and general rhythm generator;
#X floatatom 187 407 4 0 0 3 chord_size - -;
#X obj 249 402 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 311 407 5 0 0 3 ED - -;
#X floatatom 373 407 4 0 0 3 ED_index - -;
#X msg 384 19 Rhythm-Generators;
#X text 76 553 1993-96 by Karlheinz Essl;
#X obj 126 499 play2 127 500 1 1;
#X text 76 571 vs. 2: new implementation \, rightmost outlet added
\, bug fixes \, surpresses repetitions of already used EDs;
#X obj 126 366 repchord-rhythm 50 2000 12 6 0.8 0.2;
#X connect 10 0 29 0;
#X connect 13 0 29 6;
#X connect 14 0 29 5;
#X connect 15 0 29 4;
#X connect 16 0 29 3;
#X connect 17 0 29 2;
#X connect 18 0 29 1;
#X connect 19 0 27 0;
#X connect 29 0 19 0;
#X connect 29 1 21 0;
#X connect 29 2 22 0;
#X connect 29 3 23 0;
#X connect 29 4 24 0;

--- NEW FILE: metro-dev%.pd ---
#N canvas 131 149 421 355 10;
#N canvas 298 92 349 267 boundaries 0;
#X obj 123 166 expr $i1 + ($i2/200. * $i1);
#X obj 48 138 expr $i1 - ($i2/200. * $i1);
#X obj 218 50 inlet;
#X obj 48 50 inlet;
#X obj 123 201 outlet;
#X obj 48 201 outlet;
#X obj 218 76 t b b a a;
#X obj 48 80 t a a;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 7 0;
#X connect 6 0 1 0;
#X connect 6 1 0 0;
#X connect 6 2 1 1;
#X connect 6 3 0 1;
#X connect 7 0 1 0;
#X connect 7 1 0 0;
#X restore 219 124 pd boundaries;
#X obj 148 189 between 450 550;
#X obj 75 251 metro 1000;
#X text 307 145 max.;
#X text 186 145 min.;
#X text 195 220 ED;
#X obj 75 306 outlet;
#X obj 290 40 inlet;
#X obj 219 40 inlet;
#X obj 75 40 inlet;
#X obj 178 251 outlet;
#X text 140 311 1993 by Karlheinz Essl;
#X obj 290 96 int \$2;
#X obj 219 97 int \$1;
#X obj 148 219 t a a;
#X obj 148 66 t b b b;
#X obj 75 280 t b b;
#X obj 148 39 loadbang;
#X connect 0 0 1 1;
#X connect 0 1 1 2;
#X connect 1 0 14 0;
#X connect 2 0 16 0;
#X connect 7 0 12 0;
#X connect 8 0 13 0;
#X connect 9 0 2 0;
#X connect 12 0 0 1;
#X connect 13 0 0 0;
#X connect 14 0 2 1;
#X connect 14 1 10 0;
#X connect 15 0 1 0;
#X connect 15 1 13 0;
#X connect 15 2 12 0;
#X connect 16 0 6 0;
#X connect 16 1 15 0;
#X connect 17 0 15 0;

--- NEW FILE: pitch-from-intervals.pd ---
#N canvas 360 176 286 239 10;
#X obj 31 124 st2pitch;
#X obj 31 149 outlet;
#X obj 110 149 outlet;
#X obj 125 52 inlet;
#X obj 219 52 inlet;
#X obj 31 52 inlet;
#X text 30 186 1993 by Karlheinz Essl;
#X obj 31 81 sel-princ \$1;
#X obj 31 101 t a a;
#X connect 0 0 1 0;
#X connect 3 0 7 1;
#X connect 4 0 7 2;
#X connect 5 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 0 0;
#X connect 8 1 2 0;

--- NEW FILE: periodic.pd ---
#N canvas 63 44 501 317 10;
#X obj 30 48 r RTC-rs;
#X floatatom 30 98 0 0 0 0 - - -;
#X msg 30 118 seed \$1;
#X obj 103 118 first-bang;
#X obj 136 77 t b b b;
#X obj 136 46 inlet;
#X obj 276 41 inlet;
#X text 389 77 reset;
#X obj 235 46 inlet;
#X obj 179 118 pass 50;
#X text 188 229 1995-98 by Karlheinz
Essl;
#X obj 158 229 outlet;
#X obj 158 195 int;
#X text 188 243 vs. 1.1;
#X obj 179 157 random \$1;
#X obj 276 91 per2pass \$2;
#X obj 276 61 t a b;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 14 0;
#X connect 3 0 14 0;
#X connect 4 0 3 0;
#X connect 4 1 12 0;
#X connect 4 2 9 0;
#X connect 5 0 4 0;
#X connect 6 0 16 0;
#X connect 8 0 14 1;
#X connect 9 0 14 0;
#X connect 12 0 11 0;
#X connect 14 0 12 1;
#X connect 15 0 9 1;
#X connect 16 0 15 0;
#X connect 16 1 3 1;

--- NEW FILE: neutral-harmony.pd ---
#N canvas 320 85 721 471 10;
#X obj 260 388 outlet;
#X obj 384 123 inlet;
#X obj 356 270 int;
#X text 138 269 given interval;
#X obj 260 268 int;
#X obj 260 326 st2pitch;
#X text 395 270 complimentary interval;
#X obj 414 202 contrario 11;
#X obj 260 196 sel 1;
#X obj 260 80 inlet;
#X text 76 41 alternatively switching between given and complimentary
interval;
#X text 293 416 1993 by Karlheinz Essl;
#X obj 384 149 int \$1;
#X obj 384 172 t a a;
#X obj 356 237 b;
#X obj 260 166 f 0;
#X obj 289 166 + 1;
#X obj 316 166 mod 2;
#X obj 260 111 t b b;
#X connect 1 0 12 0;
#X connect 2 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 0 0;
#X connect 7 0 2 1;
#X connect 8 0 4 0;
#X connect 8 1 14 0;
#X connect 9 0 18 0;
#X connect 12 0 13 0;
#X connect 13 0 4 1;
#X connect 13 1 7 0;
#X connect 14 0 2 0;
#X connect 15 0 16 0;
#X connect 15 0 8 0;
#X connect 16 0 17 0;
#X connect 17 0 15 1;
#X connect 18 0 15 0;
#X connect 18 1 12 0;

--- NEW FILE: frq2note.pd ---
#N canvas 63 44 395 226 10;
#X obj 49 64 inlet;
#X obj 49 135 outlet;
#X obj 49 102 ftom;
#X connect 0 0 2 0;
#X connect 2 0 1 0;

--- NEW FILE: between-lin-help.pd ---
#N canvas 0 0 575 364 10;
#X floatatom 97 163 5 0 0 0 - - -;
#X msg 97 105 bang;
#X text 84 34 Bang (or any input) in left inlet outputs a random number
of a linear scale between min and max with a certain number of elements.
;
#X floatatom 143 110 5 0 0 2 min - -;
#X floatatom 190 111 5 0 0 2 max - -;
#X floatatom 238 113 5 0 0 2 steps - -;
#X obj 97 136 between-lin 0 90 10;
#X obj 175 247 between-variations-help;
#X text 100 248 Also see:;
#X connect 1 0 6 0;
#X connect 3 0 6 1;
#X connect 4 0 6 2;
#X connect 5 0 6 3;
#X connect 6 0 0 0;

--- NEW FILE: note2frq.pd ---
#N canvas 50 61 361 228 10;
#X obj 51 81 inlet;
#X obj 51 144 outlet;
#X obj 51 113 mtof;
#X connect 0 0 2 0;
#X connect 2 0 1 0;

--- NEW FILE: listreg.pd ---
#N canvas 0 0 450 300 10;
#X obj 108 95 inlet;
#X obj 108 219 outlet;
#X obj 108 133 route bang;
#X obj 108 187 list;
#X obj 108 158 b;
#X obj 216 131 inlet;
#X connect 0 0 2 0;
#X connect 2 0 4 0;
#X connect 2 1 3 1;
#X connect 3 0 1 0;
#X connect 4 0 3 0;
#X connect 5 0 3 1;

--- NEW FILE: INFROW1024.tab ---
0 1 -1 2 1 0 -2 3 -1 2 0 1 2 -1 -3 4 1 0 -2 3 0 1 -1 2 -2 3 1 0 3 -2 -4 5 -1 2 0 1 2 -1 -3 4 0 1 -1 2 1 0 -2 3 2 -1 -3 4 -1 2 0 1 -3 4 2 -1 4 -3 -5 6 1 0 -2 3 0 1 -1 2 -2 3 1 0 3 -2 -4 5 0 1 -1 2 1 0 -2 3 -1 2 0 1 2 -1 -3 4 -2 3 1 0 3 -2 -4 5 1 0 -2 3 0 1 -1 2 3 -2 -4 5 -2 -9 1 0 -4 5 3 -2 5 -4 -6 7 -1 2 0 1 2 -1 -3 4 0 1 -1 2 1 0 -2 3 2 -1 -3 4 -1 2 0 1 -3 4 2 -1 4 -3 -5 6 0 1 -1 2 1 0 -2 3 -1 2 0 1 2 -1 -3 4 1 0 -2 3 0 1 -1 2 -2 3 1 0 3 -2 -4 5 2 -1 -3 4 -1 2 0 1 -3 4 2 -1 4 -3 -5 6 -1 2 0 1 2 -1 -3 4 0 1 -1 2 1 0 -2 3 -3 4 2 -1 4 -3 -5 6 2 -1 -3 4 -1 2 0 1 4 -3 -5 6 -3 4 2 -1 -5 6 4 -3 6 -5 -7 8 1 0 -2 3 0 1 -1 2 -2 3 1 0 3 -2 -4 5 0 1 -1 2 1 0 -2 3 -1 2 0 1 2 -1 -3 4 -2 3 1 0 3 -2 -4 5 1 0 -2 3 0 1 -1 2 3 -2 -4 5 -2 3 1 0 -4 5 3 -2 5 -4 -6 7 0 1 -1 2 1 0 -2 3 -1 2 0 1 2 -1 -3 4 1 0 -2 3 0 1 -1 2 -2 3 1 0 3 -2 -4 5 -1 2 0 1 2 -1 -3 4 0 1 -1 2 1 0 -2 3 2 -1 -3 4 -1 2 0 1 -3 4 2 -1 4 -3 -5 6 -2 3 1 0 3 -2 -4 5 1 0 -2 3 0 1 -1 2 3 -2 -4 5 -2 3 1 0 -4 5 3 -2 5 -4 -6 7 1 0 -2 3 0 1 -1 2 -2 3 1 0 3 -2 -4 5 0 1 -1 2 1 0 -2 3 -1 2 0 1 2 -1 -3 4 3 -2 -4 5 -2 3 1 0 -4 5 3 -2 5 -4 -6 7 -2 3 1 0 3 -2 -4 5 1 0 -2 3 0 1 -1 2 -4 5 3 -2 5 -4 -6 7 3 -2 -4 5 -2 3 1 0 5 -4 -6 7 -4 5 3 -2 -6 7 5 -4 7 -6 -8 9 -1 2 0 1 2 -1 -3 4 0 1 -1 2 1 0 -2 3 2 -1 -3 4 -1 2 0 1 -3 4 2 -1 4 -3 -5 6 0 1 -1 2 1 0 -2 3 -1 2 0 1 2 -1 -3 4 1 0 -2 3 0 1 -1 2 -2 3 1 0 3 -2 -4 5 2 -1 -3 4 -1 2 0 1 -3 4 2 -1 4 -3 -5 6 -1 2 0 1 2 -1 -3 4 0 1 -1 2 1 0 -2 3 -3 4 2 -1 4 -3 -5 6 2 -1 -3 4 -1 2 0 1 4 -3 -5 6 -3 4 2 -1 -5 6 4 -3 6 -5 -7 8 0 1 -1 2 1 0 -2 3 -1 2 0 1 2 -1 -3 4 1 0 -2 3 0 1 -1 2 -2 3 1 0 3 -2 -4 5 -1 2 0 1 2 -1 -3 4 0 1 -1 2 1 0 -2 3 2 -1 -3 4 -1 2 0 1 -3 4 2 -1 4 -3 -5 6 1 0 -2 3 0 1 -1 2 -2 3 1 0 3 -2 -4 5 0 1 -1 2 1 0 -2 3 -1 2 0 1 2 -1 -3 4 -2 3 1 0 3 -2 -4 5 1 0 -2 3 0 1 -1 2 3 -2 -4 5 -2 3 1 0 -4 5 3 -2 5 -4 -6 7 2 -1 -3 4 -1 2 0 1 -3 4 2 -1 4 -3 -5 6 -1 2 0 1 2 -1 -3 4 0 1 -1 2 1 0 -2 3 -3 4 2 -1 4 -3 -5 6 2 -1 -3 4 -1 2 0 1 4 -3 -5 6 -3 4 2 -1 -5 6 4 -3 6 -5 -7 8 -1 2 0 1 2 -1 -3 4 0 1 -1 2 1 0 -2 3 2 -1 -3 4 -1 2 0 1 -3 4 2 -1 4 -3 -5 6 0 1 -1 2 1 0 -2 3 -1 2 0 1 2 -1 -3 4 1 0 -2 3 0 1 -1 2 -2 3 1 0 3 -2 -4 5 -3 4 2 -1 4 -3 -5 6 2 -1 -3 4 -1 2 0 1 4 -3 -5 6 -3 4 2 -1 -5 6 4 -3 6 -5 -7 8 2 -1 -3 4 -1 2 0 1 -3 4 2 -1 4 -3 -5 6 -1 2 0 1 2 -1 -3 4 0 1 -1 2 1 0 -2 3 4 -3 -5 6 -3 4 2 -1 -5 6 4 -3 6 -5 -7 8 -3 4 2 -1 4 -3 -5 6 2 -1 -3 4 -1 2 0 1 -5 6 4 -3 6 -5 -7 8 4 -3 -5 6 -3 4 2 -1 6 -5 -7 8 -5 6 4 -3 -7 8 6 -5 8 -7 -9 10

--- NEW FILE: VolAmb-help.pd ---
#N canvas 359 149 522 324 10;
#X msg 258 24 Envelopes;
#X obj 78 153 VolAmb;
#X floatatom 78 123 0 0 0 0 - - -;
#X floatatom 78 186 0 0 0 0 - - -;
#X text 76 206 dyn.min;
#X floatatom 163 186 0 0 0 0 - - -;
#X text 163 206 dyn.max;
#X obj 81 98 hsl 128 15 0 127 0 0 empty empty controller -2 -6 0 8
-262144 -1 -1 3100 1;
#X text 16 23 VolAmb;
#X text 16 52 Controls the ambitus
between minimum and maximum dynamic by a single controller.;
#X text 18 242 © 1997 by Karlheinz
Essl;
#X connect 1 0 3 0;
#X connect 1 1 5 0;
#X connect 2 0 1 0;
#X connect 7 0 2 0;

--- NEW FILE: samp10~.pd ---
#N canvas 63 44 384 463 10;
#X obj 45 57 inlet;
#X obj 138 112 f 0;
#X obj 169 113 + 1;
#X obj 202 112 mod 10;
#X obj 45 141 list prepend 0;
#X obj 45 87 t a b;
#X obj 45 165 route 0 1 2 3 4 5 6 7 8 9;
#X obj 66 367 outlet~;
#X obj 196 293 play-samp~;
#X obj 214 321 play-samp~;
#X obj 148 210 play-samp~;
#X obj 164 240 play-samp~;
#X obj 180 265 play-samp~;
#X obj 133 321 play-samp~;
#X obj 99 264 play-samp~;
#X obj 115 293 play-samp~;
#X obj 83 240 play-samp~;
#X obj 66 211 play-samp~;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 1 0 4 1;
#X connect 2 0 3 0;
#X connect 3 0 1 1;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 5 1 1 0;
#X connect 6 0 17 0;
#X connect 6 1 16 0;
#X connect 6 2 14 0;
#X connect 6 3 15 0;
#X connect 6 4 13 0;
#X connect 6 5 10 0;
#X connect 6 6 11 0;
#X connect 6 7 12 0;
#X connect 6 8 8 0;
#X connect 6 9 9 0;
#X connect 8 0 7 0;
#X connect 9 0 7 0;
#X connect 10 0 7 0;
#X connect 11 0 7 0;
#X connect 12 0 7 0;
#X connect 13 0 7 0;
#X connect 14 0 7 0;
#X connect 15 0 7 0;
#X connect 16 0 7 0;
#X connect 17 0 7 0;

--- NEW FILE: schweller.pd ---
#N canvas 320 110 751 394 10;
#X obj 70 274 int;
#X obj 70 35 inlet;
#X obj 135 148 first-bang;
#X obj 200 38 inlet;
#X obj 285 37 inlet;
#X obj 379 36 inlet;
#X obj 70 310 outlet;
#N canvas 115 16 707 620 velo 0;
#X obj 323 378 outlet;
#X obj 374 61 inlet;
#X text 381 37 relation cresc/descresc;
#N canvas 31 98 298 254 sharing 0;
#X obj 38 188 outlet;
#X obj 38 153 * 0.5;
#X obj 38 40 inlet;
#X obj 38 66 t f f;
#X obj 98 153 * 0.5;
#X obj 188 114 contrario 1;
#X obj 158 40 inlet;
#X obj 98 188 outlet;
#X obj 158 83 t a a;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 3 1 4 0;
#X connect 4 0 7 0;
#X connect 5 0 4 1;
#X connect 6 0 8 0;
#X connect 8 0 1 1;
#X connect 8 1 5 0;
#X restore 309 143 pd sharing;
#X text 306 39 duration;
#X obj 309 61 inlet;
#X obj 39 61 inlet;
#X obj 180 60 inlet;
#X text 127 34 start;
#X obj 134 60 inlet;
#X obj 154 481 outlet;
#X text 182 33 end;
#X floatatom 374 215 5 0 0 0 - - -;
#X floatatom 309 216 5 0 0 0 - - -;
#X obj 309 108 t a a;
#X obj 323 268 del;
#X obj 154 238 pack 0 0 0 0;
#X obj 118 200 f;
#X obj 39 92 t b b;
#X obj 154 418 line;
#X obj 197 332 del;
#X msg 154 284 \$1 \, \$2 \$3;
#X obj 154 260 t a b a;
#X obj 197 356 list;
#X msg 197 384 \$1 \$4;
#X connect 1 0 3 1;
#X connect 3 0 13 0;
#X connect 3 0 16 2;
#X connect 3 0 20 1;
#X connect 3 1 12 0;
#X connect 3 1 16 3;
#X connect 5 0 14 0;
#X connect 6 0 18 0;
#X connect 7 0 16 1;
#X connect 9 0 17 1;
#X connect 14 0 3 0;
#X connect 14 1 15 1;
#X connect 15 0 0 0;
#X connect 16 0 22 0;
#X connect 17 0 16 0;
#X connect 18 0 17 0;
#X connect 18 1 15 0;
#X connect 19 0 10 0;
#X connect 20 0 23 0;
#X connect 21 0 19 0;
#X connect 22 0 21 0;
#X connect 22 1 20 0;
#X connect 22 2 23 1;
#X connect 23 0 24 0;
#X connect 24 0 19 0;
#X restore 135 237 pd velo;
#X text 325 290 vs. 3.0: 1993-96 by Karlheinz Essl;
#X obj 463 36 inlet;
#X obj 230 322 outlet;
#X obj 230 171 int \$1;
#X obj 315 171 int \$2;
#X obj 409 172 int \$3;
#X obj 493 172 float \$4;
#X obj 200 272 t b a;
#X obj 200 63 t b a;
#X obj 285 65 t b a;
#X obj 379 62 t b a;
#X obj 463 60 t b a;
#X obj 70 62 t b b;
#X obj 525 83 loadbang;
#X text 324 317 Pd: 2006 Frank Barknecht;
#X connect 0 0 6 0;
#X connect 1 0 20 0;
#X connect 2 0 7 0;
#X connect 3 0 16 0;
#X connect 4 0 17 0;
#X connect 5 0 18 0;
#X connect 7 0 0 1;
#X connect 7 1 15 0;
#X connect 9 0 19 0;
#X connect 11 0 7 1;
#X connect 12 0 7 2;
#X connect 13 0 7 3;
#X connect 14 0 7 4;
#X connect 15 0 2 1;
#X connect 15 1 10 0;
#X connect 16 0 2 1;
#X connect 16 1 11 0;
#X connect 17 0 2 1;
#X connect 17 1 12 0;
#X connect 18 0 2 1;
#X connect 18 1 13 0;
#X connect 19 0 2 1;
#X connect 19 1 14 0;
#X connect 20 0 0 0;
#X connect 20 1 2 0;
#X connect 21 0 14 0;
#X connect 21 0 13 0;
#X connect 21 0 12 0;
#X connect 21 0 11 0;

--- NEW FILE: line2-help.pd ---
#N canvas 351 161 559 394 10;
#X obj 161 289 timer;
#X obj 191 263 b;
#X floatatom 161 316 5 0 0 0 - - -;
#X obj 161 148 t b b;
#X msg 161 118 bang;
#X text 43 58 line2;
#X floatatom 109 260 5 0 0 0 - - -;
#X obj 161 217 line2;
#X msg 161 174 1 \, 200 5239;
#X text 58 84 line which sends a bang to its 2nd outlet \, when finished.
Like "Line" in Max.;
#X connect 0 0 2 0;
#X connect 1 0 0 1;
#X connect 3 0 8 0;
#X connect 3 1 0 0;
#X connect 4 0 3 0;
#X connect 7 0 6 0;
#X connect 7 1 1 0;
#X connect 8 0 7 0;

--- NEW FILE: markov-help.pd ---
#N canvas 340 94 619 459 10;
#X text 17 38 markov;
#X text 84 20 Interface built around the prob-object of David Zicarelli.
A table of transition probabilities (cf. prob.help) is sent to the
right-most inlet and the start value into the middle. A bang into the
left inlet outputs an element chosen from a one-dimensional markov
matrix.;
#X msg 297 174 clear;
#X msg 255 174 dump;
#X obj 150 245 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 35 168 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 102 160 4 0 0 2 start_value - -;
#N canvas 231 56 462 467 markov-matrix 0;
#X msg 131 148 5 4 1;
#X msg 131 173 4 3 1;
#X msg 131 205 3 2 1;
#X msg 131 237 2 1 1;
#X msg 192 237 1 2 1;
#X msg 192 205 2 3 1;
#X msg 192 173 3 4 1;
#X msg 192 148 4 5 1;
#X obj 37 332 outlet;
#X msg 131 267 1 0 1;
#X msg 192 267 0 1 1;
#X obj 50 53 inlet;
#X obj 50 86 t b b b b b b b b b b;
#X connect 0 0 8 0;
#X connect 1 0 8 0;
#X connect 2 0 8 0;
#X connect 3 0 8 0;
#X connect 4 0 8 0;
#X connect 5 0 8 0;
#X connect 6 0 8 0;
#X connect 7 0 8 0;
#X connect 9 0 8 0;
#X connect 10 0 8 0;
#X connect 11 0 12 0;
#X connect 12 0 9 0;
#X connect 12 1 3 0;
#X connect 12 2 2 0;
#X connect 12 3 1 0;
#X connect 12 4 0 0;
#X connect 12 5 10 0;
#X connect 12 6 4 0;
#X connect 12 7 5 0;
#X connect 12 8 6 0;
#X connect 12 9 7 0;
#X restore 250 154 pd markov-matrix;
#X obj 250 123 loadbang;
#X obj 35 243 collect;
#X obj 91 243 bng 15 250 50 1 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 35 271;
#X text 171 245 bang \, when there is no transition possible ("I am
stuck!");
#X text 389 406 1994 by Karlheinz Essl;
#X msg 315 122 bang;
#X obj 35 210 markov 5;
#X connect 2 0 15 2;
#X connect 3 0 15 2;
#X connect 5 0 15 0;
#X connect 6 0 15 1;
#X connect 7 0 15 2;
#X connect 8 0 7 0;
#X connect 9 0 11 0;
#X connect 10 0 9 1;
#X connect 14 0 7 0;
#X connect 15 0 9 0;
#X connect 15 1 4 0;

--- NEW FILE: trans-help.pd ---
#N canvas 242 65 640 495 10;
#X text 20 69 Int in left inlet outputs the nth member of a transition
between a start value <int \, float> and an end value <int \, float>
in n steps <int> \, whereas "steps" is the number of row elements (between
start and end value) minus one. The mode of transition is determined
by the int sent to the rightmost inlet:;
#X text 20 38 trans;
#X text 54 186 2 = exponential;
#X text 54 172 1 = linear;
#X text 54 158 0 = logarithmical;
#X text 21 220 see also:;
#X msg 293 219 geom;
#X msg 88 219 trans-lin;
#X msg 220 219 trans-exp;
#X msg 151 219 trans-log;
#X text 21 385 1995 by Karlheinz Essl;
#X floatatom 45 348 0 0 0 0 - - -;
#X obj 45 307 trans 500 2000 12 0;
#X text 183 257 end.value;
#X text 111 257 start.value;
#X text 250 257 steps;
#X floatatom 45 278 0 0 0 0 - - -;
#X text 41 257 row index;
#X floatatom 183 278 0 0 0 0 - - -;
#X floatatom 114 278 0 0 0 0 - - -;
#X floatatom 251 278 0 0 0 0 - - -;
#X msg 355 33 Toolbox;
#X msg 326 385 RTC-Overview;
#X text 110 349 nth member of transition row;
#X text 160 153 };
#X text 190 174 transition functions;
#N canvas 0 0 738 528 trans-type 0;
#X obj 107 393 list split 1;
#X symbolatom 107 142 14 0 0 0 - - -;
#X obj 107 127 hradio 15 1 0 3 empty empty transition 0 -6 0 8 -262144
-1 -1 2;
#X obj 107 419 outlet;
#X obj 244 66 inlet;
#X obj 107 247 select 0 1 2;
#X msg 107 304 0 logarithmical;
#X msg 235 303 1 linear;
#X msg 317 306 2 exponential;
#X connect 0 0 3 0;
#X connect 0 1 1 0;
#X connect 2 0 5 0;
#X connect 4 0 2 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 5 2 8 0;
#X connect 6 0 0 0;
#X connect 7 0 0 0;
#X connect 8 0 0 0;
#X coords 0 -1 1 1 125 60 1 100 100;
#X restore 320 250 pd trans-type;
#X connect 12 0 11 0;
#X connect 16 0 12 0;
#X connect 18 0 12 2;
#X connect 19 0 12 1;
#X connect 20 0 12 3;
#X connect 26 0 12 4;

--- NEW FILE: rota-help.pd ---
#N canvas 428 278 641 354 10;
#X obj 164 188 rota;
#X msg 164 130 bang;
#X floatatom 194 214 5 0 0 0 - - -;
#X msg 204 130 a b c d e f;
#X obj 292 151 b;
#X msg 292 130 restart;
#X text 97 76 On every bang into first inlet cycle up and down through
the list sent into the second inlet. Third inlet resets.;
#X text 249 214 Outlet 2: current index (zero-based);
#X obj 164 238 print ROTA;
#X text 162 260 Outlet 1: current list element.;
#X connect 0 0 8 0;
#X connect 0 1 2 0;
#X connect 1 0 0 0;
#X connect 3 0 0 1;
#X connect 4 0 0 2;
#X connect 5 0 4 0;

--- NEW FILE: rit-acc.pd ---
#N canvas 631 255 425 444 10;
#X obj 182 369 outlet;
#X obj 94 39 inlet;
#X obj 94 111 sel 1;
#X obj 337 39 inlet;
#X obj 241 39 inlet;
#X obj 94 160 count-bang;
#X obj 94 215 geom 50 1.1;
#X obj 31 368 outlet;
#X text 232 376 1993 by Karlheinz Essl;
#X obj 286 152 float \$2;
#X obj 190 152 float \$1;
#X obj 94 69 t f b b;
#X obj 31 347 t b b;
#X obj 138 257 t b a a;
#X msg 31 246 stop;
#X obj 124 134 t b b;
#X obj 31 318 del 500;
#X obj 94 235 moses 1;
#X text 160 236 don't try faster that 1 msec!;
#X connect 1 0 11 0;
#X connect 2 0 5 0;
#X connect 2 1 15 0;
#X connect 3 0 9 1;
#X connect 4 0 10 1;
#X connect 5 0 6 0;
#X connect 6 0 17 0;
#X connect 9 0 6 2;
#X connect 10 0 6 1;
#X connect 11 0 2 0;
#X connect 11 1 10 0;
#X connect 11 2 9 0;
#X connect 12 0 7 0;
#X connect 12 1 5 0;
#X connect 13 0 16 0;
#X connect 13 1 16 1;
#X connect 13 2 0 0;
#X connect 14 0 16 0;
#X connect 15 0 14 0;
#X connect 15 1 5 1;
#X connect 16 0 12 0;
#X connect 17 1 13 0;

--- NEW FILE: infinity-row-help.pd ---
#N canvas 680 138 537 524 10;
#X msg 336 24 Harmony;
#X text 221 275 row index;
#X floatatom 188 275 0 0 0 0 - - -;
#X obj 430 202 bng 15 250 50 0 empty empty reset 0 -6 0 8 -262144 -1
-1;
#X floatatom 262 207 4 0 0 2 interval_projection - -;
#X text 21 477 1996 by Karlheinz Essl;
#X floatatom 92 218 4 0 0 2 start-note - -;
#X floatatom 60 273 0 0 0 0 - - -;
#X text 91 274 note;
#X obj 60 421 play2 127 200 1 1;
#X floatatom 98 396 0 0 0 0 - - -;
#N canvas 296 111 503 419 dynamic 0;
#X obj 148 273 outlet;
#X text 44 31 Every 4th note will be played mf;
#X text 44 47 Every 16th note will be played f;
#X text 44 62 The rest is played p;
#X text 64 81 >>> reflecting the "fractal" structure of the row;
#X obj 62 118 inlet;
#N canvas 287 70 450 300 every_16th 0;
#X obj 96 117 expr $i1 % 16 == 0;
#X obj 96 91 t a a;
#X obj 96 250 outlet;
#X obj 96 62 inlet;
#X obj 160 60 inlet;
#X obj 96 196 int 127;
#X obj 96 142 select 1 0;
#X obj 171 197 int;
#X obj 171 247 outlet;
#X connect 0 0 6 0;
#X connect 1 0 0 0;
#X connect 1 1 7 1;
#X connect 3 0 1 0;
#X connect 4 0 5 1;
#X connect 5 0 2 0;
#X connect 6 0 5 0;
#X connect 6 1 7 0;
#X connect 7 0 8 0;
#X restore 62 184 pd every_16th;
#N canvas 287 70 450 300 every_4th 0;
#X obj 96 230 outlet;
#X obj 96 62 inlet;
#X obj 185 62 inlet;
#X obj 96 116 expr $i1 % 4 == 0;
#X obj 146 62 inlet;
#X obj 96 142 select 1 0;
#X obj 147 186 int 30;
#X obj 96 186 int 70;
#X connect 1 0 3 0;
#X connect 2 0 6 1;
#X connect 3 0 5 0;
#X connect 4 0 7 1;
#X connect 5 0 7 0;
#X connect 5 1 6 0;
#X connect 6 0 0 0;
#X connect 7 0 0 0;
#X restore 148 242 pd every_4th;
#X msg 187 217 70;
#X text 215 218 mf;
#X text 271 217 p;
#X msg 245 219 30;
#X msg 148 161 127;
#X text 185 161 forte;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 6 1 7 0;
#X connect 7 0 0 0;
#X connect 8 0 7 1;
#X connect 11 0 7 2;
#X connect 12 0 6 1;
#X restore 98 369 pd dynamic;
#X text 12 93 NB: The fourth \, sixteenth \, sixtyfourth etc. note
of the row is identical!;
#X text 12 29 infinity-row;
#X text 143 397 velocity;
#X obj 60 175 metro 150;
#X floatatom 158 145 4 0 0 2 speed - -;
#X obj 60 143 tgl 15 0 empty empty start/stop 0 -6 0 8 -262144 -1 -1
1 1;
#X obj 60 218 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 179 207 hradio 15 1 0 3 empty empty mode 0 -6 0 8 -262144 -1
-1 0;
#X obj 60 244 infinity-row 70 0 1;
#X text 12 47 Found by Per Noergaard (1959) \, further variants by
Peter Richter (1996) - also see: http://www.pernoergaard.dk;
#X text 242 475 TODO Pd: The Richter variants;
#X connect 2 0 11 0;
#X connect 3 0 20 4;
#X connect 4 0 20 3;
#X connect 6 0 20 1;
#X connect 7 0 9 0;
#X connect 10 0 9 1;
#X connect 11 0 10 0;
#X connect 15 0 18 0;
#X connect 16 0 15 1;
#X connect 17 0 15 0;
#X connect 18 0 20 0;
#X connect 19 0 20 2;
#X connect 20 0 7 0;
#X connect 20 1 2 0;

--- NEW FILE: st2pitch.pd ---
#N canvas 38 44 444 457 10;
#X obj 38 53 inlet;
#X text 97 230 < converts floats to ints;
#X obj 38 304 outlet;
#X obj 143 309 outlet;
#X obj 139 54 inlet;
#X text 35 355 vs. 2;
#X text 35 335 1993-94 by Karlheinz Essl;
#X obj 38 210 + \$1;
#X obj 139 79 t b a;
#X obj 38 230 int;
#X obj 38 254 t a a;
#X obj 38 277 mod 12;
#X obj 66 144 f 0;
#X obj 38 144 +;
#X msg 54 114 0;
#X connect 0 0 13 0;
#X connect 4 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 14 0;
#X connect 8 1 7 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 10 1 3 0;
#X connect 11 0 2 0;
#X connect 12 0 13 1;
#X connect 13 0 12 0;
#X connect 13 0 7 0;
#X connect 14 0 13 1;

--- NEW FILE: xrandom.pd ---
#N canvas 63 156 387 297 10;
#X msg 21 100 seed \$1;
#X obj 21 31 r RTC-rs;
#X obj 243 174 outlet;
#X msg 195 92 clear;
#X obj 195 56 t b f;
#X obj 86 174 outlet;
#X obj 195 31 inlet;
#X obj 86 31 inlet;
#X msg 102 77 clear \, bang;
#X obj 86 136 urne \$1;
#X connect 0 0 9 0;
#X connect 1 0 0 0;
#X connect 3 0 9 0;
#X connect 4 0 3 0;
#X connect 4 1 9 1;
#X connect 6 0 4 0;
#X connect 7 0 9 0;
#X connect 8 0 9 0;
#X connect 9 0 5 0;
#X connect 9 1 2 0;
#X connect 9 1 8 0;

--- NEW FILE: nth.pd ---
#N canvas 0 0 450 300 10;
#X obj 113 155 list-idx;
#X obj 113 129 list;
#X obj 113 101 t b a;
#X obj 113 80 inlet;
#X obj 157 79 inlet;
#X obj 113 178 outlet;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 2 1 0 1;
#X connect 3 0 2 0;
#X connect 4 0 1 1;

--- NEW FILE: schweller-help.pd ---
#N canvas 308 99 592 520 10;
#X text 29 36 schweller;
#X msg 350 18 Envelopes;
#X text 29 478 vs. 3: new inlet added (fraction factor);
#X floatatom 369 263 4 0 0 2 fraction_factor - -;
#X obj 53 203 tgl 15 0 empty empty start/stop 0 -6 0 8 -262144 -1 -1
1 1;
#X text 29 464 1993-96 by Karlheinz Essl;
#X floatatom 314 243 4 0 0 2 duration - -;
#X floatatom 256 223 4 0 0 2 middle_velocity - -;
#X floatatom 190 203 4 0 0 2 start/end_velocity - -;
#X msg 45 345 60;
#X floatatom 83 351 0 0 0 1 velocity - -;
#X msg 75 203 0;
#X text 168 50 vs. 3;
#X obj 53 266 t b b;
#X text 29 68 Generates a transition between a start velocity \, a
middle velocity and an end velocity (which the same as start velocity).
By this you can create crescendo-decrescendo resp. decrescendo-crescendo
envelopes ("hairpins" - in german: "Schweller"). A fraction factor
(float between 0 and 1) send in the rightmost inlet determines the
proportion between crescendo and decrescendo part.;
#X obj 45 398 play2 127 90 0 1;
#X obj 53 239 metro 100;
#X obj 83 316 schweller 15 127 3000 0.25;
#X connect 3 0 17 4;
#X connect 4 0 16 0;
#X connect 6 0 17 3;
#X connect 7 0 17 2;
#X connect 8 0 17 1;
#X connect 9 0 15 0;
#X connect 10 0 15 1;
#X connect 11 0 4 0;
#X connect 13 0 9 0;
#X connect 13 1 17 0;
#X connect 16 0 13 0;
#X connect 17 0 10 0;
#X connect 17 1 11 0;

--- NEW FILE: note2frq-help.pd ---
#N canvas 1 48 501 340 10;
#X floatatom 36 242 4 0 0 0 - - -;
#X floatatom 176 143 4 0 0 0 - - -;
#X obj 176 170 / 100;
#X msg 102 87 frq2note;
#X text 30 23 note2frq;
#X text 30 55 Converts a note (= MIDI key number or MIDI cents) into
frequency.;
#X text 36 88 see also:;
#X text 32 278 1994-98 by Karlheinz Essl;
#X floatatom 36 114 4 0 0 0 - - -;
#X obj 36 212 note2frq;
#X floatatom 36 145 4 0 0 0 - - -;
#X text 102 244 frequency;
#X text 72 113 MIDI key number;
#X text 72 144 note name;
#X msg 404 29 Harmony;
#X text 208 142 MIDI cents;
#X text 32 292 vs. 1.1;
#X connect 1 0 2 0;
#X connect 2 0 9 0;
#X connect 8 0 10 0;
#X connect 9 0 0 0;
#X connect 10 0 9 0;

--- NEW FILE: series-help.pd ---
#N canvas 358 313 516 413 10;
#X msg 110 102 a b c d;
#X msg 73 66 bang;
#X obj 73 166 series;
#X obj 73 282 print Random_Element;
#X obj 91 240 print Refill_Urn;
#X msg 134 149 1 2 3 4 5 6 7 8;
#X obj 97 223 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 110 199 print Current_Index;
#X text 256 199 zero-based!;
#X msg 129 128 list x y z;
#X connect 0 0 2 1;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 1 4 0;
#X connect 2 1 6 0;
#X connect 2 2 7 0;
#X connect 5 0 2 1;
#X connect 9 0 2 1;

--- NEW FILE: pitch-from-row-help.pd ---
#N canvas 1 48 782 562 10;
#X text 28 22 pitch-from-row;
#X text 28 54 Generates pitch classes from a material row according
to the row form (prime \, retrograd \, inversion or retro-inversion)
and the start note of the row.;
#X text 241 390 normalized row modus;
#X text 416 362 flashes when end of row is reached;
#X msg 234 405 0 7 4 2 5 3 10 1 6 11 8 9;
#X floatatom 340 226 4 0 0 2 modus - -;
#X text 74 251 rhythm bangs;
#X obj 50 293 pitch-from-row;
#X msg 195 248;
#X obj 50 259 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 50 224 metro 250;
#X obj 50 186 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X text 479 239 start note;
#X text 28 105 see also:;
#X msg 91 105 pitch-from-row-mod;
#X msg 444 44 Dodecaphonics;
#X msg 474 23 Harmony;
#X obj 275 364 bng 15 250 50 1 empty empty clear 0 -6 0 8 -262144 -1
-1;
#X obj 394 364 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 234 362 show;
#X msg 50 405;
#N canvas 74 114 324 201 play-it 0;
#X obj 151 106 play2 127 500 1 1;
#X obj 43 141 outlet;
#X obj 43 106 show-pitchclass;
#X obj 43 39 inlet;
#X obj 43 68 + 60;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 4 0 2 0;
#X connect 4 0 0 0;
#X restore 50 372 pd play-it;
#X text 79 406 pitch class name;
#X text 83 193 start/stop;
#X obj 173 190 random-row;
#X obj 195 218 show;
#X text 196 165 Generates new row by random;
#X obj 173 164 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 173 139 loadbang;
#X text 430 459 1994-97 by Karlheinz Essl;
#X obj 441 225 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 0 1;
#X obj 438 244 int;
#X obj 234 219 bng 15 250 50 0 empty empty clear 0 -6 0 8 -262144 -1
-1;
#X connect 5 0 7 2;
#X connect 7 0 21 0;
#X connect 7 1 19 0;
#X connect 7 2 18 0;
#X connect 9 0 7 0;
#X connect 10 0 9 0;
#X connect 11 0 10 0;
#X connect 17 0 19 1;
#X connect 19 0 4 0;
#X connect 21 0 20 0;
#X connect 24 0 25 0;
#X connect 24 0 7 1;
#X connect 25 0 8 0;
#X connect 27 0 24 0;
#X connect 28 0 27 0;
#X connect 30 0 31 0;
#X connect 31 0 7 3;
#X connect 32 0 25 1;

--- NEW FILE: sequence-help.pd ---
#N canvas 584 415 450 300 10;
#X obj 111 125 sequence;
#X msg 162 99 a b c d;
#X msg 111 95 bang;
#X obj 162 148 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X symbolatom 111 168 10 0 0 0 - - -;
#X msg 228 99 x y z;
#X connect 0 0 4 0;
#X connect 0 1 3 0;
#X connect 1 0 0 1;
#X connect 2 0 0 0;
#X connect 5 0 0 1;

--- NEW FILE: geom-help.pd ---
#N canvas 1 48 570 353 10;
#X text 86 25 Int in left(*) inlet outputs the nth member of a geometrical
row. The other parameters are reference value <int \, float> and the
proportional factor q <float>.;
#X floatatom 98 197 5 0 0 1 nth_element_of_geometrical_row - -;
#X floatatom 98 114 4 0 0 2 row_index_n - -;
#X floatatom 191 114 4 0 0 2 value - -;
#X floatatom 258 114 4 0 0 2 proportional_factor_q - -;
#X obj 98 163 geom 20 1.25;
#X text 101 268 1993 by Karlheinz Essl;
#X text 25 35 geom;
#N canvas 0 0 445 125 (*) 0;
#X text 21 28 (*) older docs mentioned the "right" inlet here \, but
of course it's the leftmost inlet.;
#X restore 321 268 pd (*);
#X connect 2 0 5 0;
#X connect 3 0 5 1;
#X connect 4 0 5 2;
#X connect 5 0 1 0;

--- NEW FILE: samp10~-help.pd ---
#N canvas 219 146 650 427 10;
#X text 226 170 reversed \, attenuated;
#X text 209 149 transposed \, attenuated;
#X text 24 295 1999-2003 by Karlheinz Essl;
#X text 24 29 samp10~;
#X obj 48 196 samp10~;
#X text 151 127 original pitch \, original gain;
#X text 24 61 Allows a polyphony of up to 10 samples at the same time.
;
#X text 168 42 vs. 1.1;
#X text 24 309 vs. 1.1: voice allocation bug fixed;
#X obj 48 227 ezdac~;
#X obj 332 253 openpanel;
#X obj 332 300 soundfiler;
#X obj 332 226 bng 20 250 50 0 empty empty open-sample 0 -6 0 8 -262144
-1 -1;
#X obj 331 328 table samp10;
#X msg 48 129 1 samp10 1;
#X msg 63 151 0.5 samp10 0.5;
#X msg 83 172 -1 samp10 1;
#X msg 332 274 read -resize \$1 samp10;
#X connect 4 0 9 0;
#X connect 4 0 9 1;
#X connect 10 0 17 0;
#X connect 12 0 10 0;
#X connect 14 0 4 0;
#X connect 15 0 4 0;
#X connect 16 0 4 0;
#X connect 17 0 11 0;

--- NEW FILE: transpose-row-help.pd ---
#N canvas 0 48 664 376 10;
#X text 21 50 Transposes a list of notes or pitch classes (containing
up to 64 elements) a certain interval which can be positive or negative.
The output appears as pitch classes (ints between 0 and 11).;
#X text 23 107 NB: The input must not be a dodecaphonic row!;
#X text 375 151 };
#X text 301 135 list of pitch classes or notes;
#X text 49 271 result: as pitch classes;
#X obj 38 235 show;
#X msg 38 287 7 9 11 1 3 5 4 2 0 10 8 6;
#X obj 38 204 transpose-row;
#X floatatom 38 176 4 0 0 2 transposition_interval - -;
#X obj 79 237 bng 15 250 50 1 empty empty clear 0 -6 0 8 -262144 -1
-1;
#X text 21 322 1994-95 by Karlheinz Essl;
#X msg 213 179 0 14 7 -3 23;
#X msg 213 156 1 3 5 7 9 11 10 8 6 4 2 0;
#X obj 213 134 loadbang;
#X msg 403 24 Dodecaphonics;
#X text 21 337 vs.2: now works with lists containing up to 64 elements.
;
#X text 239 31 vs. 2;
#X text 21 19 transpose-row;
#X connect 5 0 6 0;
#X connect 7 0 5 0;
#X connect 8 0 7 0;
#X connect 9 0 5 1;
#X connect 11 0 7 1;
#X connect 12 0 7 1;
#X connect 13 0 12 0;

--- NEW FILE: RTC-seed.pd ---
#N canvas 63 44 169 167 10;
#X obj 26 100 s RTC-rs;
#X obj 26 47 inlet;
#X floatatom 26 75 5 0 0 0 - - -;
#X connect 1 0 2 0;
#X connect 2 0 0 0;

--- NEW FILE: Lround-help.pd ---
#N canvas 1 48 788 342 10;
#X text 24 31 Lround;
#X text 26 64 Rounds off numbers.;
#X obj 521 124 Lround -1;
#X obj 521 161 prepend set;
#X msg 521 196 40;
#X text 418 25 Floats in list are rounded off;
#X text 323 55 Float is rounded off;
#X floatatom 263 84 0 0 0 0 - - -;
#X floatatom 238 54 0 0 0 0 - - -;
#X msg 213 26 1 2 3.6 4.4 7.5 8.5 19.1117;
#X obj 336 124 Lround 3;
#X msg 336 196 39;
#X obj 336 161 prepend set;
#X text 335 228 Positive Arg sets number of decimal places.;
#X text 519 213 Negative Arg rounds to power of 10;
#X text 196 211 Arg of 0 converts all outputs to float.;
#X obj 200 124 Lround 0;
#X msg 200 196 39;
#X obj 200 161 prepend set;
#X obj 63 161 prepend set;
#X msg 63 196 39;
#X obj 63 124 Lround;
#X text 56 229 With no arg \, output is rounded to int.;
#X text 9 277 Peter Elsea 1995;
#X text 9 295 University of California \, Santa Cruz;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 7 0 21 0;
#X connect 7 0 16 0;
#X connect 7 0 10 0;
#X connect 7 0 2 0;
#X connect 8 0 21 0;
#X connect 8 0 16 0;
#X connect 8 0 10 0;
#X connect 8 0 2 0;
#X connect 9 0 21 0;
#X connect 9 0 16 0;
#X connect 9 0 10 0;
#X connect 9 0 2 0;
#X connect 10 0 12 0;
#X connect 12 0 11 0;
#X connect 16 0 18 0;
#X connect 18 0 17 0;
#X connect 19 0 20 0;
#X connect 21 0 19 0;

--- NEW FILE: scramble-help.pd ---
#N canvas 250 127 580 435 10;
#X obj 168 200 bng 15 250 50 1 empty empty clear_display 0 -6 0 8 -262144
-1 -1;
#X msg 204 127 1.66 2.73 0.45 -6;
#X msg 126 127 1 2 3 4 5;
#X msg 126 229;
#X obj 76 120 bng 15 250 50 0 empty empty reshuffle 0 -6 0 8 -262144
-1 -1;
#X obj 126 171 scramble;
#X obj 126 199 show;
#X text 52 303 Clone of the Max external by James McCartney (1992)
;
#X text 26 42 scramble;
#X text 100 30 scrambles the order of a list of numbers. bang in left
inlet triggers a new random output of the last list sent to the inlet.
List in inlet gets scrambled and sent out the outlet. (Uses [urn] external.)
;
#X connect 0 0 6 1;
#X connect 1 0 5 0;
#X connect 2 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 3 0;

--- NEW FILE: dur-from-ED.pd ---
#N canvas 63 44 253 246 10;
#X obj 97 31 inlet;
#X obj 50 164 outlet;
#X obj 50 103 int;
#X obj 50 132 * 1;
#X obj 148 31 inlet;
#X text 75 166 1993 by Karlheinz
Essl;
#X obj 97 103 float \$1;
#X obj 50 74 t a a;
#X obj 50 31 inlet;
#X connect 0 0 2 1;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 6 1;
#X connect 6 0 3 1;
#X connect 7 0 2 0;
#X connect 7 1 6 0;
#X connect 8 0 7 0;

--- NEW FILE: alea.pd ---
#N canvas 29 73 368 383 10;
#X obj 114 167 random;
#X obj 114 80 inlet;
#X obj 114 264 outlet;
#X obj 188 267 outlet;
#X obj 205 80 inlet;
#X obj 151 129 list-len;
#X obj 114 193 t a a;
#N canvas 415 244 450 300 nth 0;
#X obj 113 155 list-idx;
#X obj 113 129 list;
#X obj 113 101 t b a;
#X obj 113 80 inlet;
#X obj 157 79 inlet;
#X obj 113 178 outlet;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 2 1 0 1;
#X connect 3 0 2 0;
#X connect 4 0 1 1;
#X restore 114 230 pd nth;
#X msg 43 126 seed \$1;
#X obj 43 80 r RTC-rs;
#X text 83 309 1993-98 by Karlheinz Essel;
#X text 78 287 vs 1.1;
#X connect 0 0 6 0;
#X connect 1 0 0 0;
#X connect 4 0 5 0;
#X connect 4 0 7 1;
#X connect 5 0 0 1;
#X connect 6 0 7 0;
#X connect 6 1 3 0;
#X connect 7 0 2 0;
#X connect 8 0 0 0;
#X connect 9 0 8 0;

--- NEW FILE: anti-octave&prime-help.pd ---
#N canvas 279 83 603 489 10;
#X text 16 116 see also:;
#X text 16 65 Filters out octaves and primes (i.e. tone repetitions)
between two consecutive notes and outputs a bang from right outlet
whenever this would have occured.;
#X text 16 33 anti-octave&prime;
#X obj 44 299 anti-octave&prime;
#X msg 160 116 anti-interval;
#X msg 78 138 check-octaves;
#X msg 78 116 anti-octave;
#X text 255 386 1993 by Karlheinz Essl;
#X msg 324 23 Harmony;
#X floatatom 44 341 4 0 0 1 note_name - -;
#X obj 44 373 play2 127 500 0 1;
#X text 206 300 Flashes when an octave or prime would have occured
;
#X obj 178 300 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 44 232 pipe 500;
#X obj 44 253 t a b;
#X obj 44 189 list split 1;
#X obj 60 211 list;
#X floatatom 44 276 5 0 0 0 - - -;
#X msg 44 166 40 50 62 59 59 75;
#X connect 3 0 9 0;
#X connect 3 1 12 0;
#X connect 9 0 10 0;
#X connect 13 0 14 0;
#X connect 14 0 17 0;
#X connect 14 1 16 0;
#X connect 15 0 13 0;
#X connect 15 1 16 1;
#X connect 16 0 15 0;
#X connect 17 0 3 0;
#X connect 18 0 15 0;

--- NEW FILE: permutate.pd ---
#N canvas 282 229 238 273 10;
#X text 120 210 vs. 1.1;
#X obj 38 56 inlet;
#X obj 38 125 random-norep 1;
#X obj 38 225 outlet;
#X obj 131 56 inlet;
#X text 95 229 1993-98 by Karlheinz Essl;
#X obj 131 90 list-len;
#X obj 38 95 b;
#X obj 38 167 list;
#X obj 38 189 list-idx;
#X obj 38 146 t b a;
#X connect 1 0 7 0;
#X connect 2 0 10 0;
#X connect 4 0 6 0;
#X connect 4 0 8 1;
#X connect 6 0 2 1;
#X connect 7 0 2 0;
#X connect 8 0 9 0;
#X connect 9 0 3 0;
#X connect 10 0 8 0;
#X connect 10 1 9 1;

--- NEW FILE: anti-interval-help.pd ---
#N canvas 3 48 661 573 10;
#X text 37 48 anti-interval;
#X text 37 79 Filters out a certain interval (which is the argument
of this function) of a stream of notes and outputs a bang from right
outlet whenever this interval would have occured.;
#X msg 231 169 anti-octave;
#X msg 106 169 anti-octave&prime;
#X text 36 170 see also:;
#X text 42 503 1995 by Karlheinz Essl;
#X obj 66 453 play2 127 500 0 1;
#X floatatom 173 302 4 0 0 1 forbidden_interval - -;
#X obj 66 328 anti-interval -1;
#X obj 66 392 anti-interval 3;
#X obj 189 395 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 187 329 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 37 128 NB: the forbidden interval also concerns all its octave
transpositions!;
#X floatatom 166 365 4 0 0 1 forbidden_interval - -;
#X text 205 328 flashes \, when forbidden intervall would have occured
;
#X floatatom 66 308 5 0 0 0 - - -;
#X obj 66 266 pipe 500;
#X obj 66 287 t a b;
#X obj 66 223 list split 1;
#X obj 82 245 list;
#X floatatom 77 351 5 0 0 0 - - -;
#X msg 66 200 40 50 60 59 75;
#X connect 7 0 8 1;
#X connect 8 0 9 0;
#X connect 8 0 20 0;
#X connect 8 1 11 0;
#X connect 9 0 6 0;
#X connect 9 1 10 0;
#X connect 13 0 9 1;
#X connect 15 0 8 0;
#X connect 16 0 17 0;
#X connect 17 0 15 0;
#X connect 17 1 19 0;
#X connect 18 0 16 0;
#X connect 18 1 19 1;
#X connect 19 0 18 0;
#X connect 21 0 18 0;

--- NEW FILE: markov-rhythm-help.pd ---
#N canvas 99 88 600 512 10;
#X text 354 207 ED material;
#X text 60 49 Entry delays of a given rhythmic material sent to the
rightmost inlet are chosen according to a markov matrix sent the third
inlet. An integer sent to the second inlet determines the start index
of the rhythmic material.;
#X text 60 17 markov-rhythm;
#X obj 97 296 markov-rhythm 5;
#X msg 97 325 60;
#X obj 97 258 tgl 15 0 empty empty start/stop 0 -6 0 8 -262144 -1 -1
1 1;
#X floatatom 197 322 4 0 0 3 ED - -;
#X floatatom 147 322 4 0 0 3 index - -;
#X floatatom 130 274 4 0 0 2 start_index - -;
#X msg 163 185 clear;
#X obj 371 228 make-ED-scale 100 1000 6;
#X obj 247 162 loadbang;
#X msg 313 18 Rhythm-Generators;
#X text 60 114 see also:;
#X msg 125 114 prob;
#X msg 167 114 markov-harmony;
#X obj 97 355 QT-PercPlayer;
#X text 69 407 1994 by Karlheinz Essl;
#X msg 163 158 dump;
#X text 243 207 markov matrix;
#N canvas 585 245 462 467 gamble-table 0;
#X msg 131 148 5 4 1;
#X msg 131 173 4 3 1;
#X msg 131 205 3 2 1;
#X msg 131 237 2 1 1;
#X msg 192 237 1 2 1;
#X msg 192 205 2 3 1;
#X msg 192 173 3 4 1;
#X msg 192 148 4 5 1;
#X obj 191 355 outlet;
#X msg 131 267 1 0 1;
#X msg 192 267 0 1 1;
#X obj 50 53 inlet;
#X msg 249 267 0 0 5;
#X msg 249 205 2 2 3;
#X msg 249 173 3 3 2;
#X msg 249 148 4 4 1;
#X msg 249 237 1 1 4;
#X text 303 151 repetitions;
#X obj 50 86 t b b b b b b b b b b b b b b b;
#X connect 0 0 8 0;
#X connect 1 0 8 0;
#X connect 2 0 8 0;
#X connect 3 0 8 0;
#X connect 4 0 8 0;
#X connect 5 0 8 0;
#X connect 6 0 8 0;
#X connect 7 0 8 0;
#X connect 9 0 8 0;
#X connect 10 0 8 0;
#X connect 11 0 18 0;
#X connect 12 0 8 0;
#X connect 13 0 8 0;
#X connect 14 0 8 0;
#X connect 15 0 8 0;
#X connect 16 0 8 0;
#X connect 18 0 9 0;
#X connect 18 1 3 0;
#X connect 18 2 2 0;
#X connect 18 3 1 0;
#X connect 18 4 0 0;
#X connect 18 5 10 0;
#X connect 18 6 4 0;
#X connect 18 7 5 0;
#X connect 18 8 6 0;
#X connect 18 9 7 0;
#X connect 18 10 12 0;
#X connect 18 11 16 0;
#X connect 18 12 13 0;
#X connect 18 13 14 0;
#X connect 18 14 15 0;
#X restore 247 231 pd gamble-table;
#X obj 247 185 t b b;
#X msg 247 142 bang;
#X connect 3 0 4 0;
#X connect 3 1 7 0;
#X connect 3 2 6 0;
#X connect 4 0 16 0;
#X connect 5 0 3 0;
#X connect 8 0 3 1;
#X connect 9 0 3 2;
#X connect 10 0 3 3;
#X connect 11 0 21 0;
#X connect 18 0 3 2;
#X connect 20 0 3 2;
#X connect 21 0 20 0;
#X connect 21 1 10 0;
#X connect 22 0 21 0;

--- NEW FILE: smooth-line.pd ---
#N canvas 366 287 335 349 10;
#X obj 134 35 inlet;
#X obj 76 34 inlet;
#X text 23 205 1999-2003 by Karlheinz Essl;
#X obj 76 177 outlet;
#X obj 76 147 line 0;
#X obj 76 115 pack 0 \$1;
#X obj 76 61 route float;
#X text 24 224 Pd: 2006 Frank Barknecht;
#X connect 0 0 5 1;
#X connect 1 0 6 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 6 0 5 0;
#X connect 6 1 4 0;

--- NEW FILE: int-or-float-help.pd ---
#N canvas 189 177 593 402 10;
#N canvas 375 365 667 396 integer-mode 0;
#X obj 60 130 int-or-float;
#X floatatom 60 61 5 0 0 0 - - -;
#X floatatom 60 156 5 0 0 0 - - -;
#X obj 60 84 * 0.1;
#X floatatom 60 109 5 0 0 0 - - -;
#X text 38 33 no args \, nothing in second inlet;
#X floatatom 314 63 5 0 0 0 - - -;
#X floatatom 314 158 5 0 0 0 - - -;
#X obj 314 86 * 0.1;
#X floatatom 314 111 5 0 0 0 - - -;
#X text 314 33 "i" or "int" as arg;
#X obj 314 132 int-or-float i;
#X floatatom 458 65 5 0 0 0 - - -;
#X floatatom 458 160 5 0 0 0 - - -;
#X obj 458 88 * 0.1;
#X floatatom 458 113 5 0 0 0 - - -;
#X obj 458 134 int-or-float int;
#X obj 66 300 int-or-float;
#X floatatom 66 231 5 0 0 0 - - -;
#X floatatom 66 326 5 0 0 0 - - -;
#X obj 66 254 * 0.1;
#X floatatom 66 279 5 0 0 0 - - -;
#X text 44 203 no args \, whole number in second inlet;
#X msg 145 273 10;
#X obj 145 253 loadbang;
#X text 21 10 INTEGER MODE;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 0 0;
#X connect 6 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 11 0;
#X connect 11 0 7 0;
#X connect 12 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 13 0;
#X connect 17 0 19 0;
#X connect 18 0 20 0;
#X connect 20 0 21 0;
#X connect 21 0 17 0;
#X connect 23 0 17 1;
#X connect 24 0 23 0;
#X restore 69 198 pd integer-mode;
#N canvas 375 365 743 459 float-mode 0;
#X obj 60 130 int-or-float;
#X floatatom 60 61 5 0 0 0 - - -;
#X floatatom 60 156 5 0 0 0 - - -;
#X obj 60 84 * 0.1;
#X floatatom 60 109 5 0 0 0 - - -;
#X floatatom 430 64 5 0 0 0 - - -;
#X floatatom 430 159 5 0 0 0 - - -;
#X obj 430 87 * 0.1;
#X floatatom 430 112 5 0 0 0 - - -;
#X floatatom 574 66 5 0 0 0 - - -;
#X floatatom 574 161 5 0 0 0 - - -;
#X obj 574 89 * 0.1;
#X floatatom 574 114 5 0 0 0 - - -;
#X msg 139 107 0.1;
#X obj 139 83 loadbang;
#X text 28 10 FLOAT MODE;
#X text 38 33 no args \, but non-whole number in second inlet.;
#X text 430 34 "f" or "float" as argument:;
#X obj 430 133 int-or-float f;
#X obj 574 135 int-or-float float;
#X text 53 233 IMPORTANT: Arguments override what was sent into second
inlet. This next use case will run in *integer mode*:;
#X floatatom 66 288 5 0 0 0 - - -;
#X floatatom 66 383 5 0 0 0 - - -;
#X obj 66 311 * 0.1;
#X floatatom 66 336 5 0 0 0 - - -;
#X msg 173 336 0.1;
#X obj 173 311 loadbang;
#X obj 66 357 int-or-float int;
#X text 194 361 "int"-arg is stronger!;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 0 0;
#X connect 5 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 18 0;
#X connect 9 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 19 0;
#X connect 13 0 0 1;
#X connect 14 0 13 0;
#X connect 18 0 6 0;
#X connect 19 0 10 0;
#X connect 21 0 23 0;
#X connect 23 0 24 0;
#X connect 24 0 27 0;
#X connect 25 0 27 1;
#X connect 26 0 25 0;
#X connect 27 0 22 0;
#X restore 68 231 pd float-mode;
#X text 65 118 This abstraction converts incoming numbers to integer
values depending on its argument or numbers sent into its rightmost
inlet. It can operate in two modes: int or float.;
#X obj 69 51 int-or-float;
#X text 185 50 Arguments: "i" \, "int" \, "f" \, "float" (optional)
;
#X text 185 72 All in- and outlets accept or send numbers.;
#X text 15 14 int-or-float: Optionally convert numbers to int.;
#X text 66 272 int-or-float is mainly useful when converting Max patches
to Pd. Max handles floating point numbers differently from integer
values \, but in Pd everything is a float \, so we need to explicitly
tell Pd \, if we want a conversion to integer or not.;
#X text 188 199 Default mode is int.;

--- NEW FILE: repeat-ED-help.pd ---
#N canvas 329 227 604 477 10;
#X msg 269 28 Rhythm;
#X msg 56 135 stop;
#X obj 225 200 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 97 200 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 97 226 60;
#X obj 97 170 repeat-ED 300;
#X text 44 118 number of rhythm bangs;
#X floatatom 225 135 4 0 0 2 speed - -;
#X floatatom 97 135 0 0 0 0 - - -;
#X text 52 66 Int in left inlet sends out a certain number of rhythm
bangs with an entry delay (ED) given in right inlet.;
#X text 197 47 vs.2;
#X text 52 33 repeat-ED;
#X obj 97 255 QT-PercPlayer;
#X text 251 195 bang when finished;
#X text 100 352 1993-95 by Karlheinz Essl;
#X connect 1 0 5 0;
#X connect 3 0 4 0;
#X connect 4 0 12 0;
#X connect 5 0 3 0;
#X connect 5 1 2 0;
#X connect 7 0 5 1;
#X connect 8 0 5 0;

--- NEW FILE: VolAmb.pd ---
#N canvas 63 44 211 237 10;
#X obj 45 42 inlet;
#X obj 93 151 outlet;
#X obj 45 150 outlet;
#X obj 45 120 Table;
#C restore;
#X floatatom 45 70 0 0 0 0 - - -;
#X obj 93 120 Table;
#C restore;
#X connect 0 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 4 0 5 0;
#X connect 5 0 1 0;

--- NEW FILE: rotate-help.pd ---
#N canvas 1 48 575 411 10;
#X text 128 229 clear display;
#X obj 108 228 bng 15 250 50 1 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 66 227 show;
#X text 113 42 (external - OSX);
#X text 21 30 rotate;
#X text 22 57 Cyclically rotate a list.;
#X text 200 207 int in right inlet sets rotation;
#X msg 85 131 a b c d e;
#X msg 101 150 2 4 6 8 10;
#X text 200 175 bang in left inlet retriggers output;
#X text 200 191 list in left inlet gets rotated;
#X msg 66 111 1 2 3 4 5 6 7 8 9 10;
#X obj 46 164 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 66 255;
#X floatatom 110 175 0 0 0 0 - - -;
#X text 21 286 by James McCartney;
#X text 21 299 OSX implementation by Richard Dudas (2003);
#X text 21 78 See also:;
#X msg 85 77 rota;
#X obj 66 199 list-rot 2;
#X text 49 347 fbar: [rotate] is a Gem-object \, use [list-rot] instead.
;
#X connect 1 0 2 1;
#X connect 2 0 13 0;
#X connect 7 0 19 0;
#X connect 8 0 19 0;
#X connect 11 0 19 0;
#X connect 12 0 19 0;
#X connect 14 0 19 1;
#X connect 19 0 2 0;

--- NEW FILE: group-rhythm2.pd ---
#N canvas 251 172 334 330 10;
#X obj 45 25 inlet;
#X obj 103 127 groups;
#X obj 121 29 inlet;
#X obj 140 48 inlet;
#X obj 45 191 metro 250;
#X obj 133 197 outlet;
#X obj 45 239 outlet;
#X obj 186 198 outlet;
#X text 69 266 1994 by Karlheinz Essl;
#X obj 103 157 t a a;
#X obj 45 216 t b b;
#X msg 60 101 bang;
#X obj 103 81 select 1;
#X obj 45 48 t a a;
#X connect 0 0 13 0;
#X connect 1 0 9 0;
#X connect 1 2 7 0;
#X connect 2 0 1 1;
#X connect 3 0 1 2;
#X connect 4 0 10 0;
#X connect 9 0 4 1;
#X connect 9 1 5 0;
#X connect 10 0 6 0;
#X connect 10 1 1 0;
#X connect 11 0 1 0;
#X connect 12 0 1 0;
#X connect 13 0 4 0;
#X connect 13 1 12 0;

--- NEW FILE: trans-lin-help.pd ---
#N canvas 343 243 618 404 10;
#X floatatom 349 146 0 0 0 2 steps - -;
#X floatatom 212 146 0 0 0 2 start - -;
#X floatatom 280 146 0 0 0 2 end - -;
#X floatatom 143 146 0 0 0 2 index - -;
#X floatatom 143 216 0 0 0 0 - - -;
#X text 137 44 linear transition -------- Int in left inlet outputs
the nth member of a linear transition between a start value and an
end value in n steps \, whereas "steps" is the number of row elements
(between start and end value) minus one.;
#X obj 282 294 expr_scale 0 12 500 2000;
#X obj 143 175 trans-lin 500 2000 12;
#X floatatom 252 249 5 0 0 2 index - -;
#X floatatom 282 321 5 0 0 0 - - -;
#X floatatom 363 262 0 0 0 2 steps - -;
#X floatatom 404 262 0 0 0 2 start - -;
#X floatatom 445 261 0 0 0 2 end - -;
#X text 262 220 equivalent to "expr_scale" used like this:;
#X obj 99 271 ==;
#X obj 99 291 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 252 270 t a a;
#X connect 0 0 7 3;
#X connect 1 0 7 1;
#X connect 2 0 7 2;
#X connect 3 0 7 0;
#X connect 6 0 9 0;
#X connect 6 0 14 1;
#X connect 7 0 4 0;
#X connect 7 0 14 0;
#X connect 8 0 16 0;
#X connect 10 0 6 2;
#X connect 11 0 6 3;
#X connect 12 0 6 4;
#X connect 14 0 15 0;
#X connect 16 0 7 0;
#X connect 16 1 6 0;

--- NEW FILE: random-row-help.pd ---
#N canvas 1 48 521 295 10;
#X obj 51 109 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 51 144 random-row;
#X text 25 246 1994 by Karlheinz Essl;
#X text 25 70 Generates a twelve-tone row by random. The elements of
the row range from 0 to 11;
#X text 25 39 random-row;
#X obj 51 177 show;
#X msg 51 208;
#X obj 93 177 bng 15 250 50 1 empty empty clear 0 -6 0 8 -262144 -1
-1;
#X msg 198 22 Dodecaphonics;
#X text 84 114 Click to generate a random row;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 5 0 6 0;
#X connect 7 0 5 1;

--- NEW FILE: pitch-from-intervals-help.pd ---
#N canvas 0 48 696 472 10;
#X text 43 68 Generates pitch classes (i.e. notes without register
information) by selecting intervals from a given supply sent to the
rightmost inlet. The selection principle (after Gottfried Michael Koenig)
sent to the middle inlet determines how the intervals are chosen.;
#X text 43 36 pitch-from-intervals;
#X msg 328 35 Harmony;
#X obj 41 299 pitch-from-intervals 3;
#X obj 41 273 bng 15 50 50 0 empty empty rhythm_bangs 0 -6 0 8 -262144
-1 -1;
#X obj 41 206 tgl 15 0 empty empty start/stop 0 -6 0 8 -262144 -1 -1
1 1;
#X msg 297 293 1 -4 -2;
#X obj 264 168 loadbang;
#X obj 297 272 show;
#X text 285 201 change interval list;
#X obj 264 243 choose-intervals 3;
#X obj 264 207 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 385 218 4 0 0 1 length_of_interval_list - -;
#X text 336 273 randomly selected interval supply;
#X msg 152 185 3;
#X text 284 362 1993 by Karlheinz Essl;
#X msg 41 354;
#X text 71 355 pitch class;
#X floatatom 190 323 4 0 0 1 chosen_interval - -;
#N canvas 616 354 455 230 play-it 0;
#X obj 59 33 inlet;
#X obj 59 62 + 60;
#X text 101 56 map into middle octave;
#X obj 59 99 show-pitchclass;
#X obj 59 131 outlet;
#X obj 169 99 play2 127 500 1 1;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 1 0 5 0;
#X connect 3 0 4 0;
#X restore 41 327 pd play-it;
#X obj 41 243 metro 250;
#X floatatom 99 220 5 0 0 0 - - -;
#N canvas 0 0 738 528 sel-princ 0;
#X msg 184 218 1 alea;
#X msg 184 237 2 series;
#X msg 184 257 3 sequence;
#X msg 184 279 4 rota;
#X obj 184 308 list split 1;
#X symbolatom 107 142 10 0 0 0 - - -;
#X obj 107 127 hradio 15 1 0 4 empty empty sel-princ 0 -6 0 8 -262144
-1 -1 1;
#X obj 185 335 outlet;
#X obj 194 129 + 1;
#X obj 141 160 select 1 2 3 4;
#X obj 244 66 inlet;
#X obj 238 95 - 1;
#X connect 0 0 4 0;
#X connect 1 0 4 0;
#X connect 2 0 4 0;
#X connect 3 0 4 0;
#X connect 4 0 7 0;
#X connect 4 1 5 0;
#X connect 6 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 9 1 1 0;
#X connect 9 2 2 0;
#X connect 9 3 3 0;
#X connect 10 0 11 0;
#X connect 11 0 6 0;
#X coords 0 -1 1 1 85 60 1 100 100;
#X restore 152 205 pd sel-princ;
#X connect 3 0 19 0;
#X connect 3 1 18 0;
#X connect 4 0 3 0;
#X connect 5 0 20 0;
#X connect 7 0 14 0;
#X connect 7 0 11 0;
#X connect 8 0 6 0;
#X connect 10 0 8 0;
#X connect 10 0 3 2;
#X connect 11 0 10 0;
#X connect 12 0 10 1;
#X connect 14 0 22 0;
#X connect 19 0 16 0;
#X connect 20 0 4 0;
#X connect 21 0 20 1;
#X connect 22 0 3 1;

--- NEW FILE: random-norep.pd ---
#N canvas 23 65 716 390 10;
#X msg 43 139 seed \$1;
#X obj 43 72 r RTC-rs;
#X obj 221 69 loadbang;
#X obj 173 69 inlet;
#X obj 109 69 inlet;
#X obj 109 196 expr ($i1 + $i2 + 1) % ($i3 + 1);
#X obj 109 172 random 4;
#X obj 109 250 outlet;
#X obj 173 124 - 1;
#X obj 173 97 int \$1;
#X obj 109 221 t a a;
#X obj 173 145 t a a;
#X text 267 110 (Current_RNum + Previous_RNum + 1) modulo (range +
1);
#X text 374 153 Algorithm from Michael Gold;
#X text 300 270 vs 1.1;
#X connect 0 0 6 0;
#X connect 1 0 0 0;
#X connect 2 0 9 0;
#X connect 3 0 9 0;
#X connect 4 0 6 0;
#X connect 5 0 10 0;
#X connect 6 0 5 0;
#X connect 8 0 11 0;
#X connect 9 0 8 0;
#X connect 10 0 7 0;
#X connect 10 1 5 1;
#X connect 11 0 6 1;
#X connect 11 1 5 2;

--- NEW FILE: transpose-row.pd ---
#N canvas 628 218 418 366 10;
#X obj 48 313 outlet;
#X obj 49 52 inlet;
#X obj 94 51 inlet;
#X text 120 313 vs. 2: 1994-95 by Karlheinz Essl;
#X obj 48 281 list;
#X obj 71 228 list prepend;
#X obj 167 229 t a;
#X obj 71 166 list-drip;
#N canvas 0 0 448 464 transpose 0;
#X obj 134 158 +;
#X obj 134 186 mod 12;
#X obj 134 253 mod 12;
#X obj 134 213 + 12;
#X obj 134 116 inlet;
#X obj 180 114 inlet;
#X obj 134 280 outlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 6 0;
#X connect 3 0 2 0;
#X connect 4 0 0 0;
#X connect 5 0 0 1;
#X restore 71 199 pd transpose;
#X obj 71 127 list;
#X obj 49 74 t b b a b;
#X connect 1 0 10 0;
#X connect 2 0 9 1;
#X connect 4 0 0 0;
#X connect 5 0 4 1;
#X connect 5 0 6 0;
#X connect 6 0 5 1;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 7 0;
#X connect 10 0 4 0;
#X connect 10 1 9 0;
#X connect 10 2 8 1;
#X connect 10 3 5 1;

--- NEW FILE: count-bang-help.pd ---
#N canvas 3 48 563 356 10;
#X floatatom 75 177 0 0 0 0 - - -;
#X obj 75 142 count-bang;
#X obj 75 103 bng 15 250 50 0 empty empty bangs_to_count 0 -6 0 8 -262144
-1 -1;
#X obj 140 118 bng 15 250 50 0 empty empty reset 0 -6 0 8 -262144 -1
-1;
#X text 112 179 number of received bangs;
#X text 35 24 count-bang;
#X text 99 249 1993 by Karlheinz Essl;
#X text 63 47 Counts the number of received bangs. (bang-accumulator)
;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 1 1;

--- NEW FILE: RTC-Overview.pd ---
#N canvas 207 113 449 332 10;
#X text 173 198 DSP objects for MSP;
#X text 173 55 list operations;
#X text 173 34 random and chance operations;
#X text 173 13 basic low-level functions;
#X text 173 106 pitch-related functions;
#X text 173 149 dynamics \, ramps \, etc.;
#X text 173 128 time-based functions;
#X text 19 238 Real Time Composition Library vs. 4.1 for wMAX;
#X text 19 252 (c) 1993-2006 by Karlheinz Essl <www.essl.at>;
#X obj 33 13 rtc-help/Toolbox;
#X obj 33 34 rtc-help/Chance;
#X obj 33 55 rtc-help/Lists;
#X obj 33 105 rtc-help/Harmony;
#X obj 33 125 rtc-help/Rhythm;
#X obj 33 146 rtc-help/Envelopes;
#X obj 33 197 rtc-help/MSP-RTC;
#X text 15 78 ___________________________________________________;
#X text 15 172 ___________________________________________________
;

--- NEW FILE: make-scale-help.pd ---
#N canvas 347 116 463 385 10;
#X obj 76 230 bng 15 250 50 1 empty empty clear 0 -6 0 8 -262144 -1
-1;
#X obj 35 229 show;
#X text 15 97 see also:;
#X text 15 61 Generates an integer list with a certain number of ints
starting from a given value.;
#X msg 87 99 make-ED-scale;
#X msg 251 23 Lists;
#X msg 85 123 make-choice-list;
#X msg 189 99 make-trans-scale;
#X text 194 229 1993 by Karlheinz Essl;
#X text 47 261 scale;
#X floatatom 147 170 4 0 0 2 start_int - -;
#X floatatom 35 170 4 0 0 2 number_of_ints - -;
#X msg 35 280;
#X text 15 29 make-scale;
#X obj 35 200 make-scale 1;
#X connect 0 0 1 1;
#X connect 1 0 12 0;
#X connect 10 0 14 1;
#X connect 11 0 14 0;
#X connect 14 0 1 0;

--- NEW FILE: repeat-ED.pd ---
#N canvas 423 319 355 378 10;
#X text 166 338 1993-95 by Karlheinz Essl;
#X text 167 323 vs. 2;
#X obj 155 118 count-bang;
#X msg 36 113 0;
#X obj 230 46 inlet;
#X obj 105 46 inlet;
#X obj 260 287 outlet;
#X obj 155 172 sel 1;
#X obj 155 204 int 0;
#X obj 105 204 int 1;
#X obj 105 332 outlet;
#X obj 105 272 metro 500;
#X obj 36 80 sel stop;
#X obj 230 111 int \$1;
#X obj 105 79 t b f b b;
#X obj 155 232 t a a a;
#X obj 105 308 t b b;
#X connect 2 0 7 0;
#X connect 3 0 11 0;
#X connect 4 0 13 0;
#X connect 5 0 12 0;
#X connect 5 0 14 0;
#X connect 7 0 8 0;
#X connect 8 0 15 0;
#X connect 9 0 11 0;
#X connect 11 0 16 0;
#X connect 12 0 3 0;
#X connect 13 0 11 1;
#X connect 14 0 9 0;
#X connect 14 1 7 1;
#X connect 14 2 2 1;
#X connect 14 3 13 0;
#X connect 15 0 11 0;
#X connect 15 1 6 0;
#X connect 15 2 2 1;
#X connect 16 0 10 0;
#X connect 16 1 2 0;

--- NEW FILE: reanimate.pd ---
#N canvas 273 116 279 272 10;
#X obj 42 72 route bang;
#X obj 42 44 inlet;
#X text 106 232 1997 by Karlheinz
Essl;
#X obj 42 204 outlet;
#X obj 107 205 outlet;
#X msg 107 136 stop;
#X obj 158 42 inlet;
#X obj 107 177 delay \$1;
#X obj 107 106 b;
#X obj 42 105 t b b b;
#X connect 0 0 9 0;
#X connect 0 1 8 0;
#X connect 1 0 0 0;
#X connect 5 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 4 0;
#X connect 8 0 5 0;
#X connect 9 0 3 0;
#X connect 9 1 7 0;
#X connect 9 2 5 0;

--- NEW FILE: listlen.pd ---
#N canvas 0 0 329 261 10;
#X obj 91 79 inlet;
#X obj 91 141 outlet;
#X obj 91 109 list-len;
#X connect 0 0 2 0;
#X connect 2 0 1 0;

--- NEW FILE: transp-pitch-help.pd ---
#N canvas 3 48 493 333 10;
#X msg 259 27 Harmony;
#X text 235 114 transposition interval;
#X floatatom 116 114 4 0 0 0 - - -;
#X obj 116 143 transp-pitch;
#X floatatom 195 114 4 0 0 0 - - -;
#X obj 116 172 show-pitchclass;
#X msg 116 201;
#X text 150 202 transposed pitch class;
#X text 43 245 1994 by Karlheinz Essl;
#X text 30 112 pitch class;
#X text 27 72 Transposes pitch classes by a certain interval.;
#X text 27 40 transp-pitch;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 6 0;

--- NEW FILE: check-octaves.pd ---
#N canvas 577 276 292 338 10;
#X obj 108 276 outlet;
#X obj 48 275 outlet;
#X obj 46 161 sel 0;
#X obj 46 29 inlet;
#X text 48 316 1993 by Karlheinz Essl;
#X obj 46 95 list-accum;
#X obj 46 121 mod 12;
#X obj 48 240 list;
#X obj 46 58 t a a;
#X obj 48 215 b;
#X connect 2 0 0 0;
#X connect 2 1 9 0;
#X connect 3 0 8 0;
#X connect 5 0 6 0;
#X connect 6 0 2 0;
#X connect 7 0 1 0;
#X connect 8 0 5 0;
#X connect 8 1 7 1;
#X connect 9 0 7 0;

--- NEW FILE: check-row.pd ---
#N canvas 205 43 245 241 10;
#X obj 46 46 inlet;
#N canvas 392 183 418 355 length-check 0;
#X obj 40 51 inlet;
#X text 85 49 checks if list length is 12;
#X obj 40 291 outlet;
#X obj 91 291 outlet;
#X msg 149 232 wrong length (must be 12);
#X obj 40 70 t a a;
#X obj 40 183 list;
#X obj 40 90 list-len;
#X obj 149 259 print :check-row;
#X obj 40 132 == 12;
#X obj 40 158 select 1;
#X obj 91 180 b;
#X connect 0 0 5 0;
#X connect 4 0 8 0;
#X connect 5 0 7 0;
#X connect 5 1 6 1;
#X connect 6 0 2 0;
#X connect 7 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 6 0;
#X connect 10 1 11 0;
#X connect 11 0 4 0;
#X connect 11 0 3 0;
#X restore 46 81 pd length-check;
#N canvas 63 44 499 419 tone-check 0;
#X obj 102 340 outlet;
#X obj 51 341 outlet;
#X obj 51 43 inlet;
#X obj 51 88 normalize-row;
#X obj 51 116 sum;
#X msg 162 305 does not contain all 12 pitch classes!;
#X obj 51 204 list;
#X obj 51 66 t a a;
#X obj 51 147 == 66;
#X obj 51 176 select 1;
#X obj 102 202 b;
#X obj 162 342 print :check-row;
#X connect 2 0 7 0;
#X connect 3 0 4 0;
#X connect 4 0 8 0;
#X connect 5 0 11 0;
#X connect 6 0 1 0;
#X connect 7 0 3 0;
#X connect 7 1 6 1;
#X connect 8 0 9 0;
#X connect 9 0 6 0;
#X connect 9 1 10 0;
#X connect 10 0 5 0;
#X connect 10 0 0 0;
#X restore 46 121 pd tone-check;
#X obj 46 160 outlet;
#X obj 146 165 outlet;
#X text 45 185 1994 by Karlheinz Essl;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 4 0;
#X connect 2 0 3 0;
#X connect 2 1 4 0;

--- NEW FILE: matrix12-help.pd ---
#N canvas 3 50 614 373 10;
#N canvas 25 81 678 400 original_help-file 0;
#X obj 236 189 matrix12;
#X floatatom 424 281 0 0 0 0 - - -;
#X floatatom 369 281 0 0 0 0 - - -;
#X floatatom 398 281 0 0 0 0 - - -;
#X floatatom 341 281 0 0 0 0 - - -;
#X floatatom 454 281 0 0 0 0 - - -;
#X floatatom 484 281 0 0 0 0 - - -;
#X floatatom 176 281 0 0 0 0 - - -;
#X floatatom 204 281 0 0 0 0 - - -;
#X floatatom 233 281 0 0 0 0 - - -;
#X floatatom 259 281 0 0 0 0 - - -;
#X floatatom 286 281 0 0 0 0 - - -;
#X floatatom 316 281 0 0 0 0 - - -;
#X obj 236 233 unpack 0 0 0 0 0 0 0 0 0 0 0 0;
#N canvas 96 63 421 311 storit 0;
#X floatatom 0 116 0 0 0 0 - - -;
#X obj 23 44 iter;
#X obj 30 141 buddy;
#X obj 33 169 pack;
#X obj 59 89 counter;
#X obj 21 23 inlet;
#X obj 273 47 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 219 62 metro;
#X floatatom 216 133 0 0 0 0 - - -;
#X floatatom 261 147 0 0 0 0 - - -;
#X obj 233 218 noteout;
#X obj 221 155 + 50;
#X floatatom 315 145 0 0 0 0 - - -;
#X obj 224 188 makenote;
#X obj 233 31 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X floatatom 331 196 0 0 0 0 - - -;
#X obj 111 129 Table;
#X obj 314 25 inlet;
#X obj 343 24 inlet;
#X obj 366 25 inlet;
#X obj 215 99 counter;
#X floatatom 261 24 0 0 0 0 - - -;
#X obj 176 21 inlet;
#X obj 388 29 inlet;
#X obj 135 26 listlen;
#X obj 110 37 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 85 65 0 0 0 0 - - -;
#X obj 159 72 - 1;
#X floatatom 159 50 0 0 0 0 - - -;
#X floatatom 268 70 0 0 0 0 - - -;
#X obj 391 88 inlet;
#X connect 0 0 2 0;
#X connect 1 0 2 1;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 2 1 3 1;
#X connect 3 0 16 0;
#X connect 4 0 0 0;
#X connect 5 0 1 0;
#X connect 5 0 25 0;
#X connect 5 0 24 0;
#X connect 6 0 29 0;
#X connect 7 0 20 0;
#X connect 9 0 11 1;
#X connect 11 0 13 0;
#X connect 12 0 13 1;
#X connect 13 0 10 0;
#X connect 13 1 10 1;
#X connect 14 0 7 0;
#X connect 14 0 6 0;
#X connect 15 0 10 2;
#X connect 16 0 11 0;
#X connect 17 0 21 0;
#X connect 18 0 12 0;
#X connect 19 0 15 0;
#X connect 20 0 16 0;
#X connect 20 0 8 0;
#X connect 21 0 7 1;
#X connect 21 0 13 2;
#X connect 22 0 14 0;
#X connect 23 0 10 0;
#X connect 24 0 28 0;
#X connect 25 0 26 0;
#X connect 26 0 4 2;
#X connect 27 0 20 4;
#X connect 28 0 27 0;
#X connect 29 0 20 3;
#X connect 30 0 9 0;
#X restore 54 241 pd storit;
#X msg 283 150 0 1 3 4 6 4;
#X msg 281 130 3 5 7 9;
#X msg 281 110 4 5 11 0 2 7 6 3 10 9 1 8;
#X obj 61 69 omsinfo;
#X text 283 80 Some rows! Input to object as list;
#X text 181 92 Bang here to output selected row as list;
#X text 438 56 Select row of matrix to output:;
#X floatatom 438 86 0 0 0 0 - - -;
#X text 438 171 Check for inversion (no check = prime form);
#X obj 438 211 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 438 150 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X text 438 109 Check for retro (no check = prime form);
#X obj 230 131 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 29 109 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 53 133 0 0 0 0 - - -;
#X text 54 111 at speed (ms.);
#X text 101 131 and vel.;
#X floatatom 99 151 0 0 0 0 - - -;
#X text 150 57 Serial Matrix Object Help;
#X obj 63 50 loadbang;
#X text 29 81 Bang to play (and stop playing) selected row;
#X text 29 167 with pitch offset:;
#X floatatom 65 183 0 0 0 0 - - -;
#X text 139 153 into midi channel;
#X floatatom 139 169 0 0 0 0 - - -;
#X obj 139 202 umenu 1 64 199 0;
#X text 139 187 and selected device;
#X text 31 282 Note : matrix origin at 0 ->;
#X text 194 298 This Help file requires the listlen object by James
McCartney! (Thanks \, Jim!);
#X connect 13 0 7 0;
#X connect 13 1 8 0;
#X connect 13 2 9 0;
#X connect 13 3 10 0;
#X connect 13 4 11 0;
#X connect 13 5 12 0;
#X connect 13 6 4 0;
#X connect 13 7 2 0;
#X connect 13 8 3 0;
#X connect 13 9 1 0;
#X connect 13 10 5 0;
#X connect 13 11 6 0;
#X connect 15 0 0 0;
#X connect 16 0 0 0;
#X connect 17 0 0 0;
#X connect 18 0 40 0;
#X connect 27 0 0 0;
#X connect 28 0 14 1;
#X connect 29 0 14 2;
#X connect 32 0 14 3;
#X connect 34 0 29 0;
#X connect 34 0 18 0;
#X connect 34 0 32 0;
#X connect 34 0 39 0;
#X connect 34 0 27 0;
#X connect 34 0 17 0;
#X connect 37 0 14 6;
#X connect 39 0 14 4;
#X connect 40 0 14 5;
#X restore 307 66 pd original_help-file;
#X obj 49 121 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 49 143 random-row;
#X obj 414 190 umenu 1 64 189 1;
#X obj 269 190 umenu 1 64 189 1;
#X obj 179 254 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 136 286 9 8 5 7 6 2 11 1 3 0 4 10;
#X obj 136 254 show;
#X obj 136 221 matrix12;
#X msg 136 144 4 5 11 0 2 7 6 3 10 9 1 8;
#X floatatom 163 172 4 0 0 1 row_index - -;
#X text 324 142 input row;
#X text 25 39 matrix12;
#X text 371 287 Note : matrix origin at 0!;
#X text 25 68 Serial Matrix Object by Charlie Baker;
#X text 200 255 clear display;
#X text 69 122 generate random row;
#X obj 163 192 t b a;
#X connect 1 0 2 0;
#X connect 2 0 8 0;
#X connect 3 0 8 3;
#X connect 4 0 8 2;
#X connect 5 0 7 1;
#X connect 7 0 6 0;
#X connect 8 0 7 0;
#X connect 9 0 8 0;
#X connect 10 0 17 0;
#X connect 17 0 8 0;
#X connect 17 1 8 1;

--- NEW FILE: make-trans-scale.pd ---
#N canvas 0 0 525 474 10;
#X obj 20 39 inlet;
#X obj 20 80 t b b b b b f;
#X obj 20 395 outlet;
#X obj 253 43 inlet;
#X obj 164 269 inlet;
#X obj 109 269 inlet;
#X obj 219 269 - 1;
#X text 136 433 1995 by Karlheinz Essl;
#X obj 54 140 int \$3;
#X obj 20 367 list;
#X obj 54 344 list prepend;
#X obj 144 344 t a;
#X obj 54 165 t a a;
#X obj 54 205 until;
#X obj 54 237 f;
#X obj 89 237 + 1;
#X msg 100 206 0;
#X obj 54 309 trans \$1 \$2 \$3 \$4;
#X connect 0 0 1 0;
#X connect 1 0 9 0;
#X connect 1 2 8 0;
#X connect 1 3 10 1;
#X connect 1 4 16 0;
#X connect 1 5 17 4;
#X connect 3 0 8 0;
#X connect 4 0 17 2;
#X connect 5 0 17 1;
#X connect 6 0 17 3;
#X connect 8 0 12 0;
#X connect 9 0 2 0;
#X connect 10 0 9 1;
#X connect 10 0 11 0;
#X connect 11 0 10 1;
#X connect 12 0 13 0;
#X connect 12 1 6 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 14 0 17 0;
#X connect 15 0 14 1;
#X connect 16 0 14 1;
#X connect 17 0 10 0;

--- NEW FILE: cos-slider.pd ---
#N canvas 63 44 284 223 10;
#X obj 31 125 outlet;
#X obj 31 44 inlet;
#X obj 31 68 expr cos($f1/127.*3.14159);
#X obj 31 98 expr_scale 1 -1 0 127;
#X text 33 160 1998 by Karlheinz Essl;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 0 0;

--- NEW FILE: choice-rhythm.pd ---
#N canvas 63 44 516 465 10;
#X obj 257 55 inlet;
#X obj 298 54 inlet;
#X obj 214 54 inlet;
#X obj 174 54 inlet;
#X obj 69 54 inlet;
#X obj 446 54 inlet;
#X text 401 200 list length;
#X obj 458 414 outlet;
#X text 178 414 1993 by Karlheinz
Essl;
#X obj 69 138 t f b;
#X obj 164 415 outlet;
#X obj 69 414 outlet;
#X obj 69 381 metro 1000;
#X text 181 349 ED;
#X obj 257 108 - 1;
#X obj 82 85 sel 1;
#X text 173 223 chosen list index
;
#X obj 134 191 random 6;
#X obj 210 175 t l l l;
#X obj 348 418 outlet;
#X obj 257 81 int \$3;
#X obj 210 148 make-choice-list 1 \$4 0 \$3;
#X obj 318 240 t a a;
#X obj 357 87 t a a;
#X obj 134 312 trans-log \$1 \$2 \$3;
#X obj 134 338 t a a;
#N canvas 477 288 450 300 nth 0;
#X obj 113 155 list-idx;
#X obj 113 129 list;
#X obj 113 101 t b a;
#X obj 113 80 inlet;
#X obj 157 79 inlet;
#X obj 113 178 outlet;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 2 1 0 1;
#X connect 3 0 2 0;
#X connect 4 0 1 1;
#X restore 134 246 pd nth;
#X obj 318 217 list-len;
#X obj 446 84 b;
#X connect 0 0 20 0;
#X connect 1 0 21 2;
#X connect 2 0 24 2;
#X connect 3 0 24 1;
#X connect 4 0 9 0;
#X connect 4 0 15 0;
#X connect 5 0 28 0;
#X connect 9 0 12 0;
#X connect 9 1 17 0;
#X connect 12 0 11 0;
#X connect 12 0 17 0;
#X connect 14 0 23 0;
#X connect 15 0 20 0;
#X connect 17 0 26 0;
#X connect 18 0 7 0;
#X connect 18 1 27 0;
#X connect 18 2 26 1;
#X connect 20 0 14 0;
#X connect 21 0 18 0;
#X connect 22 0 17 1;
#X connect 22 1 19 0;
#X connect 23 0 24 3;
#X connect 23 1 21 4;
#X connect 24 0 25 0;
#X connect 25 0 12 1;
#X connect 25 1 10 0;
#X connect 26 0 24 0;
#X connect 27 0 22 0;
#X connect 28 0 21 0;

--- NEW FILE: count-bang.pd ---
#N canvas 228 124 259 270 10;
#X obj 30 44 inlet;
#X obj 91 44 inlet;
#X obj 30 187 outlet;
#X msg 91 78 0;
#X obj 30 122 +;
#X msg 30 78 1;
#X obj 59 122 f;
#X connect 0 0 5 0;
#X connect 1 0 3 0;
#X connect 3 0 6 0;
#X connect 4 0 6 0;
#X connect 4 0 2 0;
#X connect 5 0 4 0;
#X connect 6 0 4 1;

--- NEW FILE: scale-changer-help.pd ---
#N canvas 1 48 871 545 10;
#X text 196 136 change harmony;
#X msg 278 330 1 0 1 1 0 1 0 1 1 0 1 0;
#X msg 283 284 0 2 3 5 7 8 10;
#X text 287 307 active/inactive pitch classes;
#X text 288 263 current pitch classes;
#X msg 379 25 Harmony;
#X text 53 159 select rhythm;
#N canvas 63 44 340 273 register 0;
#X floatatom 131 141 0 0 0 0 - - -;
#X obj 38 207 outlet;
#X obj 38 171 brownian 3 8 0.3;
#X text 179 142 brown factor;
#X msg 131 107 0.3;
#X msg 163 107 0;
#X msg 194 107 1;
#X obj 131 76 sel 0 1;
#X obj 131 46 inlet;
#X obj 38 46 inlet;
#X connect 0 0 2 3;
#X connect 2 0 1 0;
#X connect 4 0 0 0;
#X connect 5 0 0 0;
#X connect 6 0 0 0;
#X connect 7 0 4 0;
#X connect 7 1 5 0;
#X connect 7 2 6 0;
#X connect 8 0 7 0;
#X connect 9 0 2 0;
#X restore 143 312 pd register;
#X floatatom 143 340 0 0 0 0 - - -;
#X obj 75 394 pitch2note 4;
#X text 482 134 < open to construct a specific start scale.;
#X obj 171 136 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 278 203 show;
#X obj 75 263 permutate;
#X obj 171 173 scale-changer;
#X obj 75 234 bng 15 50 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#N canvas 101 87 506 367 rhythm 0;
#N canvas 203 143 578 209 chords 0;
#X obj 23 95 repchord-rhythm 100 1000 12 6 0.8 0.2;
#X obj 23 37 inlet;
#X obj 23 131 outlet;
#X floatatom 458 68 0 0 0 0 - - -;
#X floatatom 385 68 0 0 0 0 - - -;
#X floatatom 313 68 0 0 0 0 - - -;
#X floatatom 240 68 0 0 0 0 - - -;
#X floatatom 168 68 0 0 0 0 - - -;
#X floatatom 95 68 0 0 0 0 - - -;
#X obj 23 68 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X text 95 52 min.ED;
#X text 168 52 max.ED;
#X text 239 52 ED-values;
#X text 451 39 periodicity of max.ED;
#X text 379 39 periodicity of min.ED;
#X text 306 39 max. chord size;
#X connect 0 0 2 0;
#X connect 1 0 9 0;
#X connect 3 0 0 6;
#X connect 4 0 0 5;
#X connect 5 0 0 4;
#X connect 6 0 0 3;
#X connect 7 0 0 2;
#X connect 8 0 0 1;
#X connect 9 0 0 0;
#X restore 265 136 pd chords;
#X obj 151 108 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#N canvas 106 198 524 257 rubato 0;
#X obj 35 150 outlet;
#X text 406 150 chosen ED;
#X text 234 150 row index;
#X floatatom 196 150 0 0 0 0 - - -;
#X floatatom 358 150 0 0 0 0 - - -;
#X obj 35 53 inlet;
#X obj 35 87 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X floatatom 275 91 0 0 0 0 - - -;
#X floatatom 355 91 0 0 0 0 - - -;
#X floatatom 195 91 0 0 0 0 - - -;
#X floatatom 115 91 0 0 0 0 - - -;
#X text 194 76 max. ED;
#X text 115 76 min. ED;
#X text 355 76 brownian factor;
#X text 275 76 ED-values;
#X text 325 201 max. ED;
#X text 193 201 min. ED;
#X obj 196 180 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 0 1;
#X obj 35 116 brown-rhythm 75 1000 24 0.07;
#X connect 3 0 17 0;
#X connect 5 0 6 0;
#X connect 6 0 18 0;
#X connect 7 0 18 3;
#X connect 8 0 18 4;
#X connect 9 0 18 2;
#X connect 10 0 18 1;
#X connect 18 0 0 0;
#X connect 18 1 3 0;
#X connect 18 2 4 0;
#X restore 151 136 pd rubato;
#X obj 38 108 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#N canvas 63 44 278 222 pulsation 0;
#X obj 39 53 inlet;
#X text 158 86 speed;
#X obj 39 147 outlet;
#X obj 39 112 metro 250;
#X floatatom 109 85 0 0 0 0 - - -;
#X obj 39 85 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X connect 0 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 3 1;
#X connect 5 0 3 0;
#X restore 38 136 pd pulsation;
#X obj 38 178 outlet;
#X obj 38 42 inlet;
#X obj 265 108 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 135 88 unpack 0 0 0;
#X msg 145 23 1 0 0;
#X msg 146 64 0 0 1;
#X msg 146 43 0 1 0;
#X msg 195 65 0 0 0;
#X obj 38 70 select 1 2 3;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 6 0 13 0;
#X connect 7 0 0 0;
#X connect 8 0 3 0;
#X connect 8 1 1 0;
#X connect 8 2 7 0;
#X connect 9 0 8 0;
#X connect 10 0 8 0;
#X connect 11 0 8 0;
#X connect 12 0 8 0;
#X connect 13 0 9 0;
#X connect 13 1 11 0;
#X connect 13 2 10 0;
#X connect 13 3 12 0;
#X restore 75 205 pd rhythm;
#N canvas 63 44 363 294 start-scale 0;
#X obj 44 36 inlet;
#X obj 44 63 sel 0 1 2 3 4 5;
#X msg 44 96 0 1 0 1 0 0 1 0 1 0 1 0;
#X msg 60 117 1 0 1 0 1 1 0 1 0 1 0 1;
#X msg 76 140 1 0 1 1 0 1 0 1 1 0 1 0;
#X msg 94 162 1 1 1 1 1 1 1 1 1 1 1 1;
#X obj 246 36 inlet;
#X msg 109 189 1 0 1 1 0 1 1 0 1 1 0 1;
#X obj 44 232 outlet;
#X msg 124 213 1 0 0 1 1 0 0 1 1 0 0 1;
#X msg 179 59 0;
#X obj 179 36 loadbang;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 1 2 4 0;
#X connect 1 3 5 0;
#X connect 1 4 7 0;
#X connect 1 5 9 0;
#X connect 2 0 8 0;
#X connect 3 0 8 0;
#X connect 4 0 8 0;
#X connect 5 0 8 0;
#X connect 6 0 8 0;
#X connect 7 0 8 0;
#X connect 9 0 8 0;
#X connect 10 0 1 0;
#X connect 11 0 10 0;
#X restore 341 143 pd start-scale;
#X obj 171 211 show;
#N canvas 396 226 538 308 construct-scale 0;
#X msg 410 153 0;
#X msg 410 103 clear;
#X obj 79 231 outlet;
#X obj 79 200 pack 0 0 0 0 0 0 0 0 0 0 0 0;
#X obj 249 170 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 79 170 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 100 170 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 121 170 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 142 170 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 185 170 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 206 170 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 227 170 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 312 170 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 291 170 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 164 170 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 270 170 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X text 52 25 Type in the desired scale...;
#X text 134 117 pitch class;
#X obj 49 116 t b a;
#X floatatom 49 97 5 0 0 0 - - -;
#X text 397 84 clear scale;
#X obj 79 141 sel 0 1 2 3 4 5 6 7 8 9 10 11;
#X obj 49 74 hradio 15 1 0 12 empty empty empty 0 -6 0 8 -262144 -1
-1 7;
#X connect 0 0 5 0;
#X connect 0 0 6 0;
#X connect 0 0 7 0;
#X connect 0 0 8 0;
#X connect 0 0 14 0;
#X connect 0 0 9 0;
#X connect 0 0 10 0;
#X connect 0 0 11 0;
#X connect 0 0 4 0;
#X connect 0 0 15 0;
#X connect 0 0 13 0;
#X connect 0 0 12 0;
#X connect 1 0 0 0;
#X connect 3 0 2 0;
#X connect 4 0 3 8;
#X connect 5 0 3 0;
#X connect 6 0 3 1;
#X connect 7 0 3 2;
#X connect 8 0 3 3;
#X connect 9 0 3 5;
#X connect 10 0 3 6;
#X connect 11 0 3 7;
#X connect 12 0 3 11;
#X connect 13 0 3 10;
#X connect 14 0 3 4;
#X connect 15 0 3 9;
#X connect 18 0 3 0;
#X connect 18 1 21 0;
#X connect 19 0 18 0;
#X connect 21 0 5 0;
#X connect 21 1 6 0;
#X connect 21 2 7 0;
#X connect 21 3 8 0;
#X connect 21 4 14 0;
#X connect 21 5 9 0;
#X connect 21 6 10 0;
#X connect 21 7 11 0;
#X connect 21 8 4 0;
#X connect 21 9 15 0;
#X connect 21 11 13 0;
#X connect 21 12 12 0;
#X connect 22 0 19 0;
#X restore 466 116 pd construct-scale;
#X text 19 53 Changes one single pitch of a given scale whenever you
send a bang to the left inlet. A start scale must be sent to the right
inlet frist - note its special format: a list of size 12 consisting
only of 0 and 1 where 1 means an active pitch class and 0 a inactive
one.;
#X text 18 24 scale-changer;
#X text 15 477 1996 by Karlheinz Essl;
#X obj 75 179 hradio 15 1 0 4 empty empty empty 0 -6 0 8 -262144 -1
-1 0;
#X obj 341 124 hradio 15 1 0 6 empty empty select_start_scale 0 -6
0 8 -262144 -1 -1 2;
#X obj 215 292 hradio 15 1 0 3 empty empty empty 0 -6 0 8 -262144 -1
-1 0;
#X obj 75 434 play2 127 500 1 1;
#X obj 75 286 t a a;
#X floatatom 183 403 5 0 0 0 - - -;
#X obj 143 365 + 0;
#X floatatom 173 367 5 0 0 1 octave - -;
#X connect 7 0 8 0;
#X connect 8 0 29 0;
#X connect 9 0 26 0;
#X connect 11 0 14 0;
#X connect 12 0 1 0;
#X connect 13 0 27 0;
#X connect 14 0 18 0;
#X connect 14 0 13 1;
#X connect 14 1 12 0;
#X connect 15 0 13 0;
#X connect 16 0 15 0;
#X connect 17 0 14 1;
#X connect 18 0 2 0;
#X connect 19 0 17 1;
#X connect 23 0 16 0;
#X connect 24 0 17 0;
#X connect 25 0 7 1;
#X connect 27 0 9 0;
#X connect 27 1 7 0;
#X connect 28 0 26 2;
#X connect 29 0 9 1;
#X connect 30 0 29 1;

--- NEW FILE: play-samp~-help.pd ---
#N canvas 424 240 594 423 10;
#X text 205 201 reversed \, attenuated;
#X obj 125 226 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X text 212 178 transposed \, attenuated;
#X msg 365 23 MSP-RTC;
#X text 24 325 1999 by Karlheinz Essl;
#X text 24 56 Plays one sample. The object requires a list sent to
its input with the following elements: transposition factor (float
between -N and N) - buffer name - gain factor (float between 0 an 1).
If 1 is sent to the right input \, the sample would loop until a 0
is sent.;
#X text 24 29 play-samp~;
#X text 154 156 original pitch \, original gain;
#X text 148 229 loop on/off;
#X text 25 127 NB: a negative transposition factor plays back the sample
backwards;
#X obj 48 226 play-samp~;
#X obj 266 283 openpanel;
#X obj 265 358 table play-samp;
#X msg 266 304 read -resize \$1 play-samp;
#X obj 266 330 soundfiler;
#X msg 48 159 1 play-samp 1;
#X msg 63 181 2.5 play-samp 0.25;
#X obj 266 256 bng 20 250 50 0 empty empty open-sample 0 -6 0 8 -262144
-1 -1;
#X obj 48 257 ezdac~;
#X msg 83 202 -1 play-samp 0.8;
#X connect 1 0 10 1;
#X connect 10 0 18 0;
#X connect 10 0 18 1;
#X connect 11 0 13 0;
#X connect 13 0 14 0;
#X connect 15 0 10 0;
#X connect 16 0 10 0;
#X connect 17 0 11 0;
#X connect 19 0 10 0;

--- NEW FILE: cp-pan~.pd ---
#N canvas 0 0 450 300 10;
#X text 264 126 0=left \, 1=right;
#X text 260 108 Arg. 1: Panning;
#X obj 117 110 expr cos($f1) \; sin($f1);
#X text 181 86 * ~M_PI/2;
#X obj 117 85 * 1.5708;
#X obj 39 172 *~ 0.7;
#X obj 120 172 *~ 0.7;
#X text 257 142 (not used currently);
#X obj 117 60 inlet;
#X obj 38 62 inlet~;
#X obj 39 203 outlet~;
#X obj 120 203 outlet~;
#X connect 2 0 5 1;
#X connect 2 1 6 1;
#X connect 4 0 2 0;
#X connect 5 0 10 0;
#X connect 6 0 11 0;
#X connect 8 0 4 0;
#X connect 9 0 5 0;
#X connect 9 0 6 0;

--- NEW FILE: play2.pd ---
#N canvas 212 148 843 390 10;
#X obj 304 309 r MIDI-channel;
#X obj 245 28 inlet;
#X obj 358 28 inlet;
#X obj 301 28 inlet;
#X obj 457 31 loadbang;
#X obj 410 30 inlet;
#X obj 523 33 inlet;
#X obj 410 56 int \$4;
#X obj 245 109 list prepend 0;
#X obj 245 130 route 0 1;
#X obj 245 73 makenote \$1 \$2;
#X obj 430 287 dac~;
#X obj 430 221 list prepend 1;
#X obj 430 189 pack 0 0;
#X text 597 191 1992-2000 by Karlheinz Essl;
#X text 598 209 vs 3.2;
#X obj 245 309 noteout;
#X obj 523 62 route float;
#X obj 59 71 hsl 64 15 0 1 0 0 empty empty volume 20 6 0 8 -262144
-1 -1 6300 1;
#X obj 352 110 * 1;
#X obj 430 262 fluid~;
#X msg 148 152 load \$1;
#X obj 148 127 openpanel;
#X obj 132 71 bng 15 250 50 0 empty empty load_sf2 20 6 0 8 -262144
-1 -1;
#X connect 0 0 16 2;
#X connect 1 0 10 0;
#X connect 2 0 10 2;
#X connect 3 0 10 1;
#X connect 4 0 7 0;
#X connect 5 0 7 0;
#X connect 6 0 17 0;
#X connect 7 0 8 1;
#X connect 8 0 9 0;
#X connect 9 0 16 0;
#X connect 9 1 13 0;
#X connect 10 0 8 0;
#X connect 10 1 19 0;
#X connect 12 0 20 0;
#X connect 13 0 12 0;
#X connect 17 0 12 1;
#X connect 17 0 16 2;
#X connect 17 1 20 0;
#X connect 18 0 19 1;
#X connect 19 0 16 1;
#X connect 19 0 13 1;
#X connect 20 0 11 0;
#X connect 20 1 11 1;
#X connect 21 0 20 0;
#X connect 22 0 21 0;
#X connect 23 0 22 0;
#X coords 0 -1 1 1 160 40 1 50 50;

--- NEW FILE: note2pitch-help.pd ---
#N canvas 3 48 305 389 10;
#X msg 196 24 Harmony;
#X text 103 182 key number;
#X floatatom 48 154 0 0 0 0 - - -;
#X obj 48 210 note2pitch;
#X floatatom 48 182 0 0 0 0 - - -;
#X text 103 154 note;
#X msg 81 110 pitch2note;
#X text 16 110 see also:;
#X text 16 62 Outputs the pitch
class <integer> (i.e. a note without register information) of a note
(i.e. key number) <int>.;
#X text 16 30 note2pitch;
#X text 16 338 1994 by Karlheinz
Essl;
#X msg 48 299 D#;
#X obj 48 270 show-pitchclass;
#X floatatom 48 241 0 0 0 0 - - -;
#X text 75 300 pitch class name
;
#X text 103 242 pitch class;
#X connect 2 0 4 0;
#X connect 3 0 13 0;
#X connect 4 0 3 0;
#X connect 12 0 11 0;
#X connect 13 0 12 0;

--- NEW FILE: alea-rhythm.pd ---
#N canvas 336 53 360 292 10;
#X obj 103 81 sel 1;
#X obj 45 40 inlet;
#X obj 148 40 inlet;
#X obj 238 40 inlet;
#X obj 193 40 inlet;
#X obj 45 171 metro 500;
#X obj 45 217 outlet;
#X obj 290 210 outlet;
#X obj 238 210 outlet;
#X text 44 248 1993-95 by Karlheinz Essl;
#X text 44 233 vs. 3;
#X obj 103 132 t a a;
#X obj 45 64 t a a;
#X obj 45 196 t b b;
#X obj 103 105 between-log \$1 \$2 \$3;
#X connect 0 0 14 0;
#X connect 1 0 12 0;
#X connect 2 0 14 1;
#X connect 3 0 14 3;
#X connect 4 0 14 2;
#X connect 5 0 13 0;
#X connect 11 0 5 1;
#X connect 11 1 7 0;
#X connect 12 0 5 0;
#X connect 12 1 0 0;
#X connect 13 0 6 0;
#X connect 13 1 14 0;
#X connect 14 0 11 0;
#X connect 14 1 8 0;

--- NEW FILE: brown-rhythm-help.pd ---
#N canvas 259 278 711 510 10;
#X text 65 76 Generates a brownian-movement-like rhythm of a geometrical
row of entry delays (ED) between a minimum and a maximum entry delay
and a certain number of ED-values. The brownian factor determines the
distance between two succeding rhythmical values. A factor of 0 produces
a periodic rhythm \, wheras a factor of 1 will output random values
of the given range.;
#X floatatom 409 340 8 0 0 3 chosen_ED - -;
#X floatatom 248 340 4 0 0 3 row_index - -;
#X obj 87 268 tgl 15 0 empty empty start/stop 0 -6 0 8 -262144 -1 -1
1 1;
#X floatatom 167 274 4 0 0 2 min_ED - -;
#X floatatom 247 274 4 0 0 2 max_ED - -;
#X floatatom 407 274 4 0 0 2 brownian_factor - -;
#X floatatom 327 274 4 0 0 2 ED-values - -;
#X msg 223 218 serial-rhythm;
#X msg 134 218 alea-rhythm;
#X text 68 219 see also:;
#X msg 322 218 sneak-rhythm;
#X obj 540 274 vsl 15 128 0 12 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 10583 1;
#X text 561 256 display;
#X text 567 275 max. ED;
#X text 567 377 min. ED;
#X obj 540 213 lb 12;
#X text 187 55 vs. 2;
#X text 51 55 brown-rhythm;
#X text 69 426 1993-94 by Karlheinz Essl;
#X obj 87 307 brown-rhythm 100 1000 12 0.25;
#X obj 129 351 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 540 238 range 0 \$1;
#X obj 87 376 QT-PercPlayer;
#X msg 87 340 60;
#X connect 2 0 12 0;
#X connect 3 0 20 0;
#X connect 4 0 20 1;
#X connect 5 0 20 2;
#X connect 6 0 20 4;
#X connect 7 0 20 3;
#X connect 7 0 22 0;
#X connect 16 0 22 0;
#X connect 20 0 24 0;
#X connect 20 0 21 0;
#X connect 20 1 2 0;
#X connect 20 2 1 0;
#X connect 22 0 12 0;
#X connect 24 0 23 0;

--- NEW FILE: transp-pitch.pd ---
#N canvas 50 61 213 250 10;
#X text 31 198 1994 by Karlheinz
Essl;
#X obj 35 160 outlet;
#X obj 111 48 inlet;
#X obj 35 96 + 0;
#X obj 35 51 inlet;
#X obj 35 135 mod 12;
#X connect 2 0 3 1;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;

--- NEW FILE: sneak-random-help.pd ---
#N canvas 275 331 568 424 10;
#X obj 58 147 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 438 251 RTC-seed;
#X text 259 251 vs. 1.1: seedable by the;
#X text 510 251 object;
#X text 20 30 sneak-random;
#X text 20 62 Outputs random number between 0 and n-1 whereas two consecutive
numbers are always neighbours.;
#X obj 221 147 vsl 15 128 0 127 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 10583 1;
#X obj 58 177 sneak-random 7;
#X text 259 236 1994-98 by Karlheinz Essl;
#X floatatom 58 209 0 0 0 0 - - -;
#X text 20 96 see also:;
#X msg 93 96 random;
#X msg 149 96 random-norep;
#X msg 243 96 xrandom;
#X msg 296 22 Chance;
#X text 211 128 display;
#X floatatom 151 151 4 0 0 1 n - -;
#N canvas 63 44 196 196 disp 0;
#X obj 29 124 outlet;
#X obj 96 38 inlet;
#X obj 96 67 - 1;
#X obj 29 53 inlet;
#X obj 29 90 expr_scale 0 6 0 127;
#X connect 1 0 2 0;
#X connect 2 0 4 2;
#X connect 3 0 4 0;
#X connect 4 0 0 0;
#X restore 19 114 pd disp;
#X text 208 43 vs. 1.1;
#X obj 58 291 collect;
#X obj 114 290 bng 15 250 50 1 empty empty clear 0 -6 0 8 -262144 -1
-1;
#X msg 58 311;
#X connect 0 0 7 0;
#X connect 7 0 9 0;
#X connect 9 0 17 0;
#X connect 9 0 19 0;
#X connect 16 0 17 1;
#X connect 16 0 7 1;
#X connect 17 0 6 0;
#X connect 19 0 21 0;
#X connect 20 0 19 1;

--- NEW FILE: alea-rhythm-help.pd ---
#N canvas 148 74 522 350 10;
#X msg 173 107 brown-rhythm;
#X msg 76 107 serial-rhythm;
#X text 10 107 see also:;
#X msg 48 222 60;
#X floatatom 290 222 4 0 0 3 ED - -;
#X text 10 62 Sends out rhythm bangs at random times from a geometrical
time row defined by a a min. and max. entry delay (ED) and a certain
number of ED-values.;
#X msg 271 107 sneak-rhythm;
#X floatatom 169 222 4 0 0 3 row_index - -;
#X text 10 30 alea-rhythm;
#X text 183 43 vs. 3;
#X obj 48 250 QT-PercPlayer;
#X text 10 300 1993-95 by Karlheinz Essl;
#X obj 48 193 alea-rhythm 100 1000 12;
#X floatatom 100 167 4 0 0 2 min_ED - -;
#X floatatom 152 167 4 0 0 2 max_ED - -;
#X floatatom 204 167 4 0 0 2 ED-values - -;
#X obj 48 149 tgl 15 0 empty empty start/stop 0 -6 0 8 -262144 -1 -1
1 1;
#X connect 3 0 10 0;
#X connect 12 0 3 0;
#X connect 12 1 7 0;
#X connect 12 2 4 0;
#X connect 13 0 12 1;
#X connect 14 0 12 2;
#X connect 15 0 12 3;
#X connect 16 0 12 0;

--- NEW FILE: last.pd ---
#N canvas 50 61 246 246 10;
#X obj 81 168 outlet;
#X obj 49 28 inlet;
#X obj 114 115 - 1;
#X obj 114 85 list-len;
#X obj 49 50 t a a;
#X obj 49 140 list split;
#X connect 1 0 4 0;
#X connect 2 0 5 1;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 4 1 3 0;
#X connect 5 1 0 0;

--- NEW FILE: cp-pan~-help.pd ---
#N canvas 185 195 580 429 10;
#X obj 44 166 noise~;
#X obj 43 264 ezdac~ 0;
#X floatatom 99 196 5 0 0 0 - - -;
#X obj 99 166 / 127;
#X text 23 80 See also:;
#X msg 89 79 sqrt-pan~;
#X obj 43 226 cp-pan~;
#X text 23 51 Constant power panner;
#X text 23 21 cp-pan~;
#X msg 260 21 Envelopes;
#X msg 264 316 Overview;
#X obj 102 141 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X text 105 123 L < < < M > > > R;
#X text 188 159 controller value;
#X text 20 334 2004 by Chris Dobrian;
#X obj 43 196 *~ 0.3;
#X connect 0 0 15 0;
#X connect 2 0 6 1;
#X connect 3 0 2 0;
#X connect 6 0 1 0;
#X connect 6 1 1 1;
#X connect 11 0 3 0;
#X connect 15 0 6 0;

--- NEW FILE: markov-rhythm.pd ---
#N canvas 63 44 361 374 10;
#X obj 56 51 inlet;
#X obj 124 229 outlet;
#X text 173 166 chosen index;
#X text 173 240 chosen ED;
#X obj 236 266 outlet;
#X obj 56 270 metro 1000;
#X obj 56 314 outlet;
#X obj 153 52 inlet;
#X obj 182 75 inlet;
#X obj 243 52 inlet;
#X text 101 337 1994 by Karlheinz Essl;
#X obj 124 128 markov \$1;
#X obj 206 234 t a a;
#X obj 56 292 t b b;
#X obj 124 160 t a a;
#X msg 76 95 bang;
#N canvas 0 0 450 300 nth 0;
#X obj 113 155 list-idx;
#X obj 113 129 list;
#X obj 113 101 t b a;
#X obj 113 80 inlet;
#X obj 157 79 inlet;
#X obj 113 178 outlet;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 2 1 0 1;
#X connect 3 0 2 0;
#X connect 4 0 1 1;
#X restore 206 199 pd nth;
#X connect 0 0 5 0;
#X connect 5 0 13 0;
#X connect 7 0 11 1;
#X connect 8 0 11 2;
#X connect 9 0 16 1;
#X connect 11 0 14 0;
#X connect 12 0 5 1;
#X connect 12 1 4 0;
#X connect 13 0 6 0;
#X connect 13 1 11 0;
#X connect 14 0 1 0;
#X connect 14 1 16 0;
#X connect 15 0 11 0;
#X connect 16 0 12 0;

--- NEW FILE: anti-octave&prime.pd ---
#N canvas 63 44 331 270 10;
#X obj 34 136 outlet;
#X obj 34 62 inlet;
#X obj 92 136 outlet;
#X text 34 194 1993 by Karlheinz Essl;
#X text 108 86 check for octaves;
#N canvas 517 208 637 374 check2 0;
#X obj 144 113 int;
#X obj 117 112 int;
#X obj 117 270 int;
#X obj 117 76 t a b a a;
#X obj 117 47 inlet;
#X obj 203 44 inlet;
#X obj 117 305 outlet;
#X obj 173 305 outlet;
#X text 259 123 if ($i1-$i2)%12==0 then out2 bang else $i1;
#X obj 117 155 -;
#X obj 117 190 % 12;
#X obj 117 214 == 0;
#X obj 173 281 bang;
#X obj 117 237 select 0 1;
#X connect 0 0 9 1;
#X connect 1 0 9 0;
#X connect 2 0 6 0;
#X connect 3 0 1 0;
#X connect 3 1 0 0;
#X connect 3 2 2 1;
#X connect 4 0 3 0;
#X connect 5 0 0 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 13 0;
#X connect 12 0 7 0;
#X connect 13 0 2 0;
#X connect 13 1 12 0;
#X restore 34 87 pd check2;
#X obj 34 110 t a a;
#X connect 1 0 5 0;
#X connect 5 0 6 0;
#X connect 5 1 2 0;
#X connect 6 0 0 0;
#X connect 6 1 5 1;

--- NEW FILE: lin2dB.pd ---
#N canvas 430 275 240 143 10;
#X obj 34 34 inlet;
#X obj 34 89 outlet;
#X text 60 91 1992 by Gerhard Eckel
;
#X obj 34 61 expr 20*log10($f1);
#X connect 0 0 3 0;
#X connect 3 0 1 0;

--- NEW FILE: inc-dec.pd ---
#N canvas 228 124 313 345 10;
#X obj 53 56 inlet;
#X obj 96 56 inlet;
#X obj 155 56 inlet;
#X obj 53 267 outlet;
#X obj 53 231 + 0;
#X obj 53 118 int 1;
#X obj 96 118 int -1;
#X obj 185 116 int 0;
#X obj 53 154 + 1;
#X obj 215 57 loadbang;
#X text 84 268 1994 by Karlheinz
Essl;
#X obj 155 84 t a b;
#X obj 53 185 int;
#X obj 53 86 b;
#X obj 96 82 b;
#X connect 0 0 13 0;
#X connect 1 0 14 0;
#X connect 2 0 11 0;
#X connect 4 0 3 0;
#X connect 5 0 8 0;
#X connect 6 0 8 0;
#X connect 7 0 8 1;
#X connect 8 0 12 0;
#X connect 9 0 7 0;
#X connect 11 0 4 1;
#X connect 11 1 7 0;
#X connect 12 0 8 1;
#X connect 12 0 4 0;
#X connect 13 0 5 0;
#X connect 14 0 6 0;

--- NEW FILE: pass-bang.pd ---
#N canvas 63 44 330 265 10;
#X obj 30 46 inlet;
#X obj 30 174 sel 1;
#X obj 30 210 outlet;
#X obj 120 25 inlet;
#X obj 120 118 - 1;
#X text 159 113 Leave it! Filters
out ints < 1;
#X text 58 213 vs. 1.1: 1994-95
by Karlheinz Essl;
#X obj 30 145 == \$1;
#X obj 120 46 t a b;
#X obj 30 104 f 0;
#X obj 59 104 + 1;
#X msg 46 78 0;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 1 0 11 0;
#X connect 3 0 8 0;
#X connect 4 0 7 1;
#X connect 7 0 1 0;
#X connect 8 0 4 0;
#X connect 8 1 11 0;
#X connect 9 0 10 0;
#X connect 9 0 7 0;
#X connect 10 0 9 1;
#X connect 11 0 9 1;

--- NEW FILE: show-pitchclass-help.pd ---
#N canvas 3 48 400 230 10;
#X text 86 139 pitch;
#X msg 40 139 1A;
#X obj 40 106 show-pitchclass;
#X text 20 178 2004 by Karlheinz
Essl;
#X text 20 23 show-pitchclass;
#X text 20 55 Shows the pitch class
of a MIDI note number.;
#X msg 280 23 Harmony;
#X floatatom 40 80 0 0 0 0 - - -;
#X text 86 81 MIDI note number;
#X connect 2 0 1 0;
#X connect 7 0 2 0;

--- NEW FILE: infinity-row.pd ---
#N canvas 99 53 582 454 10;
#X text 367 34 reset counter;
#X msg 81 68 0;
#X obj 54 38 inlet;
#X text 129 147 index;
#X obj 84 153 outlet;
#X obj 112 195 inlet;
#X obj 324 37 inlet;
#X obj 77 350 inlet;
#X obj 54 402 outlet;
#X obj 215 280 inlet;
#N canvas 63 44 692 333 tables 0;
#X obj 60 209 outlet;
#X obj 153 55 inlet;
#X obj 60 53 inlet;
#X msg 367 128 read \$1;
#X obj 367 101 openpanel;
#X msg 367 75 bang;
#X obj 367 155 s \$0-infrow;
#X obj 457 156 table \$0-infrow 1024;
#X obj 60 169 tabread \$0-infrow;
#X msg 462 117 read INFROW1024.tab;
#X obj 462 92 loadbang;
#X obj 60 104 list prepend 0;
#X obj 60 128 route 0 1 2;
#X text 112 150 add three more tables here!;
#X connect 1 0 11 1;
#X connect 2 0 11 0;
#X connect 3 0 6 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 8 0 0 0;
#X connect 9 0 6 0;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 12 0 8 0;
#X restore 54 249 pd tables;
#X obj 153 196 loadbang;
#X obj 54 314 * \$3;
#X obj 54 373 + \$1;
#X obj 112 222 int \$2;
#X obj 54 101 f 0;
#X obj 84 101 + 1;
#X obj 54 66 b;
#X obj 54 128 t a a;
#X obj 117 102 mod 1024;
#X text 122 349 1996: Implementation by K at rlheinz Essl and Peter Richter
\, after Per Noergaard;
#X connect 1 0 15 1;
#X connect 2 0 17 0;
#X connect 5 0 14 0;
#X connect 6 0 1 0;
#X connect 7 0 13 1;
#X connect 9 0 12 1;
#X connect 10 0 12 0;
#X connect 11 0 14 0;
#X connect 12 0 13 0;
#X connect 13 0 8 0;
#X connect 14 0 10 1;
#X connect 15 0 16 0;
#X connect 15 0 18 0;
#X connect 16 0 19 0;
#X connect 17 0 15 0;
#X connect 18 0 10 0;
#X connect 18 1 4 0;
#X connect 19 0 15 1;

--- NEW FILE: countdown.pd ---
#N canvas 430 211 283 344 10;
#X obj 30 279 outlet;
#X obj 78 39 inlet;
#X obj 59 245 outlet;
#X msg 78 112 1;
#X obj 78 67 t b f;
#X msg 103 112 0;
#X obj 111 244 sel 0;
#X obj 160 167 + 1;
#X obj 59 209 inc-dec;
#X obj 78 166 metro 1000;
#X text 60 283 © 1997 by Karlheinz
Essl;
#X connect 1 0 4 0;
#X connect 3 0 9 0;
#X connect 4 0 3 0;
#X connect 4 1 7 0;
#X connect 5 0 9 0;
#X connect 6 0 0 0;
#X connect 6 0 5 0;
#X connect 7 0 8 2;
#X connect 8 0 2 0;
#X connect 8 0 6 0;
#X connect 9 0 8 1;

--- NEW FILE: ED-trans-help.pd ---
#N canvas 3 48 446 404 10;
#X msg 26 217 stop;
#X text 20 114 vs. 1.2: a stop message sent to the right inlet immediately
stops the whole process.;
#X msg 363 23 Rhythm;
#X msg 85 147 rit-acc;
#X text 20 149 see also:;
#X text 21 58 Generates a transition between two entry delays (ED)
within a certain time span producing either a ritardando or an accelerando.
A number (= time in ms) sent to the leftmost inlet starts the process.
;
#X text 21 26 ED-trans;
#X msg 116 278 60;
#X obj 116 245 ED-trans 75 300;
#X floatatom 116 190 4 0 0 2 transition_time - -;
#X msg 65 217 5000;
#X floatatom 216 224 4 0 0 2 end_ED - -;
#X floatatom 166 210 4 0 0 2 start_ED - -;
#X floatatom 216 271 4 0 0 1 ED - -;
#X obj 116 311 QT-PercPlayer;
#X text 20 356 1993-97 by Karlheinz Essl;
#X text 153 40 vs. 1.2;
#X connect 0 0 8 0;
#X connect 7 0 14 0;
#X connect 8 0 7 0;
#X connect 8 1 13 0;
#X connect 9 0 8 0;
#X connect 10 0 8 0;
#X connect 11 0 8 2;
#X connect 12 0 8 1;

--- NEW FILE: brown-melody-help.pd ---
#N canvas 301 56 621 460 10;
#X text 35 62 Generates a brownian-mouvement-like melody within a given
ambitus. The distance between two notes is determined by the brownian
factor <0-1>. When this factor is 1 \, each note of the given range
can be choosen. When the rate is O \, the same note will be always
repeated. The right outlet shows the chosen interval.;
#X text 35 31 brown-melody;
#X msg 475 52 Harmony;
#X obj 68 298 brown-melody 24 108 0.1;
#X floatatom 240 264 4 0 0 2 highest_note - -;
#X floatatom 153 264 4 0 0 2 lowest_note - -;
#X floatatom 332 262 4 0 0 2 brown_factor - -;
#X obj 68 230 metro 200;
#X obj 68 194 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X floatatom 68 335 4 0 0 1 note - -;
#X floatatom 224 329 4 0 0 1 interval - -;
#X text 330 381 1993 by Karlheinz Essl;
#X obj 68 263 bng 15 250 50 0 empty empty rhythm_bangs 0 -6 0 8 -262144
-1 -1;
#X text 330 395 vs.2: right outlet shows interval;
#X text 35 152 see also:;
#X msg 100 152 brownian;
#X text 240 41 (vs. 2);
#X floatatom 126 202 5 50 2000 2 speed - -;
#X obj 68 388 play2 127 500 0 1;
#X connect 3 0 9 0;
#X connect 3 1 10 0;
#X connect 4 0 3 2;
#X connect 5 0 3 1;
#X connect 6 0 3 3;
#X connect 7 0 12 0;
#X connect 8 0 7 0;
#X connect 9 0 18 0;
#X connect 12 0 3 0;
#X connect 17 0 7 1;

--- NEW FILE: brownian.pd ---
#N canvas 194 51 575 529 10;
#X obj 36 167 r RTC-rs;
#X msg 36 193 seed \$1;
#X obj 413 159 * 65000;
#X obj 101 227 drunk 65000;
#X obj 101 27 inlet;
#X obj 101 255 / 65000;
#X obj 318 27 inlet;
#X obj 225 27 inlet;
#X obj 413 27 inlet;
#X obj 101 356 * 1;
#X obj 101 452 outlet;
#X obj 101 384 + \$1;
#X obj 413 106 f \$3;
#X text 378 454 1993-98 by Gerhard Eckel;
#X text 379 472 vs. 1.1;
#X obj 101 418 int-or-float \$4;
#X obj 201 383 f \$1;
#X obj 201 348 loadbang;
#X obj 236 383 f \$2;
#X obj 426 78 loadbang;
#X obj 101 73 t b b;
#X obj 255 233 expr $f2 - $f1;
#X obj 318 130 t b f;
#X obj 225 108 f \$1;
#X obj 318 106 f \$2;
#X obj 225 133 t f f;
#X obj 239 50 loadbang;
#X obj 239 74 t b b;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 3 2;
#X connect 3 0 5 0;
#X connect 4 0 20 0;
#X connect 5 0 9 0;
#X connect 6 0 24 0;
#X connect 7 0 23 0;
#X connect 8 0 12 0;
#X connect 9 0 11 0;
#X connect 11 0 15 0;
#X connect 12 0 2 0;
#X connect 15 0 10 0;
#X connect 16 0 15 1;
#X connect 17 0 16 0;
#X connect 17 0 18 0;
#X connect 18 0 15 1;
#X connect 19 0 12 0;
#X connect 20 0 3 0;
#X connect 21 0 9 1;
#X connect 22 0 21 0;
#X connect 22 1 21 1;
#X connect 23 0 25 0;
#X connect 24 0 22 0;
#X connect 25 0 11 1;
#X connect 25 1 21 0;
#X connect 26 0 27 0;
#X connect 27 0 23 0;
#X connect 27 1 24 0;

--- NEW FILE: intv2ratio-help.pd ---
#N canvas 3 48 373 313 10;
#X floatatom 55 128 4 0 0 1 interval - -;
#X obj 55 158 intv2ratio;
#X text 20 234 1994 by Karlheinz Essl;
#X text 20 58 Converts an interval (int = tempered or float = any mirco-interval)
into a ratio.;
#X text 20 26 intv2ratio;
#X floatatom 55 194 4 0 0 1 ratoi - -;
#X text 130 195 ratio;
#X msg 86 90 ratio2intv;
#X text 20 90 see also:;
#X msg 195 23 Harmony;
#X connect 0 0 1 0;
#X connect 1 0 5 0;

--- NEW FILE: choice-rhythm-help.pd ---
#N canvas 120 110 867 429 10;
#X text 53 26 choice-rhythm;
#X text 51 132 see also:;
#X msg 120 133 alea;
#X text 50 362 1993 by Karlheinz Essl;
#X obj 562 134 loadbang;
#X obj 94 186 tgl 15 0 empty empty start/stop 0 -6 0 8 -262144 -1 -1
1 1;
#X obj 592 245 bng 15 250 50 0 empty empty clear 0 -6 0 8 -262144 -1
-1;
#X msg 569 305 1 9 8;
#X obj 569 266 show;
#X floatatom 216 262 0 0 0 3 length_of_chosen_list - -;
#X floatatom 155 264 5 0 0 3 ED - -;
#X obj 94 227 choice-rhythm 100 1000 12 6;
#X floatatom 175 172 4 0 0 2 min_ED - -;
#X floatatom 226 172 4 0 0 2 max_ED - -;
#X msg 94 266 60;
#X floatatom 348 172 4 0 0 2 max_list_size - -;
#X floatatom 278 172 4 0 0 2 ED-values - -;
#X obj 562 190 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 94 305 QT-PercPlayer;
#X text 522 323 list of chosen indices;
#X obj 562 152 t b b;
#X text 447 188 make new choice:;
#X text 53 58 First a supply of rhythmical values (ED = entry delays)
is generated. Whenever a bang is sent to the rightmost inlet \, a choice
of the indices from this supply is made which serves as a choice list
for a random ("alea") selection of EDs.;
#X connect 4 0 20 0;
#X connect 5 0 11 0;
#X connect 6 0 8 1;
#X connect 8 0 7 0;
#X connect 11 0 14 0;
#X connect 11 1 10 0;
#X connect 11 2 9 0;
#X connect 11 3 8 0;
#X connect 12 0 11 1;
#X connect 13 0 11 2;
#X connect 14 0 18 0;
#X connect 15 0 11 4;
#X connect 16 0 11 3;
#X connect 17 0 11 5;
#X connect 20 0 17 0;
#X connect 20 1 6 0;

--- NEW FILE: ED-rhythm-help.pd ---
#N canvas 137 65 669 548 10;
#X obj 89 328 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 89 256 tgl 15 0 empty empty start/stop 0 -6 0 8 -262144 -1 -1
1 1;
#X text 43 29 ED-rhythm;
#X text 40 146 see also:;
#X obj 438 210 loadbang;
#X msg 438 237 500 166 166 166 250 250;
#X msg 107 145 alea-rhythm;
#X msg 289 145 brown-rhythm;
#X msg 193 145 serial-rhythm;
#X msg 388 145 sneak-rhythm;
#X obj 159 329 bng 15 250 50 0 empty empty supply_exhausted 0 26 0
8 -262144 -1 -1;
#X floatatom 266 332 4 0 0 3 ED - -;
#X floatatom 113 329 4 0 0 3 index - -;
#X msg 438 266 600 400 200;
#X text 532 268 ED lists;
#X text 237 414 1995-2004 by Karlheinz Essl;
#X text 188 41 vs. 1.2;
#X obj 89 294 ED-rhythm 3;
#X obj 89 398 QT-PercPlayer;
#X text 43 63 Creates a rhythm by selecting entry delays supplied by
a list of entry delays which has to be sent to the rightmost inlet.
The selection is achieved by one of the possible selection mechanisms
alea (=1) \, series (=2) \, sequence (=3) and rota ==4) which is the
argument of this function.;
#X floatatom 158 270 5 0 0 0 - - -;
#X msg 89 365 70;
#X text 121 182 selection principle (1-4);
#N canvas 556 269 497 418 sel_princ 0;
#X msg 231 228 1 alea;
#X msg 231 247 2 series;
#X msg 231 267 3 sequence;
#X msg 231 289 4 rota;
#X obj 231 318 list split 1;
#X obj 231 373 outlet;
#X obj 112 61 loadbang;
#X obj 112 192 select 1 2 3 4;
#X obj 112 171 + 1;
#X obj 112 123 hradio 15 1 0 4 empty empty empty 0 -6 0 8 -262144 -1
-1 1;
#X msg 112 82 2;
#X symbolatom 108 143 10 0 0 0 - - -;
#X connect 0 0 4 0;
#X connect 1 0 4 0;
#X connect 2 0 4 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 11 0;
#X connect 6 0 10 0;
#X connect 7 0 0 0;
#X connect 7 1 1 0;
#X connect 7 2 2 0;
#X connect 7 3 3 0;
#X connect 8 0 7 0;
#X connect 9 0 8 0;
#X connect 10 0 9 0;
#X coords 0 -1 1 1 90 65 1 100 100;
#X restore 159 203 pd sel_princ;
#X connect 0 0 21 0;
#X connect 1 0 17 0;
#X connect 4 0 5 0;
#X connect 5 0 17 2;
#X connect 13 0 17 2;
#X connect 17 0 0 0;
#X connect 17 1 12 0;
#X connect 17 2 10 0;
#X connect 17 3 11 0;
#X connect 21 0 18 0;
#X connect 23 0 17 1;
#X connect 23 0 20 0;

--- NEW FILE: normalize-row.pd ---
#N canvas 265 103 230 218 10;
#X obj 38 166 outlet;
#X obj 38 19 inlet;
#X obj 38 134 transpose-row;
#X text 38 190 1994 by Karlheinz Essl;
#X obj 38 81 list split 1;
#X obj 38 110 * -1;
#X obj 38 54 t a a;
#X connect 1 0 6 0;
#X connect 2 0 0 0;
#X connect 4 0 5 0;
#X connect 5 0 2 0;
#X connect 6 0 4 0;
#X connect 6 1 2 1;

--- NEW FILE: markov.pd ---
#N canvas 0 0 531 456 10;
#X obj 226 326 outlet;
#X obj 105 326 outlet;
#N canvas 390 143 364 293 switcher 0;
#X obj 71 84 inlet;
#X obj 115 84 inlet;
#X obj 72 245 outlet;
#X obj 123 247 outlet;
#X obj 71 118 b;
#X msg 115 114 0;
#X obj 72 180 select 0;
#X obj 72 144 f 0;
#X msg 102 145 1;
#X obj 72 209 t b b;
#X obj 123 211 b;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 4 0 7 0;
#X connect 5 0 7 1;
#X connect 6 0 9 0;
#X connect 6 1 10 0;
#X connect 7 0 6 0;
#X connect 8 0 7 1;
#X connect 9 0 2 0;
#X connect 9 1 8 0;
#X connect 10 0 3 0;
#X restore 105 190 pd switcher;
#X obj 177 262 prob;
#X obj 105 97 inlet;
#X obj 177 97 inlet;
#X obj 295 99 inlet;
#X obj 105 234 int \$1;
#X obj 105 258 t a a;
#X obj 177 124 t b a a;
#X obj 295 129 t b a;
#X connect 2 0 7 0;
#X connect 2 1 3 0;
#X connect 3 0 1 0;
#X connect 3 1 0 0;
#X connect 4 0 2 0;
#X connect 5 0 9 0;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 1 0;
#X connect 8 1 3 0;
#X connect 9 0 2 1;
#X connect 9 1 7 1;
#X connect 9 2 3 0;
#X connect 10 0 2 1;
#X connect 10 1 3 0;

--- NEW FILE: random-ramp-urn.pd ---
#N canvas 549 327 580 382 10;
#X obj 39 41 inlet;
#N canvas 260 206 902 384 choose-parameters 0;
#X obj 54 30 inlet;
#X obj 216 30 inlet;
#X obj 135 30 inlet;
#X obj 298 30 inlet;
#X obj 653 30 inlet;
#X obj 561 30 inlet;
#X obj 470 30 inlet;
#X obj 54 186 outlet;
#X obj 379 186 outlet;
#X obj 54 59 t b b;
#X obj 379 156 anti-bis;
#X obj 54 133 between-lin-urn \$1 \$2 \$3;
#X obj 379 133 between-log-urn \$4 \$5 \$6;
#X obj 447 156 b;
#X obj 54 161 anti-bis;
#X obj 122 161 b;
#X connect 0 0 9 0;
#X connect 1 0 11 2;
#X connect 2 0 11 1;
#X connect 3 0 11 3;
#X connect 4 0 12 3;
#X connect 5 0 12 2;
#X connect 6 0 12 1;
#X connect 9 0 11 0;
#X connect 9 1 12 0;
#X connect 10 0 8 0;
#X connect 10 1 13 0;
#X connect 11 0 14 0;
#X connect 12 0 10 0;
#X connect 13 0 12 0;
#X connect 14 0 7 0;
#X connect 14 1 15 0;
#X connect 15 0 11 0;
#X restore 163 157 pd choose-parameters;
#X obj 248 24 inlet;
#X obj 300 24 inlet;
#X obj 453 24 inlet;
#X obj 505 24 inlet;
#X obj 402 24 inlet;
#X obj 351 24 inlet;
#X obj 39 266 int;
#X obj 39 323 outlet;
#X obj 342 276 outlet;
#X msg 89 192 stop;
#X obj 289 276 outlet;
#X obj 39 129 route bang stop;
#X obj 142 25 first-bang;
#X text 241 323 1994 by Karlheinz Essl;
#X obj 214 127 i \$1;
#X obj 265 127 i \$2;
#X obj 316 127 i \$3;
#X obj 368 127 i \$4;
#X obj 419 127 i \$5;
#X obj 470 127 i \$6;
#X obj 39 295 change;
#X obj 163 298 line;
#X obj 163 244 pack 0 0;
#X obj 163 267 t a b;
#X obj 298 183 t a a a;
#X obj 209 269 del 30;
#X obj 163 199 t a a;
#X obj 142 59 t b b b b b b b;
#X obj 39 161 t a a;
#X connect 0 0 13 0;
#X connect 1 0 28 0;
#X connect 1 1 26 0;
#X connect 2 0 16 0;
#X connect 3 0 17 0;
#X connect 4 0 20 0;
#X connect 5 0 21 0;
#X connect 6 0 19 0;
#X connect 7 0 18 0;
#X connect 8 0 22 0;
#X connect 11 0 23 0;
#X connect 11 0 27 0;
#X connect 13 0 30 0;
#X connect 13 1 11 0;
#X connect 13 1 14 1;
#X connect 14 0 29 0;
#X connect 16 0 1 1;
#X connect 17 0 1 2;
#X connect 18 0 1 3;
#X connect 19 0 1 4;
#X connect 20 0 1 5;
#X connect 21 0 1 6;
#X connect 22 0 9 0;
#X connect 23 0 8 1;
#X connect 24 0 25 0;
#X connect 25 0 23 0;
#X connect 25 1 27 0;
#X connect 26 0 24 1;
#X connect 26 1 27 1;
#X connect 26 2 10 0;
#X connect 27 0 1 0;
#X connect 28 0 24 0;
#X connect 28 1 12 0;
#X connect 29 0 1 0;
#X connect 29 1 16 0;
#X connect 29 2 17 0;
#X connect 29 3 18 0;
#X connect 29 4 19 0;
#X connect 29 5 20 0;
#X connect 29 6 21 0;
#X connect 30 0 8 0;
#X connect 30 1 14 0;

--- NEW FILE: rota.pd ---
#N canvas 416 100 450 412 10;
#X msg 256 81 0;
#X obj 63 54 inlet;
#X obj 256 55 inlet;
#X obj 63 350 outlet;
#X obj 204 353 outlet;
#X obj 177 54 inlet;
#X text 91 293 1996 by Karlheinz
Essl;
#X obj 177 88 list-len;
#X obj 63 144 b;
#N canvas 0 0 626 422 updown-counter 0;
#X obj 163 233 f 0;
#X obj 197 234 + 1;
#X obj 237 235 mod 1;
#X floatatom 341 151 5 0 0 0 - - -;
#X obj 163 256 t a a;
#X obj 280 193 t a a a;
#X obj 243 259 select;
#X obj 299 260 select 0;
#X obj 302 232 - 1;
#X msg 213 189 -1;
#X msg 241 189 1;
#X obj 163 121 inlet;
#X obj 205 122 inlet;
#X obj 280 122 inlet;
#X msg 205 145 0;
#X obj 163 160 b;
#X text 164 99 bng;
#X text 204 102 reset;
#X text 282 101 modmax;
#X obj 163 290 outlet;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 2 0 0 1;
#X connect 3 0 5 0;
#X connect 4 0 1 0;
#X connect 4 0 19 0;
#X connect 4 1 6 0;
#X connect 5 0 2 1;
#X connect 5 1 8 0;
#X connect 6 0 9 0;
#X connect 6 1 7 0;
#X connect 7 0 10 0;
#X connect 8 0 6 1;
#X connect 9 0 1 1;
#X connect 10 0 1 1;
#X connect 11 0 15 0;
#X connect 12 0 14 0;
#X connect 13 0 5 0;
#X connect 14 0 0 1;
#X connect 15 0 0 0;
#X restore 63 177 pd updown-counter;
#X obj 63 318 list-idx;
#X obj 63 292 list;
#X obj 63 209 t b a a;
#X connect 0 0 9 1;
#X connect 1 0 8 0;
#X connect 2 0 0 0;
#X connect 5 0 7 0;
#X connect 5 0 11 1;
#X connect 7 0 9 2;
#X connect 8 0 9 0;
#X connect 9 0 12 0;
#X connect 10 0 3 0;
#X connect 11 0 10 0;
#X connect 12 0 11 0;
#X connect 12 1 10 1;
#X connect 12 2 4 0;

--- NEW FILE: anti-bis.pd ---
#N canvas 0 0 450 300 10;
#X obj 202 140 ==;
#X obj 202 106 t a a a;
#X obj 202 163 select 0 1;
#X obj 264 195 outlet;
#X obj 203 83 inlet;
#X obj 206 233 outlet;
#X obj 201 199 f;
#X connect 0 0 2 0;
#X connect 1 0 0 1;
#X connect 1 1 0 0;
#X connect 1 2 6 1;
#X connect 2 0 6 0;
#X connect 2 1 3 0;
#X connect 4 0 1 0;
#X connect 6 0 5 0;

--- NEW FILE: ms2sec.pd ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: pitch2note-help.pd ---
#N canvas 3 48 502 424 10;
#X msg 230 24 Harmony;
#X floatatom 45 220 4 0 0 1 key_number - -;
#X obj 45 250 play2 127 500 1 1;
#X text 38 334 vs. 1.1: argument added;
#X msg 86 94 note2pitch;
#X text 21 94 see also:;
#X obj 45 162 pitch2note 4;
#X floatatom 45 196 4 0 0 1 note - -;
#X floatatom 45 135 4 0 0 2 pitch_class - -;
#X floatatom 140 134 4 0 0 2 register - -;
#X text 38 318 1993-96 by Karlheinz Essl;
#X text 21 30 pitch2note;
#X text 21 62 Combines pitch class and register into a note (i.e. MIDI
key number).;
#X connect 1 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 1 0;
#X connect 8 0 6 0;
#X connect 9 0 6 1;

--- NEW FILE: permutate-row-help.pd ---
#N canvas 0 48 633 373 10;
#X obj 124 153 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 28 25 permutate-row;
#X text 294 127 row of Anton Webern \, op. 28;
#X msg 210 153 10 9 0 11 3 4 1 2 6 5 8 7;
#X text 38 264 1994 by Karlheinz Essl;
#X obj 124 210 print permutate-row;
#X obj 210 123 loadbang;
#X text 275 213 Watch the MAX-window!;
#X text 27 43 Permutates a given row using its own structure as a permutation
program.;
#X text 28 72 NB: The given row must be a twelve-note-row which smallest
index is 0;
#X text 45 135 make new permutation!;
#X msg 385 23 Dodecaphonics;
#X obj 124 178 permutate-row;
#X connect 0 0 12 0;
#X connect 3 0 12 1;
#X connect 6 0 3 0;
#X connect 12 0 5 0;

--- NEW FILE: metro-dev%-help.pd ---
#N canvas 349 428 467 379 10;
#X text 19 14 metro-dev%;
#X obj 44 146 tgl 15 0 empty empty start/stop 0 -6 0 8 -262144 -1 -1
1 1;
#X msg 44 241 60;
#X obj 44 205 metro-dev% 500 15;
#X text 24 327 1993 by Karlheinz Essl;
#X text 21 111 see also:;
#X msg 88 111 metro;
#X obj 44 275 QT-PercPlayer;
#X floatatom 158 180 4 0 0 2 deviation(%) - -;
#X floatatom 101 163 4 0 0 2 basic_speed - -;
#X text 131 147;
#X floatatom 158 241 4 0 0 1 ED - -;
#X text 19 46 Introduces irregularities to an equal pulsation by deviating
from a given pulsation speed ("in galit" \, "rubato" \, human feeling).
;
#X connect 1 0 3 0;
#X connect 2 0 7 0;
#X connect 3 0 2 0;
#X connect 3 1 11 0;
#X connect 8 0 3 2;
#X connect 9 0 3 1;

--- NEW FILE: note2cents-help.pd ---
#N canvas 1 48 418 297 10;
#X text 19 28 note2cents;
#X text 19 59 Shows how many cents
a microtonal note <float> is deviating from a tempered one.;
#X text 19 249 1994 by Karlheinz
Essl;
#X floatatom 44 111 0 0 0 0 - - -;
#X obj 44 142 note2cents;
#X text 90 112 MIDI note number
<float>;
#X floatatom 44 176 0 0 0 0 - - -;
#X floatatom 270 175 0 0 0 0 - - -;
#X text 319 176 cents;
#X floatatom 44 206 0 0 0 0 - - -;
#X text 94 207 MIDI note name;
#X text 94 177 MIDI note number
<int>;
#X msg 305 23 Harmony;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 4 1 7 0;
#X connect 6 0 9 0;

--- NEW FILE: show.pd ---
#N canvas 50 61 240 179 10;
#X obj 41 39 inlet;
#X obj 186 36 inlet;
#X obj 41 124 outlet;
#X msg 186 76 set;
#X obj 41 59 list prepend set;
#X obj 41 83 list trim;
#X connect 0 0 4 0;
#X connect 1 0 3 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 5 0 2 0;

--- NEW FILE: trans-lin.pd ---
#N canvas 21 111 840 557 10;
#X obj 106 69 inlet;
#X obj 216 69 inlet;
#X obj 289 69 inlet;
#X obj 383 69 inlet;
#X obj 147 69 loadbang;
#X obj 147 95 delay 2;
#X text 133 433 1993/94 by Karlheinz
Essl;
#X obj 106 400 expr $f1*$f3 + $f2;
#X obj 216 369 expr ($f2-$f1)/$i3;
#X obj 216 338 f \$1;
#X obj 310 338 f \$2;
#X obj 289 277 t b f;
#X obj 428 260 i \$3;
#X obj 383 260 t b f;
#X obj 413 341 i;
#X obj 413 289 sel 0;
#X msg 413 312 1;
#X obj 106 432 outlet;
#X obj 147 130 t b b b;
#X obj 216 276 t f b b;
#X connect 0 0 7 0;
#X connect 1 0 19 0;
#X connect 2 0 11 0;
#X connect 3 0 13 0;
#X connect 4 0 5 0;
#X connect 5 0 18 0;
#X connect 7 0 17 0;
#X connect 8 0 7 2;
#X connect 9 0 7 1;
#X connect 9 0 8 0;
#X connect 10 0 8 1;
#X connect 11 0 9 0;
#X connect 11 1 10 0;
#X connect 12 0 15 0;
#X connect 13 0 9 0;
#X connect 13 1 15 0;
#X connect 14 0 8 2;
#X connect 15 0 16 0;
#X connect 15 1 14 0;
#X connect 16 0 14 0;
#X connect 18 0 9 0;
#X connect 18 1 10 0;
#X connect 18 2 12 0;
#X connect 19 0 9 0;
#X connect 19 1 10 0;
#X connect 19 2 14 0;

--- NEW FILE: frq2note-help.pd ---
#N canvas 3 48 519 404 10;
#X floatatom 36 122 0 0 0 0 - - -;
#X msg 85 76 note2frq;
#X msg 406 29 Harmony;
#X text 19 77 see also:;
#X text 19 56 Converts frequency into a note (= MIDI key number).;
#X text 19 24 frq2note;
#X obj 36 151 frq2note;
#X text 84 218 MIDI note number;
#X text 84 250 note name;
#X floatatom 36 249 4 0 0 0 - - -;
#X text 248 219 + Cents;
#X floatatom 200 218 4 0 0 0 - - -;
#X floatatom 36 217 4 0 0 0 - - -;
#X obj 36 183 note2cents;
#X text 16 352 1994 by Gerhard Eckel & Karlheinz Essl;
#X text 99 123 frequency;
#X floatatom 132 177 5 0 0 0 - - -;
#X connect 0 0 6 0;
#X connect 6 0 13 0;
#X connect 6 0 16 0;
#X connect 12 0 9 0;
#X connect 13 0 12 0;
#X connect 13 1 11 0;

--- NEW FILE: between.pd ---
#N canvas 479 57 596 543 10;
#X msg 49 88 seed \$1;
#X obj 49 41 r RTC-rs;
#X obj 119 373 outlet;
#X obj 330 41 inlet;
#X obj 255 41 inlet;
#X obj 119 41 inlet;
#X obj 119 105 random 65536;
#X obj 119 291 * 1;
#X obj 119 138 / 65536;
#X obj 119 324 + \$1;
#X obj 314 209 f \$1;
#X obj 407 208 f \$2;
#X obj 410 136 loadbang;
#X obj 314 239 expr $f2 - $f1;
#X obj 255 70 t a a;
#X obj 119 69 b;
#X obj 330 70 t b a;
#X obj 410 160 t b b b;
#X obj 219 316 f \$1;
#X obj 256 316 f \$2;
#X obj 219 293 loadbang;
#X obj 119 346 int-or-float \$3;
#X text 190 397 1992 by Gerhard Eckel;
#X text 189 420 vs 1.1;
#X connect 0 0 6 0;
#X connect 1 0 0 0;
#X connect 3 0 16 0;
#X connect 4 0 14 0;
#X connect 5 0 15 0;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 9 0 21 0;
#X connect 10 0 13 0;
#X connect 11 0 13 1;
#X connect 12 0 17 0;
#X connect 13 0 7 1;
#X connect 14 0 9 1;
#X connect 14 1 10 0;
#X connect 15 0 6 0;
#X connect 16 0 10 0;
#X connect 16 1 11 0;
#X connect 17 0 10 0;
#X connect 17 1 11 0;
#X connect 18 0 21 1;
#X connect 19 0 21 1;
#X connect 20 0 18 0;
#X connect 20 0 19 0;
#X connect 21 0 2 0;

--- NEW FILE: @.pd ---
#N canvas 308 131 301 286 10;
#X obj 39 162 * 1;
#X obj 39 218 outlet;
#X obj 39 131 / 127;
#X obj 39 67 t f b;
#X obj 39 41 inlet;
#X obj 95 105 f \$2;
#X obj 95 131 - \$1;
#X obj 39 189 + \$1;
#X text 109 207 1992-96 by Gerhard Eckel;
#X text 109 226 vs 1.1;
#X connect 0 0 7 0;
#X connect 2 0 0 0;
#X connect 3 0 2 0;
#X connect 3 1 5 0;
#X connect 4 0 3 0;
#X connect 5 0 6 0;
#X connect 6 0 0 1;
#X connect 7 0 1 0;

--- NEW FILE: brown-melody.pd ---
#N canvas 537 406 270 268 10;
#X obj 50 193 outlet;
#X obj 123 194 outlet;
#X obj 123 166 note2st;
#X obj 164 39 inlet;
#X obj 126 39 inlet;
#X obj 88 39 inlet;
#X obj 50 39 inlet;
#X obj 50 101 anti-octave;
#X text 48 220 1993 by Karlheinz Essl;
#X text 50 234 vs. 2;
#X obj 50 66 brownian \$1 \$2 \$3;
#X obj 50 126 t a a;
#X connect 2 0 1 0;
#X connect 3 0 10 3;
#X connect 4 0 10 2;
#X connect 5 0 10 1;
#X connect 6 0 10 0;
#X connect 7 0 11 0;
#X connect 7 1 10 0;
#X connect 10 0 7 0;
#X connect 11 0 0 0;
#X connect 11 1 2 0;

--- NEW FILE: st2pitch-help.pd ---
#N canvas 229 99 425 453 10;
#X msg 316 24 Harmony;
#X text 128 31 vs. 2;
#X obj 155 312 play2 127 500 1 1;
#X text 8 394 vs.2: newly added second outlet shows the note (i.e.
pitch class with register);
#X text 64 344 pitch class;
#X msg 30 343;
#X text 8 378 1993-94 by Karlheinz Essl;
#X obj 30 312 show-pitchclass;
#X obj 155 246 bng 15 250 50 0 empty empty reset 0 -6 0 8 -262144 -1
-1;
#X floatatom 155 219 4 0 0 1 key_number - -;
#X floatatom 155 198 4 0 0 1 start_note - -;
#X obj 30 251 st2pitch 60;
#X floatatom 30 283 4 0 0 1 pitch_class - -;
#X floatatom 30 215 4 0 0 1 interval - -;
#X obj 30 179 between -6 6;
#X obj 30 141 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 155 283 4 0 0 1 note - -;
#X text 10 114 see also:;
#X msg 76 114 note2st;
#X text 10 17 st2pitch;
#X text 10 50 Accumulates incoming intervals and outputs pitch classes
(i.e. notes without register information) at the left outlet resp.
notes (= MIDI note numbers) at the right outlet.;
#X connect 7 0 5 0;
#X connect 8 0 11 1;
#X connect 9 0 11 1;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 11 1 16 0;
#X connect 12 0 7 0;
#X connect 13 0 11 0;
#X connect 14 0 13 0;
#X connect 15 0 14 0;
#X connect 16 0 2 0;

--- NEW FILE: key-bang2.pd ---
#N canvas 50 61 261 188 10;
#X obj 71 46 inlet;
#X obj 34 132 outlet;
#X text 59 135 1997-98 by Karlheinz
Essl;
#X obj 34 46 key;
#X obj 34 76 sel \$1;
#X obj 34 103 i \$2;
#X connect 0 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 1 0;

--- NEW FILE: butfirst-help.pd ---
#N canvas 546 193 456 374 10;
#X obj 106 208 bng 15 250 50 1 empty empty clear_display 0 -6 0 8 -262144
-1 -1;
#X obj 65 207 show;
#X msg 65 114 1 2 3 4 5;
#X msg 85 140 a b c d e f g h i;
#X msg 65 240;
#X text 25 277 1994 by Karlheinz Essl;
#X obj 65 175 butfirst;
#X text 25 61 Outputs the input list without its first element.;
#X text 25 29 butfirst;
#X connect 0 0 1 1;
#X connect 1 0 4 0;
#X connect 2 0 6 0;
#X connect 3 0 6 0;
#X connect 6 0 1 0;

--- NEW FILE: pass.pd ---
#N canvas 246 109 289 278 10;
#X obj 35 53 r RTC-rs;
#X msg 35 95 seed \$1;
#X obj 104 112 random 100;
#X obj 104 182 sel 1;
#X obj 104 226 outlet;
#X obj 104 53 inlet;
#X obj 209 53 inlet;
#X text 137 245 vs. 1.1;
#X obj 104 135 < \$1;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 8 0;
#X connect 3 0 4 0;
#X connect 5 0 2 0;
#X connect 6 0 8 1;
#X connect 8 0 3 0;

--- NEW FILE: minus.pd ---
#N canvas 240 363 201 216 10;
#X obj 56 34 inlet;
#X obj 56 121 outlet;
#X obj 56 91 * -1;
#X obj 56 66 int;
#X connect 0 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;

--- NEW FILE: note2pitch.pd ---
#N canvas 50 61 269 231 10;
#X obj 45 57 inlet;
#X obj 45 153 outlet;
#X text 41 180 1994 by Karlheinz
Essl;
#X obj 45 121 mod 12;
#X obj 45 92 int;
#X connect 0 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 3 0;

--- NEW FILE: check-row-help.pd ---
#N canvas 0 48 636 395 10;
#X msg 38 129 60 61 62 63 64 65 66 67 68 69 70 72;
#X msg 69 156 1 3 4 7 6 2 8 9 10 12 11 5;
#X msg 273 158 3 2 5;
#X obj 69 191 check-row;
#X text 242 283 1994 by Karlheinz Essl;
#X text 21 33 check-row;
#X text 23 65 Outputs the input <row> if it is a proper twelve-tone
row \; otherwise a bang is sent out of the right outlet.;
#X obj 69 272 show;
#X msg 69 312;
#X text 152 212 Flashes when input is not a twelve tone row;
#X obj 110 273 bng 15 250 50 1 empty empty clear 0 -6 0 8 -262144 -1
-1;
#X obj 127 214 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 281 22 Dodecaphonics;
#X text 289 129 Watch the console-window for error messages!;
#X connect 0 0 3 0;
#X connect 1 0 3 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 3 1 11 0;
#X connect 7 0 8 0;
#X connect 10 0 7 1;

--- NEW FILE: normalize-row-help.pd ---
#N canvas 0 48 639 407 10;
#X text 19 33 normalize-row;
#X text 19 65 Normalization of a twelve-tone row - the pitch classes
are transposed in a way that the new row always starts with 0 (i.e.
pitch class c).;
#X obj 123 196 bng 15 250 50 1 empty empty clear 0 -6 0 8 -262144 -1
-1;
#X obj 41 153 random-row;
#X obj 81 195 show;
#X msg 276 23 Dedecaphonics;
#X text 203 210 random row;
#X msg 81 226;
#X text 19 372 1994 by Karlheinz Essl;
#X text 170 286 "normalized" row always starting with 0 (i.e. pitch
class c).;
#X obj 41 261 normalize-row;
#X obj 41 294 show;
#X msg 41 322;
#X obj 83 295 bng 15 250 50 1 empty empty clear 0 -6 0 8 -262144 -1
-1;
#X obj 41 119 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 74 124 Generates a twelve-tone row at random;
#X connect 2 0 4 1;
#X connect 3 0 10 0;
#X connect 3 0 4 0;
#X connect 4 0 7 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 13 0 11 1;
#X connect 14 0 3 0;

--- NEW FILE: sequence.pd ---
#N canvas 451 340 460 352 10;
#X text 36 294 vs.2;
#X text 36 308 1993/94 by Karlheinz
Essl;
#X obj 39 260 outlet;
#X obj 180 258 outlet;
#X obj 39 38 inlet;
#X obj 173 37 inlet;
#X obj 217 91 list-len;
#X obj 39 139 f 0;
#X obj 70 138 + 1;
#X obj 99 138 mod 1;
#X msg 55 109 0;
#X obj 173 63 t b a a;
#X obj 180 216 select;
#X obj 217 193 - 1;
#X obj 39 171 t a a;
#N canvas 0 0 450 300 nth 0;
#X obj 113 155 list-idx;
#X obj 113 129 list;
#X obj 113 101 t b a;
#X obj 113 80 inlet;
#X obj 157 79 inlet;
#X obj 113 178 outlet;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 2 1 0 1;
#X connect 3 0 2 0;
#X connect 4 0 1 1;
#X restore 39 215 pd nth;
#X text 149 139 modulo-count up to list length;
#X text 246 261 bang on last element;
#X text 52 237 lookup element;
#X connect 4 0 7 0;
#X connect 5 0 11 0;
#X connect 6 0 9 1;
#X connect 6 0 13 0;
#X connect 7 0 8 0;
#X connect 7 0 14 0;
#X connect 8 0 9 0;
#X connect 9 0 7 1;
#X connect 10 0 7 1;
#X connect 11 0 10 0;
#X connect 11 1 15 1;
#X connect 11 2 6 0;
#X connect 12 0 3 0;
#X connect 13 0 12 1;
#X connect 14 0 15 0;
#X connect 14 1 12 0;
#X connect 15 0 2 0;

--- NEW FILE: series.pd ---
#N canvas 378 174 345 360 10;
#X obj 35 213 outlet;
#X obj 35 20 inlet;
#X obj 79 207 outlet;
#X obj 72 50 inlet;
#X obj 127 207 outlet;
#X obj 79 76 list-len;
#X obj 35 128 t a a;
#N canvas 0 0 450 300 nth 0;
#X obj 113 155 list-idx;
#X obj 113 129 list;
#X obj 113 101 t b a;
#X obj 113 80 inlet;
#X obj 157 79 inlet;
#X obj 113 178 outlet;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 2 1 0 1;
#X connect 3 0 2 0;
#X connect 4 0 1 1;
#X restore 35 174 pd nth;
#X text 39 263 vs. 3;
#X text 44 286 1993-95 by Karlheinz Essl;
#X obj 35 108 xrandom;
#X connect 1 0 10 0;
#X connect 3 0 5 0;
#X connect 3 0 7 1;
#X connect 5 0 10 1;
#X connect 6 0 7 0;
#X connect 6 1 4 0;
#X connect 7 0 0 0;
#X connect 10 0 6 0;
#X connect 10 1 2 0;

--- NEW FILE: scale-changer.pd ---
#N canvas 275 118 643 450 10;
#X obj 92 85 random 12;
#N canvas 358 118 519 418 input-check 0;
#X obj 80 254 outlet;
#X obj 80 26 inlet;
#X obj 80 79 listlen;
#X obj 80 140 sel 1;
#X msg 140 228 size of input list must be 12!;
#X obj 80 55 t a a;
#X obj 80 228 list;
#X obj 80 193 b;
#X obj 80 110 == 12;
#X obj 140 255 print :scale-changer;
#X connect 1 0 5 0;
#X connect 2 0 8 0;
#X connect 3 0 7 0;
#X connect 3 1 4 0;
#X connect 4 0 9 0;
#X connect 5 0 2 0;
#X connect 5 1 6 1;
#X connect 6 0 0 0;
#X connect 7 0 6 0;
#X connect 8 0 3 0;
#X restore 251 62 pd input-check;
#X obj 92 31 inlet;
#X obj 251 34 inlet;
#X obj 92 276 multiple;
#X obj 289 276 outlet;
#X msg 92 245 0 1 2 3 4 5 6 7 8 9 10 11;
#X text 151 374 1996 by Karlheinz Essl;
#X obj 92 373 outlet;
#N canvas 63 44 225 285 check-listlen 0;
#X obj 123 227 outlet;
#X obj 64 230 outlet;
#X obj 64 172 sel 1;
#X obj 64 118 > 1;
#X obj 64 58 t l l;
#X obj 64 33 inlet;
#X obj 64 206 list;
#X obj 64 89 list-len;
#X obj 123 203 b;
#X connect 2 0 6 0;
#X connect 2 1 8 0;
#X connect 3 0 2 0;
#X connect 4 0 7 0;
#X connect 4 1 6 1;
#X connect 5 0 4 0;
#X connect 6 0 1 0;
#X connect 7 0 3 0;
#X connect 8 0 0 0;
#X restore 92 309 pd check-listlen;
#X text 226 305 pitch class lists with less then two members are not
allowed!;
#X obj 92 344 list-round;
#X obj 92 58 b;
#X obj 358 206 table \$0-scale 12;
#X obj 280 140 s \$0-scale;
#X obj 280 112 list prepend 0;
#N canvas 0 0 428 352 flip 0;
#X obj 73 115 tabread \$0-scale;
#X obj 73 141 select 0 1;
#X obj 51 59 inlet;
#X obj 73 172 1;
#X obj 105 171 0;
#X obj 73 238 tabwrite \$0-scale;
#X obj 51 89 t b a a;
#X obj 51 268 outlet;
#X text 154 169 flips one bit in a table;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 1 1 4 0;
#X connect 2 0 6 0;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 6 0 7 0;
#X connect 6 1 0 0;
#X connect 6 2 5 1;
#X restore 92 118 pd flip;
#N canvas 0 0 497 396 dump-table 0;
#X obj 86 35 inlet;
#X obj 109 111 until;
#X obj 109 137 f 0;
#X obj 139 138 + 1;
#X obj 154 112 0;
#X obj 109 90 12;
#X obj 86 66 t b b b b;
#X obj 109 184 list prepend;
#X obj 202 185 t a;
#X obj 86 220 list;
#X obj 86 250 outlet;
#X obj 109 161 tabread \$0-scale;
#X text 153 224 == tabdump \$0-scale;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 11 0;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 5 0 1 0;
#X connect 6 0 9 0;
#X connect 6 1 5 0;
#X connect 6 2 4 0;
#X connect 6 3 7 1;
#X connect 7 0 8 0;
#X connect 7 0 9 1;
#X connect 8 0 7 1;
#X connect 9 0 10 0;
#X connect 11 0 7 0;
#X restore 92 144 pd dump-table;
#X obj 92 167 t b a a;
#X obj 251 92 t a a;
#X text 153 392 Pd: 2006 Frank Barknecht;
#X connect 0 0 16 0;
#X connect 1 0 19 0;
#X connect 2 0 12 0;
#X connect 3 0 1 0;
#X connect 4 0 9 0;
#X connect 6 0 4 0;
#X connect 9 0 11 0;
#X connect 9 1 12 0;
#X connect 11 0 8 0;
#X connect 12 0 0 0;
#X connect 15 0 14 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 6 0;
#X connect 18 1 4 1;
#X connect 18 2 5 0;
#X connect 19 0 18 0;
#X connect 19 1 15 0;

--- NEW FILE: trans.pd ---
#N canvas 63 44 500 330 10;
#X obj 41 50 inlet;
#X obj 41 272 outlet;
#X obj 288 110 inlet;
#X obj 238 110 inlet;
#X obj 186 110 inlet;
#X obj 369 46 inlet;
#X obj 41 77 t f b;
#X text 85 272 © 1995 by Karlheinz Essl;
#X obj 99 108 int \$4;
#N canvas 712 445 407 355 gate_3 0;
#X obj 52 263 outlet;
#X obj 76 243 outlet;
#X obj 100 222 outlet;
#X obj 52 75 inlet;
#X obj 152 75 inlet;
#X obj 52 133 list prepend \$1;
#X obj 52 163 route 0 1 2;
#X connect 3 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 6 1 1 0;
#X connect 6 2 2 0;
#X restore 41 175 pd gate_3;
#X obj 319 231 trans-exp \$1 \$2 \$3;
#X obj 180 229 trans-lin \$1 \$2 \$3;
#X obj 41 229 trans-log \$1 \$2 \$3;
#X connect 0 0 6 0;
#X connect 2 0 10 3;
#X connect 2 0 11 3;
#X connect 2 0 12 3;
#X connect 3 0 10 2;
#X connect 3 0 11 2;
#X connect 3 0 12 2;
#X connect 4 0 10 1;
#X connect 4 0 11 1;
#X connect 4 0 12 1;
#X connect 5 0 8 0;
#X connect 6 0 9 0;
#X connect 6 1 8 0;
#X connect 8 0 9 1;
#X connect 9 0 12 0;
#X connect 9 1 11 0;
#X connect 9 2 10 0;
#X connect 10 0 1 0;
#X connect 11 0 1 0;
#X connect 12 0 1 0;

--- NEW FILE: make-trans-scale-help.pd ---
#N canvas 271 85 685 496 10;
#X obj 106 345 bng 15 250 50 0 empty empty clear 0 -6 0 8 -262144 -1
-1;
#X obj 65 345 show;
#X text 14 28 make-trans-scale;
#X text 14 59 Generates a transition scale between a start and an end
value with a certain number of elements. The typ of transition is determined
by the int sent to the leftmost inlet which also triggers the calculation.
;
#X floatatom 345 261 4 0 0 2 number_of_elements - -;
#X floatatom 276 260 4 0 0 2 end - -;
#X floatatom 202 260 4 0 0 2 start - -;
#X text 24 376 scale;
#X msg 269 180 make-ED-scale;
#X text 15 182 see also:;
#X msg 78 180 make-scale;
#X msg 158 180 make-choice-list;
#X msg 65 376 2 1.88775 1.7818 1.68179 1.5874 1.49831 1.41421 1.33484
1.25992 1.18921 1.12246 1.05946 1;
#X text 368 328 1995 by Karlheinz Essl;
#X text 165 120 };
#X text 196 138 transition;
#X text 60 121 0 = logarithmical;
#X text 60 135 1 = linear;
#X text 60 150 2 = exponential;
#X msg 344 24 Lists;
#N canvas 0 0 738 528 trans-type 0;
#X obj 107 393 list split 1;
#X symbolatom 107 142 14 0 0 0 - - -;
#X obj 107 127 hradio 15 1 0 3 empty empty transition 0 -6 0 8 -262144
-1 -1 0;
#X obj 107 419 outlet;
#X obj 244 66 inlet;
#X obj 107 247 select 0 1 2;
#X msg 107 304 0 logarithmical;
#X msg 235 303 1 linear;
#X msg 317 306 2 exponential;
#X connect 0 0 3 0;
#X connect 0 1 1 0;
#X connect 2 0 5 0;
#X connect 4 0 2 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 5 2 8 0;
#X connect 6 0 0 0;
#X connect 7 0 0 0;
#X connect 8 0 0 0;
#X coords 0 -1 1 1 125 60 1 100 100;
#X restore 65 213 pd trans-type;
#X obj 65 314 make-trans-scale 2 1 13;
#X connect 0 0 1 1;
#X connect 1 0 12 0;
#X connect 4 0 21 3;
#X connect 5 0 21 2;
#X connect 6 0 21 1;
#X connect 20 0 21 0;
#X connect 21 0 1 0;

--- NEW FILE: sqrt-pan~.pd ---
#N canvas 0 0 450 300 10;
#X obj 57 51 inlet~;
#X obj 126 96 expr sqrt(1-$f1) \; sqrt($f1);
#X obj 126 192 outlet~;
#X obj 57 192 outlet~;
#X obj 58 159 *~ 0.7;
#X obj 125 163 *~ 0.7;
#X obj 126 51 inlet;
#X connect 0 0 4 0;
#X connect 0 0 5 0;
#X connect 1 0 4 1;
#X connect 1 1 5 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 6 0 1 0;

--- NEW FILE: permutate-row.pd ---
#N canvas 508 283 398 412 10;
#X text 236 110 1994 by Karlheinz Essl;
#X obj 165 277 outlet;
#X obj 144 38 inlet;
#X obj 86 39 inlet;
#X obj 144 66 t a a a;
#X obj 86 166 t b b;
#X obj 144 192 t a a;
#X obj 165 247 list;
#X obj 86 223 list;
#N canvas 0 0 450 300 nth 0;
#X obj 113 155 list-idx;
#X obj 113 129 list;
#X obj 113 101 t b a;
#X obj 113 80 inlet;
#X obj 157 79 inlet;
#X obj 113 178 outlet;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 2 1 0 1;
#X connect 3 0 2 0;
#X connect 4 0 1 1;
#X restore 144 160 pd nth;
#X connect 2 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 9 0;
#X connect 4 1 9 1;
#X connect 4 2 7 1;
#X connect 5 0 8 0;
#X connect 5 1 7 0;
#X connect 6 0 8 1;
#X connect 6 1 7 1;
#X connect 7 0 1 0;
#X connect 8 0 9 0;
#X connect 9 0 6 0;

--- NEW FILE: neutral-harmony-help.pd ---
#N canvas 0 48 469 413 10;
#X msg 43 327 Bb;
#X obj 43 140 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 43 177 metro 250;
#X obj 43 241 neutral-harmony 6;
#X text 19 74 Building an interval row by alternating a given interval
(e.g. 3) with its compliment (e.g. 8). Outputs pitch classes (i.e.
notes without any register informations).;
#X obj 43 209 bng 15 50 50 0 empty empty rhythm_bangs 0 -6 0 8 -262144
-1 -1;
#X floatatom 157 212 4 0 0 1 interval - -;
#X floatatom 168 327 0 0 0 0 - - -;
#X text 198 329 interval;
#X text 75 329 pitch class;
#N canvas 674 72 418 195 play-it 0;
#X obj 33 100 show-pitchclass;
#X obj 33 67 + 60;
#X obj 33 40 inlet;
#X obj 143 100 note2st;
#X text 58 40 map into middle octave;
#X obj 33 130 outlet;
#X obj 143 130 outlet;
#X obj 206 100 play2 127 200 1 1;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 1 0 3 0;
#X connect 1 0 7 0;
#X connect 2 0 1 0;
#X connect 3 0 6 0;
#X restore 43 293 pd play-it;
#X text 19 367 1993 by Karlheinz Essl;
#X msg 285 29 Harmony;
#X text 19 41 neutral-harmony;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X connect 3 0 10 0;
#X connect 5 0 3 0;
#X connect 6 0 3 1;
#X connect 10 0 0 0;
#X connect 10 1 7 0;

--- NEW FILE: groups.pd ---
#N canvas 83 96 493 493 10;
#N canvas 101 330 221 248 values 0;
#X obj 91 39 inlet;
#X obj 44 39 inlet;
#X obj 44 129 series;
#X obj 44 166 outlet;
#X obj 99 166 outlet;
#X obj 91 68 t b a;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 2 4 0;
#X connect 5 0 2 0;
#X connect 5 1 2 1;
#X restore 104 343 pd values;
#N canvas 490 186 215 222 multiples 0;
#X obj 48 155 outlet;
#X obj 100 30 inlet;
#X obj 48 30 inlet;
#X obj 100 59 t b a;
#X obj 48 116 series;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 4 0;
#X connect 3 1 4 1;
#X connect 4 0 0 0;
#X restore 134 213 pd multiples;
#X obj 104 181 count-bang;
#X obj 104 268 sel 0;
#X obj 56 418 outlet;
#X obj 162 313 inlet;
#X obj 26 45 inlet;
#X obj 311 47 inlet;
#X obj 26 86 t b b;
#X obj 240 371 outlet;
#X obj 162 371 outlet;
#X obj 311 79 t b a;
#X obj 311 244 t b b;
#X obj 104 300 t b b;
#X obj 134 242 t a a;
#X obj 56 386 list;
#X connect 0 0 15 1;
#X connect 0 1 10 0;
#X connect 1 0 14 0;
#X connect 2 0 3 0;
#X connect 3 0 13 0;
#X connect 5 0 0 1;
#X connect 6 0 8 0;
#X connect 7 0 11 0;
#X connect 8 0 2 0;
#X connect 8 1 15 0;
#X connect 11 0 12 0;
#X connect 11 1 1 1;
#X connect 12 0 1 0;
#X connect 12 1 2 1;
#X connect 13 0 0 0;
#X connect 13 1 12 0;
#X connect 14 0 3 1;
#X connect 14 1 9 0;
#X connect 15 0 4 0;

--- NEW FILE: trans-exp-help.pd ---
#N canvas 404 99 819 627 10;
#X text 43 390 2004 OSX port by Peter Elsea (UCSC);
#X msg 218 139 trans;
#X msg 264 139 geom;
#X msg 149 139 trans-log;
#X msg 83 139 trans-lin;
#X text 20 139 see also:;
#X text 43 376 1995/96 by Peter Elsea (UCSC);
#X text 17 21 trans-exp;
#X text 108 264 nth member of a exponential transition row;
#X floatatom 44 268 0 0 0 0 - - -;
#X text 188 169 end.value;
#X text 108 168 start.value;
#X text 256 169 steps;
#X floatatom 44 188 0 0 0 0 - - -;
#X text 40 167 row index;
#X floatatom 181 188 0 0 0 0 - - -;
#X floatatom 113 188 0 0 0 0 - - -;
#X floatatom 250 188 0 0 0 0 - - -;
#X text 29 53 Int in left inlet outputs the nth member of a exponential
transition between a start value <int \, float> and an end value <int
\, float> in n steps <int> \, whereas "steps" is the number of row
elements (between start and end value) minus one.;
#N canvas 0 0 450 300 graph2 0;
#X array \$0-exp 12 float 0;
#X coords 0 2000 11 500 200 140 1;
#X restore 505 199 graph;
#X msg 562 113 const 500;
#X obj 562 144 s \$0-exp;
#X obj 562 86 loadbang;
#X obj 44 307 tabwrite \$0-exp;
#X obj 44 207 t a a;
#X obj 312 237 trans-log 500 2000 12;
#X floatatom 310 192 0 0 0 0 - - -;
#X obj 310 211 t a a;
#X obj 44 228 trans-exp 500 2000 12;
#X connect 9 0 23 0;
#X connect 13 0 24 0;
#X connect 15 0 28 2;
#X connect 16 0 28 1;
#X connect 17 0 28 3;
#X connect 20 0 21 0;
#X connect 22 0 20 0;
#X connect 24 0 28 0;
#X connect 24 1 23 1;
#X connect 25 0 9 0;
#X connect 26 0 27 0;
#X connect 27 0 25 0;
#X connect 27 1 23 1;
#X connect 28 0 9 0;

--- NEW FILE: sneak.pd ---
#N canvas 396 245 332 338 10;
#X obj 49 127 sneak-random;
#X obj 49 40 inlet;
#X obj 49 239 outlet;
#X obj 79 208 outlet;
#X obj 49 174 nth;
#X obj 128 37 inlet;
#X text 79 293 1994-98 by Karlheinz Essl;
#X text 139 267 vs. 1.1;
#X obj 128 95 list-len;
#X obj 49 149 t a a;
#X obj 128 64 t a a;
#X connect 0 0 9 0;
#X connect 1 0 0 0;
#X connect 4 0 2 0;
#X connect 5 0 10 0;
#X connect 8 0 0 1;
#X connect 9 0 4 0;
#X connect 9 1 3 0;
#X connect 10 0 8 0;
#X connect 10 1 4 1;

--- NEW FILE: multiple.pd ---
#N canvas 193 46 425 405 10;
#X obj 210 30 inlet;
#X obj 63 19 inlet;
#N canvas 50 61 578 240 check-listlen 0;
#X msg 304 157 both lists must have the same length!;
#X obj 304 50 inlet;
#X obj 118 205 outlet;
#X obj 108 50 inlet;
#X obj 112 103 t a a;
#X obj 116 179 int;
#X obj 112 126 ==;
#X obj 111 151 select 1 0;
#X obj 304 188 print :multiple;
#X obj 304 85 list-len;
#X obj 113 77 list-len;
#X connect 0 0 8 0;
#X connect 1 0 9 0;
#X connect 3 0 10 0;
#X connect 4 0 6 0;
#X connect 4 1 5 1;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 7 1 0 0;
#X connect 9 0 6 1;
#X connect 10 0 4 0;
#X restore 89 87 pd check-listlen;
#X obj 59 355 outlet;
#X obj 178 189 sequence;
#X obj 89 189 sequence;
#X obj 89 255 int;
#X obj 89 157 t b b;
#X text 116 351 1994 by Karlheinz Essl;
#X obj 89 297 list prepend;
#X obj 186 297 t a;
#X obj 63 320 list;
#X obj 339 192 b;
#X obj 63 45 t b a a b;
#X obj 89 120 until;
#X obj 89 222 until;
#X obj 210 58 t a a b;
#X connect 0 0 16 0;
#X connect 1 0 13 0;
#X connect 2 0 14 0;
#X connect 4 0 6 1;
#X connect 5 0 15 0;
#X connect 6 0 9 0;
#X connect 7 0 5 0;
#X connect 7 1 4 0;
#X connect 9 0 11 1;
#X connect 9 0 10 0;
#X connect 10 0 9 1;
#X connect 11 0 3 0;
#X connect 12 0 9 1;
#X connect 13 0 11 0;
#X connect 13 1 2 0;
#X connect 13 2 4 1;
#X connect 13 3 12 0;
#X connect 14 0 7 0;
#X connect 15 0 6 0;
#X connect 16 0 2 1;
#X connect 16 1 5 1;
#X connect 16 2 12 0;

--- NEW FILE: permute-help.pd ---
#N canvas 1 48 789 443 10;
#X text 95 242 clear display;
#X obj 75 241 bng 15 250 50 1 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 34 240 show;
#X text 11 23 permute;
#X text 11 56 Returns the nth permutation of a list.;
#X text 11 73 See also:;
#X text 11 315 OSX implementation by Richard Dudas (2003);
#X text 11 301 by James McCartney;
#X msg 46 147 orange green purple mildred;
#X msg 78 167 0 1 2 3 4 5 6 7;
#X obj 14 158 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 98 208 Optional list argument to set the default list.;
#X floatatom 34 117 0 0 0 0 - - -;
#X msg 34 272;
#X obj 34 207 permute;
#X text 238 232 list in right inlet is stored;
#X text 238 263 bang in left inlet retriggers the last permutation
;
#X text 238 248 int in left inlet triggers a permutation of the stored
list;
#X text 252 143 permute generates an indexed series of permutations
of a list. The permutations repeat after the factorial of the list
size. Note that the largest list for which a 32-bit number can enumerate
all the permutations has 12 elements.;
#X text 78 118 index;
#X msg 74 72 permutate;
#X text 126 36 (external - OSX);
#X connect 1 0 2 1;
#X connect 2 0 13 0;
#X connect 8 0 14 1;
#X connect 9 0 14 1;
#X connect 10 0 14 0;
#X connect 12 0 14 0;
#X connect 14 0 2 0;

--- NEW FILE: butlast-help.pd ---
#N canvas 3 48 473 349 10;
#X obj 106 208 bng 15 250 50 1 empty empty clear_display 0 -6 0 8 -262144
-1 -1;
#X obj 65 207 show;
#X obj 65 175 butlast;
#X msg 65 114 1 2 3 4 5;
#X msg 85 140 a b c d e f g h i;
#X msg 65 240;
#X text 25 277 1994 by Karlheinz Essl;
#X text 25 29 butlast;
#X text 25 61 Outputs the input list without its last element.;
#X connect 0 0 1 1;
#X connect 1 0 5 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 4 0 2 0;

--- NEW FILE: inv.pd ---
#N canvas 63 44 194 215 10;
#X obj 48 66 inlet;
#X obj 48 100 expr 1/$f1;
#X obj 48 135 outlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;

--- NEW FILE: play-samp~.pd ---
#N canvas 192 80 584 531 10;
#X obj 463 47 inlet;
#X obj 169 74 unpack f s f;
#X obj 169 48 inlet;
#X obj 208 420 outlet~;
#X obj 208 315 tabread4~;
#X obj 208 174 list prepend set;
#X obj 208 200 list trim;
#X text 223 49 IN: transposition tablename gain;
#X obj 119 284 vline~;
#N canvas 238 24 737 582 trigger-sample 1;
#X text 90 155 Wait for the;
#X text 88 169 cutoff to finish;
#X text 71 446 set the upper line~ to start;
#X text 70 465 at the first sample and go;
#X text 69 486 forever (until the next trigger);
#X obj 212 211 t b b;
#X obj 298 499 s \$0-phase;
#X obj 212 315 s \$0-cutoff;
#X obj 212 53 inlet;
#X obj 242 136 s \$0-cutoff;
#X text 87 118 cut the sound off;
#X obj 212 266 f;
#X obj 389 57 inlet;
#X obj 212 77 t b b;
#X text 394 37 gain;
#X obj 315 57 inlet;
#X text 314 35 transpos;
#X obj 298 454 * 1e+07;
#X obj 299 435 f 1;
#X msg 298 478 1 \, 4.41e+08 \$1;
#X obj 463 466 r \$0-arraysize;
#X obj 345 303 moses 0;
#X obj 406 534 s \$0-phase;
#X obj 406 467 * 1e+07;
#X obj 407 448 f 1;
#X obj 406 490 pack 0 0;
#X msg 406 513 \$2 \, -4.41e+08 \$1;
#X obj 423 426 abs;
#X obj 315 78 t a a;
#X obj 299 307 < 0;
#X obj 299 331 select 0 1;
#X obj 299 285 f;
#X obj 345 273 pow -1;
#X msg 242 107 0 2;
#X obj 212 164 delay 2;
#X connect 5 0 11 0;
#X connect 5 1 31 0;
#X connect 8 0 13 0;
#X connect 11 0 7 0;
#X connect 12 0 11 1;
#X connect 13 0 34 0;
#X connect 13 1 33 0;
#X connect 15 0 28 0;
#X connect 17 0 19 0;
#X connect 18 0 17 0;
#X connect 19 0 6 0;
#X connect 20 0 25 1;
#X connect 21 0 27 0;
#X connect 21 1 18 1;
#X connect 23 0 25 0;
#X connect 24 0 23 0;
#X connect 25 0 26 0;
#X connect 26 0 22 0;
#X connect 27 0 24 1;
#X connect 28 0 31 1;
#X connect 28 1 32 0;
#X connect 29 0 30 0;
#X connect 30 0 18 0;
#X connect 30 1 24 0;
#X connect 31 0 29 0;
#X connect 32 0 21 0;
#X connect 33 0 9 0;
#X connect 34 0 5 0;
#X restore 53 192 pd trigger-sample;
#X obj 224 348 r \$0-cutoff;
#X obj 208 390 *~;
#X obj 224 368 vline~;
#X obj 119 250 r \$0-phase;
#X obj 238 269 arraysize;
#X obj 208 229 t a b a;
#X obj 238 291 s \$0-arraysize;
#X obj 463 71 s \$0-loop;
#X obj 133 110 t a b a;
#N canvas 0 0 433 475 loops 0;
#X obj 89 174 spigot 0;
#X obj 207 246 r \$0-arraysize;
#X obj 89 324 delay;
#X obj 132 323 t b;
#X obj 140 150 r \$0-loop;
#X obj 89 64 inlet;
#X obj 89 352 outlet;
#X obj 155 173 select 0;
#X msg 155 195 stop;
#X floatatom 188 318 8 0 0 0 - - -;
#X obj 207 268 / 44.1;
#X obj 159 290 *;
#X obj 89 113 pow -1;
#X obj 89 89 abs;
#X obj 89 138 t b a;
#X connect 0 0 2 0;
#X connect 1 0 10 0;
#X connect 2 0 3 0;
#X connect 2 0 6 0;
#X connect 3 0 0 0;
#X connect 4 0 0 1;
#X connect 4 0 7 0;
#X connect 5 0 13 0;
#X connect 7 0 8 0;
#X connect 8 0 2 0;
#X connect 10 0 11 1;
#X connect 11 0 2 1;
#X connect 11 0 9 0;
#X connect 12 0 14 0;
#X connect 13 0 12 0;
#X connect 14 0 0 0;
#X connect 14 1 11 0;
#X restore 26 145 pd loops;
#X connect 0 0 17 0;
#X connect 1 0 18 0;
#X connect 1 1 5 0;
#X connect 1 2 9 2;
#X connect 2 0 1 0;
#X connect 4 0 11 0;
#X connect 5 0 6 0;
#X connect 6 0 15 0;
#X connect 8 0 4 0;
#X connect 10 0 12 0;
#X connect 11 0 3 0;
#X connect 12 0 11 1;
#X connect 13 0 8 0;
#X connect 14 0 16 0;
#X connect 15 0 4 0;
#X connect 15 1 14 0;
#X connect 15 2 14 0;
#X connect 18 0 19 0;
#X connect 18 1 9 0;
#X connect 18 2 9 1;
#X connect 19 0 9 0;

--- NEW FILE: grid-rhythm.pd ---
#N canvas 481 254 403 329 10;
#X obj 174 49 inlet;
#X obj 272 48 inlet;
#X obj 213 49 inlet;
#X obj 44 48 inlet;
#X obj 44 260 outlet;
#X obj 174 260 outlet;
#X obj 132 48 inlet;
#X obj 109 158 int;
#X obj 65 91 sel 1;
#X text 199 290 1993 by Karlheinz Essl;
#X obj 174 187 int \$2;
#X obj 109 187 * \$1;
#X obj 109 91 sel-princ \$3;
#X obj 65 113 t b b;
#X obj 44 224 metro-dev% 500 10;
#X connect 0 0 10 0;
#X connect 1 0 12 2;
#X connect 2 0 12 1;
#X connect 3 0 8 0;
#X connect 3 0 14 0;
#X connect 6 0 11 1;
#X connect 7 0 11 0;
#X connect 8 0 13 0;
#X connect 10 0 14 2;
#X connect 11 0 14 1;
#X connect 12 0 7 0;
#X connect 13 0 7 0;
#X connect 13 1 10 0;
#X connect 14 0 4 0;
#X connect 14 0 12 0;
#X connect 14 1 5 0;

--- NEW FILE: make-choice-list-help.pd ---
#N canvas 238 208 765 518 10;
#X msg 122 68 bang;
#X obj 122 245 print;
#X obj 196 214 list-len;
#X floatatom 196 252 5 0 0 0 - - -;
#X floatatom 166 114 5 0 20 2 min-length - -;
#X floatatom 319 131 5 0 10 2 value-min - -;
#X floatatom 388 132 5 0 10 2 value-max - -;
#X floatatom 240 114 5 0 20 2 max-length - -;
#X obj 312 213 print length;
#N canvas 0 0 450 300 graph1 0;
#X array \$0-choice-list 20 float 2;
#X coords 0 10 19 0 200 140 1;
#X restore 500 71 graph;
#X obj 87 350 s \$0-choice-list;
#X obj 88 327 list prepend 0;
#X obj 88 271 t a b;
#X msg 118 295 const 0;
#X text 233 380 TODO: value-max isn't max because of the [+ 1] inside.
Ask kHz about it.;
#X floatatom 299 250 5 0 0 0 - - -;
#X obj 122 171 make-choice-list 0 20 0 10;
#X connect 0 0 16 0;
#X connect 2 0 3 0;
#X connect 4 0 16 1;
#X connect 5 0 16 3;
#X connect 6 0 16 4;
#X connect 7 0 16 2;
#X connect 11 0 10 0;
#X connect 12 0 11 0;
#X connect 12 1 13 0;
#X connect 13 0 10 0;
#X connect 16 0 1 0;
#X connect 16 0 2 0;
#X connect 16 0 12 0;
#X connect 16 1 8 0;
#X connect 16 1 15 0;

--- NEW FILE: between-log.pd ---
#N canvas 347 245 409 326 10;
#X msg 66 113 seed \$1;
#X obj 66 44 r RTC-rs;
#X obj 133 245 outlet;
#X obj 321 177 - 1;
#X obj 180 178 inlet;
#X obj 226 178 inlet;
#X obj 291 44 inlet;
#X obj 133 44 inlet;
#X obj 198 247 outlet;
#X text 214 279 1994-98 by Karlheinz
Essl;
#X text 217 296 vs 1.2;
#X obj 291 119 int \$3;
#X obj 133 149 random \$3;
#X obj 133 206 trans-log \$1 \$2;
#X obj 133 76 t b b;
#X obj 133 174 t a a;
#X obj 291 141 t a a;
#X connect 0 0 12 0;
#X connect 1 0 0 0;
#X connect 3 0 13 3;
#X connect 4 0 13 1;
#X connect 5 0 13 2;
#X connect 6 0 11 0;
#X connect 7 0 14 0;
#X connect 11 0 16 0;
#X connect 12 0 15 0;
#X connect 13 0 2 0;
#X connect 14 0 12 0;
#X connect 14 1 11 0;
#X connect 15 0 13 0;
#X connect 15 1 8 0;
#X connect 16 0 12 1;
#X connect 16 1 3 0;

--- NEW FILE: first.pd ---
#N canvas 50 61 213 198 10;
#X obj 41 118 outlet;
#X obj 41 58 inlet;
#X obj 41 88 list split 1;
#X connect 1 0 2 0;
#X connect 2 0 0 0;

--- NEW FILE: sel-princ-help.pd ---
#N canvas 213 34 995 590 10;
#X text 515 150 };
#X text 392 121 supply;
#X msg 379 146 a b c;
#X msg 381 169 1 2 3 4 5;
#X obj 63 234 bng 15 250 50 0 empty empty select_one_element 0 -6 0
8 -262144 -1 -1;
#X msg 380 192 7 Shadock 3.14 x;
#X text 178 86 selection principle;
#X obj 63 342 collect;
#X obj 107 319 bng 15 250 50 0 empty empty clear_display 0 -6 0 8 -262144
-1 -1;
#X text 30 0 sel-princ;
#X text 33 18 Changes between the selection principles ALEA \, SERIES
and SEQUENCE (as defined by G. M. Koenig) and ROTA according to the
number sent to the middle inlet:;
#X text 46 426 1993-97 by Karlheinz Essl;
#X floatatom 241 339 0 0 0 2 idx - -;
#X msg 63 383;
#X obj 242 303 bng 15 250 50 0 empty empty last 0 -6 0 8 -262144 -1
-1;
#X text 48 442 vs. 4: selection principle ROTA added;
#X msg 99 70 1 alea;
#X msg 99 89 2 series;
#X msg 99 109 3 sequence;
#X msg 99 131 4 rota;
#X obj 99 160 list split 1;
#X obj 379 92 loadbang;
#N canvas 0 0 450 300 graph1 0;
#X array \$0-princ 50 float 0;
#X coords 0 10 49 0 200 140 1;
#X restore 760 132 graph;
#X msg 676 325 0 1 2 3 4 5 6 7 8 9;
#X obj 604 308 until;
#X msg 568 219 50;
#N canvas 0 0 408 374 to-array 0;
#X obj 78 244 s \$0-princ;
#X msg 230 209 const 0;
#X obj 78 205 list prepend 0;
#X obj 101 114 list prepend;
#X obj 192 113 t a;
#X obj 78 147 list;
#X obj 180 81 t b b;
#X obj 180 56 inlet;
#X obj 101 56 inlet;
#X obj 57 56 inlet;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 4 0;
#X connect 3 0 5 1;
#X connect 4 0 3 1;
#X connect 5 0 2 0;
#X connect 6 0 3 1;
#X connect 6 1 1 0;
#X connect 7 0 6 0;
#X connect 8 0 3 0;
#X connect 9 0 5 0;
#X restore 568 424 pd to-array;
#X obj 568 241 t b a b;
#X obj 676 296 loadbang;
#X obj 135 185 cnv 15 80 20 empty empty empty 20 12 0 14 -24198 -66577
0;
#X symbolatom 138 187 10 0 0 0 - - -;
#X obj 568 197 t b b b b a;
#X obj 604 356 sel-princ 3;
#X obj 63 262 sel-princ 3;
#X text 274 303 bang \, when supply is exhausted;
#X text 269 342 index of chosen list element;
#X obj 517 24 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 517 531 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 532 24 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 532 531 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 511 24 cnv 15 40 15 empty empty empty 20 12 0 14 -262144 -66577
0;
#X obj 509 531 cnv 15 40 15 empty empty empty 20 12 0 14 -262144 -66577
0;
#N canvas 0 0 738 528 sel-princ 0;
#X msg 184 218 1 alea;
#X msg 184 237 2 series;
#X msg 184 257 3 sequence;
#X msg 184 279 4 rota;
#X obj 184 308 list split 1;
#X symbolatom 107 142 10 0 0 0 - - -;
#X obj 107 127 hradio 15 1 0 4 empty empty sel-princ 0 -6 0 8 -262144
-1 -1 0;
#X obj 185 335 outlet;
#X obj 194 129 + 1;
#X obj 141 160 select 1 2 3 4;
#X obj 244 66 inlet;
#X obj 238 95 - 1;
#X connect 0 0 4 0;
#X connect 1 0 4 0;
#X connect 2 0 4 0;
#X connect 3 0 4 0;
#X connect 4 0 7 0;
#X connect 4 1 5 0;
#X connect 6 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 9 1 1 0;
#X connect 9 2 2 0;
#X connect 9 3 3 0;
#X connect 10 0 11 0;
#X connect 11 0 6 0;
#X coords 0 -1 1 1 85 60 1 100 100;
#X restore 568 125 pd sel-princ;
#X connect 2 0 33 2;
#X connect 3 0 33 2;
#X connect 4 0 33 0;
#X connect 5 0 33 2;
#X connect 7 0 13 0;
#X connect 8 0 7 1;
#X connect 16 0 20 0;
#X connect 17 0 20 0;
#X connect 18 0 20 0;
#X connect 19 0 20 0;
#X connect 20 0 33 1;
#X connect 20 1 30 0;
#X connect 21 0 2 0;
#X connect 21 0 18 0;
#X connect 23 0 32 2;
#X connect 24 0 32 0;
#X connect 25 0 27 0;
#X connect 27 0 26 0;
#X connect 27 1 24 0;
#X connect 27 2 26 2;
#X connect 28 0 23 0;
#X connect 30 0 8 0;
#X connect 31 0 25 0;
#X connect 31 4 32 1;
#X connect 32 0 26 1;
#X connect 33 0 7 0;
#X connect 33 1 12 0;
#X connect 33 2 14 0;
#X connect 36 0 37 0;
#X connect 38 0 39 0;
#X connect 42 0 31 0;

--- NEW FILE: panning-help.pd ---
#N canvas 0 48 483 509 10;
#X obj 165 247 vsl 15 128 0 127 0 0 empty empty R 0 -8 0 8 -262144
-1 -1 0 1;
#X obj 83 244 vsl 15 128 0 127 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 0 1;
#X obj 83 186 panning;
#X text 23 51 Equal power panning based on John Chowning's paper "Simulation
of Moving Sound Sources".;
#X text 23 21 panning;
#X floatatom 83 155 0 0 0 0 - - -;
#X obj 83 123 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 0 1;
#X floatatom 166 217 0 0 0 0 - - -;
#X floatatom 83 217 0 0 0 0 - - -;
#X text 83 105 L < < < M > > > R;
#X text 20 398 © 1997 by Iain Mott and Karlheinz Essl;
#X text 67 318 L;
#X text 188 324 R;
#X text 129 156 controller value;
#X connect 2 0 8 0;
#X connect 2 1 7 0;
#X connect 5 0 2 0;
#X connect 6 0 5 0;
#X connect 7 0 0 0;
#X connect 8 0 1 0;

--- NEW FILE: periodic-help.pd ---
#N canvas 222 211 647 533 10;
#X obj 153 255 bng 15 250 50 1 empty empty reset 0 -6 0 8 -261689 -1
-1;
#X msg 42 316;
#X obj 42 270 collect;
#X text 27 -26 periodic;
#X text 27 6 Random number generator. The periodicity factor (float
between 0 and 1) determines the "periodicity" of the output \, i.e.
the probability of repetitions. A periodicity factor of 1 will result
in a completely periodic output (= constant repetition of a single
value) \, whereas a periodicity factor of 0 will result into a completely
unperiodic behaviour.;
#X obj 42 206 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 92 205 0 0 0 2 upper_limit - -;
#X floatatom 142 205 0 0 0 0 - - -;
#X text 185 437 1995-98 by Karlheinz Essl;
#X text 144 -12 vs. 1.1;
#X obj 42 246 periodic 10 0.5;
#X obj 42 374 list prepend 0;
#N canvas 0 0 450 300 graph1 0;
#X array \$0-period 67 float 0;
#X coords 0 10 66 -1 300 100 1;
#X restore 301 159 graph;
#X obj 42 410 s \$0-period;
#X msg 153 374 const 0;
#X obj 142 121 vsl 15 64 0 1 0 0 empty empty periodicity_factor 0 -8
0 8 -262144 -1 -1 0 1;
#X obj 42 174 until;
#X obj 42 150 t a b;
#X text 600 245 - 0;
#X text 601 154 - 10;
#X obj 42 290 t b a;
#X msg 42 115 67;
#X obj 483 314 tabosc4~ \$0-period;
#X floatatom 483 295 5 0 0 0 - - -;
#X obj 483 336 -~ 5;
#X obj 482 390 dac~;
#X obj 482 360 *~ 0.01;
#X text 185 453 vs. 1.1: seedable by the RTC-seed object;
#X connect 0 0 2 1;
#X connect 0 0 14 0;
#X connect 1 0 11 0;
#X connect 2 0 20 0;
#X connect 5 0 10 0;
#X connect 6 0 10 1;
#X connect 7 0 10 2;
#X connect 10 0 2 0;
#X connect 11 0 13 0;
#X connect 14 0 13 0;
#X connect 15 0 7 0;
#X connect 16 0 10 0;
#X connect 17 0 16 0;
#X connect 17 1 0 0;
#X connect 20 0 1 0;
#X connect 20 1 1 0;
#X connect 21 0 17 0;
#X connect 22 0 24 0;
#X connect 23 0 22 0;
#X connect 24 0 26 0;
#X connect 26 0 25 1;
#X connect 26 0 25 0;

--- NEW FILE: super-rhythm-help.pd ---
#N canvas 130 22 947 727 10;
#X text 58 46 Rhythm model based on a supply of entry delays (ED) which
elements are chosen by one of the selection principles alea \, series
or sequence. According to the index of the chosen ED the chord size
and the periodicity (probability of repetition) are calculated. The
rubato (in %) determines the statistical deviation from the selected
ED.;
#X text 58 14 super-rhythm;
#X text 58 137 see also:;
#X msg 124 137 repchord-rhythm;
#X text 286 250 max. index;
#X text 204 251 min. index;
#X text 389 249 min. index;
#X text 470 248 max. index;
#X text 394 264 - periodicity -;
#X text 216 266 - chord size -;
#X obj 73 267 tgl 15 0 empty empty start/stop 0 -6 0 8 -262144 -1 -1
1 1;
#X obj 73 355 super-rhythm 3 10 1 4 0.66 0.33;
#X floatatom 133 278 4 0 0 2 rubato - -;
#X floatatom 223 284 4 0 0 2 - - -;
#X floatatom 295 284 4 0 0 2 - - -;
#X floatatom 399 282 4 0 0 2 - - -;
#X floatatom 470 283 4 0 0 2 - - -;
#N canvas 176 361 448 143 ED-supply 0;
#X obj 440 69 outlet;
#X obj 440 35 r ED-supply;
#X obj 493 66 show;
#X obj 493 91 outlet;
#X text 256 18 construct your own supply;
#X text 20 18 select a given supply of ED's;
#X msg 20 80 1000 250 500 250 666 333;
#X msg 20 57 250 250 500 1000;
#N canvas 264 56 373 304 grid-pattern 0;
#X text 235 48 };
#X text 261 62 select a pattern;
#X msg 53 105 1 2 3;
#X msg 21 39 0.2 0.2 0.2 0.2 0.2 0.66 0.66 0.66 0.5 0.5 0.75 0.75 0.75
0.75;
#X msg 35 78 0.5 1.66 2.5 0.33;
#X text 293 140 grid;
#N canvas 63 44 421 204 create-pattern 0;
#X text 154 50 pattern element;
#X text 20 51 retrigger;
#X obj 83 48 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 105 48 0 0 0 0 - - -;
#X text 176 75 clear;
#X obj 156 74 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 105 102 0.14 0.14 0.14 0.14 0.14 0.14 0.14 0.8 0.8 0.8 0.8 0.8
0.33 0.33 0.33 0.33 1.52 1.51 1.51 1.51;
#X obj 105 73 collect;
#X text 44 75 send;
#X obj 83 74 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 105 133 outlet;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 5 0 7 1;
#X connect 6 0 10 0;
#X connect 7 0 6 0;
#X connect 9 0 6 0;
#X restore 70 140 pd create-pattern;
#N canvas 375 91 208 259 crunch 0;
#X obj 38 45 inlet;
#X obj 73 73 t b f;
#X obj 73 45 inlet;
#X obj 38 100 listreg;
#X obj 38 132 Lmult;
#X obj 38 162 Lround;
#X obj 38 194 outlet;
#X obj 64 194 s ED-supply;
#X connect 0 0 3 0;
#X connect 1 0 3 0;
#X connect 1 1 4 1;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 7 0;
#X restore 21 175 pd crunch;
#X obj 21 209 show;
#X msg 21 239 254 842 1268 167;
#X obj 61 210 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 81 211 clear display;
#X msg 245 118 500;
#X obj 281 116 loadbang;
#X floatatom 245 140 0 0 0 0 - - -;
#X connect 2 0 7 0;
#X connect 3 0 7 0;
#X connect 4 0 7 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 10 0 8 1;
#X connect 12 0 14 0;
#X connect 13 0 12 0;
#X connect 14 0 7 1;
#X restore 256 57 pd grid-pattern;
#N canvas 4 209 310 257 geometric-scale 0;
#X obj 19 76 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 149 86 0 0 0 0 - - -;
#X floatatom 214 86 0 0 0 0 - - -;
#X text 214 67 steps;
#X text 149 67 max.ED;
#X obj 19 112 make-ED-scale 100 1000 12;
#X msg 19 187 100 123.285 151.991 187.382 231.013 284.804 351.119 432.876
533.67 657.933 811.131 1000;
#X obj 60 155 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 19 154 show;
#X obj 146 154 s ED-supply;
#X text 81 150 clear display;
#X msg 149 45 1000;
#X msg 214 45 12;
#X floatatom 84 86 0 0 0 0 - - -;
#X text 84 67 min.ED;
#X msg 84 45 100;
#X obj 85 23 loadbang;
#X connect 0 0 5 0;
#X connect 1 0 5 2;
#X connect 2 0 5 3;
#X connect 5 0 8 0;
#X connect 5 0 9 0;
#X connect 7 0 8 1;
#X connect 8 0 6 0;
#X connect 11 0 1 0;
#X connect 12 0 2 0;
#X connect 13 0 5 1;
#X connect 15 0 13 0;
#X connect 16 0 15 0;
#X connect 16 0 11 0;
#X connect 16 0 12 0;
#X restore 256 79 pd geometric-scale;
#X obj 110 35 loadbang;
#X msg 20 35 200 400 600;
#N canvas 184 229 301 210 manually 0;
#X text 25 44 retrigger;
#X obj 89 43 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 89 70 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 50 72 send;
#X obj 111 69 collect;
#X floatatom 111 43 0 0 0 0 - - -;
#X msg 111 99 125 125 125 375 250 250 666 666 666;
#X obj 163 70 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 183 72 clear;
#X text 163 44 ED;
#X obj 111 144 s ED-supply;
#X connect 1 0 5 0;
#X connect 2 0 6 0;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 6 0 10 0;
#X connect 7 0 4 1;
#X restore 256 35 pd manually;
#X text 204 18 or...;
#X connect 1 0 0 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 6 0 0 0;
#X connect 6 0 2 0;
#X connect 7 0 0 0;
#X connect 7 0 2 0;
#X connect 10 0 11 0;
#X connect 11 0 0 0;
#X connect 11 0 2 0;
#X restore 571 277 pd ED-supply;
#X floatatom 229 432 4 0 0 1 brown_factor - -;
#X floatatom 284 394 4 0 0 1 chord_size - -;
#X floatatom 399 394 4 0 0 1 ED - -;
#X obj 73 452 brown-melody 36 84 0.25;
#X text 668 277 <<< click to change;
#X msg 650 307 250 250 500 1000;
#X msg 684 64 Rhythm-Generators;
#X obj 73 496 play2 127 500 1 1;
#X obj 399 420 * 0.99;
#X text 54 543 1995 by Karlheinz Essl;
#X text 90 168 selection principle;
#N canvas 556 269 497 418 sel_princ 0;
#X msg 231 228 1 alea;
#X msg 231 247 2 series;
#X msg 231 267 3 sequence;
#X msg 231 289 4 rota;
#X obj 231 318 list split 1;
#X obj 231 373 outlet;
#X obj 112 61 loadbang;
#X obj 112 192 select 1 2 3 4;
#X obj 112 171 + 1;
#X obj 112 123 hradio 15 1 0 4 empty empty empty 0 -6 0 8 -262144 -1
-1 3;
#X msg 112 82 2;
#X symbolatom 108 143 10 0 0 0 - - -;
#X connect 0 0 4 0;
#X connect 1 0 4 0;
#X connect 2 0 4 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 11 0;
#X connect 6 0 10 0;
#X connect 7 0 0 0;
#X connect 7 1 1 0;
#X connect 7 2 2 0;
#X connect 7 3 3 0;
#X connect 8 0 7 0;
#X connect 9 0 8 0;
#X connect 10 0 9 0;
#X coords 0 -1 1 1 90 65 1 100 100;
#X restore 103 186 pd sel_princ;
#X obj 87 389 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 143 395 bng 15 250 50 0 empty empty last 0 -6 0 8 -262144 -1
-1;
#X text 164 393 supply exhausted;
#X connect 10 0 11 0;
#X connect 11 0 30 0;
#X connect 11 0 21 0;
#X connect 11 1 31 0;
#X connect 11 2 19 0;
#X connect 11 3 20 0;
#X connect 12 0 11 2;
#X connect 13 0 11 3;
#X connect 14 0 11 4;
#X connect 15 0 11 5;
#X connect 16 0 11 6;
#X connect 17 0 11 7;
#X connect 17 1 23 0;
#X connect 18 0 21 3;
#X connect 20 0 26 0;
#X connect 21 0 25 0;
#X connect 26 0 25 2;
#X connect 29 0 11 1;

--- NEW FILE: between-log-help.pd ---
#N canvas 0 0 575 364 10;
#X floatatom 97 163 5 0 0 0 - - -;
#X msg 97 105 bang;
#X floatatom 143 110 5 0 0 2 min - -;
#X floatatom 190 111 5 0 0 2 max - -;
#X floatatom 238 113 5 0 0 2 steps - -;
#X obj 175 247 between-variations-help;
#X text 100 248 Also see:;
#X obj 97 136 between-log 0 90 10;
#X text 84 34 Bang (or any input) in left inlet outputs a random number
of a logarithmic scale between min and max with a certain number of
elements.;
#X connect 1 0 7 0;
#X connect 2 0 7 1;
#X connect 3 0 7 2;
#X connect 4 0 7 3;
#X connect 7 0 0 0;

--- NEW FILE: between-variations-help.pd ---
#N canvas 164 130 1035 596 10;
#X floatatom 97 163 5 0 0 0 - - -;
#X msg 97 105 bang;
#X floatatom 143 110 5 0 0 2 min - -;
#X floatatom 190 111 5 0 0 2 max - -;
#X floatatom 238 113 5 0 0 2 steps - -;
#X obj 97 136 between-lin 0 90 10;
#X floatatom 312 165 5 0 0 0 - - -;
#X msg 312 107 bang;
#X floatatom 358 112 5 0 0 2 min - -;
#X floatatom 405 113 5 0 0 2 max - -;
#X floatatom 453 115 5 0 0 2 steps - -;
#X floatatom 546 145 5 0 0 0 - - -;
#X msg 546 90 bang;
#X floatatom 585 92 5 0 0 2 min - -;
#X floatatom 625 92 5 0 0 2 max - -;
#X floatatom 545 233 5 0 0 0 - - -;
#X msg 545 175 bang;
#X floatatom 591 180 5 0 0 2 min - -;
#X floatatom 638 181 5 0 0 2 max - -;
#X floatatom 546 321 5 0 0 0 - - -;
#X msg 546 263 bang;
#X floatatom 599 268 5 0 0 2 min - -;
#X floatatom 653 269 5 0 0 2 max - -;
#X floatatom 727 230 5 0 0 0 - - -;
#X msg 727 172 bang;
#X floatatom 773 177 5 0 0 2 min - -;
#X floatatom 820 178 5 0 0 2 max - -;
#X floatatom 728 318 5 0 0 0 - - -;
#X msg 728 260 bang;
#X floatatom 788 265 5 0 0 2 min - -;
#X floatatom 849 266 5 0 0 2 max - -;
#X text 537 22 between as default outputs integers only. Use "f" or
"float" as third argument to output floats \, use "i" or "int" to choose
ints.;
#X floatatom 572 473 5 0 0 0 - - -;
#X msg 572 415 bang;
#X floatatom 625 420 5 0 0 2 min - -;
#X floatatom 679 421 5 0 0 2 max - -;
#X floatatom 734 477 5 0 0 0 - - -;
#X msg 734 419 bang;
#X floatatom 780 418 5 0 0 2 min - -;
#X floatatom 827 417 5 0 0 2 max - -;
#X obj 546 118 between 0 10;
#X obj 728 291 between 0 10 float;
#X obj 546 294 between 0 10 int;
#X obj 545 206 between 0 10 i;
#X obj 727 203 between 0 10 f;
#X obj 734 450 between 1 10.5;
#X obj 572 446 between 0.1 10 f;
#X text 542 364 Any float-argument that is not equal to its int() value
will auto-select float-mode.;
#X floatatom 573 565 5 0 0 0 - - -;
#X msg 573 507 bang;
#X floatatom 626 512 5 0 0 2 min - -;
#X floatatom 680 513 5 0 0 2 max - -;
#X obj 573 538 between 0.1 10 i;
#X text 125 532 unless you explicitly call for ints with the third
argument:;
#X obj 312 138 between-log 0 90 10;
#X connect 1 0 5 0;
#X connect 2 0 5 1;
#X connect 3 0 5 2;
#X connect 4 0 5 3;
#X connect 5 0 0 0;
#X connect 7 0 54 0;
#X connect 8 0 54 1;
#X connect 9 0 54 2;
#X connect 10 0 54 3;
#X connect 12 0 40 0;
#X connect 13 0 40 1;
#X connect 14 0 40 2;
#X connect 16 0 43 0;
#X connect 17 0 43 1;
#X connect 18 0 43 2;
#X connect 20 0 42 0;
#X connect 21 0 42 1;
#X connect 22 0 42 2;
#X connect 24 0 44 0;
#X connect 25 0 44 1;
#X connect 26 0 44 2;
#X connect 28 0 41 0;
#X connect 29 0 41 1;
#X connect 30 0 41 2;
#X connect 33 0 46 0;
#X connect 34 0 46 1;
#X connect 35 0 46 2;
#X connect 37 0 45 0;
#X connect 38 0 45 1;
#X connect 39 0 45 2;
#X connect 40 0 11 0;
#X connect 41 0 27 0;
#X connect 42 0 19 0;
#X connect 43 0 15 0;
#X connect 44 0 23 0;
#X connect 45 0 36 0;
#X connect 46 0 32 0;
#X connect 49 0 52 0;
#X connect 50 0 52 1;
#X connect 51 0 52 2;
#X connect 52 0 48 0;
#X connect 54 0 6 0;

--- NEW FILE: sneak-rhythm-help.pd ---
#N canvas 3 48 673 414 10;
#X msg 293 22 Rhythm-Generators;
#X text 18 51 Generates a rhythm which "sneaks" between neigboured
ED of a scale - this will result in a sort of continuous ritardando/accelerando/rubato
etc.;
#X text 18 19 sneak-rhythm;
#X text 18 104 see also:;
#X msg 83 102 rit-acc;
#X msg 139 102 ED-trans;
#X obj 35 185 sneak-rhythm 100 1000 12;
#X obj 35 145 tgl 15 0 empty empty start/stop 0 -6 0 8 -262144 -1 -1
1 1;
#X text 411 136 display;
#X text 446 153 max. ED;
#X text 446 259 min. ED;
#X obj 420 153 vsl 12 128 0 12 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 9525 1;
#X msg 35 220 60;
#X msg 205 102 brown-rhythm;
#X obj 420 92 lb 12;
#X text 18 297 1994 by Karlheinz Essl;
#X obj 35 249 QT-PercPlayer;
#X msg 420 113 range 0 \$1;
#X floatatom 89 162 4 0 0 2 min_ED - -;
#X floatatom 143 162 4 0 0 2 max_ED - -;
#X floatatom 198 163 4 0 0 2 ED-values - -;
#X floatatom 116 214 4 0 0 3 row_index - -;
#X floatatom 198 216 4 0 0 3 chosen_ED - -;
#X connect 6 0 12 0;
#X connect 6 1 21 0;
#X connect 6 2 22 0;
#X connect 7 0 6 0;
#X connect 12 0 16 0;
#X connect 14 0 17 0;
#X connect 17 0 11 0;
#X connect 18 0 6 1;
#X connect 19 0 6 2;
#X connect 20 0 6 3;
#X connect 20 0 17 0;
#X connect 21 0 11 0;

--- NEW FILE: make-choice-list.pd ---
#N canvas 311 94 558 625 10;
#X obj 224 163 + 1;
#X obj 61 559 outlet;
#X text 252 354 chooses list elements
;
#X text 273 238 chooses list size
;
#X text 82 152 generate a new list
;
#X obj 180 79 inlet;
#X obj 224 79 inlet;
#X obj 318 79 inlet;
#X obj 275 79 inlet;
#X obj 61 24 inlet;
#X text 174 453 1993-98 by Karlheinz
Essl;
#X obj 222 322 outlet;
#X text 174 469 vs. 1.1;
#X obj 318 125 int \$4;
#X obj 224 125 int \$2;
#X obj 335 463 t a;
#X obj 243 463 list prepend;
#X obj 61 520 list;
#X obj 192 362 until;
#X obj 192 288 t a a;
#X obj 148 235 moses 0;
#X obj 192 258 int;
#X obj 308 180 + 1;
#X obj 374 79 loadbang;
#X obj 120 42 s \$0-reset-output;
#X obj 322 436 r \$0-reset-output;
#X obj 84 463 r \$0-reset-output;
#X obj 61 42 t b b b;
#X text 222 339 length;
#X obj 148 200 between \$1;
#X obj 243 427 int;
#X obj 243 392 between \$3;
#X connect 0 0 29 2;
#X connect 5 0 29 1;
#X connect 6 0 14 0;
#X connect 7 0 13 0;
#X connect 8 0 31 1;
#X connect 9 0 27 0;
#X connect 13 0 22 0;
#X connect 14 0 0 0;
#X connect 15 0 16 1;
#X connect 16 0 15 0;
#X connect 16 0 17 1;
#X connect 17 0 1 0;
#X connect 18 0 31 0;
#X connect 19 0 18 0;
#X connect 19 1 11 0;
#X connect 20 1 21 0;
#X connect 21 0 19 0;
#X connect 22 0 31 2;
#X connect 23 0 13 0;
#X connect 23 0 14 0;
#X connect 25 0 16 1;
#X connect 26 0 17 1;
#X connect 27 0 17 0;
#X connect 27 1 29 0;
#X connect 27 2 24 0;
#X connect 29 0 20 0;
#X connect 30 0 16 0;
#X connect 31 0 30 0;

--- NEW FILE: round.pd ---
#N canvas 63 44 245 212 10;
#X obj 39 157 outlet;
#X obj 39 62 inlet;
#X obj 39 92 + 0.5;
#X obj 39 124 int;
#X text 63 158 1993 by Karlheinz
Essl;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 0 0;

--- NEW FILE: cresc-decresc-help.pd ---
#N canvas 172 121 524 498 10;
#X text 29 68 Transition between a start velocity and an end velocity
within a certain time. When the start velocity is bigger than the end
velocity \, a decrescendo will be obtained. If the end velocity is
bigger than the start velocity \, it will result in a crescendo. A
bang is sent out the right outlet when the dynamic transition is over.
;
#X text 29 36 cresc-decresc;
#X floatatom 150 204 0 0 0 0 - - -;
#X obj 93 194 tgl 15 0 empty empty start/stop 0 -6 0 8 -262144 -1 -1
0 1;
#X obj 93 231 metro 150;
#X floatatom 257 216 0 0 0 2 start_velocity - -;
#X floatatom 257 250 0 0 0 2 end_velocity - -;
#X floatatom 256 288 0 0 0 2 time - -;
#X msg 93 166 0;
#X floatatom 93 348 4 0 0 1 velocity - -;
#X text 59 414 1993 by Karlheinz Essl;
#X obj 256 345 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 93 310 cresc-decresc 1 127 5000;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 12 0;
#X connect 5 0 12 1;
#X connect 6 0 12 2;
#X connect 7 0 12 3;
#X connect 8 0 3 0;
#X connect 12 0 9 0;
#X connect 12 1 8 0;
#X connect 12 1 11 0;

--- NEW FILE: crossfade~-help.pd ---
#N canvas 251 120 570 535 10;
#X text 80 187 signal 2;
#X msg 207 476 RTC-Overview;
#X msg 378 33 MSP-RTC;
#X text 26 502 1999 by Gerhard Eckel & Karlheinz Essl;
#X text 24 66 Crossfades two input signals according to a sine function
which guarantees that loudness of the result is constant.;
#X text 24 34 crossfade~;
#X floatatom 113 267 5 0 0 0 - - -;
#X obj 116 244 hsl 128 15 0 127 0 0 empty empty crossfader -2 -8 0
10 -262144 -1 -1 0 1;
#X obj 48 307 crossfade~;
#X obj 48 335 *~ 0.5;
#X text 44 130 signal 1;
#X obj 81 204 osc~ 800;
#X obj 48 150 osc~ 400;
#X obj 284 289 vu 15 120 empty empty -1 -8 0 8 -66577 -1 1 0;
#X obj 241 369 env~;
#X obj 241 394 - 100;
#N canvas 97 74 495 413 linear 0;
#X obj 135 165 expr 1-$f1 \; $f1;
#X obj 136 142 / 127;
#X obj 73 212 *~;
#X obj 110 214 *~;
#X obj 74 293 env~;
#X obj 74 318 - 100;
#X obj 74 268 +~;
#X obj 74 58 inlet~;
#X obj 109 82 inlet~;
#X obj 136 122 inlet;
#X text 42 28 This linear fading has a "hole in the middle" effect
;
#X obj 74 342 outlet;
#X connect 0 0 2 1;
#X connect 0 1 3 1;
#X connect 1 0 0 0;
#X connect 2 0 6 0;
#X connect 3 0 6 1;
#X connect 4 0 5 0;
#X connect 5 0 11 0;
#X connect 6 0 4 0;
#X connect 7 0 2 0;
#X connect 8 0 3 0;
#X connect 9 0 1 0;
#X restore 376 243 pd linear;
#X obj 377 288 vu 15 120 empty empty -1 -8 0 8 -66577 -1 1 0;
#X obj 47 413 *~ 0;
#X obj 73 373 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 7600 1;
#X obj 70 393 dbtorms;
#X obj 47 437 dac~;
#X text 369 212 "hole in middle";
#X text 125 305 arg1: 0-127;
#X connect 6 0 8 2;
#X connect 6 0 16 2;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 8 0 14 0;
#X connect 9 0 18 0;
#X connect 11 0 8 1;
#X connect 11 0 16 1;
#X connect 12 0 8 0;
#X connect 12 0 16 0;
#X connect 14 0 15 0;
#X connect 15 0 13 0;
#X connect 16 0 17 0;
#X connect 18 0 21 0;
#X connect 18 0 21 1;
#X connect 19 0 20 0;
#X connect 20 0 18 1;

--- NEW FILE: RTC-device.pd ---
#N canvas 63 44 198 241 10;
#X obj 130 46 inlet;
#X obj 24 46 loadbang;
#X msg 24 74 1;
#X obj 24 100 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 24 161 int;
#X obj 24 191 s RTC-dev;
#X obj 24 128 metro 1000;
#X connect 0 0 4 1;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 4 0 5 0;
#X connect 6 0 4 0;

--- NEW FILE: wave-rhythm-help.pd ---
#N canvas 63 44 500 330 10;
#X floatatom 227 171 0 0 0 0 - - -;
#X obj 64 226 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 227 226 0 0 0 0 - - -;
#X floatatom 145 226 0 0 0 0 - - -;
#X obj 64 171 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X text 259 170 start position;
#X floatatom 194 67 0 0 0 0 - - -;
#X obj 31 122 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 194 122 0 0 0 0 - - -;
#X floatatom 112 122 0 0 0 0 - - -;
#X obj 31 67 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X text 229 68 start position;
#X obj 64 193 wave-rhythm 2000 500 5 1;
#X obj 31 89 wave-rhythm 500 2000 5 1;
#X connect 0 0 12 4;
#X connect 4 0 12 0;
#X connect 6 0 13 4;
#X connect 10 0 13 0;
#X connect 12 0 1 0;
#X connect 12 1 3 0;
#X connect 12 2 2 0;
#X connect 13 0 7 0;
#X connect 13 1 9 0;
#X connect 13 2 8 0;

--- NEW FILE: pitch-from-row.pd ---
#N canvas 223 70 296 304 10;
#X obj 43 240 outlet;
#X obj 43 206 transp-pitch;
#X obj 210 51 inlet;
#X obj 43 162 sequence;
#X obj 43 51 inlet;
#X obj 94 85 row-modus;
#X obj 94 51 inlet;
#X obj 152 52 inlet;
#X obj 94 117 normalize-row;
#X obj 124 169 outlet;
#X obj 199 240 outlet;
#X text 62 275 1994 by Karlheinz Essl;
#X obj 94 139 t a a;
#X connect 1 0 0 0;
#X connect 2 0 1 1;
#X connect 3 0 1 0;
#X connect 3 1 10 0;
#X connect 4 0 3 0;
#X connect 5 0 8 0;
#X connect 6 0 5 0;
#X connect 7 0 5 1;
#X connect 8 0 12 0;
#X connect 12 0 3 1;
#X connect 12 1 9 0;

--- NEW FILE: scale-rhythm.pd ---
#N canvas 63 44 684 386 10;
#X msg 336 107 0 0 0 0 0 0 0 1 0 1 0 0;
#X obj 53 138 outlet;
#X text 341 220 index list;
#X obj 444 166 make-ED-scale 50 500 12;
#X obj 444 136 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 205 184 show;
#X msg 205 218 0 8 9;
#X obj 93 156 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 141 219 index;
#X floatatom 93 217 0 0 0 0 - - -;
#X obj 93 184 permutate;
#X obj 148 152 scale-changer;
#X obj 539 135 r sca-rhy.max.ED;
#X obj 230 46 r sca-rhy.steps;
#X obj 148 128 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 148 102 r sca-rhy.change;
#X obj 93 33 inlet;
#X floatatom 93 276 0 0 0 0 - - -;
#X text 144 277 ED;
#X obj 93 248 nth;
#X obj 93 307 outlet;
#X obj 93 57 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 93 83 metro 500;
#N canvas 16 68 431 413 make-start-scale 0;
#X obj 53 37 inlet;
#X obj 240 98 abs;
#X obj 240 70 - 12;
#X msg 240 241 0 0 0 0 0 0 0 0 0 0;
#X obj 240 129 t f b;
#X msg 240 185 0;
#X obj 240 157 Uzi;
#X obj 240 212 collect;
#X obj 53 74 t b b f;
#X msg 53 249 1 1;
#X obj 53 308 scramble;
#X obj 53 353 outlet;
#X obj 98 136 t f b;
#X msg 98 193 1;
#X obj 98 165 Uzi;
#X obj 98 220 collect;
#X obj 133 334 show;
#X obj 133 362 outlet;
#X obj 53 277 list prepend;
#X connect 0 0 8 0;
#X connect 1 0 4 0;
#X connect 2 0 1 0;
#X connect 3 0 18 1;
#X connect 4 0 6 0;
#X connect 4 1 7 1;
#X connect 5 0 7 0;
#X connect 6 0 5 0;
#X connect 7 0 3 0;
#X connect 8 0 9 0;
#X connect 8 1 3 0;
#X connect 8 2 12 0;
#X connect 8 2 2 0;
#X connect 9 0 18 0;
#X connect 10 0 11 0;
#X connect 10 0 16 0;
#X connect 12 0 14 0;
#X connect 12 1 15 1;
#X connect 13 0 15 0;
#X connect 14 0 13 0;
#X connect 15 0 9 0;
#X connect 16 0 17 0;
#X connect 18 0 10 0;
#X restore 230 69 pd make-start-scale;
#X obj 495 69 r sca-rhy.min.ED;
#X connect 3 0 19 1;
#X connect 4 0 3 0;
#X connect 5 0 6 0;
#X connect 7 0 10 0;
#X connect 9 0 19 0;
#X connect 10 0 9 0;
#X connect 12 0 4 0;
#X connect 12 0 3 2;
#X connect 13 0 23 0;
#X connect 14 0 11 0;
#X connect 15 0 14 0;
#X connect 16 0 21 0;
#X connect 17 0 20 0;
#X connect 17 0 22 1;
#X connect 19 0 17 0;
#X connect 21 0 22 0;
#X connect 22 0 1 0;
#X connect 22 0 7 0;
#X connect 23 1 0 0;
#X connect 24 0 4 0;
#X connect 24 0 3 1;

--- NEW FILE: sneak-random.pd ---
#N canvas 136 422 383 299 10;
#X obj 96 182 anti-bis;
#X text 160 232 vs. 1.1;
#X text 160 217 1994 by Karlheinz Essl;
#X text 177 95 must not be < 1!!!;
#X obj 139 91 - 1;
#X obj 96 215 outlet;
#X obj 96 150 drunk 5 2;
#X obj 139 31 inlet;
#X obj 96 32 inlet;
#X obj 139 57 int \$1;
#X obj 96 119 b;
#X obj 96 57 t a a;
#X connect 0 0 5 0;
#X connect 0 1 10 0;
#X connect 4 0 6 1;
#X connect 6 0 0 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 4 0;
#X connect 10 0 6 0;
#X connect 11 0 10 0;
#X connect 11 1 9 0;

--- NEW FILE: brownian-help.pd ---
#N canvas 271 188 579 389 10;
#X floatatom 91 191 0 0 0 2 min - -;
#X floatatom 134 191 0 0 0 2 max - -;
#X floatatom 177 190 0 0 0 2 brownian_factor - -;
#X floatatom 49 255 6 0 0 1 result - -;
#X obj 49 182 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 42 291 1993-98 by Gerhard Eckel;
#X text 43 309 vs. 1.1: seedable by RTC-seed;
#N canvas 503 52 568 672 ints-and-floats 0;
#X floatatom 125 146 0 0 0 2 min - -;
#X floatatom 182 146 0 0 0 2 max - -;
#X floatatom 239 145 0 0 0 2 brownian_factor - -;
#X floatatom 69 209 6 0 0 1 result - -;
#X obj 69 136 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X floatatom 74 383 6 0 0 1 result - -;
#X obj 74 310 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 70 253 If you use non-whole numbers like "1.5" for min or max
\, brownian will try to be smart and go into float mode automatically:
;
#X floatatom 72 571 6 0 0 1 result - -;
#X obj 72 498 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 59 92 If you want float values \, use "f" or "float" as last
\, fourth argument.;
#X text 69 606 This is done because Max handles floating point numbers
differently from integer values \, but in Pd everything is a float.
;
#X text 62 23 This abstraction can operate in two modes: int or float.
Default mode of operation is determined by its arguments. If you supply
whole numbers as "min" and "max" \, brownian will generate integer
values.;
#X text 71 443 You can override this smart behaviour by explicitly
ordering integer values using "i" or "int" as last \, fourth argument.
;
#X floatatom 307 203 6 0 0 1 result - -;
#X obj 307 160 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 69 175 brownian -10 10 0.5 float;
#X obj 74 349 brownian -1.5 1.5 0.5;
#X obj 72 537 brownian -1.5 1.5 0.5 int;
#X obj 307 179 brownian -10 10 0.5 f;
#X connect 0 0 16 1;
#X connect 1 0 16 2;
#X connect 2 0 16 3;
#X connect 4 0 16 0;
#X connect 6 0 17 0;
#X connect 9 0 18 0;
#X connect 15 0 19 0;
#X connect 16 0 3 0;
#X connect 17 0 5 0;
#X connect 18 0 8 0;
#X connect 19 0 14 0;
#X restore 375 207 pd ints-and-floats;
#X text 296 207 Read this:;
#X text 17 25 brownian;
#X text 30 63 Random generator based on "brownian movements". Outputs
random numbers between min <int \, float> and max <int \, float> excluding
max. The distance between two random numbers is determined by the brownian
factor <float between 0 and 1>. When this factor is 1 \, "brownian"
behaves like an ordinary random generator. When the factor is O \,
always the same number is repeated.;
#X obj 49 221 brownian -10 10 0.5;
#N canvas 350 201 591 415 visual-example 0;
#N canvas 0 0 450 300 graph1 0;
#X array \$0-walker 50 float 0;
#X coords 0 10 49 -10 200 140 1;
#X restore 321 93 graph;
#X floatatom 177 190 0 0 0 2 brownian_factor - -;
#X obj 49 163 until;
#X msg 49 107 50;
#X obj 49 128 t a b;
#X obj 170 271 f 0;
#X obj 197 271 + 1;
#X obj 49 242 t a b;
#X obj 49 292 tabwrite \$0-walker;
#X msg 186 250 0;
#X msg 177 34 0;
#X msg 177 139 1;
#X msg 177 97 0.5;
#X msg 177 76 0.1;
#X msg 177 118 0.9;
#X obj 49 55 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 49 74 metro 150;
#X msg 177 55 0.01;
#X obj 49 221 brownian -10 10 0.5;
#X connect 1 0 18 3;
#X connect 2 0 18 0;
#X connect 3 0 4 0;
#X connect 4 0 2 0;
#X connect 4 1 9 0;
#X connect 5 0 6 0;
#X connect 5 0 8 1;
#X connect 6 0 5 1;
#X connect 7 0 8 0;
#X connect 7 1 5 0;
#X connect 9 0 5 1;
#X connect 10 0 1 0;
#X connect 11 0 1 0;
#X connect 12 0 1 0;
#X connect 13 0 1 0;
#X connect 14 0 1 0;
#X connect 15 0 16 0;
#X connect 16 0 3 0;
#X connect 17 0 1 0;
#X connect 18 0 7 0;
#X restore 377 272 pd visual-example;
#X connect 0 0 11 1;
#X connect 1 0 11 2;
#X connect 2 0 11 3;
#X connect 4 0 11 0;
#X connect 11 0 3 0;

--- NEW FILE: sneak-help.pd ---
#N canvas 332 193 471 567 10;
#X text 368 483 object;
#X text 123 483 vs. 1.1: seedable by the;
#X msg 305 482 RTC-seed;
#X msg 315 23 Chance;
#X text 15 67 A bang in the left inlet makes a random selection of
a supply sent to right inlet before. Note that there are no repetitions
of the same element and that the chosen elements are always neighbours
of the given supply.;
#X text 15 35 sneak;
#X text 15 131 see also:;
#X obj 29 287 sneak;
#X text 258 217 };
#X msg 107 264 7 Shadock 3.14 x;
#X floatatom 59 312 4 0 0 1 chosen_list_index - -;
#X obj 29 351 collect;
#X msg 29 384;
#X obj 85 350 bng 15 250 50 1 empty empty clear 0 -6 0 8 -262144 -1
-1;
#X text 123 468 1994 by Karlheinz Essl;
#X msg 155 154 sel-princ;
#X msg 83 154 permutate;
#X msg 83 131 alea;
#N canvas 50 61 145 190 slider 0;
#X obj 38 52 inlet;
#X obj 38 129 outlet;
#X obj 38 78 list-len;
#X msg 38 103 range 0 \$1;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X restore 298 279 pd slider;
#X text 159 209 supply;
#X msg 104 208 a b c;
#X obj 29 246 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 104 185 loadbang;
#X msg 221 154 rota;
#X msg 260 154 choose;
#X msg 120 131 series;
#X msg 170 131 sequence;
#X msg 236 131 groups;
#X msg 289 131 ratio;
#X text 103 47 vs. 1.1;
#X obj 301 304 hsl 128 15 0 12 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 3175 1;
#X msg 105 237 1 2 3 4 5;
#X connect 7 0 11 0;
#X connect 7 1 10 0;
#X connect 7 1 30 0;
#X connect 9 0 7 1;
#X connect 9 0 18 0;
#X connect 11 0 12 0;
#X connect 13 0 11 1;
#X connect 18 0 30 0;
#X connect 20 0 7 1;
#X connect 20 0 18 0;
#X connect 21 0 7 0;
#X connect 22 0 20 0;
#X connect 31 0 7 1;
#X connect 31 0 18 0;

--- NEW FILE: anti-octave-help.pd ---
#N canvas 3 48 600 434 10;
#X text 29 107 see also:;
#X text 29 25 anti-octave;
#X text 29 57 Filters out octaves between two consecutive notes and
outputs a bang from right outlet whenever an octave has occured.;
#X msg 99 129 check-octaves;
#X msg 99 106 anti-octave&prime;
#X msg 224 106 anti-interval;
#X obj 43 211 anti-octave;
#X msg 326 23 Harmony;
#X obj 43 287 play2 127 500 0 1;
#X floatatom 43 255 0 0 0 0 - - -;
#X text 78 256 note name;
#X text 29 339 1993 by Karlheinz Essl;
#X obj 137 209 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 161 206 Flashes when an octave would have occured;
#X msg 43 173 10 \, 11 \, 12 \, 24;
#X connect 6 0 9 0;
#X connect 6 1 12 0;
#X connect 9 0 8 0;
#X connect 14 0 6 0;

--- NEW FILE: banger16.pd ---
#N canvas 549 180 474 378 10;
#X obj 32 50 inlet;
#X obj 33 156 select 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15;
#X obj 33 180 outlet;
#X obj 43 190 outlet;
#X obj 53 200 outlet;
#X obj 63 210 outlet;
#X obj 73 220 outlet;
#X obj 83 230 outlet;
#X obj 93 240 outlet;
#X obj 103 250 outlet;
#X obj 113 260 outlet;
#X obj 123 270 outlet;
#X obj 132 276 outlet;
#X obj 145 287 outlet;
#X obj 155 293 outlet;
#X obj 165 303 outlet;
#X obj 175 313 outlet;
#X obj 185 323 outlet;
#X obj 33 105 f;
#X obj 32 74 route set;
#X obj 59 106 + 1;
#X obj 86 106 mod 16;
#X obj 123 39 f \$1;
#X obj 123 62 select 0;
#X msg 123 83 16;
#X obj 123 19 loadbang;
#X connect 0 0 19 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 1 2 4 0;
#X connect 1 3 5 0;
#X connect 1 4 6 0;
#X connect 1 5 7 0;
#X connect 1 6 8 0;
#X connect 1 7 9 0;
#X connect 1 8 10 0;
#X connect 1 9 11 0;
#X connect 1 10 12 0;
#X connect 1 11 13 0;
#X connect 1 12 14 0;
#X connect 1 13 15 0;
#X connect 1 14 16 0;
#X connect 1 15 17 0;
#X connect 18 0 20 0;
#X connect 18 0 1 0;
#X connect 19 0 18 1;
#X connect 19 1 18 0;
#X connect 20 0 21 0;
#X connect 21 0 18 1;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 23 1 21 1;
#X connect 24 0 21 1;
#X connect 25 0 22 0;

--- NEW FILE: wave-rhythm.pd ---
#N canvas 482 338 688 457 10;
#X obj 213 362 outlet;
#X obj 367 25 loadbang;
#X text 438 390 1999 by Karlheinz Essl;
#X text 438 376 vs. 1;
#X obj 307 362 outlet;
#X obj 60 361 outlet;
#X obj 60 45 inlet;
#X obj 504 45 inlet;
#X obj 367 136 - 1;
#X obj 172 44 inlet;
#X obj 205 62 inlet;
#X obj 416 45 inlet;
#X msg 82 270 stop;
#X obj 60 125 t b b;
#X obj 60 96 sel 1 0;
#X obj 109 311 delay;
#X obj 454 89 int \$4;
#X obj 367 89 int \$3;
#X obj 139 233 trans-log \$1 \$2;
#X obj 60 71 f 0;
#X obj 88 71 + 1;
#X obj 117 70 mod 2;
#X obj 109 150 t b b;
#X obj 139 200 t a a;
#X obj 139 262 t a a;
#N canvas 0 0 626 422 updown-counter 0;
#X obj 163 233 f 0;
#X obj 197 234 + 1;
#X obj 237 235 mod 1;
#X floatatom 341 151 5 0 0 0 - - -;
#X obj 163 256 t a a;
#X obj 280 193 t a a a;
#X obj 243 259 select;
#X obj 299 260 select 0;
#X obj 302 232 - 1;
#X msg 213 189 -1;
#X msg 241 189 1;
#X obj 163 121 inlet;
#X obj 205 122 inlet;
#X obj 280 122 inlet;
#X msg 205 145 0;
#X obj 163 160 b;
#X text 164 99 bng;
#X text 204 102 reset;
#X text 282 101 modmax;
#X obj 163 290 outlet;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 2 0 0 1;
#X connect 3 0 5 0;
#X connect 4 0 1 0;
#X connect 4 0 19 0;
#X connect 4 1 6 0;
#X connect 5 0 2 1;
#X connect 5 1 8 0;
#X connect 6 0 9 0;
#X connect 6 1 7 0;
#X connect 7 0 10 0;
#X connect 8 0 6 1;
#X connect 9 0 1 1;
#X connect 10 0 1 1;
#X connect 11 0 15 0;
#X connect 12 0 14 0;
#X connect 13 0 5 0;
#X connect 14 0 0 1;
#X connect 15 0 0 0;
#X restore 339 231 pd updown-counter;
#X obj 453 202 -;
#X obj 367 57 t b b;
#X obj 339 264 +;
#X floatatom 495 234 5 0 0 0 - - -;
#X obj 454 152 t a b a;
#X obj 367 111 t a a;
#X connect 1 0 27 0;
#X connect 6 0 19 0;
#X connect 7 0 16 1;
#X connect 8 0 18 3;
#X connect 9 0 18 1;
#X connect 10 0 18 2;
#X connect 11 0 17 1;
#X connect 12 0 15 0;
#X connect 13 0 5 0;
#X connect 13 1 22 0;
#X connect 14 0 13 0;
#X connect 14 1 12 0;
#X connect 15 0 22 0;
#X connect 15 0 5 0;
#X connect 16 0 30 0;
#X connect 17 0 31 0;
#X connect 18 0 24 0;
#X connect 19 0 20 0;
#X connect 19 0 14 0;
#X connect 20 0 21 0;
#X connect 21 0 19 1;
#X connect 22 0 15 0;
#X connect 22 1 25 0;
#X connect 23 0 18 0;
#X connect 23 1 0 0;
#X connect 24 0 15 1;
#X connect 24 1 4 0;
#X connect 25 0 28 0;
#X connect 26 0 25 2;
#X connect 26 0 29 0;
#X connect 27 0 17 0;
#X connect 27 1 16 0;
#X connect 28 0 23 0;
#X connect 30 0 28 1;
#X connect 30 1 26 0;
#X connect 30 2 26 1;
#X connect 31 0 8 0;
#X connect 31 1 26 0;

--- NEW FILE: butlast.pd ---
#N canvas 50 61 246 246 10;
#X obj 49 172 outlet;
#X obj 49 28 inlet;
#X obj 114 115 - 1;
#X obj 114 85 list-len;
#X obj 49 50 t a a;
#X obj 49 140 list split;
#X connect 1 0 4 0;
#X connect 2 0 5 1;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 4 1 3 0;
#X connect 5 0 0 0;

--- NEW FILE: integ.pd ---
#N canvas 41 129 245 217 10;
#X obj 38 46 inlet;
#X obj 38 157 outlet;
#X obj 95 46 inlet;
#X text 63 158 1993 by Gerhard Eckel
;
#X obj 66 114 f 0;
#X obj 38 114 +;
#X msg 95 79 0;
#X connect 0 0 5 0;
#X connect 2 0 6 0;
#X connect 4 0 5 1;
#X connect 5 0 4 0;
#X connect 5 0 1 0;
#X connect 6 0 5 1;

--- NEW FILE: scramble.pd ---
#N canvas 472 261 465 385 10;
#X obj 131 28 inlet;
#N canvas 0 0 450 300 nth 0;
#X obj 113 155 list-idx;
#X obj 113 129 list;
#X obj 113 101 t b a;
#X obj 113 80 inlet;
#X obj 157 79 inlet;
#X obj 113 178 outlet;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 2 1 0 1;
#X connect 3 0 2 0;
#X connect 4 0 1 1;
#X restore 154 220 pd nth;
#X obj 154 247 list prepend;
#X obj 248 247 t a;
#X obj 131 272 list;
#N canvas 0 0 565 375 scramble 0;
#X obj 123 96 list-len;
#X obj 91 157 until;
#X obj 123 117 t a b a;
#X msg 134 157 clear;
#X obj 123 70 inlet;
#X obj 144 225 outlet;
#X obj 144 198 urne;
#X connect 0 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 1 0;
#X connect 2 1 3 0;
#X connect 2 2 6 1;
#X connect 3 0 6 0;
#X connect 4 0 0 0;
#X connect 6 0 5 0;
#X restore 154 189 pd scramble;
#X obj 131 128 t b a a b;
#X obj 131 304 outlet;
#X obj 131 53 route bang;
#X obj 196 75 t b a;
#X obj 131 104 list;
#X obj 131 74 b;
#X connect 0 0 8 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 4 1;
#X connect 3 0 2 1;
#X connect 4 0 7 0;
#X connect 5 0 1 0;
#X connect 6 0 4 0;
#X connect 6 1 5 0;
#X connect 6 2 1 1;
#X connect 6 3 2 1;
#X connect 8 0 11 0;
#X connect 8 1 9 0;
#X connect 9 0 10 0;
#X connect 9 1 10 1;
#X connect 10 0 6 0;
#X connect 11 0 10 0;

--- NEW FILE: brown-rhythm.pd ---
#N canvas 525 278 443 366 10;
#X obj 40 29 inlet;
#X obj 195 168 inlet;
#X obj 162 142 inlet;
#X obj 99 174 outlet;
#X obj 40 312 outlet;
#X obj 40 230 metro 300;
#X obj 159 254 outlet;
#X obj 281 142 - 1;
#X obj 251 32 inlet;
#X text 133 50 this numbox prohibits
numbers < 2!;
#X obj 352 32 inlet;
#X obj 70 79 sel 1;
#X text 160 273 1993-94 by Karlheinz
Essl;
#X text 160 288 vs. 2;
#X obj 281 112 int \$3;
#X obj 99 116 brownian 0 \$3 \$4;
#X obj 40 53 t a a;
#X obj 251 57 t a a;
#X obj 99 143 t a a;
#X obj 129 227 t a a;
#X obj 40 254 t b b;
#X obj 129 200 trans-log \$1 \$2;
#X connect 0 0 16 0;
#X connect 1 0 21 2;
#X connect 2 0 21 1;
#X connect 5 0 20 0;
#X connect 7 0 21 3;
#X connect 8 0 17 0;
#X connect 10 0 15 3;
#X connect 11 0 14 0;
#X connect 14 0 7 0;
#X connect 15 0 18 0;
#X connect 16 0 5 0;
#X connect 16 1 11 0;
#X connect 17 0 15 2;
#X connect 17 1 14 0;
#X connect 18 0 3 0;
#X connect 18 1 21 0;
#X connect 19 0 5 1;
#X connect 19 1 6 0;
#X connect 20 0 4 0;
#X connect 20 1 15 0;
#X connect 21 0 19 0;

--- NEW FILE: Lround.pd ---
#N canvas 458 363 493 363 10;
#X obj 131 15 inlet;
#X obj 131 272 outlet;
#X obj 131 231 list-round;
#X obj 254 171 pow;
#X obj 254 119 t b a;
#X msg 254 147 10;
#X obj 254 92 * -1;
#X obj 269 42 loadbang;
#X obj 254 71 f \$1;
#X obj 254 19 inlet;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X connect 3 0 2 1;
#X connect 4 0 5 0;
#X connect 4 1 3 1;
#X connect 5 0 3 0;
#X connect 6 0 4 0;
#X connect 7 0 8 0;
#X connect 8 0 6 0;
#X connect 9 0 8 0;

--- NEW FILE: between-lin-urn.pd ---
#N canvas 296 99 475 353 10;
#X obj 43 34 r RTC-rs;
#X msg 43 103 seed \$1;
#X obj 110 235 outlet;
#X obj 275 158 - 1;
#X obj 154 34 inlet;
#X obj 196 34 inlet;
#X obj 245 36 inlet;
#X obj 110 34 inlet;
#X obj 187 237 outlet;
#X text 164 260 1996-98 by Karlheinz Essl;
#X text 164 275 vs. 1.1;
#X obj 245 84 int \$3;
#X obj 110 197 trans-lin \$1 \$2;
#X obj 110 165 t a a;
#X msg 125 112 clear \, bang;
#X text 151 304 urn *not* from zexy assumed;
#X obj 245 107 t a a;
#X obj 257 57 loadbang;
#X obj 110 64 b;
#X obj 110 139 urne \$3;
#X connect 0 0 1 0;
#X connect 1 0 19 0;
#X connect 3 0 12 3;
#X connect 4 0 12 1;
#X connect 5 0 12 2;
#X connect 6 0 11 0;
#X connect 7 0 18 0;
#X connect 11 0 16 0;
#X connect 12 0 2 0;
#X connect 13 0 12 0;
#X connect 13 1 8 0;
#X connect 14 0 19 0;
#X connect 16 0 19 1;
#X connect 16 1 3 0;
#X connect 17 0 11 0;
#X connect 18 0 19 0;
#X connect 19 0 13 0;
#X connect 19 1 14 0;

--- NEW FILE: group-rhythm-help.pd ---
#N canvas 290 201 486 535 10;
#X text 15 36 group-rhythm;
#X msg 336 23 Rhythm-Generators;
#X text 13 65 Generates a rhythm by choosing elements of a given supply
(provided by a geometrical row with its parameters: minimum entry delay
\, maximum entry delay and number of entry delays) and repeating a
chosen value according to the periodicity parameter. This modules incorporates
the "Gruppen"-theory of Karlheinz Stockhausen ("...wie die Zeit vergeht..."
\, in: "die reihe" \, Vol. 3 \, Vienna 1957) and reflects some considerations
of Gottfried Michael Koenig about serialism and aleatory ("Aleatorische
und serielle Verfahren in der elektronischen Musik" \, in: Die Sonde
\, Vol. 5/1 \, Bonn 1965).;
#X obj 39 269 tgl 15 0 empty empty start/stop 0 -6 0 8 -262144 -1 -1
1 1;
#X floatatom 230 307 0 0 0 2 periodicity_(0-1) - -;
#X floatatom 86 289 4 0 0 2 min_ED - -;
#X floatatom 182 292 4 0 0 2 ED-values - -;
#X floatatom 134 290 4 0 0 2 max_ED - -;
#X obj 39 341 group-rhythm 100 1000 12 0.5;
#X floatatom 230 374 4 0 0 3 ED - -;
#X floatatom 134 375 4 0 0 3 row_index - -;
#X text 17 226 see also:;
#X text 214 50 vs. 2;
#X obj 39 413 QT-PercPlayer;
#X text 16 454 1993-94 by Karlheinz Essl;
#X msg 84 224 group-rhythm2;
#X msg 39 379 60;
#X connect 3 0 8 0;
#X connect 4 0 8 4;
#X connect 5 0 8 1;
#X connect 6 0 8 3;
#X connect 7 0 8 2;
#X connect 8 0 16 0;
#X connect 8 1 10 0;
#X connect 8 2 9 0;
#X connect 16 0 13 0;

--- NEW FILE: ratio-help.pd ---
#N canvas 87 28 954 628 10;
#X text 293 589 object;
#X text 38 587 vs. 1.1: seedable by the;
#X msg 220 588 RTC-seed;
#X text 14 67 Chooses elements from a supply <int list> which are repeated
according to a multiple list <int list> by using the "series" selection
principle.;
#X text 14 35 ratio;
#X msg 374 23 Chance;
#X msg 118 131 series;
#X msg 236 131 groups;
#X msg 169 131 sequence;
#X text 14 131 see also:;
#X text 15 113 NB: the supply must be a list of numbers!;
#X msg 153 153 sel-princ;
#X msg 80 153 permutate;
#X msg 80 131 alea;
#X text 38 572 1994-98 by Karlheinz Essl after Gottfried Michael Koenig
;
#X msg 415 169 1;
#X obj 415 147 loadbang;
#X obj 215 188 vsl 15 64 0 127 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 50 1;
#X text 489 426 choice list;
#X text 311 273 multiple list;
#X msg 294 290 1 1 1 1 1;
#X msg 481 443;
#X obj 481 410 show;
#X obj 45 328 ratio;
#N canvas 382 43 525 343 multifier 0;
#X obj 62 83 inlet;
#X obj 100 83 inlet;
#X obj 135 83 inlet;
#X obj 170 83 inlet;
#X obj 205 83 inlet;
#X obj 62 273 outlet;
#X obj 92 184 show;
#X obj 92 210 outlet;
#N canvas 0 0 529 403 mpack 0;
#X obj 143 51 inlet;
#X obj 91 51 inlet;
#X obj 141 122 t b f;
#X obj 191 51 inlet;
#X obj 189 122 t b f;
#X obj 238 50 inlet;
#X obj 236 121 t b f;
#X obj 148 272 outlet;
#X obj 300 42 inlet;
#X obj 148 229 pack 0 0 0 0 0;
#X obj 298 113 t b f;
#X obj 94 85 int;
#X obj 133 90 int;
#X obj 196 89 int;
#X obj 247 90 int;
#X obj 308 83 int;
#X connect 0 0 12 0;
#X connect 1 0 11 0;
#X connect 2 0 9 0;
#X connect 2 1 9 1;
#X connect 3 0 13 0;
#X connect 4 0 9 0;
#X connect 4 1 9 2;
#X connect 5 0 14 0;
#X connect 6 0 9 0;
#X connect 6 1 9 3;
#X connect 8 0 15 0;
#X connect 9 0 7 0;
#X connect 10 0 9 0;
#X connect 10 1 9 4;
#X connect 11 0 9 0;
#X connect 12 0 2 0;
#X connect 13 0 4 0;
#X connect 14 0 6 0;
#X connect 15 0 10 0;
#X restore 62 137 pd mpack;
#X obj 62 159 t a a;
#X connect 0 0 8 0;
#X connect 1 0 8 1;
#X connect 2 0 8 2;
#X connect 3 0 8 3;
#X connect 4 0 8 4;
#X connect 6 0 7 0;
#X connect 8 0 9 0;
#X connect 9 0 5 0;
#X connect 9 1 6 0;
#X restore 215 263 pd multifier;
#X msg 60 302 1 2 3 4 5;
#X obj 234 188 vsl 15 64 0 127 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 50 1;
#X obj 274 188 vsl 15 64 0 127 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 50 1;
#X obj 254 188 vsl 15 64 0 127 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 50 1;
#X obj 294 188 vsl 15 64 0 127 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 50 1;
#X text 57 284 supply;
#X obj 45 180 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 325 195 adjust ratio of supply elements;
#X obj 45 388 collect;
#X msg 45 444;
#X obj 99 389 bng 15 250 50 1 empty empty clear 0 -6 0 8 -262144 -1
-1;
#X obj 587 375 bng 15 250 50 0 empty empty supply_exhausted 0 -6 0
8 -262144 -1 -1;
#X text 54 426 chosen elements;
#X msg 291 131 sneak;
#X msg 219 153 rota;
#X msg 258 153 choose;
#X text 86 47 vs. 1.1;
#X obj 215 285 t b a;
#X obj 515 410 bng 15 250 50 1 empty empty clear 0 -6 0 8 -262144 -1
-1;
#X connect 15 0 17 0;
#X connect 15 0 26 0;
#X connect 15 0 28 0;
#X connect 15 0 27 0;
#X connect 15 0 29 0;
#X connect 16 0 15 0;
#X connect 17 0 24 0;
#X connect 22 0 21 0;
#X connect 23 0 33 0;
#X connect 23 1 22 0;
#X connect 23 2 36 0;
#X connect 24 0 42 0;
#X connect 24 1 20 0;
#X connect 25 0 23 1;
#X connect 26 0 24 1;
#X connect 27 0 24 3;
#X connect 28 0 24 2;
#X connect 29 0 24 4;
#X connect 31 0 23 0;
#X connect 33 0 34 0;
#X connect 35 0 33 1;
#X connect 42 0 25 0;
#X connect 42 1 23 2;
#X connect 43 0 22 1;

--- NEW FILE: choose-help.pd ---
#N canvas 175 75 592 408 10;
#X obj 120 186 choose;
#X floatatom 120 124 4 0 0 0 - - -;
#X obj 299 114 loadbang;
#X msg 299 146 1 2 3 4 5 6.9 0.31 -10;
#X obj 160 220 bng 15 250 50 0 empty empty clear_display 0 -6 0 8 -262144
-1 -1;
#X msg 120 253;
#X text 29 106 number of elements to be chosen;
#X text 104 38 An int n sent to the left inlet outputs randomly chosen
numbers from a given supply.;
#X text 40 42 choose;
#X text 125 330 1996 by Karlheinz Essl;
#X obj 120 220 show;
#X text 241 145 supply:;
#X connect 0 0 10 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 0 1;
#X connect 4 0 10 1;
#X connect 10 0 5 0;

--- NEW FILE: between-log-urn.pd ---
#N canvas 174 117 385 326 10;
#X text 178 287 vs. 1.1;
#X text 178 271 1996-98 by Karlheinz Essl;
#X msg 35 108 seed \$1;
#X floatatom 35 88 0 0 0 0 - - -;
#X obj 35 39 r RTC-rs;
#X obj 124 243 outlet;
#X obj 233 177 - 1;
#X obj 173 156 inlet;
#X obj 190 178 inlet;
#X obj 233 39 inlet;
#X obj 124 39 inlet;
#X obj 182 245 outlet;
#X msg 139 118 clear \, bang;
#X obj 233 117 int \$3;
#X obj 124 205 trans-log \$1 \$2;
#X obj 124 72 t b b;
#X obj 124 176 t a a;
#X obj 233 138 t a a;
#X obj 124 146 urne \$3;
#X connect 2 0 18 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 6 0 14 3;
#X connect 7 0 14 1;
#X connect 8 0 14 2;
#X connect 9 0 13 0;
#X connect 10 0 15 0;
#X connect 12 0 18 0;
#X connect 13 0 17 0;
#X connect 14 0 5 0;
#X connect 15 0 18 0;
#X connect 15 1 13 0;
#X connect 16 0 14 0;
#X connect 16 1 11 0;
#X connect 17 0 18 1;
#X connect 17 1 6 0;
#X connect 18 0 16 0;
#X connect 18 1 12 0;

--- NEW FILE: line2.pd ---
#N canvas 0 0 716 354 10;
#X obj 85 110 line;
#X obj 134 183 outlet;
#X obj 85 183 outlet;
#X obj 134 157 del;
#X obj 85 57 t a a;
#X obj 134 83 list split 1;
#X obj 85 30 inlet;
#X obj 181 32 inlet;
#X obj 181 60 t a a;
#X obj 134 110 b;
#X text 295 55 line2: line which sends a bang to its 2nd outlet \,
when finished.;
#X obj 173 134 route float;
#X connect 0 0 2 0;
#X connect 3 0 1 0;
#X connect 4 0 0 0;
#X connect 4 1 5 0;
#X connect 5 0 9 0;
#X connect 5 1 11 0;
#X connect 6 0 4 0;
#X connect 7 0 8 0;
#X connect 8 0 0 1;
#X connect 8 1 11 0;
#X connect 9 0 3 0;
#X connect 11 0 3 1;

--- NEW FILE: anti-interval.pd ---
#N canvas 609 154 322 290 10;
#X obj 82 189 outlet;
#X obj 82 29 inlet;
#X obj 31 31 inlet;
#X obj 31 187 outlet;
#X obj 129 30 loadbang;
#X obj 82 64 int \$1;
#N canvas 0 0 637 374 check 0;
#X obj 144 113 int;
#X obj 117 112 int;
#X obj 117 270 int;
#X obj 117 76 t a b a a;
#X obj 117 47 inlet;
#X obj 203 44 inlet;
#X obj 117 305 outlet;
#X obj 173 305 outlet;
#X obj 117 155 -;
#X obj 117 190 % 12;
#X obj 117 214 == 0;
#X obj 173 281 bang;
#X obj 117 237 select 0 1;
#X obj 271 46 inlet;
#X text 259 123 if ($i1-$i2)%12==$i3 then out2 bang else $i1;
#X obj 271 85 int;
#X connect 0 0 8 1;
#X connect 1 0 8 0;
#X connect 2 0 6 0;
#X connect 3 0 1 0;
#X connect 3 1 0 0;
#X connect 3 2 2 1;
#X connect 4 0 3 0;
#X connect 5 0 0 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 12 0;
#X connect 11 0 7 0;
#X connect 12 0 2 0;
#X connect 12 1 11 0;
#X connect 13 0 15 0;
#X connect 15 0 10 1;
#X restore 31 104 pd check;
#X obj 31 138 t a a;
#X text 61 223 1995 by Karlheinz Essl;
#X connect 1 0 5 0;
#X connect 2 0 6 0;
#X connect 4 0 5 0;
#X connect 5 0 6 2;
#X connect 6 0 7 0;
#X connect 6 1 0 0;
#X connect 7 0 3 0;
#X connect 7 1 6 1;

--- NEW FILE: make-scale.pd ---
#N canvas 311 51 453 388 10;
#X text 265 267 1993 by Karlheinz Essl;
#X obj 103 275 outlet;
#X obj 103 30 inlet;
#X obj 273 31 inlet;
#X obj 122 226 list prepend;
#X obj 211 226 t a;
#X obj 103 247 list;
#X obj 122 193 f \$1;
#X obj 158 193 + 1;
#X obj 164 157 int \$1;
#X obj 122 158 until;
#X obj 103 85 t b a b b;
#X connect 2 0 11 0;
#X connect 3 0 9 0;
#X connect 4 0 5 0;
#X connect 4 0 6 1;
#X connect 5 0 4 1;
#X connect 6 0 1 0;
#X connect 7 0 8 0;
#X connect 7 0 4 0;
#X connect 8 0 7 1;
#X connect 9 0 7 1;
#X connect 10 0 7 0;
#X connect 11 0 6 0;
#X connect 11 1 10 0;
#X connect 11 2 9 0;
#X connect 11 3 4 1;

--- NEW FILE: block-bang.pd ---
#N canvas 281 180 238 260 10;
#X text 56 231 1996 by Karlheinz Essl;
#X obj 80 37 inlet;
#X obj 86 210 outlet;
#X obj 33 208 outlet;
#X obj 33 174 sel 1;
#X obj 33 90 timer;
#X obj 33 39 inlet;
#X obj 33 149 > \$1;
#X obj 33 66 t b b;
#X obj 33 120 t a a;
#X connect 1 0 7 1;
#X connect 4 0 3 0;
#X connect 5 0 9 0;
#X connect 6 0 8 0;
#X connect 7 0 4 0;
#X connect 8 0 5 0;
#X connect 8 1 5 1;
#X connect 9 0 7 0;
#X connect 9 1 2 0;

--- NEW FILE: last-help.pd ---
#N canvas 3 48 473 349 10;
#X obj 106 208 bng 15 250 50 1 empty empty clear_display 0 -6 0 8 -262144
-1 -1;
#X obj 65 207 show;
#X msg 65 114 1 2 3 4 5;
#X msg 85 140 a b c d e f g h i;
#X msg 65 240;
#X text 25 277 1994 by Karlheinz Essl;
#X obj 65 175 last;
#X text 25 29 last;
#X text 25 61 Output last elemeot of the input list.;
#X connect 0 0 1 1;
#X connect 1 0 4 0;
#X connect 2 0 6 0;
#X connect 3 0 6 0;
#X connect 6 0 1 0;

--- NEW FILE: play2-help.pd ---
#N canvas 278 93 745 606 10;
#X text 98 472 vs.3: instrument menu for Quicktime 3 added;
#X text 97 25 play2;
#X msg 425 31 Toolbox;
#X msg 166 152 play;
#X text 97 152 see also:;
#N canvas 50 61 615 217 generate-notes 0;
#X obj 38 134 outlet;
#X obj 38 103 brown-melody 36 84 0.2;
#X obj 38 30 inlet;
#X obj 38 56 repchord-rhythm 100 1000 12 6 0.8 0.2;
#X obj 446 134 outlet;
#N canvas 50 61 268 257 dur 0;
#X obj 54 21 inlet;
#X obj 54 144 dur-from-ED;
#X obj 54 175 outlet;
#X obj 100 20 inlet;
#N canvas 38 77 245 265 dur-fact 0;
#X obj 31 213 outlet;
#X obj 31 112 pass 25;
#X obj 31 151 between 0 13;
#X obj 31 182 trans-log 0.25 4 12;
#X obj 31 43 inlet;
#X obj 91 112 between 10 100;
#X obj 31 131 t a a;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 0 0;
#X connect 4 0 1 0;
#X connect 5 0 1 1;
#X connect 6 0 2 0;
#X connect 6 1 5 0;
#X restore 126 91 pd dur-fact;
#X obj 54 45 t a a;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 3 0 1 1;
#X connect 4 0 1 2;
#X connect 5 0 1 0;
#X connect 5 1 4 0;
#X restore 446 103 pd dur;
#X obj 213 134 outlet;
#X obj 213 103 random-ramp 30 127 5 250 2000 12;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 3 2 7 0;
#X connect 3 2 5 0;
#X connect 3 3 5 1;
#X connect 5 0 4 0;
#X connect 7 0 6 0;
#X restore 122 188 pd generate-notes;
#X obj 100 188 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X floatatom 122 240 4 0 0 2 note - -;
#X obj 122 319 play2 127 500 0 1;
#X floatatom 430 193 4 0 0 2 midi_channel/fluid_control - -;
#X floatatom 236 240 5 0 0 2 dur - -;
#X floatatom 179 241 4 0 0 2 vel - -;
#X text 95 437 vs.2: fifth inlet added (QT Musical Instrument resp.
MIDI channel);
#X text 94 427 1992-2002 by Karlheinz Essl;
#X text 181 39 vs. 3.2;
#X msg 206 152 QT-PercPlayer;
#X obj 262 270 hradio 15 1 0 2 empty empty nouteout/fluid~ 0 -6 0 8
-262144 -1 -1 1;
#X msg 431 278 load \$1;
#X obj 431 253 openpanel;
#X obj 431 228 bng 20 250 50 0 empty empty load_soundfont 0 -6 0 8
-262144 -1 -1;
#X text 97 57 Plays a note whenever a key number is sent to the left
inlet. The other parameters (velocity and duration) are optional and
can change at any time. - Routes the MIDI-out either to specified serial
port (argument: 0) or to the MIDI-synthesizer external object [fluid~]
(argument 1).;
#X text 96 493 Pd version: use [fluid~] instead of Quicktime \, volume
slider added.;
#X msg 432 389 prog 1 \$1;
#X obj 432 349 hradio 15 1 0 8 empty empty program_change 0 -6 0 8
-262144 -1 -1 0;
#X obj 432 368 + 1;
#X msg 432 302 load GortMiniPiano.sf2;
#X connect 5 0 7 0;
#X connect 5 1 11 0;
#X connect 5 2 10 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 9 0 8 4;
#X connect 10 0 8 2;
#X connect 11 0 8 1;
#X connect 16 0 8 3;
#X connect 17 0 8 4;
#X connect 18 0 17 0;
#X connect 19 0 18 0;
#X connect 22 0 8 4;
#X connect 23 0 24 0;
#X connect 24 0 22 0;
#X connect 25 0 8 4;

--- NEW FILE: markov-harmony.pd ---
#N canvas 50 61 437 286 10;
#X obj 63 52 inlet;
#X obj 63 85 markov #1;
#X obj 63 143 st2pitch;
#X obj 63 174 outlet;
#X obj 183 53 inlet;
#X obj 123 52 inlet;
#X obj 130 145 outlet;
#X obj 184 145 outlet;
#X text 109 211 1994 by Karlheinz
Essl;
#X obj 63 114 t a a;
#X connect 0 0 1 0;
#X connect 1 0 9 0;
#X connect 1 1 7 0;
#X connect 2 0 3 0;
#X connect 4 0 1 2;
#X connect 5 0 1 1;
#X connect 9 0 2 0;
#X connect 9 1 6 0;

--- NEW FILE: add%.pd ---
#N canvas 141 72 308 216 10;
#X obj 256 30 inlet;
#X obj 49 164 outlet;
#X obj 49 130 expr $f1 + $f2*$f1/100.;
#X obj 49 68 t f b;
#X obj 49 30 inlet;
#X text 79 165 1993-99 by Karlheinz
Essl;
#X obj 205 100 float \$1;
#X connect 0 0 6 1;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 3 1 6 0;
#X connect 4 0 3 0;
#X connect 6 0 2 1;

--- NEW FILE: ms2sec-help.pd ---
#N canvas 255 305 454 385 10;
#X obj 38 95 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#N canvas 50 61 261 222 select-duration 0;
#X obj 44 125 outlet;
#X obj 44 72 inlet;
#X obj 44 98 between-log 2345 23456 12;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X restore 38 120 pd select-duration;
#X text 18 274 1998 by Karlheinz Essl;
#X msg 278 23 Rhythm;
#X text 18 28 ms2sec;
#X text 18 59 Converts milliseconds into seconds. The argument sets
the number of decimal places.;
#X floatatom 190 220 0 0 0 0 - - -;
#X floatatom 113 220 0 0 0 0 - - -;
#X floatatom 38 220 0 0 0 0 - - -;
#X floatatom 38 151 0 0 0 0 - - -;
#X text 93 151 time in milliseconds;
#X text 36 244 time in seconds \, rounded;
#X text 18 288 Thanks to Peter Elsea for Lround!;
#X text 60 97 generate a random duration;
#X obj 190 191 ms2sec 2;
#X obj 113 191 ms2sec 1;
#X obj 38 191 ms2sec 0;
#X connect 0 0 1 0;
#X connect 1 0 9 0;
#X connect 9 0 14 0;
#X connect 9 0 15 0;
#X connect 9 0 16 0;
#X connect 14 0 6 0;
#X connect 15 0 7 0;
#X connect 16 0 8 0;

--- NEW FILE: super-rhythm.pd ---
#N canvas 48 81 988 715 10;
#X obj 256 374 delay 100;
#X obj 201 64 sel 1;
#X obj 201 35 inlet;
#X obj 546 363 pass 50;
#X obj 590 286 contrario;
#X obj 837 261 per2pass;
#X obj 777 261 per2pass;
#X obj 708 259 - 1;
#N canvas 63 44 520 372 chord-size 0;
#X obj 290 84 - 1;
#X obj 290 52 listlen;
#X obj 153 136 int;
#X text 205 39 retrigger;
#X obj 153 29 inlet;
#X obj 29 39 inlet;
#X obj 290 25 inlet;
#X obj 358 24 inlet;
#X obj 439 22 inlet;
#X text 200 100 index;
#X text 198 143 max. chord size for chosen ED;
#X obj 29 305 outlet;
#X obj 29 190 random 1;
#X obj 29 219 + 1;
#X obj 90 308 outlet;
#X obj 153 171 expr_scale 0 3 1 1;
#X obj 439 56 t b a;
#X obj 358 55 t b a;
#X obj 29 280 until;
#X obj 29 250 t a a;
#X floatatom 153 198 5 0 0 0 - - -;
#X floatatom 471 93 5 0 0 0 - - -;
#X floatatom 398 87 5 0 0 0 - - -;
#X floatatom 293 107 5 0 0 0 - - -;
#X floatatom 116 158 5 0 0 0 - - -;
#X connect 0 0 15 2;
#X connect 0 0 23 0;
#X connect 1 0 0 0;
#X connect 2 0 15 0;
#X connect 2 0 24 0;
#X connect 4 0 2 0;
#X connect 5 0 12 0;
#X connect 6 0 1 0;
#X connect 7 0 17 0;
#X connect 8 0 16 0;
#X connect 12 0 13 0;
#X connect 13 0 19 0;
#X connect 15 0 12 1;
#X connect 15 0 20 0;
#X connect 16 0 2 0;
#X connect 16 1 15 4;
#X connect 16 1 21 0;
#X connect 17 0 2 0;
#X connect 17 1 15 3;
#X connect 17 1 22 0;
#X connect 18 0 11 0;
#X connect 19 0 18 0;
#X connect 19 1 14 0;
#X restore 152 438 pd chord-size;
#X text 774 212 max.ED;
#X text 839 213 min.ED;
#X obj 707 147 inlet;
#X obj 422 145 inlet;
#X text 567 392 retrigger;
#X obj 152 471 outlet;
#X obj 467 497 outlet;
#X obj 533 500 outlet;
#X obj 401 496 outlet;
#N canvas 50 61 316 235 dev 0;
#X obj 36 169 outlet;
#X text 114 89 min.;
#X text 201 92 max.;
#X obj 36 135 between 450 550;
#N canvas 298 92 402 372 boundaries 0;
#X obj 123 236 expr $i1 + ($i2/200. * $i1);
#X obj 48 208 expr $i1 - ($i2/200. * $i1);
#X obj 210 50 inlet;
#X obj 48 50 inlet;
#X obj 123 271 outlet;
#X obj 48 271 outlet;
#X obj 48 181 t a a;
#X obj 48 159 int;
#X obj 210 92 t b a a;
#X obj 210 72 int;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 2 0 9 0;
#X connect 3 0 7 0;
#X connect 6 0 1 0;
#X connect 6 1 0 0;
#X connect 7 0 6 0;
#X connect 8 0 7 0;
#X connect 8 1 1 1;
#X connect 8 2 0 1;
#X connect 9 0 8 0;
#X restore 108 70 pd boundaries;
#X obj 108 40 inlet;
#X obj 179 41 inlet;
#X obj 36 41 inlet;
#X obj 36 93 b;
#X connect 3 0 0 0;
#X connect 4 0 3 1;
#X connect 4 1 3 2;
#X connect 5 0 4 0;
#X connect 6 0 4 1;
#X connect 7 0 8 0;
#X connect 8 0 3 0;
#X restore 315 324 pd dev;
#X msg 231 338 stop;
#X obj 333 296 sel-princ 3;
#X obj 152 296 first-bang;
#X obj 310 145 inlet;
#X obj 364 145 inlet;
#X obj 509 145 inlet;
#X obj 571 145 inlet;
#X obj 622 145 inlet;
#X text 192 528 1995 by Karlheinz Essl;
#X obj 310 174 int \$1;
#X obj 422 176 int \$3;
#X obj 364 176 int \$2;
#X obj 509 175 int \$4;
#X obj 571 174 f \$5;
#X obj 622 174 f \$6;
#X obj 201 92 t b b b b b b b b;
#X obj 712 230 list-len;
#X obj 707 170 t a a a a;
#X obj 590 325 expr_scale 0 1 100 100;
#X obj 745 467 b;
#X obj 837 298 t a b;
#X obj 777 333 t a b;
#X obj 709 283 t a a;
#X obj 201 233 t b b b b;
#X obj 315 346 t a a;
#X obj 369 324 t a a;
#X connect 0 0 8 0;
#X connect 0 0 42 0;
#X connect 1 0 34 0;
#X connect 1 1 19 0;
#X connect 2 0 1 0;
#X connect 3 0 38 0;
#X connect 4 0 37 0;
#X connect 5 0 39 0;
#X connect 6 0 40 0;
#X connect 7 0 41 0;
#X connect 8 0 14 0;
#X connect 8 1 15 0;
#X connect 11 0 36 0;
#X connect 12 0 29 0;
#X connect 18 0 43 0;
#X connect 19 0 0 0;
#X connect 20 0 18 1;
#X connect 20 1 44 0;
#X connect 20 2 17 0;
#X connect 21 0 8 0;
#X connect 22 0 28 0;
#X connect 23 0 30 0;
#X connect 24 0 31 0;
#X connect 25 0 32 0;
#X connect 26 0 33 0;
#X connect 28 0 20 1;
#X connect 29 0 8 3;
#X connect 30 0 18 2;
#X connect 31 0 8 4;
#X connect 32 0 5 0;
#X connect 33 0 6 0;
#X connect 34 0 42 0;
#X connect 34 1 21 1;
#X connect 34 2 28 0;
#X connect 34 3 30 0;
#X connect 34 4 29 0;
#X connect 34 5 31 0;
#X connect 34 6 32 0;
#X connect 34 7 33 0;
#X connect 35 0 7 0;
#X connect 36 0 20 2;
#X connect 36 1 8 2;
#X connect 36 2 38 0;
#X connect 36 3 35 0;
#X connect 37 0 3 1;
#X connect 38 0 20 0;
#X connect 39 0 37 4;
#X connect 39 1 38 0;
#X connect 40 0 37 3;
#X connect 40 1 38 0;
#X connect 41 0 4 1;
#X connect 41 1 37 2;
#X connect 42 0 21 0;
#X connect 42 1 0 0;
#X connect 42 2 18 0;
#X connect 42 3 3 0;
#X connect 43 0 0 1;
#X connect 43 1 16 0;
#X connect 44 0 8 1;
#X connect 44 1 4 0;

--- NEW FILE: ED2EP-help.pd ---
#N canvas 319 164 519 501 10;
#X obj 110 266 bng 15 250 50 1 empty empty clear 0 -6 0 8 -262144 -1
-1;
#X text 60 384 EP;
#X msg 87 385;
#X msg 87 325;
#X obj 87 289 show;
#X obj 87 149 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#N canvas 50 61 261 246 make-ED 0;
#X obj 95 68 loadbang;
#X obj 49 132 scramble;
#X obj 49 184 outlet;
#X obj 49 68 inlet;
#X obj 49 157 list-apply round;
#X obj 49 102 make-ED-scale 250 1000 6;
#X connect 0 0 5 0;
#X connect 1 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 2 0;
#X connect 5 0 1 0;
#X restore 87 175 pd make-ED;
#X obj 87 356 show;
#X msg 301 26 Rhythm;
#X obj 161 257 ED2EP 0;
#X floatatom 205 236 4 0 0 1 offset - -;
#X text 44 64 Converts ED (= entry delays) into EP (= entry points).
Argument = offset (can be negative).;
#X text 44 31 ED2EP;
#X text 255 286 1997 by Karlheinz Essl;
#X text 66 324 ED;
#X text 107 150 generate a random series of ED's...;
#X text 142 42 vs. 2;
#X text 255 301 vs. 2: improved implementation;
#X obj 87 224 t a a;
#X text 47 100 NB: Only works with integers in Max \, but with floats
as well in Pd.;
#X msg 116 199 200 100 300 150.5 400;
#X connect 0 0 4 1;
#X connect 0 0 7 1;
#X connect 4 0 3 0;
#X connect 5 0 6 0;
#X connect 6 0 18 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X connect 10 0 9 1;
#X connect 18 0 4 0;
#X connect 18 1 9 0;
#X connect 20 0 18 0;

--- NEW FILE: lb.pd ---
#N canvas 63 44 388 264 10;
#X obj 61 97 outlet;
#X obj 61 23 loadbang;
#X obj 61 48 list append \$1;
#X msg 61 76 \$1;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 0 0;

--- NEW FILE: trans-exp.pd ---
#N canvas 242 134 694 561 10;
#X obj 121 69 inlet;
#X obj 290 98 loadbang;
#X floatatom 155 273 0 0 0 0 m - -;
#X text 323 270 q;
#X obj 234 180 sel 0;
#X msg 233 201 1;
#X obj 312 196 sel 0;
#X msg 312 219 1;
#X msg 390 218 1;
#X obj 390 196 sel 0;
#X obj 233 333 * 1;
#X obj 121 487 outlet;
#X obj 234 72 inlet;
#X obj 356 71 inlet;
#X obj 234 155 f \$1;
#X obj 312 171 f \$2;
#X obj 390 171 f \$3;
#X obj 432 69 inlet;
#X text 204 371 1993/94 by Karlheinz
Essl;
#X obj 290 125 t b b b;
#X obj 432 104 t b a;
#X obj 356 100 t b a;
#X obj 233 245 expr ln($f2/$f1) / $f3;
#X obj 233 302 expr exp(-$f2*$f1);
#X obj 233 221 t a a a;
#X floatatom 163 357 5 0 0 0 k - -;
#X text 371 431 y = k*exp(m*x);
#X obj 233 267 t a a;
#X msg 249 98 bang;
#X obj 121 432 expr $f2 * exp($f3*$f1);
#X connect 0 0 29 0;
#X connect 1 0 19 0;
#X connect 4 0 5 0;
#X connect 4 1 24 0;
#X connect 5 0 24 0;
#X connect 6 0 7 0;
#X connect 6 1 22 1;
#X connect 7 0 22 1;
#X connect 8 0 23 1;
#X connect 9 0 8 0;
#X connect 9 0 22 2;
#X connect 9 1 22 2;
#X connect 10 0 25 0;
#X connect 10 0 29 1;
#X connect 12 0 14 0;
#X connect 13 0 21 0;
#X connect 14 0 4 0;
#X connect 15 0 6 0;
#X connect 16 0 9 0;
#X connect 17 0 20 0;
#X connect 19 0 14 0;
#X connect 19 1 15 0;
#X connect 19 2 16 0;
#X connect 20 0 19 0;
#X connect 20 1 16 0;
#X connect 21 0 19 0;
#X connect 21 1 15 0;
#X connect 22 0 2 0;
#X connect 22 0 27 0;
#X connect 23 0 10 0;
#X connect 24 0 22 0;
#X connect 24 1 10 1;
#X connect 27 0 23 0;
#X connect 27 1 29 2;
#X connect 28 0 19 0;
#X connect 29 0 11 0;

--- NEW FILE: multiple-help.pd ---
#N canvas 427 111 495 420 10;
#X msg 316 23 Lists;
#X text 15 382 1994 by Karlheinz Essl;
#X text 15 19 multiple;
#X text 15 53 Multiplies the elements of a supply <int list> according
to a list of multiples <int list> sent to the right inlet. The element
0 in the multiple list will erase the respective element of the supply.
;
#X obj 68 202 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 109 320 bng 15 250 50 1 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 68 290 multiple;
#X msg 68 349;
#X obj 68 319 show;
#X msg 159 151 3 2 0 1;
#X msg 146 130 4 3 2 1;
#X text 234 141 };
#X msg 179 194 0 0 1 0;
#X msg 170 174 1 1 1 1;
#X msg 68 264 1 2 3 4;
#X text 246 159 multiples;
#X text 15 228 supply;
#X text 15 108 NB: both list must have the same length!;
#X text 130 322 clear display;
#X obj 146 235 t b a;
#X obj 146 215 list;
#X connect 4 0 14 0;
#X connect 5 0 8 1;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 9 0 20 0;
#X connect 10 0 20 0;
#X connect 12 0 20 0;
#X connect 13 0 20 0;
#X connect 14 0 6 0;
#X connect 19 0 14 0;
#X connect 19 1 6 1;
#X connect 20 0 19 0;

--- NEW FILE: random-row.pd ---
#N canvas 38 77 432 237 10;
#X obj 25 131 outlet;
#X obj 25 98 scramble;
#X text 84 137 1994 by Karlheinz Essl;
#X obj 25 35 inlet;
#X msg 25 69 0 1 2 3 4 5 6 7 8 9 10 11;
#X connect 1 0 0 0;
#X connect 3 0 4 0;
#X connect 4 0 1 0;

--- NEW FILE: geom.pd ---
#N canvas 208 111 345 240 10;
#X obj 130 24 inlet;
#X obj 212 24 inlet;
#X obj 49 23 inlet;
#X obj 49 188 outlet;
#X obj 212 114 float \$2;
#X obj 130 116 float \$1;
#X obj 49 152 expr $f2 * pow($f3 \, $f1);
#X obj 146 64 loadbang;
#X obj 146 85 t b b;
#X text 117 190 1993 by Karlheinz Essl;
#X connect 0 0 5 0;
#X connect 1 0 4 0;
#X connect 2 0 6 0;
#X connect 4 0 6 2;
#X connect 5 0 6 1;
#X connect 6 0 3 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 8 1 4 0;

--- NEW FILE: int-or-float.pd ---
#N canvas 0 0 794 565 10;
#X obj 210 456 outlet;
#X obj 547 146 select 0;
#X obj 261 331 unpack 0 0;
#X obj 277 416 int;
#X obj 210 333 inlet;
#X msg 598 283 0 1;
#X obj 598 177 select i int f float;
#X msg 665 281 1 0;
#X obj 210 394 spigot 0;
#X obj 275 396 spigot 1;
#X obj 261 171 int;
#X obj 261 198 ==;
#X obj 261 149 t f f;
#X obj 261 225 select 0;
#X msg 261 250 1 0;
#X text 62 65 check for "real" floats!;
#X obj 261 306 spigot 1;
#X msg 312 280 0;
#X obj 547 89 loadbang;
#X text 343 279 don't check \, if argument in use.;
#X text 135 254 found a float!;
#X obj 547 124 list append \$1;
#X obj 261 89 t a b;
#X obj 261 66 inlet;
#X connect 1 1 6 0;
#X connect 2 0 8 1;
#X connect 2 1 9 1;
#X connect 3 0 0 0;
#X connect 4 0 8 0;
#X connect 4 0 9 0;
#X connect 5 0 2 0;
#X connect 6 0 5 0;
#X connect 6 0 17 0;
#X connect 6 1 5 0;
#X connect 6 1 17 0;
#X connect 6 2 7 0;
#X connect 6 2 17 0;
#X connect 6 3 7 0;
#X connect 6 3 17 0;
#X connect 7 0 2 0;
#X connect 8 0 0 0;
#X connect 9 0 3 0;
#X connect 10 0 11 0;
#X connect 11 0 13 0;
#X connect 12 0 10 0;
#X connect 12 1 11 1;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X connect 16 0 2 0;
#X connect 17 0 16 1;
#X connect 18 0 21 0;
#X connect 21 0 1 0;
#X connect 22 0 12 0;
#X connect 22 1 21 0;
#X connect 23 0 22 0;

--- NEW FILE: contrario.pd ---
#N canvas 51 325 320 289 10;
#X obj 119 43 inlet;
#X obj 40 42 inlet;
#X obj 40 196 outlet;
#X obj 40 73 t f b;
#X obj 119 128 f \$1;
#X obj 40 165 expr $f2-$f1;
#X text 112 203 1993-2004 by Karlheinz Essl;
#X connect 0 0 4 0;
#X connect 1 0 3 0;
#X connect 3 0 5 0;
#X connect 3 1 4 0;
#X connect 4 0 5 1;
#X connect 5 0 2 0;

--- NEW FILE: groove-rhythm.pd ---
#N canvas 381 194 420 367 10;
#X obj 244 166 loadbang;
#X msg 244 195 1;
#X obj 198 39 inlet;
#X obj 244 224 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 285 39 inlet;
#X obj 241 39 inlet;
#X obj 44 314 outlet;
#X obj 44 224 metro 500;
#X obj 144 39 inlet;
#X obj 118 167 * 1;
#X obj 74 91 sel 1;
#X text 141 320 1998 by Karlheinz Essl;
#X obj 118 91 sel-princ \$3;
#X obj 144 138 f \$1;
#X obj 118 137 f;
#X obj 44 251 t b b;
#X obj 44 58 t a a;
#X obj 44 35 inlet;
#X obj 44 282 spigot 1;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 3 0;
#X connect 3 0 18 1;
#X connect 4 0 12 2;
#X connect 5 0 12 1;
#X connect 7 0 15 0;
#X connect 8 0 13 0;
#X connect 9 0 7 1;
#X connect 10 0 14 0;
#X connect 12 0 14 0;
#X connect 13 0 9 1;
#X connect 14 0 9 0;
#X connect 15 0 18 0;
#X connect 15 1 12 0;
#X connect 16 0 7 0;
#X connect 16 1 10 0;
#X connect 17 0 16 0;
#X connect 18 0 6 0;

--- NEW FILE: first-shot.pd ---
#N canvas 63 44 379 250 10;
#X obj 73 54 inlet;
#X obj 73 181 outlet;
#X obj 73 118 spigot 1;
#X obj 73 146 t a b;
#X msg 124 90 0;
#X obj 168 55 inlet;
#X msg 168 90 1;
#X connect 0 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 3 1 4 0;
#X connect 4 0 2 1;
#X connect 5 0 6 0;
#X connect 6 0 2 1;

--- NEW FILE: urne.pd ---
#N canvas 260 152 601 696 10;
#X obj 218 581 tabread \$0-urn;
#X obj 148 531 tabwrite \$0-urn;
#X obj 218 460 t a a;
#X obj 148 390 - 1;
#X obj 97 254 select 0;
#X obj 148 503 tabread \$0-urn;
#X obj 359 335 outlet;
#X obj 218 609 outlet;
#X obj 286 23 inlet;
#X obj 97 26 inlet;
#X obj 286 77 f \$1;
#X obj 297 47 loadbang;
#X obj 191 74 b;
#X obj 218 437 random;
#N canvas 689 538 264 239 count-down 0;
#X obj 59 66 inlet;
#X obj 127 60 inlet;
#X obj 59 159 outlet;
#X text 123 37 count from?;
#X text 54 35 trigger;
#X obj 59 96 bang;
#X obj 85 131 - 1;
#X obj 59 131 f;
#X connect 0 0 5 0;
#X connect 1 0 7 1;
#X connect 5 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 6 0;
#X connect 7 0 2 0;
#X restore 97 221 pd count-down;
#X text 355 361 bang if urn empty;
#X text 193 631 urn selection;
#X msg 218 343 seed \$1;
#X obj 218 147 f;
#X obj 345 143 table \$0-urn \$1;
#X obj 148 362 t a b;
#X obj 97 49 route bang seed clear;
#N canvas 549 246 251 276 gate_2 1;
#X obj 68 18 inlet;
#X obj 84 65 inlet;
#X obj 68 212 outlet;
#X obj 100 191 outlet;
#X obj 68 92 f 0;
#X obj 68 118 select 0 1;
#X obj 68 41 b;
#X connect 0 0 6 0;
#X connect 1 0 4 1;
#X connect 4 0 5 0;
#X connect 5 0 2 0;
#X connect 5 1 3 0;
#X connect 6 0 4 0;
#X restore 97 178 pd gate_2;
#N canvas 0 0 450 300 init-urn-table 0;
#N canvas 0 0 450 300 count 0;
#X obj 158 193 + 1;
#X obj 122 158 until;
#X obj 122 194 f;
#X obj 122 101 inlet;
#X msg 167 157 0;
#X obj 122 120 t a b;
#X obj 122 224 outlet;
#X connect 0 0 2 1;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 2 0 6 0;
#X connect 3 0 5 0;
#X connect 4 0 2 1;
#X connect 5 0 1 0;
#X connect 5 1 4 0;
#X restore 117 197 pd count;
#X obj 117 218 t a a;
#X obj 117 249 tabwrite \$0-urn;
#X obj 147 173 s \$0-urn;
#X msg 147 148 resize \$1;
#X obj 117 82 t a a;
#X obj 117 49 inlet;
#X obj 147 128 change;
#X obj 147 105 int;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 2 1;
#X connect 4 0 3 0;
#X connect 5 0 0 0;
#X connect 5 1 8 0;
#X connect 6 0 5 0;
#X connect 7 0 4 0;
#X connect 8 0 7 0;
#X restore 344 121 pd init-urn-table;
#X obj 286 97 t b a a a;
#X obj 97 278 t b b;
#X msg 155 153 0;
#X msg 170 176 1;
#X connect 0 0 7 0;
#X connect 2 0 0 0;
#X connect 2 1 1 1;
#X connect 3 0 5 0;
#X connect 3 0 13 1;
#X connect 4 0 25 0;
#X connect 4 1 20 0;
#X connect 5 0 1 0;
#X connect 8 0 10 0;
#X connect 9 0 21 0;
#X connect 10 0 24 0;
#X connect 11 0 10 0;
#X connect 12 0 10 0;
#X connect 13 0 2 0;
#X connect 14 0 4 0;
#X connect 17 0 13 0;
#X connect 18 0 17 0;
#X connect 20 0 3 0;
#X connect 20 1 13 0;
#X connect 21 0 22 0;
#X connect 21 1 18 0;
#X connect 21 2 12 0;
#X connect 22 0 14 0;
#X connect 22 1 6 0;
#X connect 24 0 26 0;
#X connect 24 1 14 1;
#X connect 24 2 13 1;
#X connect 24 3 23 0;
#X connect 25 0 6 0;
#X connect 25 1 27 0;
#X connect 26 0 22 1;
#X connect 27 0 22 1;

--- NEW FILE: first-bang.pd ---
#N canvas 63 44 314 299 10;
#X text 83 256 vs. 2;
#X obj 101 212 outlet;
#X text 84 272 1993-2002 by Karlheinz Essl;
#X obj 39 235 outlet;
#X obj 39 45 inlet;
#X obj 74 45 inlet;
#X obj 101 185 b;
#X obj 39 91 f 0;
#X msg 74 67 0;
#X obj 39 147 sel 0;
#X obj 39 168 t b b;
#X msg 107 67 1;
#X connect 4 0 7 0;
#X connect 5 0 8 0;
#X connect 6 0 1 0;
#X connect 7 0 9 0;
#X connect 8 0 7 1;
#X connect 9 0 10 0;
#X connect 9 1 6 0;
#X connect 10 0 3 0;
#X connect 10 1 11 0;
#X connect 11 0 7 1;

--- NEW FILE: ratio.pd ---
#N canvas 63 44 375 272 10;
#X obj 132 39 inlet;
#X obj 81 169 outlet;
#X obj 133 170 outlet;
#X obj 31 168 outlet;
#X obj 31 39 inlet;
#X obj 81 39 inlet;
#X obj 81 72 multiple;
#X obj 31 132 series;
#X text 28 192 1994 by Karlheinz Essl;
#X obj 81 92 t a a;
#X connect 0 0 6 1;
#X connect 4 0 7 0;
#X connect 5 0 6 0;
#X connect 6 0 9 0;
#X connect 7 0 3 0;
#X connect 7 1 2 0;
#X connect 9 0 7 1;
#X connect 9 1 1 0;

--- NEW FILE: anti-bis&osc.pd ---
#N canvas 378 98 697 610 10;
#X obj 93 117 int;
#X obj 93 219 !=;
#X obj 93 138 t a a a;
#X obj 93 358 int;
#X obj 93 302 &&;
#X obj 123 412 outlet;
#X obj 93 325 select 1 0;
#X obj 175 392 outlet;
#X obj 115 275 !=;
#X obj 197 166 t f b;
#X obj 198 191 f;
#X obj 93 73 inlet;
#X obj 167 144 t a a;
#X obj 93 379 t a a;
#X text 194 250 If input number is different from the two previously
passed input numbers \, then pass it along. Otherwise block it and
bang the second outlet.;
#X text 257 74 Filters out direct repetitions and when a number has
occured the penultimate time.;
#X obj 93 465 s \$0-passed;
#X obj 167 28 r \$0-passed;
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 1 0;
#X connect 2 1 8 0;
#X connect 2 2 3 1;
#X connect 3 0 13 0;
#X connect 4 0 6 0;
#X connect 6 0 3 0;
#X connect 6 1 7 0;
#X connect 8 0 4 1;
#X connect 9 0 10 1;
#X connect 9 1 10 0;
#X connect 10 0 8 1;
#X connect 11 0 0 0;
#X connect 12 0 1 1;
#X connect 12 1 9 0;
#X connect 13 0 16 0;
#X connect 13 1 5 0;
#X connect 17 0 12 0;

--- NEW FILE: smooth-line-help.pd ---
#N canvas 0 48 676 306 10;
#X floatatom 157 108 5 0 0 1 smooth_interval_(ms) - -;
#X obj 50 131 smooth-line 1000;
#X floatatom 50 158 5 0 0 1 smooth_output - -;
#X text 23 51 Interpolates smoothly between successive input values.
;
#X text 23 19 smooth-line;
#X msg 269 21 Envelopes;
#X floatatom 50 97 5 0 0 0 - - -;
#X msg 94 97 stop;
#X text 33 197 1999 by Karlheinz Essl;
#X text 34 217 Pd: 2006 Frank Barknecht;
#X connect 0 0 1 1;
#X connect 1 0 2 0;
#X connect 6 0 1 0;
#X connect 7 0 1 0;

--- NEW FILE: expr_scale.pd ---
#N canvas 283 421 666 379 10;
#X obj 120 199 expr ($f1-$f2)*($f4-$f5)/($f2-$f3)+$f4;
#X obj 206 157 f \$1;
#X obj 356 159 f \$4;
#X obj 306 155 f \$3;
#X obj 256 155 f \$2;
#X obj 206 68 inlet;
#X obj 256 68 inlet;
#X obj 306 68 inlet;
#X obj 356 68 inlet;
#X obj 120 127 inlet;
#X obj 120 240 outlet;
#X text 464 97 ARGS;
#X text 474 121 1: input_low_border;
#X text 474 143 2: input_high_border;
#X text 474 169 3: output_low_border;
#X text 474 191 4: output_high_border;
#X text 183 37 scale [from_low \, from_hi] to [to_low \, to_hi];
#X obj 112 38 loadbang;
#X connect 0 0 10 0;
#X connect 1 0 0 1;
#X connect 2 0 0 4;
#X connect 3 0 0 3;
#X connect 4 0 0 2;
#X connect 5 0 1 0;
#X connect 6 0 4 0;
#X connect 7 0 3 0;
#X connect 8 0 2 0;
#X connect 9 0 0 0;
#X connect 17 0 1 0;
#X connect 17 0 3 0;
#X connect 17 0 4 0;
#X connect 17 0 2 0;

--- NEW FILE: play.pd ---
#N canvas 50 61 413 213 10;
#X obj 44 50 inlet;
#X obj 137 49 inlet;
#X obj 90 49 inlet;
#X obj 218 50 inlet;
#X obj 236 87 r MIDI-channel;
#X obj 44 80 makenote \$1 \$2;
#X obj 44 146 noteout \$3;
#X text 176 164 1992-96 by Karlheinz Essl;
#X text 91 166 vs. 2;
#X connect 0 0 5 0;
#X connect 1 0 5 2;
#X connect 2 0 5 1;
#X connect 3 0 6 2;
#X connect 4 0 6 2;
#X connect 5 0 6 0;
#X connect 5 1 6 1;

--- NEW FILE: per2pass.pd ---
#N canvas 63 44 315 207 10;
#X obj 58 130 outlet;
#X obj 58 95 expr 100 - ($f1*100);
#X obj 58 21 inlet;
#X text 81 152 1993 by Karlheinz Essl;
#X obj 68 43 loadbang;
#X obj 58 68 f \$1;
#X connect 1 0 0 0;
#X connect 2 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 1 0;

--- NEW FILE: QT-PercPlayer.pd ---
#N canvas 0 0 515 365 10;
#N canvas 420 193 575 486 player 0;
#X floatatom 151 58 0 0 0 0 - - -;
#X obj 111 83 int 127;
#X obj 30 83 int 60;
#X obj 30 18 inlet;
#X obj 30 259 pack 0 0 0;
#N canvas 0 0 450 300 plip 0;
#N canvas 0 0 528 439 blip 0;
#X obj 153 236 osc~;
#X obj 190 236 vline~;
#X obj 189 262 *~;
#X obj 172 285 *~;
#X obj 153 26 inlet;
#X obj 172 331 outlet~;
#X msg 190 202 1 2 0 \, 0 \$1 3;
#X obj 190 108 log;
#X obj 190 85 pow 4;
#X obj 190 151 * 1e+06;
#X obj 190 130 pow -3;
#X obj 190 174 * 2;
#X obj 259 25 inlet;
#X obj 265 87 pow -1;
#X obj 265 112 * 1000;
#X obj 153 56 t f f f;
#X obj 265 136 log;
#X obj 265 159 min 3;
#X obj 173 307 *~;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 3 1;
#X connect 3 0 18 0;
#X connect 4 0 15 0;
#X connect 6 0 1 0;
#X connect 7 0 10 0;
#X connect 8 0 7 0;
#X connect 9 0 11 0;
#X connect 10 0 9 0;
#X connect 11 0 6 0;
#X connect 12 0 11 1;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X connect 15 0 0 0;
#X connect 15 1 8 0;
#X connect 15 2 13 0;
#X connect 16 0 17 0;
#X connect 17 0 18 1;
#X connect 18 0 5 0;
#X restore 89 139 pd blip;
#X obj 89 116 stripnote;
#X obj 88 167 throw~ \$0-blips;
#X obj 89 92 inlet;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 1 1 0 1;
#X connect 3 0 1 0;
#X restore 30 397 pd plip;
#X obj 30 281 route 1 2 3 4;
#N canvas 0 0 450 300 plip 0;
#N canvas 0 0 528 439 blip 0;
#X obj 153 236 osc~;
#X obj 190 236 vline~;
#X obj 189 262 *~;
#X obj 172 285 *~;
#X obj 153 26 inlet;
#X obj 172 331 outlet~;
#X msg 190 202 1 2 0 \, 0 \$1 3;
#X obj 190 108 log;
#X obj 190 85 pow 4;
#X obj 190 151 * 1e+06;
#X obj 190 130 pow -3;
#X obj 190 174 * 2;
#X obj 259 25 inlet;
#X obj 265 87 pow -1;
#X obj 265 112 * 1000;
#X obj 153 56 t f f f;
#X obj 265 136 log;
#X obj 265 159 min 3;
#X obj 173 307 *~;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 3 1;
#X connect 3 0 18 0;
#X connect 4 0 15 0;
#X connect 6 0 1 0;
#X connect 7 0 10 0;
#X connect 8 0 7 0;
#X connect 9 0 11 0;
#X connect 10 0 9 0;
#X connect 11 0 6 0;
#X connect 12 0 11 1;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X connect 15 0 0 0;
#X connect 15 1 8 0;
#X connect 15 2 13 0;
#X connect 16 0 17 0;
#X connect 17 0 18 1;
#X connect 18 0 5 0;
#X restore 89 139 pd blip;
#X obj 89 116 stripnote;
#X obj 88 167 throw~ \$0-blips;
#X obj 89 92 inlet;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 1 1 0 1;
#X connect 3 0 1 0;
#X restore 51 374 pd plip;
#N canvas 0 0 450 300 plip 0;
#N canvas 0 0 528 439 blip 0;
#X obj 153 236 osc~;
#X obj 190 236 vline~;
#X obj 189 262 *~;
#X obj 172 285 *~;
#X obj 153 26 inlet;
#X obj 172 331 outlet~;
#X msg 190 202 1 2 0 \, 0 \$1 3;
#X obj 190 108 log;
#X obj 190 85 pow 4;
#X obj 190 151 * 1e+06;
#X obj 190 130 pow -3;
#X obj 190 174 * 2;
#X obj 259 25 inlet;
#X obj 265 87 pow -1;
#X obj 265 112 * 1000;
#X obj 153 56 t f f f;
#X obj 265 136 log;
#X obj 265 159 min 3;
#X obj 173 307 *~;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 3 1;
#X connect 3 0 18 0;
#X connect 4 0 15 0;
#X connect 6 0 1 0;
#X connect 7 0 10 0;
#X connect 8 0 7 0;
#X connect 9 0 11 0;
#X connect 10 0 9 0;
#X connect 11 0 6 0;
#X connect 12 0 11 1;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X connect 15 0 0 0;
#X connect 15 1 8 0;
#X connect 15 2 13 0;
#X connect 16 0 17 0;
#X connect 17 0 18 1;
#X connect 18 0 5 0;
#X restore 89 139 pd blip;
#X obj 89 116 stripnote;
#X obj 88 167 throw~ \$0-blips;
#X obj 89 92 inlet;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 1 1 0 1;
#X connect 3 0 1 0;
#X restore 73 346 pd plip;
#N canvas 0 0 450 300 plip 0;
#N canvas 0 0 528 439 blip 0;
#X obj 153 236 osc~;
#X obj 190 236 vline~;
#X obj 189 262 *~;
#X obj 172 285 *~;
#X obj 153 26 inlet;
#X obj 172 331 outlet~;
#X msg 190 202 1 2 0 \, 0 \$1 3;
#X obj 190 108 log;
#X obj 190 85 pow 4;
#X obj 190 151 * 1e+06;
#X obj 190 130 pow -3;
#X obj 190 174 * 2;
#X obj 259 25 inlet;
#X obj 265 87 pow -1;
#X obj 265 112 * 1000;
#X obj 153 56 t f f f;
#X obj 265 136 log;
#X obj 265 159 min 3;
#X obj 173 307 *~;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 3 1;
#X connect 3 0 18 0;
#X connect 4 0 15 0;
#X connect 6 0 1 0;
#X connect 7 0 10 0;
#X connect 8 0 7 0;
#X connect 9 0 11 0;
#X connect 10 0 9 0;
#X connect 11 0 6 0;
#X connect 12 0 11 1;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X connect 15 0 0 0;
#X connect 15 1 8 0;
#X connect 15 2 13 0;
#X connect 16 0 17 0;
#X connect 17 0 18 1;
#X connect 18 0 5 0;
#X restore 89 139 pd blip;
#X obj 89 116 stripnote;
#X obj 88 167 throw~ \$0-blips;
#X obj 89 92 inlet;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 1 1 0 1;
#X connect 3 0 1 0;
#X restore 94 321 pd plip;
#X obj 30 178 mtof;
#X obj 111 173 / 127;
#X obj 30 48 t a b;
#X obj 30 200 makenote 0.3 30;
#X obj 30 232 poly 4;
#X obj 111 19 inlet;
#X obj 184 253 print;
#X connect 0 0 1 1;
#X connect 1 0 11 0;
#X connect 2 0 10 0;
#X connect 3 0 12 0;
#X connect 4 0 6 0;
#X connect 6 0 5 0;
#X connect 6 1 7 0;
#X connect 6 2 8 0;
#X connect 6 3 9 0;
#X connect 10 0 13 0;
#X connect 11 0 13 1;
#X connect 12 0 2 0;
#X connect 12 1 1 0;
#X connect 13 0 14 0;
#X connect 13 1 14 1;
#X connect 14 0 4 0;
#X connect 14 1 4 1;
#X connect 14 2 4 2;
#X connect 15 0 1 0;
#X restore 206 140 pd player;
#X obj 206 81 inlet;
#X obj 80 195 dac~;
#X obj 79 80 catch~ \$0-blips;
#X obj 79 164 *~ 0;
#X obj 105 120 hsl 64 15 0 1 0 0 empty empty vol 20 8 0 8 -262144 -1
-1 2500 1;
#X obj 176 122 tgl 10 0 \$0-dsp \$0-dsp-r empty 0 -6 0 8 -262144 -1
-1 0 1;
#N canvas 0 0 450 300 dsp 0;
#X obj 97 77 r pd;
#X obj 96 107 route dsp;
#X obj 90 174 r \$0-dsp;
#X obj 95 223 s pd;
#X msg 92 198 dsp \$1;
#X msg 95 127 set \$1;
#X obj 92 150 s \$0-dsp-r;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 5 0 6 0;
#X restore 370 144 pd dsp;
#X obj 264 79 inlet;
#X connect 1 0 0 0;
#X connect 3 0 4 0;
#X connect 4 0 2 0;
#X connect 4 0 2 1;
#X connect 5 0 4 1;
#X connect 8 0 0 1;
#X coords 0 -1 1 1 90 40 1 100 100;

--- NEW FILE: row-modus-help.pd ---
#N canvas 1 48 790 520 10;
#X text 19 30 row-modus;
#X text 30 144 3 ... retro-inversion;
#X text 30 130 2 ... inversion;
#X text 30 116 1 ... retrograde;
#X text 30 101 0 ... prime;
#X text 19 388 1994 by Karlheinz Essl;
#X text 140 157 row of Anton Webern \, op.28;
#X msg 70 208 10 9 0 11 3 4 1 2 6 5 8 7;
#X msg 70 349;
#X obj 70 319 show;
#X obj 70 288 row-modus;
#X obj 70 179 loadbang;
#X text 145 318 normalized row;
#X floatatom 297 246 3 0 0 1 modus - -;
#X text 19 57 Puts a row (sent to the left inlet) into a chosen modus
specified in the right inlet and output it as a "normalized" row (i.e.
starting with pitch class c).;
#X obj 105 320 bng 15 250 50 1 empty empty clear 0 -6 0 8 -262144 -1
-1;
#X msg 328 23 Dodecaphonics;
#X text 19 402 Thanks to Charles Baker for his "matrix" object;
#N canvas 568 179 568 488 row-modus 0;
#X obj 234 337 list split 1;
#X symbolatom 144 142 16 0 0 0 - - -;
#X obj 144 127 hradio 15 1 0 4 empty empty row_modus 0 -6 0 8 -262144
-1 -1 2;
#X obj 234 364 outlet;
#X obj 144 60 inlet;
#X obj 145 169 select 0 1 2 3;
#X msg 234 227 0 prime;
#X msg 234 251 1 retrograde;
#X msg 234 276 2 inversion;
#X msg 234 301 3 retro-inversion;
#X connect 0 0 3 0;
#X connect 0 1 1 0;
#X connect 2 0 5 0;
#X connect 4 0 2 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 5 2 8 0;
#X connect 5 3 9 0;
#X connect 6 0 0 0;
#X connect 7 0 0 0;
#X connect 8 0 0 0;
#X connect 9 0 0 0;
#X coords 0 -1 1 1 125 60 1 140 100;
#X restore 297 180 pd row-modus;
#X connect 7 0 10 0;
#X connect 9 0 8 0;
#X connect 10 0 9 0;
#X connect 11 0 7 0;
#X connect 13 0 10 1;
#X connect 15 0 9 1;
#X connect 18 0 13 0;

--- NEW FILE: random-ramp-urn-help.pd ---
#N canvas 221 33 736 547 10;
#X text 146 13 Generates randomly fluctuating envelope shapes of a
given dynamic scale (defined by a min and a max velocity and a certain
number of values) within a time scale (defined by a min and a max ramp
time and a certain number of values). A rhythm bang set to the left
inlet outputs a velocity value. A stop message sent to the same inlet
will stop the whole process.;
#X text 408 329 randomly chosen ramp time;
#X floatatom 367 330 5 0 0 1 - - -;
#X text 277 360 randomly chosen velocity destination;
#X floatatom 243 360 4 0 0 1 - - -;
#X floatatom 265 268 4 0 0 2 nr._of_values - -;
#X floatatom 432 214 0 0 0 2 min_ramp_time - -;
#X floatatom 432 247 0 0 0 2 max_ramp_time - -;
#X floatatom 265 240 4 0 0 2 max_velocity - -;
#X floatatom 265 210 4 0 0 2 min_veloc. - -;
#X obj 120 191 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 120 401 vsl 15 128 0 127 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 0 1;
#X text 262 177 dynamic scale - - -;
#X text 427 177 ramp durations - - -;
#X floatatom 120 336 4 0 0 1 velocity - -;
#X text 501 518 1994 by Karlheinz Essl;
#X obj 39 239 sel 0;
#X msg 39 265 stop;
#N canvas 380 246 576 346 musical 0;
#X floatatom 140 224 0 0 0 0 - - -;
#X floatatom 44 224 0 0 0 0 - - -;
#X obj 44 140 brown-rhythm 50 1000 12 0.2;
#X obj 44 188 brown-melody 21 104 0.25;
#X msg 251 140 stop;
#X obj 251 112 sel 0;
#X obj 44 66 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X text 74 66 start stop;
#X obj 44 252 play2 127 500 1 1;
#X text 20 294 1994 by Karlheinz Essl;
#X text 89 227 note;
#X text 185 227 velocity;
#X obj 44 162 t a a;
#X obj 251 186 random-ramp-urn 10 127 5 250 2000 12;
#X text 20 33 This is a very simple musical example for using the random-ramp-urn
object:;
#X connect 0 0 8 1;
#X connect 1 0 8 0;
#X connect 2 0 12 0;
#X connect 3 0 1 0;
#X connect 4 0 13 0;
#X connect 5 0 4 0;
#X connect 6 0 2 0;
#X connect 6 0 5 0;
#X connect 12 0 3 0;
#X connect 12 1 13 0;
#X connect 13 0 0 0;
#X restore 438 405 pd musical;
#X text 153 191 start stop;
#X obj 120 239 metro 150;
#X obj 112 401 vsl 8 128 0 127 0 0 empty empty min_vel -30 -8 0 8 -262144
-1 -1 0 1;
#X obj 135 401 vsl 8 128 0 127 0 0 empty empty max_vel 0 -8 0 8 -262144
-1 -1 0 1;
#X floatatom 432 280 4 0 0 2 nr._of_values - -;
#X msg 210 141 random-ramp;
#X text 144 109 As opposed to "random-ramp" \, this version performs
a repetition check of the randomly chosen paramters.;
#X text 145 142 See also:;
#X obj 120 300 random-ramp-urn 10 127 5 250 2000 12;
#X text 15 29 random-ramp-urn;
#X connect 5 0 27 3;
#X connect 6 0 27 4;
#X connect 7 0 27 5;
#X connect 8 0 22 0;
#X connect 8 0 27 2;
#X connect 9 0 21 0;
#X connect 9 0 27 1;
#X connect 10 0 16 0;
#X connect 10 0 20 0;
#X connect 14 0 11 0;
#X connect 16 0 17 0;
#X connect 17 0 27 0;
#X connect 20 0 27 0;
#X connect 23 0 27 6;
#X connect 27 0 14 0;
#X connect 27 1 4 0;
#X connect 27 2 2 0;

--- NEW FILE: row-modus.pd ---
#N canvas 404 174 284 287 10;
#X obj 58 217 outlet;
#N canvas 475 256 540 340 forms 1;
#X obj 183 219 outlet;
#X obj 183 86 route 0 1 2 3;
#X obj 183 57 inlet;
#X obj 183 173 int 0;
#X obj 241 172 int 0;
#X obj 284 172 int 1;
#X obj 241 218 outlet;
#X obj 137 173 int 1;
#X obj 349 79 hradio 15 1 0 4 empty empty row_modus 0 -6 0 8 -262144
-1 -1 0;
#X obj 356 108 && 2;
#X connect 1 0 3 0;
#X connect 1 0 4 0;
#X connect 1 1 7 0;
#X connect 1 1 4 0;
#X connect 1 2 3 0;
#X connect 1 2 5 0;
#X connect 1 3 7 0;
#X connect 1 3 5 0;
#X connect 2 0 1 0;
#X connect 3 0 0 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 7 0 0 0;
#X connect 8 0 9 0;
#X restore 150 127 pd forms;
#X obj 196 155 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 150 155 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 58 184 matrix12 0;
#X obj 58 61 inlet;
#X obj 129 61 inlet;
#X obj 129 90 t b f;
#X obj 58 90 t b l;
#X text 122 219 1994-97 by Karlheinz Essl;
#X connect 1 0 3 0;
#X connect 1 1 2 0;
#X connect 2 0 4 3;
#X connect 3 0 4 2;
#X connect 4 0 0 0;
#X connect 5 0 8 0;
#X connect 6 0 7 0;
#X connect 7 0 4 0;
#X connect 7 1 1 0;
#X connect 8 0 4 0;
#X connect 8 1 4 0;

--- NEW FILE: note2cents.pd ---
#N canvas 50 61 238 271 10;
#X obj 41 188 outlet;
#X obj 96 188 outlet;
#X obj 41 43 inlet;
#X obj 41 90 int;
#X obj 96 90 * 100;
#X obj 96 121 round;
#X obj 96 153 % 100;
#X text 39 215 1994 by Karlheinz
Essl;
#X obj 41 64 t a a;
#X connect 2 0 8 0;
#X connect 3 0 0 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 1 0;
#X connect 8 0 3 0;
#X connect 8 1 4 0;

--- NEW FILE: pitch2note.pd ---
#N canvas 49 106 299 349 10;
#X obj 51 39 inlet;
#X obj 116 39 inlet;
#X obj 116 89 * 12;
#X text 36 286 1993-2004 by Karlheinz
Essl;
#X text 36 303 vs. 1.1.1;
#X obj 51 150 +;
#X obj 51 211 outlet;
#X msg 128 230 pitch higher than 127!;
#X obj 128 204 sel 1;
#X obj 128 176 > 127;
#X obj 85 120 int;
#X floatatom 136 116 0 0 0 0 - - -;
#X obj 128 254 print :pitch2note;
#X obj 116 63 i \$1;
#X obj 51 89 t f b b;
#X obj 51 173 t a a;
#X connect 0 0 14 0;
#X connect 1 0 13 0;
#X connect 2 0 10 1;
#X connect 2 0 11 0;
#X connect 5 0 15 0;
#X connect 7 0 12 0;
#X connect 8 0 7 0;
#X connect 9 0 8 0;
#X connect 10 0 5 1;
#X connect 13 0 2 0;
#X connect 14 0 5 0;
#X connect 14 1 10 0;
#X connect 14 2 13 0;
#X connect 15 0 6 0;
#X connect 15 1 9 0;





More information about the Pd-cvs mailing list