line

Help Contents geomland Object line line
Object line lineP

geomland.line :initial :y


constructs a line object.

Definition:

to geomland.line :initial :y

	make local "type "line 
	make local "color :def_line_color

	if number? :y 
	[ make local "final :initial + (point cos :y sin :y) ]
	[ make local "final :y ] 

	to ondrawimage 
		output dll.graphix.drawline 
	end

	delete "y
end

Examples:

References:

Object line lineP