ported: "added rjlib to the base install to support added K12 functionality"

from pd-l2ork: 640d3c53ad8cd592b1d757b988e27d3ada2b1779

l2ork_addons/rjlib/Makefile

+#! /usr/bin/make
+
+# available targets:
+#   clean: clean everything
+#   all: compile objective-c application
+#   package: prepare a zip file of the app
+#   upload: upload app to a phone
+# 
+# use "make upload IPHONE=<iphone_ip>" to build and upload to device
+
+# name of the application
+TRG=RjDj
+# version
+VER=0.5
+# ip of the phone to install it to
+IPHONE?=192.168.1.36
+# user name to upload with
+IPHONE_USER=mobile
+
+SCENE_LOC=/var/mobile/Applications/RJ/rjlib
+
+RSYNC=rsync
+RSYNC_OPTS=-av --delete-after --exclude .svn
+
+upload:
+	$(RSYNC) $(RSYNC_OPTS) ./ $(IPHONE_USER)@$(IPHONE):$(SCENE_LOC) || echo "make sure rsync is installed on the phone"

l2ork_addons/rjlib/README

+
+Global messages from rjlib:
+
+1) receiver "accelerate", 
+   module accelerate.pd
+   - magnitude float: gives the magnitude of an accelerator motion
+   - pitch float: the pitch 
+   - roll float: the roll 
+   - x float: raw x value
+   - y float: raw y value
+   - z loat: raw z value
+
+2) receiver "touch"  ??? TODO: document
+   module touch.pd
+   - tap float: 
+   - speed1.delta.1 float
+   - speed2.delta.2 float
+   - speed float float
+
+3) receiver analyse 
+   module analysepitch.pd
+   - pitch float: a pitch value when a pitched sound is detected
+   - continuouspitch float: always delivers a pitch
+   - onset bang: bang if an onset is detected
+   module analysesimpleonset.pd
+   configuration: onset_threshold float: default value 10
+   - simpleonset bang: cheap, basic onset detector
+

l2ork_addons/rjlib/abs/reverb-echo.pd

+#N canvas 840 189 600 492 12;
+#X obj 66 95 inlet~;
+#X obj 130 96 inlet~;
+#X obj 68 216 outlet~;
+#X obj 141 215 outlet~;
+#X obj 67 143 +~;
+#X obj 140 141 -~;
+#X obj 141 165 delwrite~ \$1 \$2;
+#X obj 140 191 delread~ \$1 \$2;
+#X text 48 14 This appears as an abstraction in patch G08.reverb.pd
+;
+#X text 27 267 This network makes two copies of the (stereo) input
+\, one in phase \, the other out of phase and delayed. The total frequency
+response is flat. The total signal power out is exactly twice that
+of the input \, no matter what freqiencies the input contains. This
+is used to increase echo density \, by stacking several of these units
+with different delay times. Each stage doubles the echo density.;
+#X connect 0 0 4 0;
+#X connect 0 0 5 0;
+#X connect 1 0 4 1;
+#X connect 1 0 5 1;
+#X connect 4 0 2 0;
+#X connect 5 0 6 0;
+#X connect 7 0 3 0;

l2ork_addons/rjlib/accelerate.pd

+#N canvas 537 40 360 283 10;
+#N canvas 79 298 269 329 magnitude 0;
+#X obj 14 17 r #accelerate;
+#X obj 14 48 unpack f f f;
+#X obj 14 108 *;
+#X obj 76 108 *;
+#X obj 135 108 *;
+#X obj 14 138 +;
+#X obj 14 168 +;
+#X obj 14 198 pow 0.5;
+#X obj 14 258 s accelerate;
+#X msg 14 228 magnitude \$1;
+#X msg 14 78 \$1 \$1;
+#X msg 76 78 \$1 \$1;
+#X msg 135 78 \$1 \$1;
+#X connect 0 0 1 0;
+#X connect 1 0 10 0;
+#X connect 1 1 11 0;
+#X connect 1 2 12 0;
+#X connect 2 0 5 0;
+#X connect 3 0 5 1;
+#X connect 4 0 6 1;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 9 0;
+#X connect 9 0 8 0;
+#X connect 10 0 2 0;
+#X connect 11 0 3 0;
+#X connect 12 0 4 0;
+#X restore 16 22 pd magnitude;
+#N canvas 123 87 366 291 pitch 0;
+#X obj 31 25 r #accelerate;
+#X obj 31 205 s accelerate;
+#X obj 31 85 /;
+#X obj 31 115 atan;
+#X msg 31 175 pitch \$1;
+#X obj 31 145 * -1;
+#X obj 31 55 list split 1;
+#X connect 0 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 5 0;
+#X connect 4 0 1 0;
+#X connect 5 0 4 0;
+#X connect 6 1 2 0;
+#X restore 16 52 pd pitch;
+#N canvas 256 44 307 244 roll 0;
+#X obj 14 17 r #accelerate;
+#X obj 14 47 unpack f f f;
+#X obj 14 167 s accelerate;
+#X msg 14 137 roll \$1;
+#X obj 14 77 /;
+#X obj 14 107 atan;
+#X connect 0 0 1 0;
+#X connect 1 0 4 0;
+#X connect 1 2 4 1;
+#X connect 3 0 2 0;
+#X connect 4 0 5 0;
+#X connect 5 0 3 0;
+#X restore 16 82 pd roll;
+#X text 16 187 Author: Roman Haefeli;
+#N canvas 166 94 327 239 x_y_z 0;
+#X obj 14 17 r #accelerate;
+#X obj 14 77 s accelerate;
+#X msg 14 47 x \$1 \, y \$2 \, z \$3;
+#X connect 0 0 2 0;
+#X connect 2 0 1 0;
+#X restore 16 112 pd x_y_z;
+#X text 15 168 Version: 2008-07-14;
+#N canvas 0 22 223 279 status 0;
+#X obj 14 17 r #accelerate;
+#X obj 14 77 f 150;
+#X obj 14 107 del;
+#X obj 14 167 change;
+#X obj 14 47 t b b;
+#X msg 14 197 status \$1;
+#X obj 14 227 s accelerate;
+#X obj 104 117 f 1;
+#X obj 14 137 f 0;
+#X connect 0 0 4 0;
+#X connect 1 0 2 0;
+#X connect 2 0 8 0;
+#X connect 3 0 5 0;
+#X connect 4 0 1 0;
+#X connect 4 1 7 0;
+#X connect 5 0 6 0;
+#X connect 7 0 3 0;
+#X connect 8 0 3 0;
+#X restore 16 142 pd status;
+#X text 16 207 Revision: 2008-09-19 eerne: minor enhancement;
+#X text 16 227 2008-09-20 eerne: added status;

l2ork_addons/rjlib/analysepitch.pd

+#N canvas 486 22 450 300 10;
+#X obj 119 128 fiddle~;
+#X obj 153 263 s analyse;
+#X obj 119 65 adc~;
+#X floatatom 43 235 5 0 0 0 - - -;
+#X msg 92 202 pitch \$1;
+#X msg 263 201 continuouspitch \$1;
+#X msg 169 202 onset bang;
+#X obj 264 178 unpack;
+#X obj 169 64 r inputvolume;
+#X obj 120 99 *~ 1;
+#X connect 0 0 4 0;
+#X connect 0 0 3 0;
+#X connect 0 1 6 0;
+#X connect 0 2 7 0;
+#X connect 2 0 9 0;
+#X connect 2 1 9 0;
+#X connect 4 0 1 0;
+#X connect 5 0 1 0;
+#X connect 6 0 1 0;
+#X connect 7 0 5 0;
+#X connect 8 0 9 1;
+#X connect 9 0 0 0;

l2ork_addons/rjlib/analysesimpleonset.pd

+#N canvas 270 63 551 550 10;
+#X obj 96 61 adc~;
+#X obj 97 121 env~;
+#X obj 152 62 inlet;
+#X obj 203 63 r onset_threshold;
+#X obj 167 268 change;
+#X obj 167 290 sel 1;
+#X obj 167 389 s analyse;
+#X floatatom 180 153 5 0 0 0 - - -;
+#X obj 97 182 -;
+#X obj 97 159 t f f;
+#X obj 125 339 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 70 213 t f f;
+#X obj 79 268 spigot;
+#X obj 168 328 float;
+#X msg 168 362 simpleonset \$1;
+#X obj 103 236 > 3;
+#X connect 0 0 1 0;
+#X connect 0 1 1 0;
+#X connect 1 0 7 0;
+#X connect 1 0 9 0;
+#X connect 2 0 15 1;
+#X connect 3 0 15 1;
+#X connect 4 0 5 0;
+#X connect 5 0 10 0;
+#X connect 5 0 13 0;
+#X connect 8 0 11 0;
+#X connect 9 0 8 1;
+#X connect 9 1 8 0;
+#X connect 11 0 12 0;
+#X connect 11 1 15 0;
+#X connect 12 0 13 1;
+#X connect 13 0 14 0;
+#X connect 14 0 6 0;
+#X connect 15 0 4 0;
+#X connect 15 0 12 1;

l2ork_addons/rjlib/hilbert~.pd

+#N canvas 269 0 593 306 12;
+#X obj 105 92 biquad~ 0.83774 -0.06338 0.06338 -0.83774 1;
+#X obj 105 66 biquad~ 1.94632 -0.94657 0.94657 -1.94632 1;
+#X obj 86 149 biquad~ -0.02569 0.260502 -0.260502 0.02569 1;
+#X obj 86 175 biquad~ 1.8685 -0.870686 0.870686 -1.8685 1;
+#X obj 86 39 inlet~;
+#X obj 105 121 outlet~;
+#X obj 86 202 outlet~;
+#X text 34 232 This is a pair of 4th-order all-pass filters whose outputs
+somehow manage to be about 90 degrees out of phase from each other.
+Both have different phases from the original. Adapted from a 4X patch
+by Emmanuel Favreau \, circa 1982;
+#X obj 502 39 inlet;
+#X text 461 13 bang to clear;
+#X text 80 16 signal in;
+#X msg 502 112 clear;
+#X connect 0 0 5 0;
+#X connect 1 0 0 0;
+#X connect 2 0 3 0;
+#X connect 3 0 6 0;
+#X connect 4 0 1 0;
+#X connect 4 0 2 0;
+#X connect 8 0 11 0;
+#X connect 11 0 1 0;
+#X connect 11 0 0 0;
+#X connect 11 0 2 0;
+#X connect 11 0 3 0;

l2ork_addons/rjlib/playback.pd

+#N canvas 461 160 618 519 10;
+#X obj 19 103 readsf~ 2;
+#X msg 19 79 open \$1 \, 1;
+#X obj 19 57 symbol;
+#X obj 20 7 r #transport;
+#X obj 19 30 route playback;
+#X obj 19 132 soundoutput;
+#X connect 0 0 5 0;
+#X connect 0 1 5 1;
+#X connect 1 0 0 0;
+#X connect 2 0 1 0;
+#X connect 3 0 4 0;
+#X connect 4 0 2 0;

l2ork_addons/rjlib/recorder.pd

+#N canvas 512 221 504 404 10;
+#X obj 184 376 writesf~ 2;
+#X obj 144 16 r #transport;
+#X obj 156 127 route scene;
+#X floatatom 48 209 5 0 0 0 - - -;
+#X obj 48 188 random 30000;
+#X obj 49 135 route record;
+#X obj 48 166 sel 1;
+#X msg 72 285 open \$1 \, start;
+#X msg 143 310 stop;
+#X obj 199 323 catch~ rec1;
+#X obj 286 323 catch~ rec2;
+#X obj 69 375 print;
+#X msg 159 199 set \$1_%d.wav;
+#X obj 159 150 symbol;
+#X obj 158 179 makefilename %s;
+#X obj 72 234 makefilename record_%d.wav;
+#X connect 1 0 2 0;
+#X connect 1 0 5 0;
+#X connect 2 0 13 0;
+#X connect 3 0 15 0;
+#X connect 4 0 3 0;
+#X connect 5 0 6 0;
+#X connect 5 1 8 0;
+#X connect 6 0 4 0;
+#X connect 7 0 0 0;
+#X connect 7 0 11 0;
+#X connect 8 0 0 0;
+#X connect 8 0 11 0;
+#X connect 9 0 0 0;
+#X connect 10 0 0 1;
+#X connect 12 0 11 0;
+#X connect 12 0 15 0;
+#X connect 13 0 14 0;
+#X connect 14 0 12 0;
+#X connect 15 0 7 0;

l2ork_addons/rjlib/reverb.pd

+#N canvas 390 121 790 517 10;
+#X obj 91 17 inlet~;
+#X obj 344 225 +~;
+#X obj 386 225 +~;
+#X obj 615 453 outlet~;
+#X obj 685 453 outlet~;
+#X obj 305 288 +~;
+#X obj 414 289 +~;
+#X obj 347 288 -~;
+#X obj 454 288 -~;
+#X obj 305 327 +~;
+#X obj 349 328 +~;
+#X obj 393 329 -~;
+#X obj 432 329 -~;
+#X obj 680 172 inlet;
+#X obj 680 244 / 200;
+#X obj 680 196 min 100;
+#X obj 680 219 max 0;
+#X obj 306 465 delwrite~ loop-del1 60;
+#X obj 351 443 delwrite~ loop-del2 71.9345;
+#X obj 432 397 delwrite~ loop-del4 95.945;
+#X obj 365 164 delread~ loop-del1 60;
+#X obj 407 189 delread~ loop-del2 71.9345;
+#X obj 475 243 delread~ loop-del4 95.945;
+#X obj 453 218 delread~ loop-del3 86.7545;
+#X obj 393 420 delwrite~ loop-del3 86.7545;
+#X obj 91 41 abs/reverb-echo echo-del1 5.43216;
+#X obj 91 65 abs/reverb-echo echo-del2 8.45346;
+#X obj 91 89 abs/reverb-echo echo-del3 13.4367;
+#X obj 91 113 abs/reverb-echo echo-del4 21.5463;
+#X obj 91 137 abs/reverb-echo echo-del5 34.3876;
+#X obj 91 161 abs/reverb-echo echo-del6 55.5437;
+#X obj 305 354 *~ \$1;
+#X obj 350 355 *~ \$1;
+#X obj 392 356 *~ \$1;
+#X obj 433 357 *~ \$1;
+#X obj 746 174 inlet;
+#X obj 746 198 min 100;
+#X obj 746 221 max 0;
+#X obj 706 364 / 100;
+#X obj 709 403 *~ \$2;
+#X obj 652 393 *~ \$2;
+#X connect 0 0 25 0;
+#X connect 0 0 3 0;
+#X connect 0 0 4 0;
+#X connect 1 0 5 0;
+#X connect 1 0 7 0;
+#X connect 1 0 40 0;
+#X connect 2 0 5 1;
+#X connect 2 0 7 1;
+#X connect 2 0 39 0;
+#X connect 5 0 9 0;
+#X connect 5 0 11 0;
+#X connect 6 0 11 1;
+#X connect 6 0 9 1;
+#X connect 7 0 10 0;
+#X connect 7 0 12 0;
+#X connect 8 0 10 1;
+#X connect 8 0 12 1;
+#X connect 9 0 31 0;
+#X connect 10 0 32 0;
+#X connect 11 0 33 0;
+#X connect 12 0 34 0;
+#X connect 13 0 15 0;
+#X connect 14 0 31 1;
+#X connect 14 0 32 1;
+#X connect 14 0 33 1;
+#X connect 14 0 34 1;
+#X connect 15 0 16 0;
+#X connect 16 0 14 0;
+#X connect 20 0 1 1;
+#X connect 21 0 2 1;
+#X connect 22 0 6 1;
+#X connect 22 0 8 1;
+#X connect 23 0 6 0;
+#X connect 23 0 8 0;
+#X connect 25 0 26 0;
+#X connect 25 1 26 1;
+#X connect 26 0 27 0;
+#X connect 26 1 27 1;
+#X connect 27 0 28 0;
+#X connect 27 1 28 1;
+#X connect 28 0 29 0;
+#X connect 28 1 29 1;
+#X connect 29 0 30 0;
+#X connect 29 1 30 1;
+#X connect 30 0 1 0;
+#X connect 30 1 2 0;
+#X connect 31 0 17 0;
+#X connect 32 0 18 0;
+#X connect 33 0 24 0;
+#X connect 34 0 19 0;
+#X connect 35 0 36 0;
+#X connect 36 0 37 0;
+#X connect 37 0 38 0;
+#X connect 38 0 39 1;
+#X connect 38 0 40 1;
+#X connect 39 0 4 0;
+#X connect 40 0 3 0;

l2ork_addons/rjlib/rj/OVERVIEW.pd

+#N canvas 722 176 296 279 10;
+#N canvas 0 0 682 744 \$0-overview 1;
+#X restore 85 182 pd \$0-overview;
+#N canvas 337 123 417 469 dump 0;
+#X obj 94 243 textfile;
+#X obj 94 277 t a b;
+#X obj 128 301 f;
+#X obj 160 302 + 1;
+#X obj 94 401 s pd-\$0-overview;
+#X obj 94 351 list;
+#X msg 172 247 1;
+#X obj 94 211 until;
+#X obj 74 41 inlet;
+#X obj 74 76 list;
+#X msg 258 199 print;
+#X msg 115 184 read \$1 cr \, rewind;
+#X msg 239 247 clear;
+#X msg 94 373 obj 100 \$2 \$1;
+#X obj 239 42 inlet;
+#X obj 128 324 * 45;
+#X msg 74 113 symbol \$1.txt;
+#X obj 74 152 t b b a b;
+#X msg 74 427 vis 1;
+#X connect 0 0 1 0;
+#X connect 0 1 7 1;
+#X connect 1 0 5 0;
+#X connect 1 1 2 0;
+#X connect 2 0 3 0;
+#X connect 2 0 15 0;
+#X connect 3 0 2 1;
+#X connect 5 0 13 0;
+#X connect 6 0 2 1;
+#X connect 7 0 0 0;
+#X connect 8 0 9 0;
+#X connect 9 0 16 0;
+#X connect 10 0 0 0;
+#X connect 11 0 0 0;
+#X connect 12 0 4 0;
+#X connect 13 0 4 0;
+#X connect 14 0 12 0;
+#X connect 15 0 5 1;
+#X connect 16 0 17 0;
+#X connect 17 0 18 0;
+#X connect 17 1 7 0;
+#X connect 17 2 11 0;
+#X connect 17 3 12 0;
+#X connect 17 3 6 0;
+#X connect 18 0 4 0;
+#X restore 84 154 pd dump;
+#X msg 110 33 s;
+#X text 138 33 ynths;
+#X msg 110 54 e;
+#X text 138 54 ffects;
+#X msg 111 77 m;
+#X text 139 77 appings;
+#X msg 111 99 c;
+#X text 139 99 controllers;
+#X msg 111 122 u;
+#X text 139 122 tilities;
+#X msg 143 154 clear;
+#X text 85 211 Help-click any object to;
+#X text 84 229 open the help file!;
+#X connect 2 0 1 0;
+#X connect 4 0 1 0;
+#X connect 6 0 1 0;
+#X connect 8 0 1 0;
+#X connect 10 0 1 0;
+#X connect 12 0 1 1;

l2ork_addons/rjlib/rj/c.txt

+c_adsr
+c_adsrj
+c_mphasor
+c_multimetro
+c_xfade

l2ork_addons/rjlib/rj/c_adsr-help.pd

+#N canvas 256 30 668 776 10;
+#X text 51 13 c_adsr: ADSR ENVELOPE;
+#X text 85 151 When you send this patch a positive trigger it schedules
+a line~ to do an attack and decay \, and if zero \, it starts the release
+ramp.;
+#X text 86 204 Negative triggers cause the output to jump to zero and
+then attack (instead of attacking from the current location).;
+#X obj 196 357 / 127;
+#N canvas 0 0 450 300 (subpatch) 0;
+#X array \$0-adsr 44100 float 2;
+#X coords 0 1 44100 -1 200 140 1;
+#X restore 118 558 graph;
+#X obj 119 513 tabwrite~ \$0-adsr;
+#X obj 87 292 t a b;
+#X msg 87 270 80;
+#X obj 87 335 makenote 100 400;
+#X obj 196 383 t a a;
+#X floatatom 141 311 5 0 0 2 velocity - -;
+#X floatatom 256 290 5 0 0 1 A - -;
+#X floatatom 286 315 5 0 0 1 D - -;
+#X floatatom 316 343 5 0 0 1 S(%) - -;
+#X floatatom 347 368 5 0 0 1 R - -;
+#X text 85 46 This is the classical Miller S. Puckette linear ADSR
+envelope \, but with vline~ instead of line~ inside for a bit of extra
+timing accuracy.;
+#X text 86 102 Arguments: peak level \, attack time \, decay time \,
+sustain level \, release time. A \, D \, and R are in msec and S is
+in percent!;
+#N canvas 0 0 450 300 (subpatch) 0;
+#X array \$0-adsr-quartic 44100 float 2;
+#X coords 0 1 44100 -1 200 140 1;
+#X restore 347 558 graph;
+#X obj 347 518 tabwrite~ \$0-adsr-quartic;
+#X obj 119 449 t b b;
+#X obj 345 465 *~;
+#X obj 346 494 *~;
+#X obj 196 411 c_adsr 1 80 100 80 200;
+#X text 385 473 simple curved envelope;
+#X connect 3 0 9 0;
+#X connect 6 0 8 0;
+#X connect 6 1 19 0;
+#X connect 7 0 6 0;
+#X connect 8 1 3 0;
+#X connect 9 0 22 0;
+#X connect 9 1 22 1;
+#X connect 10 0 8 1;
+#X connect 11 0 22 2;
+#X connect 12 0 22 3;
+#X connect 13 0 22 4;
+#X connect 14 0 22 5;
+#X connect 19 0 5 0;
+#X connect 19 1 18 0;
+#X connect 20 0 21 0;
+#X connect 20 0 21 1;
+#X connect 21 0 18 0;
+#X connect 22 0 5 0;
+#X connect 22 0 20 0;
+#X connect 22 0 20 1;

l2ork_addons/rjlib/rj/c_adsr.pd

+#N canvas 131 27 1006 740 10;
+#X obj 105 111 inlet;
+#X obj 435 151 inlet;
+#X text 101 86 trigger;
+#X obj 105 139 sel 0;
+#X obj 244 155 t b;
+#X obj 166 264 f \$1;
+#X obj 166 289 pack 0 \$2;
+#X obj 492 151 inlet;
+#X obj 438 281 del \$2;
+#X obj 462 304 f \$4;
+#X obj 501 379 pack 0 \$3;
+#X obj 554 151 inlet;
+#X obj 616 151 inlet;
+#X obj 689 150 inlet;
+#X msg 105 170 stop;
+#X obj 612 306 pack 0 \$5;
+#X text 435 129 level;
+#X obj 501 355 * \$1;
+#X obj 458 454 outlet~;
+#X text 102 378 and pack with;
+#X text 103 398 attack time;
+#X text 31 126 if zero;
+#X text 32 143 release;
+#X text 12 160 and cancel;
+#X text 43 177 decay;
+#X text 284 272 on attack \, set a;
+#X text 278 305 recall sustain value;
+#X text 315 378 pack with decay time;
+#X text 605 332 on release ramp;
+#X text 606 349 back to zero;
+#X obj 462 329 * 0.01;
+#X text 47 567 Objects such as "f" and "pack" can be given dollar sign
+arguments to initialize their contents from adsr's creation arguments.
+Inlets are supplied to change them on the fly.;
+#X text 13 2 ADSR ENVELOPE;
+#X text 488 129 attack;
+#X text 555 128 decay;
+#X text 609 129 sustain;
+#X text 686 129 release;
+#X text 202 71 attack;
+#X obj 204 92 moses;
+#X obj 194 122 t b b;
+#X msg 128 290 0;
+#X text 20 273 optionally;
+#X text 10 291 bash to zero;
+#X text 25 246 ATTACK:;
+#X text 49 477 When you send this patch a positive trigger it schedules
+a line~ to do an attack and decay \, and if zero \, it starts the release
+ramp.;
+#X text 495 629 Updated for Pd version 0.37;
+#X text 255 89 test for negative trigger;
+#X text 253 113 if so \, zero;
+#X text 254 129 the output;
+#X text 278 165 in any case;
+#X text 303 355 multiply by peak level;
+#X text 280 286 delay for sustain;
+#X text 276 328 convert from percent;
+#X text 155 340 ... then;
+#X text 103 359 recall peak level;
+#X text 439 113 peak;
+#X text 281 149 ... do this;
+#X text 47 529 Negative triggers cause the output to jump to zero and
+then attack (instead of attacking from the current location).;
+#X text 208 1 Arguments: level \, attack time \, decay time \, sustain
+level \, release time. A \, D \, and R are in msec and S is in percent.
+This patch is used as an abstraction in various examples.;
+#X obj 458 429 vline~;
+#X connect 0 0 3 0;
+#X connect 1 0 5 1;
+#X connect 1 0 17 1;
+#X connect 3 0 14 0;
+#X connect 3 0 15 0;
+#X connect 3 1 38 0;
+#X connect 4 0 5 0;
+#X connect 4 0 8 0;
+#X connect 5 0 6 0;
+#X connect 6 0 59 0;
+#X connect 7 0 6 1;
+#X connect 7 0 8 1;
+#X connect 8 0 9 0;
+#X connect 9 0 30 0;
+#X connect 10 0 59 0;
+#X connect 11 0 10 1;
+#X connect 12 0 9 1;
+#X connect 13 0 15 1;
+#X connect 14 0 8 0;
+#X connect 15 0 59 0;
+#X connect 17 0 10 0;
+#X connect 30 0 17 0;
+#X connect 38 0 39 0;
+#X connect 38 1 4 0;
+#X connect 39 0 4 0;
+#X connect 39 1 40 0;
+#X connect 40 0 59 0;
+#X connect 59 0 18 0;

l2ork_addons/rjlib/rj/c_adsrj-help.pd

+#N canvas 282 52 718 684 10;
+#N canvas 0 0 450 300 (subpatch) 0;
+#X array \$0-adsr 44100 float 2;
+#X coords 0 1 44100 -1 200 140 1;
+#X restore 118 488 graph;
+#X obj 119 443 tabwrite~ \$0-adsr;
+#X obj 87 232 t a b;
+#X msg 87 210 80;
+#X obj 87 275 makenote 100 400;
+#X floatatom 141 251 5 0 0 2 velocity - -;
+#X floatatom 349 218 5 0 0 1 A - -;
+#X floatatom 413 218 5 0 0 1 D - -;
+#X floatatom 475 218 5 0 0 1 S(%) - -;
+#X floatatom 547 218 5 0 0 1 R - -;
+#X msg 349 237 A \$1;
+#X msg 413 237 D \$1;
+#X msg 475 238 S \$1;
+#X msg 547 238 R \$1;
+#X text 51 13 c_adsrj: ADSR ENVELOPE with GUI and state saving;
+#X floatatom 153 316 5 0 0 0 - - -;
+#X text 475 336 Remote control;
+#X obj 478 453 s RJ_SCENE_LOAD;
+#X obj 196 351 c_adsrj myadsr;
+#X text 85 46 This is a variation on the classical Miller S. Puckette
+linear ADSR envelope which has a GUI included and is rj-save enabled.
+;
+#X text 86 102 Arguments: NAME \, attack time \, decay time \, sustain
+level \, release time. A \, D \, and R are in msec and S is in percent!
+;
+#X obj 478 406 list prepend c_adsrj-myadsr;
+#X obj 478 430 list trim;
+#X msg 478 362 A 50 \, D 80 \, S 70 \, R 300;
+#X text 378 568 Also see;
+#X obj 448 566 c_adsr 1 20 30 90 300;
+#X text 86 152 Trigger input is taken to be a number specifiying midi
+velocity (0-127) which will also set the peak level.;
+#X connect 2 0 4 0;
+#X connect 2 1 1 0;
+#X connect 3 0 2 0;
+#X connect 4 1 15 0;
+#X connect 4 1 18 0;
+#X connect 5 0 4 1;
+#X connect 6 0 10 0;
+#X connect 7 0 11 0;
+#X connect 8 0 12 0;
+#X connect 9 0 13 0;
+#X connect 10 0 18 1;
+#X connect 11 0 18 1;
+#X connect 12 0 18 1;
+#X connect 13 0 18 1;
+#X connect 18 0 1 0;
+#X connect 21 0 22 0;
+#X connect 22 0 17 0;
+#X connect 23 0 21 0;

l2ork_addons/rjlib/rj/c_adsrj.pd

+#N canvas 255 130 736 454 10;
+#X obj 101 204 inlet;
+#X obj 101 254 t a a;
+#X obj 128 284 abs;
+#X obj 101 229 / 127;
+#X obj 451 59 inlet;
+#X obj 451 84 rjdispatch \$0 A;
+#X obj 451 109 rjdispatch \$0 D;
+#X obj 451 134 rjdispatch \$0 S;
+#X obj 451 159 rjdispatch \$0 R;
+#X obj 508 59 rjloader c_adsrj-\$1 \$0;
+#X obj 106 132 nbx 3 14 -1e+37 1e+37 0 0 \$0-A \$0-A A 0 -8 1 10 -262144
+-1 -1 151 256;
+#X obj 155 282 r \$0-A;
+#X obj 183 301 r \$0-D;
+#X obj 210 326 r \$0-S;
+#X obj 238 348 r \$0-R;
+#X obj 101 407 outlet~;
+#X obj 142 132 nbx 3 14 -1e+37 1e+37 0 0 \$0-D \$0-D D 0 -8 1 10 -262144
+-1 -1 53 256;
+#X obj 178 132 nbx 3 14 -1e+37 1e+37 0 0 \$0-S \$0-S S 0 -8 1 10 -262144
+-1 -1 41 256;
+#X obj 214 132 nbx 4 14 -1e+37 1e+37 0 0 \$0-R \$0-R R 0 -8 1 10 -262144
+-1 -1 74 256;
+#X obj 101 377 c_adsr 1 \$2 \$3 \$4 \$5;
+#X connect 0 0 3 0;
+#X connect 1 0 19 0;
+#X connect 1 1 2 0;
+#X connect 2 0 19 1;
+#X connect 3 0 1 0;
+#X connect 4 0 5 0;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 8 0;
+#X connect 11 0 19 2;
+#X connect 12 0 19 3;
+#X connect 13 0 19 4;
+#X connect 14 0 19 5;
+#X connect 19 0 15 0;
+#X coords 0 -1 1 1 160 50 1 100 100;

l2ork_addons/rjlib/rj/c_mphasor-help.pd

+#N canvas 26 24 904 644 10;
+#X obj 205 473 hsl 128 15 0 1 0 0 empty empty 0...1 10 7 1 10 -262144
+-1 -1 5056 1;
+#X msg 202 342 on \$1;
+#X obj 202 323 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 148 525 timer;
+#X obj 148 503 t b b;
+#X floatatom 148 549 5 0 0 0 - - -;
+#X floatatom 202 437 5 0 0 0 - - -;
+#X obj 384 340 hsl 128 15 0 1 0 0 empty empty phase(0...1) -2 -8 1
+10 -262144 -1 -1 1500 1;
+#X floatatom 155 322 5 0 0 2 freq - -;
+#X obj 155 342 / 100;
+#X msg 252 342 updates \$1;
+#X floatatom 252 322 5 0 0 0 - - -;
+#X floatatom 381 361 5 0 0 1 phase - -;
+#X obj 381 381 / 100;
+#X obj 202 407 c_mphasor 0.3 20;
+#X text 93 16 c_mphasor;
+#X text 130 68 Generates a message rate sawtooth ramp between 0...1
+with variable frequency and update period.;
+#X text 129 120 Arguments:;
+#X text 221 119 c_mphasor <freq Hz> <update period ms>;
+#X text 128 143 Inlet 0:;
+#X text 223 184 - on 0/1: switch on or off;
+#X text 223 144 - float number sets frequency in Hz \, negative frequencies
+give falling ramp;
+#X text 131 248 Inlet 1:;
+#X obj 619 554 table \$0-sinewave 1024;
+#X obj 620 531 s \$0-sinewave;
+#X msg 620 508 sinesum 1024 1;
+#X obj 620 483 loadbang;
+#X obj 419 479 * 1024;
+#X obj 419 502 + 1;
+#X obj 419 526 tabread \$0-sinewave;
+#X obj 422 550 hsl 128 15 -1 1 0 0 empty empty -1...1 10 7 1 10 -262144
+-1 -1 10164 1;
+#X text 414 452 c_mphasor can be used to make a sinewave LFO like this:
+;
+#X text 382 406 phases wrap around;
+#X text 129 40 Message rate phasor object \, useful for building LFOs.
+;
+#X text 222 210 - updates NUM: set update period in milliseconds (minimum
+2ms);
+#X text 221 246 - set and output phase like in [phasor~]. Range is
+0-1 \, values outside this are wrapped around.;
+#X connect 1 0 14 0;
+#X connect 2 0 1 0;
+#X connect 3 0 5 0;
+#X connect 4 0 3 0;
+#X connect 4 1 3 1;
+#X connect 6 0 0 0;
+#X connect 7 0 14 1;
+#X connect 8 0 9 0;
+#X connect 9 0 14 0;
+#X connect 10 0 14 0;
+#X connect 11 0 10 0;
+#X connect 12 0 13 0;
+#X connect 13 0 14 1;
+#X connect 14 0 6 0;
+#X connect 14 0 4 0;
+#X connect 14 0 27 0;
+#X connect 25 0 24 0;
+#X connect 26 0 25 0;
+#X connect 27 0 28 0;
+#X connect 28 0 29 0;
+#X connect 29 0 30 0;

l2ork_addons/rjlib/rj/c_mphasor.pd

+#N canvas 137 114 832 614 10;
+#X obj 93 47 inlet;
+#X text 101 27 freq;
+#X obj 26 190 loadbang;
+#X obj 93 390 outlet;
+#X obj 406 53 inlet;
+#X obj 93 321 f 0;
+#X obj 127 321 + 1;
+#X obj 262 215 f \$1;
+#X obj 125 218 f \$2;
+#X obj 154 145 loadbang;
+#X obj 93 267 metro;
+#N canvas 565 325 520 366 \$0-calc-increment 0;
+#X obj 165 68 inlet;
+#X obj 54 66 inlet;
+#X obj 165 129 /;
+#X obj 165 100 swap 1000;
+#X obj 165 221 / 1;
+#X text 165 43 freq;
+#X obj 165 296 outlet;
+#X text 164 315 counter increment;
+#X obj 54 293 outlet;
+#X text 48 319 metro period;
+#X obj 165 166 t b a;
+#X text 211 219 inverse number of updates per sweep;
+#X text 54 43 update period;
+#X obj 54 127 max 2;
+#X connect 0 0 3 0;
+#X connect 1 0 13 0;
+#X connect 2 0 10 0;
+#X connect 3 0 2 0;
+#X connect 3 1 2 1;
+#X connect 4 0 6 0;
+#X connect 10 0 4 0;
+#X connect 10 1 4 1;
+#X connect 13 0 4 0;
+#X connect 13 0 8 0;
+#X restore 125 245 pd \$0-calc-increment;
+#X obj 154 170 t b b;
+#X text 412 198 [c_mphasor <freq> <update period>];
+#X text 404 33 phase (0-1);
+#X obj 93 83 route on updates float;
+#X floatatom 314 301 5 0 0 0 - - -;
+#N canvas 105 5 620 333 \$0-wrap 0;
+#X obj 75 88 int;
+#X obj 43 114 -;
+#X obj 43 62 t a a;
+#X obj 43 194 +;
+#X obj 43 136 t a a;
+#X obj 75 161 < 0;
+#X obj 43 36 inlet;
+#X obj 43 221 t a a;
+#X obj 75 249 outlet;
+#X obj 43 275 outlet;
+#X text 112 40 wraparound between 0 and +1 \, also for negative numbers
+;
+#X connect 0 0 1 1;
+#X connect 1 0 4 0;
+#X connect 2 0 1 0;
+#X connect 2 1 0 0;
+#X connect 3 0 7 0;
+#X connect 4 0 3 0;
+#X connect 4 1 5 0;
+#X connect 5 0 3 1;
+#X connect 6 0 2 0;
+#X connect 7 0 9 0;
+#X connect 7 1 8 0;
+#X restore 93 348 pd \$0-wrap;
+#X connect 0 0 15 0;
+#X connect 2 0 10 0;
+#X connect 4 0 5 0;
+#X connect 5 0 17 0;
+#X connect 6 0 5 1;
+#X connect 7 0 11 1;
+#X connect 8 0 11 0;
+#X connect 9 0 12 0;
+#X connect 10 0 5 0;
+#X connect 11 0 10 1;
+#X connect 11 1 6 1;
+#X connect 11 1 16 0;
+#X connect 12 0 8 0;
+#X connect 12 1 7 0;
+#X connect 15 0 10 0;
+#X connect 15 1 8 0;
+#X connect 15 2 7 0;
+#X connect 17 0 3 0;
+#X connect 17 1 6 0;

l2ork_addons/rjlib/rj/c_multimetro-help.pd

+#N canvas 201 94 943 509 10;
+#X obj 172 194 tgl 15 0 empty empty on/off 17 7 1 10 -262144 -1 -1
+0 1;
+#X floatatom 172 309 5 0 0 0 - - -;
+#X floatatom 237 221 5 0 0 2 length - -;
+#X text 184 60 args: 1) pattern length;
+#X text 236 131 2) pattern length;
+#X text 234 152 3) (list of) periods \, will be cycled.;
+#X floatatom 302 223 5 0 0 2 period - -;
+#X text 228 76 2) single period;
+#X obj 172 361 timer;
+#X obj 172 384 list prepend;
+#X obj 172 336 t b b a;
+#X msg 172 437;
+#X msg 172 410 set \$1 \$2;
+#X text 369 209 also lists are possible;
+#X msg 367 232 200 300 400 150;
+#X text 502 229 == duration of beat0==200 \, duration of beat1=300
+\, duration of beat2=400 \, duration of beat3=150 and so on for beat([modulo
+pattern length] modulo period list-length).;
+#X msg 132 409 set;
+#X text 366 60 or "set POS" message;
+#X msg 97 219 set 3;
+#X msg 183 230 bang;
+#X msg 185 252 stop;
+#X text 182 109 inlets: 1) 0/1 rsp bang/stop for start/stop;
+#X obj 172 278 c_multimetro 16 125;
+#X text 161 26 variable period metro with counter inside.;
+#X obj 60 26 c_multimetro;
+#X connect 0 0 22 0;
+#X connect 1 0 10 0;
+#X connect 2 0 22 1;
+#X connect 6 0 22 2;
+#X connect 8 0 9 0;
+#X connect 9 0 12 0;
+#X connect 10 0 8 0;
+#X connect 10 1 8 1;
+#X connect 10 2 9 1;
+#X connect 12 0 11 0;
+#X connect 14 0 22 2;
+#X connect 16 0 11 0;
+#X connect 18 0 22 0;
+#X connect 19 0 22 0;
+#X connect 20 0 22 0;
+#X connect 22 0 1 0;

l2ork_addons/rjlib/rj/c_multimetro.pd

+#N canvas 365 298 539 494 10;
+#X obj 192 296 list;
+#X obj 361 53 inlet;
+#X obj 391 211 list length;
+#X obj 361 167 t a a;
+#X obj 192 323 list split 1;
+#X msg 232 352 \$1;
+#X obj 271 251 f 0;
+#X obj 299 251 + 1;
+#X obj 271 300 mod 1;
+#X obj 121 281 delay;
+#X obj 192 221 t b b;
+#X obj 370 402 outlet;
+#X obj 192 169 select 1 0;
+#X obj 52 53 inlet;
+#X msg 236 220 stop;
+#X obj 310 52 inlet;
+#X obj 271 272 mod \$1;
+#X obj 381 101 loadbang;
+#X obj 381 133 f \$2;
+#X msg 95 112 1;
+#X obj 52 88 route set bang stop;
+#X msg 138 111 0;
+#X text 51 31 control;
+#X text 303 32 length;
+#X text 362 32 period(s);
+#X connect 0 0 4 0;
+#X connect 1 0 3 0;
+#X connect 2 0 8 1;
+#X connect 3 0 0 1;
+#X connect 3 1 2 0;
+#X connect 4 1 5 0;
+#X connect 5 0 9 0;
+#X connect 6 0 16 0;
+#X connect 7 0 6 1;
+#X connect 8 0 4 1;
+#X connect 9 0 10 0;
+#X connect 10 0 0 0;
+#X connect 10 1 6 0;
+#X connect 12 0 10 0;
+#X connect 12 1 14 0;
+#X connect 13 0 20 0;
+#X connect 14 0 9 0;
+#X connect 15 0 16 1;
+#X connect 16 0 7 0;
+#X connect 16 0 8 0;
+#X connect 16 0 11 0;
+#X connect 17 0 18 0;
+#X connect 18 0 3 0;
+#X connect 19 0 12 0;
+#X connect 20 0 6 1;
+#X connect 20 1 19 0;
+#X connect 20 2 21 0;
+#X connect 20 3 12 0;
+#X connect 21 0 12 0;