From 96e64fe223012257c4a5ca5f4fd862d5f0d4f279 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jo=C3=A3o=20Pais?= Date: Fri, 20 Feb 2009 22:49:34 +0000 Subject: svn path=/trunk/abstractions/jmmmp/; revision=10802 --- jmmmp-ext.txt | 5 +- m-i-help.pd | 2 +- mk-help.pd | 2 +- slider-i.txt | 2 + sliders-help.pd | 36 +++++++++++ sliders.pd | 187 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 6 files changed, 230 insertions(+), 4 deletions(-) create mode 100644 slider-i.txt create mode 100644 sliders-help.pd create mode 100644 sliders.pd 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; -- cgit v1.2.1