"B***
d=raiz (x1-x2)^2+(y1-y2)^2
r=p1p/pp2
x=x1+rx2/1+r
y=y1+ry2/1+r

r=x-x1/x2-x

m=taga=y2-y1/x2-x1

tagq1=m2-m1/1+m2m1

mim2=-1 perp

y-y1=m(x-x1)
" FTL2 DROP

" FTL2 DROP 
