ellipse

Help Contents geomland Object ellipse ellipse
Object ellipse ellipseP

geomland.ellipse :focus1 :focus2 :x


constructs an ellipse object.

Definition:

to geomland.ellipse :focus1 :focus2 :x

	make local "type "ellipse
	make local "center (:focus1+:focus2)/2
	make local "spin angle3 :focus1+ (point 1 0) :focus1 :focus2
	make local "color :def_ellipse_color

	if not number? :x
	[ make "x (distance :x :focus1)+(distance :x :focus2) ]

	make local "radiusx :x/2
	make local "d (distance :focus1 :focus2)/2
	make local "radiusy sqrt :radiusx*:radiusx-:d*:d

	to ondrawimage 
		output dll.graphix.drawisogon 
	end

	delete "x
end

Examples:

References:

Object ellipse ellipseP