From 96e64fe223012257c4a5ca5f4fd862d5f0d4f279 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jo=C3=A3o=20Pais?= <jmmmp@users.sourceforge.net>
Date: Fri, 20 Feb 2009 22:49:34 +0000
Subject: svn path=/trunk/abstractions/jmmmp/; revision=10802

---
 sliders.pd | 187 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 187 insertions(+)
 create mode 100644 sliders.pd

(limited to 'sliders.pd')

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