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

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