|
|
|
geomland.segment :initial :y
constructs a segment object.
Definition:
to geomland.segment :initial :y make local "type "segment make local "color :def_segment_color if number? :y [ make local "final :initial + (point cos :y sin :y) ] [ if point? :y [ make local "final :y ] [ make local "final :initial+:y.final-:y.initial ] ] to ondrawimage output dll.graphix.drawsegment end delete "y end |
|
|
|