parabola

Help Contents geomland Object parabola parabola
Object parabola parabolaP

geomland.parabola :foc :directrissa


constructs a parabola object.

Definition:

to geomland.parabola :foc :directrissa

	make local "type "parabola
	make local "norm line :foc 90 + (heading :directrissa)
	make local "antif isec :norm :directrissa
	make "norm line :antif :foc
	make local "spin heading :norm
	make local "center (:foc+:antif)/2
	make local "radius (distance :antif :foc)/2
	make local "color :def_parabola_color

	to ondrawimage 
		output dll.graphix.drawparabola 
	end
end

Examples:

References:

Object parabola parabolaP