chose/extra/list-abs/triple-scale.pd

#N canvas 146 135 849 526 10;
#X obj 224 150 unpack 0 0 0;
#X obj 224 117 inlet;
#X obj 189 312 pack 0 0 0;
#X obj 189 333 outlet;
#X obj 382 150 unpack 0 0 0;
#X obj 382 117 inlet;
#X obj 134 118 inlet;
#X obj 134 146 t f f f;
#X obj 133 207 expr $f1*($f3-$f2) + $f2;
#X obj 221 234 expr $f1*($f3-$f2) + $f2;
#X obj 311 255 expr $f1*($f3-$f2) + $f2;
#X text 178 41 interpolate linearily between to points (x \, y \, z)
;
#X text 455 118 point 2;
#X text 280 117 point 1;
#X text 142 99 0-1;
#X connect 0 0 8 1;
#X connect 0 1 9 1;
#X connect 0 2 10 1;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 4 0 8 2;
#X connect 4 1 9 2;
#X connect 4 2 10 2;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 1 9 0;
#X connect 7 2 10 0;
#X connect 8 0 2 0;
#X connect 9 0 2 1;
#X connect 10 0 2 2;