Commit f94ff9eb authored by Jonathan Wilkes's avatar Jonathan Wilkes
Browse files

use [output~] in fluid~ library, remove some aliased abstractions

parent d47295f5
#N canvas 79 6 1015 761 10;
#N canvas 8 25 1015 671 10;
#X text 35 71 A soundfont player using If I Were You \, from www.iiwu.org
;
#X text 170 296 fluid~ wants channel # first: should I change this?
......@@ -41,7 +41,7 @@
#X obj 594 346 cnv 15 372 158 empty Notes Controller_Change/Pitch_Bend
20 12 1 14 -228992 -66577 0;
#X obj 632 473 s \$0-iiwu;
#X floatatom 632 388 5 0 0 0 - - -;
#X floatatom 632 388 5 0 0 0 - - -, f 5;
#X msg 649 441 c 2 \$1;
#X msg 632 407 control 1 2 \$1;
#X obj 593 509 cnv 15 374 160 empty empty empty 20 12 1 14 -1 -66577
......@@ -51,11 +51,11 @@
#X obj 703 627 s \$0-iiwu;
#X msg 703 580 prog 1 \$1;
#X msg 783 580 p 2 \$1;
#X floatatom 703 550 5 0 0 0 - - -;
#X floatatom 703 550 5 0 0 0 - - -, f 5;
#X obj 695 202 bng 15 250 50 0 empty empty empty 0 -6 0 8 -24198 -1
-1;
#X floatatom 783 550 5 0 0 0 - - -;
#X floatatom 673 388 5 0 0 0 - - -;
#X floatatom 783 550 5 0 0 0 - - -, f 5;
#X floatatom 673 388 5 0 0 0 - - -, f 5;
#X msg 695 222 note 1 60 120;
#X obj 741 388 ctlin;
#X obj 741 410 pack 0 0 0;
......@@ -65,7 +65,7 @@
#X msg 856 440 bend \$2 \$1;
#X text 159 445 Pitch Bend works the same: bend or b + chan + val;
#X msg 857 574 bank 1 \$1;
#X floatatom 857 555 5 0 0 0 - - -;
#X floatatom 857 555 5 0 0 0 - - -, f 5;
#X text 857 595 bank select;
#X obj 789 187 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
......@@ -74,7 +74,6 @@
0;
#X obj 41 262 cnv 15 100 30 empty empty empty 20 15 1 14 -257472 -66577
0;
#X obj 43 342 ezdac~;
#X obj 66 199 r \$0-iiwu;
#X msg 66 233 help;
#X msg 146 217 init /usr/lib/awe/sfbank/2gmgsmt.sf2;
......@@ -88,25 +87,25 @@ to adapt to new samplerates.;
-66577 0;
#X msg 231 682 gen 1 \$2 \$1;
#X obj 231 704 s \$0-iiwu;
#X floatatom 289 642 5 0 60 0 - - -;
#X floatatom 231 642 5 0 0 0 - - -;
#X floatatom 289 642 5 0 60 0 - - -, f 5;
#X floatatom 231 642 5 0 0 0 - - -, f 5;
#X obj 231 662 pack 0 17;
#X text 78 607 gen 17 is "pan".;
#X text 78 594 Setting generators like for example:;
#X obj 695 266 del 1000;
#X symbolatom 343 684 20 0 0 0 - - -;
#X symbolatom 343 684 20 0 0 0 - - -, f 20;
#X obj 343 656 fluid.gen2sym;
#X text 345 700 a little helper;
#N canvas 402 274 605 444 dust 0;
#X obj 119 135 del 10;
#X obj 119 41 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X floatatom 386 66 5 0 0 1 dustiness - -;
#X floatatom 386 164 5 0 0 1 note_range - -;
#X floatatom 387 198 5 0 0 1 note_center - -;
#X floatatom 386 66 5 0 0 1 dustiness - -, f 5;
#X floatatom 386 164 5 0 0 1 note_range - -, f 5;
#X floatatom 387 198 5 0 0 1 note_center - -, f 5;
#X obj 237 417 s \$0-iiwu;
#X obj 387 242 / 2;
#X floatatom 387 223 5 0 0 1 pan_mod - -;
#X floatatom 387 223 5 0 0 1 pan_mod - -, f 5;
#X msg 237 281 gen 1 17 \$1;
#X obj 237 237 random 100;
#X obj 237 259 - 50;
......@@ -150,6 +149,7 @@ to adapt to new samplerates.;
#X restore 709 715 pd dust;
#X text 601 716 A composition:;
#X msg 705 87 load /home/ico/Downloads/Soundfonts/jRhodes3.sf2;
#X obj 66 320 output~;
#X connect 9 0 13 0;
#X connect 10 0 13 0;
#X connect 11 0 10 0;
......@@ -159,7 +159,7 @@ to adapt to new samplerates.;
#X connect 17 2 18 2;
#X connect 18 0 22 0;
#X connect 19 0 20 0;
#X connect 21 0 71 0;
#X connect 21 0 70 0;
#X connect 22 0 23 0;
#X connect 28 0 30 0;
#X connect 29 0 27 0;
......@@ -175,7 +175,7 @@ to adapt to new samplerates.;
#X connect 41 0 42 0;
#X connect 41 1 42 1;
#X connect 41 2 42 2;
#X connect 42 0 61 0;
#X connect 42 0 60 0;
#X connect 43 0 44 0;
#X connect 43 1 44 1;
#X connect 44 0 46 0;
......@@ -184,17 +184,17 @@ to adapt to new samplerates.;
#X connect 49 0 48 0;
#X connect 51 0 52 0;
#X connect 52 0 37 0;
#X connect 56 0 59 0;
#X connect 57 0 59 0;
#X connect 58 0 59 0;
#X connect 59 0 55 0;
#X connect 59 1 55 1;
#X connect 61 0 27 0;
#X connect 64 0 65 0;
#X connect 66 0 68 1;
#X connect 66 0 73 0;
#X connect 67 0 68 0;
#X connect 68 0 64 0;
#X connect 71 0 19 0;
#X connect 73 0 72 0;
#X connect 77 0 13 0;
#X connect 55 0 58 0;
#X connect 56 0 58 0;
#X connect 57 0 58 0;
#X connect 58 0 77 0;
#X connect 58 1 77 1;
#X connect 60 0 27 0;
#X connect 63 0 64 0;
#X connect 65 0 67 1;
#X connect 65 0 72 0;
#X connect 66 0 67 0;
#X connect 67 0 63 0;
#X connect 70 0 19 0;
#X connect 72 0 71 0;
#X connect 76 0 13 0;
#N canvas 0 31 462 494 10;
#X obj 5 2 cnv 15 450 20 empty empty keygate 2 11 1 18 -233017 -66577
0;
#X obj 160 257 bng 25 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 160 121 loadbang;
#X msg 160 141 1;
#X obj 160 169 metro 150;
#X text 33 416 (C) Copyright 2004 Hans-Christoph Steiner <hans@eds.org>
;
#X text 250 430 released under the GNU GPL;
#X obj 237 369 pddp/pddplink ../all_about_hid.pd -text all_about_hid
;
#X text 128 370 For more info:;
#X text 15 207 data to be gated -->;
#X obj 281 258 bng 25 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 40 300 keyname;
#X symbolatom 79 324 10 0 0 0 - - -;
#X text 157 324 <-- check here for the keyname symbol;
#X obj 160 214 keygate f;
#X text 17 38 [keygate] is a simple gate controlled by a keyboard.
You must specify the name of the key which controls the gate. The left
inlet takes the data to be gated.;
#X text 18 89 The "f" key on the any keyboard controls this gate:;
#X text 310 263 <-- key released;
#X text 41 264 key pressed -->;
#X obj 422 3 pddp/pddplink http://puredata.info/dev/pddp -text pddp
;
#N canvas 472 31 494 344 META 0;
#X text 12 145 HELP_PATCH_AUTHORS "pd meta" information added by Jonathan
Wilkes for Pd version 0.42.;
#X text 12 25 LICENSE GPL;
#X text 12 125 AUTHOR Hans-Christoph Steiner;
#X text 12 85 OUTLET_0 bang;
#X text 12 105 OUTLET_1 bang;
#X text 12 45 DESCRIPTION simple gate controlled by a keyboard;
#X text 12 65 INLET_0 bang;
#X text 12 5 KEYWORDS control user_input abstraction;
#X restore 407 462 pd META;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 14 0;
#X connect 11 1 12 0;
#X connect 14 0 1 0;
#X connect 14 1 10 0;
#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 <hans@eds.org>
;
#X text 326 415 released under the GNU GPL;
#X text 16 444 $Author: eighthave $;
#X text 16 461 $Date: 2004-11-25 02:42:49 $;
#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;
#N canvas 0 31 464 467 10;
#X floatatom 26 85 5 0 0 0 - - -;
#X floatatom 26 160 0 0 0 0 - - -;
#X obj 2 2 cnv 15 450 20 empty empty notescale 2 11 1 18 -233017 -66577
0;
#X obj 418 3 pddp/pddplink http://puredata.info/dev/pddp -text pddp
;
#X floatatom 137 266 5 0 0 0 - - -;
#X obj 140 330 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 0 1;
#X text 17 393 (C) Copyright 2004 Hans-Christoph Steiner <hans@eds.org>
;
#X text 234 407 released under the GNU GPL;
#X floatatom 150 160 0 0 0 0 - - -;
#X floatatom 297 160 0 0 0 0 - - -;
#X obj 213 83 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -225271
-1 -1 0 0;
#X text 17 426 $Revision: 1.3 $$Date: 2006-03-17 04:58:30 $;
#X text 18 439 $Author: eighthave $;
#X obj 140 244 hsl 128 15 0 1 0 0 empty empty empty -2 -6 0 8 -262131
-1 -1 0 0;
#X obj 26 130 notescale 30 60;
#X floatatom 137 347 5 0 0 0 - - -;
#X text 13 193 If you use [notescale] with no arguments \, then the
output range defaults to 0-127.;
#X floatatom 202 109 5 0 0 0 - - -;
#X obj 26 105 / 100;
#X text 18 35 [notescale] scales a stream of numbers to a MIDI note
number. It takes an input range of 0 to 1 \, and outputs MIDI note
numbers based on an output range set as arguments.;
#X obj 137 297 notescale;
#X obj 150 130 notescale 15 120;
#X obj 297 130 notescale 24 48;
#N canvas 474 31 494 344 META 0;
#X text 12 125 HELP_PATCH_AUTHORS "pd meta" information added by Jonathan
Wilkes for Pd version 0.42.;
#X text 12 25 LICENSE GPL;
#X text 12 105 AUTHOR Hans-Christoph Steiner;
#X text 12 45 DESCRIPTION scale a stream of numbers to a MIDI note
number;
#X text 12 65 INLET_0 float;
#X text 12 85 OUTLET_0 float;
#X text 12 5 KEYWORDS control abstraction;
#X restore 406 435 pd META;
#X connect 0 0 18 0;
#X connect 4 0 20 0;
#X connect 5 0 15 0;
#X connect 10 0 17 0;
#X connect 10 0 21 0;
#X connect 10 0 22 0;
#X connect 13 0 4 0;
#X connect 14 0 1 0;
#X connect 18 0 14 0;
#X connect 20 0 5 0;
#X connect 21 0 8 0;
#X connect 22 0 9 0;
#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;
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment