#N canvas 599 302 450 300 10;
#X obj 55 56 inlet;
#X obj 215 61 loadbang;
#X obj 55 85 - \$1;
#X obj 280 63 r __init;
#X obj 209 92 pack \$1 \$2 \$3 \$4;
#X obj 54 159 + \$3;
#X obj 58 124 *;
#X obj 51 202 outlet;
#X obj 186 149 expr abs($f4-$f3)/abs($f2-$f1);
#X text 130 206 it just has a unique name to avoid conflicts;
#X text 129 224 with other abstractions called "scale.";
#X text 130 188 nothing particularly special about this 'scale';
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 6 0;
#X connect 3 0 4 0;
#X connect 4 0 8 0;
#X connect 5 0 7 0;
#X connect 6 0 5 0;
#X connect 8 0 6 1;
