|
|
|
Example: MouseDraw.eli Modified: February 27, 2000 Version: 2.0 Author: Pavel Boychev E-mail: pavel@elica.net Copyright © 2000 Elica Group |
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 |
|
|
|