-----------------------------------

r.m_spy

Sat Dec 01, 2007 12:17 pm


skech pad 2.0

-----------------------------------

const MOUSE_SMOOTHING := 5 
var mouse_x, mouse_y, button : int := 0 
var w:int:=1
var k:array char of boolean
var u:char:=chr(200)
var d:char:=chr(208)
var s:char:=chr(32)
var e:char:=chr(10)
var r:string
var old_mouse_x, old_mouse_y : real := 0 
put"the intructions for scetch pad ray"
put""
put"put the mouse over the turing screen"
put"this will draw a line"
put""
put"to change a color, scroll up or down"
put"let go for that color"
put""
put"press the mouse to draw in paint"
put""
put"press space to get the box eraser"
put"press space again to return painting"
put"press enter to delete your whole screen"
put""
put"ready"
get r
cls
loop
    Mouse.Where (mouse_x, mouse_y, button) 
    old_mouse_x := (old_mouse_x * (MOUSE_SMOOTHING - 1) + mouse_x) / MOUSE_SMOOTHING 
    old_mouse_y := (old_mouse_y * (MOUSE_SMOOTHING - 1) + mouse_y) / MOUSE_SMOOTHING
    if Mouse.ButtonMoved("down") then
    drawfillbox(round(old_mouse_x-5),round(old_mouse_y-5),round(old_mouse_x+5),round(old_mouse_y+5),w)
    else
        drawdot(round(old_mouse_x-1),round(old_mouse_y-1),w)
        end if
        Input.KeyDown(k)
        if k(u) then
        delay(100)
        if w>253 then
          w:=w-200
        else
        w:=w+1
        end if
        elsif k(d) then
        delay(100)
        if w