From 6252435d46370211ee4af19a51845a66b3c2f96f Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Sun, 29 Jan 2006 08:12:33 +0000 Subject: cleaned up a lot of hid_ cruft; renamed some hid_ objects to better names; added more objects from hid_ and wrote more curve objects svn path=/trunk/externals/mapping/; revision=4515 --- pd/buttongate.pd | 42 ++++++++++++++++++++++++++++++++++++++++++ pd/curve.pd | 34 ++++++++++++++++++++++++++++++++++ pd/curve_exp.pd | 33 +++++++++++++++++++++++---------- pd/curve_log.pd | 33 +++++++++++++++++++++++---------- pd/curve_power.pd | 47 +++++++++++++++++++++++++++++++++-------------- pd/curve_root.pd | 35 ++++++++++++++++++++++++----------- pd/keygate.pd | 43 +++++++++++++++++++++++++++++++++++++++++++ pd/notescale.pd | 29 +++++++++++++++++++++++++++++ pd/spiral.pd | 46 ++++++++++++++++++++++++++++++++++++++++++++++ 9 files changed, 297 insertions(+), 45 deletions(-) create mode 100644 pd/buttongate.pd create mode 100644 pd/curve.pd create mode 100644 pd/keygate.pd create mode 100644 pd/notescale.pd create mode 100644 pd/spiral.pd (limited to 'pd') diff --git a/pd/buttongate.pd b/pd/buttongate.pd new file mode 100644 index 0000000..8797ad4 --- /dev/null +++ b/pd/buttongate.pd @@ -0,0 +1,42 @@ +#N canvas 367 43 525 408 10; +#X obj 303 81 hid \$1; +#X obj 303 24 inlet; +#X obj 303 106 route key; +#X obj 303 127 route \$2; +#X obj 104 26 inlet; +#X obj 104 295 outlet; +#X obj 104 264 spigot; +#X text 10 324 (C) Copyright 2004 Hans-Christoph Steiner +; +#X text 226 340 released under the GNU GPL; +#X text 16 371 $Author: eighthave $; +#X text 16 388 $Date: 2006-01-29 08:12:33 $; +#X text 16 354 $Revision: 1.1 $; +#X obj 192 16 loadbang; +#X obj 303 147 unpack f f; +#X text 5 6 [buttongate]; +#X obj 242 263 spigot; +#X obj 242 295 outlet; +#X obj 333 195 - 1; +#X obj 333 215 abs; +#X msg 192 50 0; +#X msg 243 50 1; +#X obj 303 168 t f f; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X connect 3 0 13 0; +#X connect 4 0 6 0; +#X connect 4 0 15 0; +#X connect 6 0 5 0; +#X connect 12 0 19 0; +#X connect 12 0 20 0; +#X connect 13 0 21 0; +#X connect 15 0 16 0; +#X connect 17 0 18 0; +#X connect 18 0 15 1; +#X connect 19 0 6 1; +#X connect 20 0 15 1; +#X connect 20 0 0 0; +#X connect 21 0 6 1; +#X connect 21 1 17 0; diff --git a/pd/curve.pd b/pd/curve.pd new file mode 100644 index 0000000..8d09a66 --- /dev/null +++ b/pd/curve.pd @@ -0,0 +1,34 @@ +#N canvas 12 269 577 490 10; +#X obj 50 36 inlet; +#X obj 165 34 inlet; +#X obj 165 57 symbol; +#X obj 47 411 outlet; +#X obj 50 150 pack float symbol; +#X msg 50 175 \$2 \$1; +#X obj 39 256 atan; +#X obj 123 260 cos; +#X obj 152 260 sin; +#X obj 188 273 print [curve]; +#X msg 189 251 ERROR: argument not supported \$1; +#X obj 194 96 symbol_argument \$1; +#X obj 51 100 * 3.14159; +#X obj 39 277 / 1.26263; +#X obj 50 198 route atan cos sin; +#X obj 190 225 symbol; +#X connect 0 0 12 0; +#X connect 1 0 2 0; +#X connect 2 0 4 1; +#X connect 4 0 5 0; +#X connect 5 0 14 0; +#X connect 6 0 13 0; +#X connect 7 0 3 0; +#X connect 8 0 3 0; +#X connect 10 0 9 0; +#X connect 11 0 4 1; +#X connect 12 0 4 0; +#X connect 13 0 3 0; +#X connect 14 0 6 0; +#X connect 14 1 7 0; +#X connect 14 2 8 0; +#X connect 14 3 15 0; +#X connect 15 0 10 0; diff --git a/pd/curve_exp.pd b/pd/curve_exp.pd index b7ca7a4..e77d677 100644 --- a/pd/curve_exp.pd +++ b/pd/curve_exp.pd @@ -1,11 +1,24 @@ -#N canvas 225 325 499 325 10; -#X obj 72 38 inlet; -#X obj 72 258 outlet; -#X text 120 38 input range: 0 to 1; -#X text 128 258 output range: 0 to 1; -#X text 7 9 [hid_exp]; -#X obj 73 142 dbtorms; -#X obj 73 120 * 100; -#X connect 0 0 6 0; -#X connect 5 0 1 0; +#N canvas 225 325 507 333 10; +#X obj 37 25 inlet; +#X obj 37 262 outlet; +#X obj 38 63 moses 0; +#X obj 22 116 abs; +#X obj 22 189 * -1; +#X obj 22 168 dbtorms; +#X obj 22 142 * 100; +#X obj 83 142 * 100; +#X obj 83 169 dbtorms; +#X text 85 25 input range: -1 to 1; +#X text 93 262 output range: -1 to 1; +#X text 248 296 released under the GNU GPL; +#X text 31 282 (C) Copyright 2006 Hans-Christoph Steiner +; +#X connect 0 0 2 0; +#X connect 2 0 3 0; +#X connect 2 1 7 0; +#X connect 3 0 6 0; +#X connect 4 0 1 0; +#X connect 5 0 4 0; #X connect 6 0 5 0; +#X connect 7 0 8 0; +#X connect 8 0 1 0; diff --git a/pd/curve_log.pd b/pd/curve_log.pd index 297f5f8..f3946f1 100644 --- a/pd/curve_log.pd +++ b/pd/curve_log.pd @@ -1,11 +1,24 @@ -#N canvas 297 485 422 322 10; -#X obj 31 45 inlet; -#X obj 31 282 outlet; -#X text 79 45 input range: 0 to 1; -#X text 87 282 output range: 0 to 1; -#X text 9 5 [hid_log]; -#X obj 30 145 rmstodb; -#X obj 30 175 / 100; -#X connect 0 0 5 0; +#N canvas 236 31 428 321 10; +#X obj 31 8 inlet; +#X obj 31 245 outlet; +#X obj 77 122 rmstodb; +#X obj 77 152 / 100; +#X obj 32 46 moses 0; +#X obj 16 99 abs; +#X obj 16 123 rmstodb; +#X obj 16 151 / 100; +#X obj 16 172 * -1; +#X text 79 8 input range: -1 to 1; +#X text 87 245 output range: -1 to 1; +#X text 225 284 released under the GNU GPL; +#X text 8 270 (C) Copyright 2006 Hans-Christoph Steiner +; +#X connect 0 0 4 0; +#X connect 2 0 3 0; +#X connect 3 0 1 0; +#X connect 4 0 5 0; +#X connect 4 1 2 0; #X connect 5 0 6 0; -#X connect 6 0 1 0; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 8 0 1 0; diff --git a/pd/curve_power.pd b/pd/curve_power.pd index 0332375..116f7b8 100644 --- a/pd/curve_power.pd +++ b/pd/curve_power.pd @@ -1,14 +1,33 @@ -#N canvas 612 444 456 373 10; -#X obj 42 53 inlet; -#X obj 42 230 outlet; -#X text 5 14 input range: -1 to 1; -#X obj 43 182 pow; -#X text 98 229 output range: -1 to 1; -#X obj 138 53 inlet; -#X obj 146 106 float_argument \$1 1; -#X obj 146 84 loadbang; -#X connect 0 0 3 0; -#X connect 3 0 1 0; -#X connect 5 0 3 1; -#X connect 6 0 3 1; -#X connect 7 0 6 0; +#N canvas 529 139 460 377 10; +#X obj 40 32 inlet; +#X obj 40 299 outlet; +#X obj 40 74 min 1; +#X text 5 6 input range: -1 to 1; +#X obj 40 94 max -1; +#X obj 41 231 pow; +#X text 96 298 output range: -1 to 1; +#X obj 178 30 inlet; +#X obj 207 106 float_argument \$1 1; +#X obj 207 85 loadbang; +#X text 245 344 released under the GNU GPL; +#X text 28 330 (C) Copyright 2006 Hans-Christoph Steiner +; +#X obj 39 121 moses 0; +#X obj 41 207 abs; +#X obj 115 232 pow; +#X obj 41 257 * -1; +#X obj 177 156 float; +#X connect 0 0 2 0; +#X connect 2 0 4 0; +#X connect 4 0 12 0; +#X connect 5 0 15 0; +#X connect 7 0 16 0; +#X connect 8 0 16 0; +#X connect 9 0 8 0; +#X connect 12 0 13 0; +#X connect 12 1 14 0; +#X connect 13 0 5 0; +#X connect 14 0 1 0; +#X connect 15 0 1 0; +#X connect 16 0 14 1; +#X connect 16 0 5 1; diff --git a/pd/curve_root.pd b/pd/curve_root.pd index a75bdc2..81aa3a6 100644 --- a/pd/curve_root.pd +++ b/pd/curve_root.pd @@ -1,22 +1,35 @@ -#N canvas 295 229 460 377 10; +#N canvas 295 229 464 381 10; #X obj 40 32 inlet; #X obj 40 299 outlet; -#X obj 40 94 min 1; +#X obj 40 74 min 1; #X text 5 6 input range: -1 to 1; -#X obj 40 114 max -1; -#X obj 41 271 pow; +#X obj 40 94 max -1; +#X obj 41 231 pow; #X text 96 298 output range: -1 to 1; -#X obj 58 246 /; -#X msg 58 226 1 \$1; -#X obj 142 33 inlet; -#X obj 155 107 float_argument \$1 1; -#X obj 155 86 loadbang; +#X obj 177 156 /; +#X msg 177 136 1 \$1; +#X obj 178 30 inlet; +#X obj 207 106 float_argument \$1 1; +#X obj 207 85 loadbang; +#X text 245 344 released under the GNU GPL; +#X text 28 330 (C) Copyright 2006 Hans-Christoph Steiner +; +#X obj 39 121 moses 0; +#X obj 40 161 abs; +#X obj 115 232 pow; +#X obj 41 257 * -1; #X connect 0 0 2 0; #X connect 2 0 4 0; -#X connect 4 0 5 0; -#X connect 5 0 1 0; +#X connect 4 0 14 0; +#X connect 5 0 17 0; #X connect 7 0 5 1; +#X connect 7 0 16 1; #X connect 8 0 7 0; #X connect 9 0 8 0; #X connect 10 0 8 0; #X connect 11 0 10 0; +#X connect 14 0 15 0; +#X connect 14 1 16 0; +#X connect 15 0 5 0; +#X connect 16 0 1 0; +#X connect 17 0 1 0; diff --git a/pd/keygate.pd b/pd/keygate.pd new file mode 100644 index 0000000..2da19c5 --- /dev/null +++ b/pd/keygate.pd @@ -0,0 +1,43 @@ +#N canvas 326 22 530 481 10; +#X obj 44 36 inlet; +#X obj 44 365 outlet; +#X obj 44 334 spigot; +#X text 109 401 (C) Copyright 2004 Hans-Christoph Steiner +; +#X text 326 415 released under the GNU GPL; +#X text 16 444 $Author: eighthave $; +#X text 16 461 $Date: 2006-01-29 08:12:33 $; +#X text 16 427 $Revision: 1.1 $; +#X obj 132 26 loadbang; +#X text 5 6 [keygate]; +#X obj 182 333 spigot; +#X obj 182 365 outlet; +#X obj 273 204 - 1; +#X obj 273 224 abs; +#X obj 236 27 keyname; +#X msg 132 60 0; +#X msg 183 60 1; +#X obj 243 181 t f f; +#X obj 243 157 f; +#X obj 243 107 sel \$1; +#X obj 243 86 symbol; +#X obj 236 57 trigger bang float; +#X connect 0 0 2 0; +#X connect 0 0 10 0; +#X connect 2 0 1 0; +#X connect 8 0 15 0; +#X connect 8 0 16 0; +#X connect 10 0 11 0; +#X connect 12 0 13 0; +#X connect 13 0 10 1; +#X connect 14 0 21 0; +#X connect 14 1 20 1; +#X connect 15 0 2 1; +#X connect 16 0 10 1; +#X connect 17 0 2 1; +#X connect 17 1 12 0; +#X connect 18 0 17 0; +#X connect 19 0 18 0; +#X connect 20 0 19 0; +#X connect 21 0 20 0; +#X connect 21 1 18 1; diff --git a/pd/notescale.pd b/pd/notescale.pd new file mode 100644 index 0000000..8c63369 --- /dev/null +++ b/pd/notescale.pd @@ -0,0 +1,29 @@ +#N canvas 37 318 444 446 10; +#X obj 64 49 inlet; +#X obj 64 389 outlet; +#X obj 64 325 int; +#X obj 64 297 expr $f1 * ($f3 - $f2) + $f2; +#X obj 357 231 f \$2; +#X obj 159 230 f \$1; +#X obj 159 257 expr if ($f1 == $f2 \, 0 \, $f1) \; if ($f1 == $f2 \, +127 \, $f2); +#X text 10 7 [notescale]; +#X obj 229 152 loadbang; +#X obj 229 179 t b b; +#X text 114 49 input range: 0 to 1; +#X obj 64 96 min 1; +#X obj 64 116 max 0; +#X text 123 389 output range: MIDI note #s; +#X connect 0 0 11 0; +#X connect 2 0 1 0; +#X connect 3 0 2 0; +#X connect 4 0 6 1; +#X connect 5 0 6 0; +#X connect 6 0 3 1; +#X connect 6 1 3 2; +#X connect 8 0 9 0; +#X connect 9 0 5 0; +#X connect 9 1 4 0; +#X connect 11 0 12 0; +#X connect 12 0 3 0; +#X connect 12 0 9 0; diff --git a/pd/spiral.pd b/pd/spiral.pd new file mode 100644 index 0000000..24fcd8d --- /dev/null +++ b/pd/spiral.pd @@ -0,0 +1,46 @@ +#N canvas 492 167 673 445 10; +#X obj 30 58 inlet; +#X obj 25 363 outlet; +#X text 73 363 output range: 0 to 1; +#X text 72 57 input range: 0 to 1; +#X obj 232 362 outlet; +#X obj 222 58 inlet; +#X text 264 57 input range: 0 to 1; +#X text 29 29 x-axis value; +#X text 221 26 y-axis value; +#X text 254 411 released under the GNU GPL; +#X text 40 396 (C) Copyright 2005 Hans-Christoph Steiner +; +#X obj 309 258 +; +#X msg 260 227 1; +#X msg 356 227 -1; +#X obj 232 327 +; +#X obj 262 161 delta; +#X obj 310 291 * 1; +#X obj 262 185 moses -0.4; +#X obj 312 205 moses 0.4; +#X text 273 90 changes over 0.4 mean one rotation. I can't move fast +enough on my joystick to get near a change of 0.4 This might not work +on other devices \, like tablets \, but we'll cross that bridge when +we get to it (i.e. when I get a tablet); +#X text 280 362 output range: infinite \, one rotation = 1; +#X obj 105 109 polar; +#X obj 135 133 trigger float float; +#X obj 340 258 float; +#X connect 0 0 21 0; +#X connect 5 0 21 1; +#X connect 11 0 16 0; +#X connect 11 0 23 0; +#X connect 12 0 11 0; +#X connect 13 0 11 0; +#X connect 14 0 4 0; +#X connect 15 0 17 0; +#X connect 16 0 14 1; +#X connect 17 0 12 0; +#X connect 17 1 18 0; +#X connect 18 1 13 0; +#X connect 21 0 1 0; +#X connect 21 1 22 0; +#X connect 22 0 14 0; +#X connect 22 1 15 0; +#X connect 23 0 11 1; -- cgit v1.2.1