%%HP: T(1)A(G)F(,);
 RECTA OBJ DROP
RECTA OBJ DROP  XI
YI MI XO YO MO
   '(-MI*XI+MO*XO+YI
-YO)/(MO-MI)' EVAL
DUP XI - MI * YI +
   SWAP "X" TAG
SWAP "Y" TAG
