segment

Help Contents geomland Object segment segment
Object segment segmentP

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

Examples:

References:

Object segment segmentP