[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()
}