[PD] help cloning max's scale

[Alexandre Torres Porres]

Howdy, so I'm cloning the scale object from Max, to make an object and
include in the cyclone library. It converts range input (low_in / high_in)
to a range output (low_out / high_out). It has a logarithmic curve for
rescaling according to a fifth argument/inlet. I did copy into expr the
formula described in the reference of Max6/7 (max's 5 was just wrong,
copied from [linedrive]) - well, it didn't work! Would anyone know if I'm
doing something wrong or if the reference is not telling the truth?

The formula, as described in the reference is: (out_low + (out_high-out_low)
* ( (out_high - out_low) * exp(-1 * (in_high-in_low) * log(power)) * exp(x
* log(power)) ))


Here's my patch with that formula into expr. The output with the parameters
I have should be -0.997347 - as that's the output I get in Max. But
instead, it's giving -0.994694...


thanks




=================


#N canvas 24 23 488 340 10;

#X obj 215 154 v out_low;

#X obj 233 132 v out_high;

#X obj 288 110 v power;

#X obj 152 130 v in_high;

#X obj 115 153 v in_low;

#X floatatom 58 248 0 0 0 0 - - -;

#X obj 58 197 expr (out_low + (out_high-out_low) * ( (out_high - out_low)

* exp(-1*(in_high-in_low)*log(power)) * exp($f1*log(power)) ));

#X msg 115 102 0;

#X msg 152 102 127;

#X msg 215 99 -1;

#X msg 249 97 1;

#X msg 288 86 1.06;

#X obj 90 31 loadbang;

#X obj 90 60 t b b;

#X msg 58 107 13.3;

#X connect 6 0 5 0;

#X connect 7 0 4 0;

#X connect 8 0 3 0;

#X connect 9 0 0 0;

#X connect 10 0 1 0;

#X connect 11 0 2 0;

#X connect 12 0 13 0;

#X connect 13 0 14 0;

#X connect 13 1 11 0;

#X connect 13 1 10 0;

#X connect 13 1 9 0;

#X connect 13 1 8 0;

#X connect 13 1 7 0;

#X connect 14 0 6 0;
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.puredata.info/pipermail/pd-list/attachments/20150619/9961b4a6/attachment-0001.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: scale-test.pd
Type: application/octet-stream
Size: 779 bytes
Desc: not available
URL: <http://lists.puredata.info/pipermail/pd-list/attachments/20150619/9961b4a6/attachment-0001.obj>