isec_pointcircle

Help Contents geomland Intersection isec_pointcircle
isec_linepoint isec_circlepoint

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

Example:

Reference:

isec_linepoint isec_circlepoint