interlines := proc(a,u,b,v) local s,t,tt,ss,eq,sol; eq := evalm(a+s*u-b-t*v); sol := solve({eq[1],eq[2],eq[3]},{t,s}); end;