|
|
|
geomland.isec_pointcircle :p :c
Point-Circle intersection
Definition:
to geomland.isec_pointcircle :p :c ; 1: point=p(x,y) circle=l(x,y,r) ; 2: r = sqrt (p.x-l.x)^2+(p.y-l.y)^2 ; 3: r^2 = (p.x-l.x)^2+(p.y-l.y)^2 if :r*:r = (:p.x-:c.center.x)*(:p.x-:c.center.x)+(:p.y-:c.center.y)*(:p.y-:c.center.y) [ output (set :p) ] [ output set ] end |
|
|
|