[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: GScript BASIC 1.3 - Major Revision
Have uploaded a Lores painting program for kids. You can view the
Lores Doodle, as well as Doodle, in GScript BASIC (http://
virtualgs.larwe.com/gsbasic).
This is how the current event listener codes look like:
// Lores Doodle
gr()
inverse()
print(" Lores Doodle ")
normal()
print("Double click to clear screen.")
draw = false
listen("mousedown")
listen("mousemove")
listen("mouseup")
listen("dblclick")
// Handle mouse down event
function mousedown(event) {
draw = true
color = rnd(15) + 1
mousemove()
}
// Handle mouse move event
function mousemove() {
if (draw)
plot(mousex, mousey)
}
// Handle mouse up event
function mouseup() {
draw = false
}
// Handle double click event
function dblclick() {
gr()
}