[PD-cvs] externals/hcs autoscale-help.pd,NONE,1.1 autoscale.pd,NONE,1.1

[Hans-Christoph Steiner]

Update of /cvsroot/pure-data/externals/hcs
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26865

Added Files:
	autoscale-help.pd autoscale.pd 
Log Message:
first version.  seems to work well, but maybe could use log and exp scaling, tho that might be best left to other objects

--- NEW FILE: autoscale.pd ---
#N canvas 254 119 637 533 10;
#X obj 45 20 inlet;
#X obj 45 453 outlet;
#X obj 105 233 f;
#X text 132 233 min;
#X text 230 234 max;
#X obj 324 167 f \$1;
#X obj 522 167 f \$2;
#X obj 105 210 moses 0;
#X obj 190 210 moses 0;
#X obj 45 102 trigger float float float bang bang;
#X obj 45 390 expr (($f1 - $f2) * (($f5 - $f4) / ($f3 - $f2))) + $f4
;
#X obj 196 170 oneshot;
#X obj 234 191 f;
#X obj 190 143 t f b f;
#X obj 111 170 oneshot;
#X obj 149 191 f;
#X obj 105 143 t f b f;
#X obj 254 234 + 1e-09;
#X obj 348 213 ==;
#X obj 348 233 sel 1;
#X obj 415 77 loadbang;
#X obj 348 299 print [autocal];
#X floatatom 342 189 5 0 0 0 - - -;
#X obj 415 100 t b b;
#X obj 324 329 expr if ($f1 == $f2 \, 0 \, $f1) \; if ($f1 == $f2 \,
127 \, $f2);
#X msg 348 278 using default range (0-127);
#X obj 348 256 oneshot;
#X text 2 480 (C) Copyright 2004 Hans-Christoph Steiner <hans at at.or.at>
;
#X text 219 495 released under the GNU GPL;
#X text 5 510 $Revision: 1.1 $$Author: eighthave $$Date: 2004/11/02 06:21:59 $;
#X connect 0 0 9 0;
#X connect 2 0 7 1;
#X connect 2 0 10 1;
#X connect 5 0 18 0;
#X connect 5 0 22 0;
#X connect 5 0 24 0;
#X connect 6 0 18 1;
#X connect 6 0 24 1;
#X connect 7 0 2 0;
#X connect 8 1 17 0;
#X connect 9 0 10 0;
#X connect 9 1 16 0;
#X connect 9 2 13 0;
#X connect 9 3 5 0;
#X connect 9 4 6 0;
#X connect 10 0 1 0;
#X connect 11 0 12 0;
#X connect 12 0 8 1;
#X connect 13 0 8 0;
#X connect 13 1 11 0;
#X connect 13 2 12 1;
#X connect 14 0 15 0;
#X connect 15 0 7 1;
#X connect 16 0 7 0;
#X connect 16 1 14 0;
#X connect 16 2 15 1;
#X connect 17 0 8 1;
#X connect 17 0 10 2;
#X connect 18 0 19 0;
#X connect 19 0 26 0;
#X connect 20 0 23 0;
#X connect 23 0 5 0;
#X connect 23 1 6 0;
#X connect 24 0 10 3;
#X connect 24 1 10 4;
#X connect 25 0 21 0;
#X connect 26 0 25 0;

--- NEW FILE: autoscale-help.pd ---
#N canvas 588 67 469 401 10;
#X floatatom 26 88 5 0 0 0 - - -;
#X floatatom 26 152 0 0 0 0 - - -;
#X obj 68 270 autoscale;
#X obj 2 2 cnv 15 450 20 empty empty [autoscale] 2 11 1 18 -233017
-66577 0;
#X obj 418 3 pddp;
#X text 18 35 [autoscale] scales a stream of numbers based on an output
range set as arguments \, and an input range which is set dynamically.
;
#X text 13 193 If you use [autoscale] with no arguments \, then the
output range defaults to 0-127.;
#X floatatom 68 249 5 0 0 0 - - -;
#X obj 71 293 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 0 1;
#X text 17 343 (C) Copyright 2004 Hans-Christoph Steiner <hans at at.or.at>
;
#X text 234 357 released under the GNU GPL;
#X floatatom 150 152 0 0 0 0 - - -;
#X floatatom 297 152 0 0 0 0 - - -;
#X obj 213 83 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 0 1;
#X text 18 376 $Revision: 1.1 $$Author: eighthave $$Date: 2004/11/02 06:21:59 $;
#X obj 26 122 autoscale 0 1;
#X obj 150 122 autoscale -0.01 0.01;
#X obj 297 122 autoscale -4095 4095;
#X connect 0 0 15 0;
#X connect 2 0 8 0;
#X connect 7 0 2 0;
#X connect 13 0 16 0;
#X connect 13 0 17 0;
#X connect 15 0 1 0;
#X connect 16 0 11 0;
#X connect 17 0 12 0;