chose/extra/evt/libs/gil/gil_line_y.pd

#N canvas 530 222 450 300 10;
#X obj 55 150 inlet x;
#X obj 55 214 outlet y;
#X obj 117 150 inlet x0;
#X obj 179 150 inlet y0;
#X obj 241 150 inlet x1;
#X obj 304 150 inlet y1;
#X text 62 77 y = y0 + -------- * (x - x0);
#X text 118 66 y1 - y0;
#X text 118 86 x1 - x0;
#X text 198 224 (c)2012 Marian Weger;
#X text 37 30 gil_line_y;
#X obj 55 182 expr $f3+((($f5-$f3)/($f4-$f2))*($f1-$f2));
#X connect 0 0 11 0;
#X connect 2 0 11 1;
#X connect 3 0 11 2;
#X connect 4 0 11 3;
#X connect 5 0 11 4;
#X connect 11 0 1 0;