Mousedraw (simple)

Help Contents Examples Mousedraw (simple)
Mouse (simple) Nurbs (3d)

Mousedraw (simple)

Example:    MouseDraw.eli
Modified:   February 27, 2000
Version:    2.0
Author:     Pavel Boychev
E-mail:     pavel@elica.net

Copyright © 2000 Elica Group

is a simple scribble drawing program.

run "geomland

make "Asp 375

to onmousemove :x :y

	if :draw
	[
		make "s segment point :Asp*:oldx :Asp*:oldy point :Asp*:x :Asp*:y
		make "s.color :color

		traced "s
		repaint

		make "oldx :x
		make "oldy :y
	]
end

to onmousedown :x :y
	make "oldx :x
	make "oldy :y
	make "color rgb_ (random) (random) (random)
	make "draw "true
end

to onmouseup :x :y
	make "draw "false
end

Mouse (simple) Nurbs (3d)