hyperbola

Help Contents geomland Object hyperbola hyperbola
Object hyperbola hyperbolaP

geomland.hyperbola :focus1 :focus2 :x


constructs a hyperbola object.

Definition:

to geomland.hyperbola :focus1 :focus2 :x

	make local "type "hyperbola
	make local "center (:focus1+:focus2)/2
	make local "spin 90+(angle3 :focus1+ (point 1 0) :focus1 :focus2)
	make local "color :def_hyperbola_color

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

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

	to ondrawimage 
		output dll.graphix.drawhyperbola 
	end

	delete "x
end

Examples:

References:

Object hyperbola hyperbolaP