setxy

Help Contents Turtle Graphics setxy
sety triangle

setxy :x :y


Definition:

to setxy :x :y

	make local "newpos (point :x :y)

	if :pen 
	[
		make "turtle_seg segment :pos :newpos
		make "turtle_seg.color :col
		traced "turtle_seg
		repaint
		delete "turtle_seg
	]
	make "pos :newpos
	image
end

Examples:

References:

sety triangle