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