svn path=/trunk/abstractions/jmmmp/; revision=10802

6 files changed, 230 insertions, 4 deletions

diff --git a/jmmmp-ext.txt b/jmmmp-ext.txt
index d695792..9b7d31b 100644
--- a/jmmmp-ext.txt
+++ b/jmmmp-ext.txt
@@ -30,6 +30,7 @@ oscS - Interface for sendOSC
 pd-colors - Pd color palettes (Data Structures + Tcl/Tk)

 rec-name - Automatic naming for a record/playback engine

 sguigot - spigot GUI implementation

+sliders - GUI for incoming midi data

 snaps~ - snapshot~ GUI implementation

 spectrogram~ - Spectrogram with 512 bins resolution

 stoppuhr - Chronometer with two layers

@@ -39,12 +40,12 @@ uhr - Shows the time
 

 It is recomended to use these abstractions with Pd-extended, since I don't keep track of which externals are used. Some abstractions use other ones of this package, so it is also better to have always the whole package in one place.

 

-2009.01.30

+2009.02.20

 

 

 Non-working or discarded abstractions:

 

 aufnahme~ - Multichannel audio recorder (1 to 8 channels)

-bcf2000 - Store and recall presets for Behringer BCF2000
+bcf2000 - Store and recall presets for Behringer BCF2000

 -dsp - replaced by dsp01

 datei-l - replaced with datei-o
\ No newline at end of file
diff --git a/m-i-help.pd b/m-i-help.pd
index 14e9c1b..7722a07 100644
--- a/m-i-help.pd
+++ b/m-i-help.pd
@@ -19,7 +19,7 @@
 #X text 265 120 - MIDI feedback on/off (1/0);

 #X text 266 60 - Controller channel;

 #X text 12 307 (C) 2009 João Pais - jmmmpais@googlemail.com;

-#X text 12 277 Related objects: [mk];

+#X text 12 277 Related objects: [mk] [sliders];

 #X connect 1 0 6 0;

 #X connect 6 0 2 0;

 #X connect 6 1 7 0;

diff --git a/mk-help.pd b/mk-help.pd
index 34319a5..db068c3 100644
--- a/mk-help.pd
+++ b/mk-help.pd
@@ -7,4 +7,4 @@
 #X text 196 120 - MIDI value;

 #X obj 26 95 mk;

 #X text 12 10 [mk] - Fast visual control of MIDI inputs;

-#X text 12 157 Related objects: [m-i];

+#X text 12 157 Related objects: [m-i] [sliders];

diff --git a/slider-i.txt b/slider-i.txt
new file mode 100644
index 0000000..0dca24a
--- /dev/null
+++ b/slider-i.txt
@@ -0,0 +1,2 @@
+bbb 1 2 5 6 7

+aaa 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1
\ No newline at end of file
diff --git a/sliders-help.pd b/sliders-help.pd
new file mode 100644
index 0000000..0f87209
--- /dev/null
+++ b/sliders-help.pd
@@ -0,0 +1,36 @@
+#N struct 1026-data-s float x float y array 1026-array-s 1026-element

+;

+#N struct 1026-element float y;

+#N struct 1061-data-s float x float y array 1061-array-s 1061-element

+;

+#N struct 1061-element float y;

+#N struct 1064-data-s float x float y array 1064-array-s 1064-element

+;

+#N struct 1064-element float y;

+#N canvas 35 130 444 495 10;

+#X text 12 472 Released under the BSD License;

+#X text 11 455 (C) 2009 João Pais - jmmmpais@googlemail.com;

+#X text 316 238 Arguments;

+#X obj 63 203 sliders;

+#X text 19 183 [sliders] - automatically 16 channels \, normally routed

+;

+#X text 19 263 [sliders 16 aaa] - 16 channels \, string aaa;

+#X text 19 343 [sliders 5 bbb] - 5 channels \, string bbb;

+#X text 11 10 [sliders] - GUI for incoming midi data;

+#X text 316 258 - Number of sliders;

+#X text 316 278 - Identity string;

+#X text 11 30 [sliders] creates as many sliders you want (max 511)

+to display incoming midi data.;

+#X text 21 163 Compare these 3 settings with your midi mixer:;

+#X text 12 126 If you don't specify any parameters \, 16 channels are

+created \, with normal routing.;

+#X text 11 56 The identity string reads the routing list defined in

+the file slider-i.txt (leave it somewhere reachable). To define a routing

+table \, just write in sequencial order the midi channels to be displayed

+in the GUI sliders. E.g. "1 2 4 5" displays these channels in the first

+four sliders (all other channels are ignored).;

+#X text 316 318 - slider-i.txt;

+#X text 316 298 Index file;

+#X text 12 422 Related objects: [m-i] [mk];

+#X obj 63 283 sliders 16 aaa;

+#X obj 63 363 sliders 5 bbb;

diff --git a/sliders.pd b/sliders.pd
new file mode 100644
index 0000000..c01300f
--- /dev/null
+++ b/sliders.pd
@@ -0,0 +1,187 @@
+#N struct 1026-data-s float x float y array 1026-array-s 1026-element

+;

+#N struct 1026-element float y;

+#N canvas 154 44 812 763 10;

+#N canvas 747 430 407 104 data-s 0;

+#X obj 11 20 struct \$0-data-s float x float y array \$0-array-s \$0-element

+;

+#X obj 11 60 plot \$0-array-s 899 1 0 0 8;

+#X restore 10 85 pd data-s;

+#X msg 632 145 clear;

+#N canvas 734 263 334 167 element 0;

+#X text 12 127 MISSING: real limits for the sliders. works fine if

+connected with midi;

+#X obj 13 12 struct \$0-element float y;

+#X obj 13 92 filledpolygon 0 0 1 0 -3 6 -3 6 y(0:127)(0:-127) 0 y(0:127)(0:-127)

+;

+#X obj 13 52 filledpolygon 9 9 1 0 0 6 0 6 4 0 4;

+#X restore 10 65 pd element;

+#X obj 612 245 pointer;

+#X obj 495 235 t f f;

+#X obj 237 525 ctlin;

+#X obj 612 562 vsl 10 100 0 127 0 0 empty empty empty 0 -9 0 10 -191407

+-1 -1 0 0;

+#X obj 630 473 vradio 12 1 0 16 empty empty empty 0 -8 0 10 -228856

+-1 -1 0;

+#X obj 630 668 + 1;

+#X obj 612 688 i;

+#X msg 495 215 0;

+#X obj 495 285 t p p;

+#X obj 464 75 lbang;

+#N canvas 159 133 421 406 \$0-draw 0;

+#X scalar 1026-data-s 0 0 \; 0 \; 0 \; 0 \; 0 \; 0 \; 0 \; 0 \; 0 \;

+0 \; 0 \; 0 \; 0 \; 0 \; 0 \; 0 \; 0 \; \;;

+#X coords 0 137 128 10 128 40 1;

+#X restore 10 10 pd \$0-draw;

+#X obj 612 205 \$0;

+#X msg 612 225 traverse pd-\$1-draw \, bang;

+#X obj 495 265 append \$0-data-s x y;

+#X obj 357 305 setsize \$0-data-s \$0-array-s;

+#X obj 330 645 element \$0-data-s \$0-array-s;

+#X obj 632 165 s pd-\$0-draw;

+#X obj 237 665 set \$0-element y;

+#X obj 337 375 s pd-\$0-draw;

+#X obj 464 95 t b b b b b;

+#X obj 291 145 \$1;

+#X obj 337 335 * 8;

+#X obj 318 465 namecanvas \$0-sliders;

+#X obj 318 445 s \$0-sliders;

+#X text 316 485 das gibt jedem Patch eine individuelle Identität;

+#X obj 318 405 * 8;

+#X msg 337 355 donecanvasdialog 1 -1 2 0 137 \$1 10 \$1 40 0 0;

+#X msg 318 425 donecanvasdialog 1 -1 2 0 -1 1 1 \$1 44 10 10;

+#X msg 291 185 16;

+#X obj 291 165 sel 0;

+#X obj 311 555 tabread \$0-index;

+#X obj 86 395 tabwrite \$0-index;

+#X obj 330 625 - 1;

+#X obj 86 345 f+ 1;

+#X obj 86 365 t f f;

+#X obj 86 325 until;

+#X obj 59 255 \$1;

+#X msg 59 295 16;

+#X obj 59 275 sel 0;

+#X obj 26 445 textfile;

+#X msg 26 425 read slider-i.txt cr \, rewind \, bang;

+#X obj 71 535 bang;

+#X obj 71 485 print SLIDER;

+#X obj 26 515 route \$2;

+#X obj 26 145 symbol \$2;

+#X obj 26 185 route symbol;

+#X obj 26 205 sel \$2;

+#X obj 26 555 listfunnel;

+#X obj 26 615 tabwrite \$0-index;

+#X obj 26 575 unpack;

+#X obj 26 595 + 1;

+#X obj 59 225 t b b;

+#X obj 26 165 pipe s 50;

+#X obj 330 605 spigot;

+#X obj 311 575 t f f f;

+#X obj 237 605 spigot;

+#X obj 26 635 table \$0-index 512;

+#X text 8 655 Max. 511 sliders. should be enough?;

+#X obj 318 215 t f f f;

+#X msg 71 465 ERROR: Wrong slider string;

+#X text 3 165 ??? without pipe \, table writing after sel \$2 doesn't

+work;

+#N canvas 0 0 426 446 license 0;

+#X text 8 47 All rights reserved.;

+#X text 8 227 The names of its contributors may not be used to endorse

+or promote products derived from this software without specific prior

+written permission.;

+#X text 8 87 Redistribution and use in source and binary forms \, with

+or without modification \, are permitted provided that the following

+conditions are met:;

+#X text 8 127 Redistributions of source code must retain the above

+copyright notice \, this list of conditions and the following disclaimer.

+;

+#X text 8 297 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND

+CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES \, INCLUDING

+\, BUT NOT LIMITED TO \, THE IMPLIED WARRANTIES OF MERCHANTABILITY

+AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL

+THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT \, INDIRECT

+\, INCIDENTAL \, SPECIAL \, EXEMPLARY \, OR CONSEQUENTIAL DAMAGES (INCLUDING

+\, BUT NOT LIMITED TO \, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES

+;

+#X text 8 167 Redistributions in binary form must reproduce the above

+copyright notice \, this list of conditions and the following disclaimer

+in the documentation and/or other materials provided with the distribution.

+;

+#X text 8 27 jmmmpais@googlemail.com;

+#X text 8 7 Copyright 2006 \, João Pais;

+#X restore 15 729 pd license;

+#X text 12 711 (C) 2009 João Pais - jmmmpais@googlemail.com;

+#X text 676 348 Arguments;

+#X text 676 368 - Number of sliders;

+#X text 676 388 - Identity string;

+#X text 676 428 - slider-i.txt;

+#X text 676 408 Index file;

+#X text 91 65 [sliders] - GUI for incoming midi data;

+#X connect 1 0 19 0;

+#X connect 3 0 16 2;

+#X connect 4 0 16 0;

+#X connect 4 1 16 1;

+#X connect 5 0 58 0;

+#X connect 5 1 33 0;

+#X connect 6 0 9 0;

+#X connect 7 0 8 0;

+#X connect 8 0 33 0;

+#X connect 9 0 58 0;

+#X connect 10 0 4 0;

+#X connect 11 0 18 1;

+#X connect 11 1 17 1;

+#X connect 12 0 22 0;

+#X connect 14 0 15 0;

+#X connect 15 0 3 0;

+#X connect 16 0 11 0;

+#X connect 18 0 20 1;

+#X connect 22 0 47 0;

+#X connect 22 1 23 0;

+#X connect 22 2 10 0;

+#X connect 22 3 14 0;

+#X connect 22 4 1 0;

+#X connect 23 0 32 0;

+#X connect 24 0 29 0;

+#X connect 28 0 30 0;

+#X connect 29 0 21 0;

+#X connect 30 0 26 0;

+#X connect 31 0 61 0;

+#X connect 32 0 31 0;

+#X connect 32 1 61 0;

+#X connect 33 0 57 0;

+#X connect 35 0 18 0;

+#X connect 36 0 37 0;

+#X connect 37 0 34 0;

+#X connect 37 1 34 1;

+#X connect 38 0 36 0;

+#X connect 39 0 41 0;

+#X connect 40 0 38 0;

+#X connect 41 0 40 0;

+#X connect 41 1 38 0;

+#X connect 42 0 46 0;

+#X connect 42 1 62 0;

+#X connect 43 0 42 0;

+#X connect 44 0 42 0;

+#X connect 46 0 50 0;

+#X connect 46 1 44 0;

+#X connect 47 0 55 0;

+#X connect 48 0 49 0;

+#X connect 49 0 43 0;

+#X connect 49 1 54 0;

+#X connect 50 0 52 0;

+#X connect 52 0 53 0;

+#X connect 52 1 51 1;

+#X connect 53 0 51 0;

+#X connect 54 0 39 0;

+#X connect 54 1 39 0;

+#X connect 55 0 48 0;

+#X connect 56 0 35 0;

+#X connect 57 0 58 1;

+#X connect 57 1 56 0;

+#X connect 57 2 56 1;

+#X connect 58 0 20 0;

+#X connect 61 0 28 0;

+#X connect 61 1 24 0;

+#X connect 61 2 17 0;

+#X connect 62 0 45 0;

+#X coords 0 -1 1 1 128 44 2 10 10;