|
|
|
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 |
|
|
|