rendered paste body% MS Paint-wannabe turing code. Please fix and/or make better/enhance.
% any help will be appreciated. Thank you very much! ^^
setscreen ("graphics:max,max")
var font : int := Font.New ("sans serif:14:bold")
var xrad : int
var yrad : int
var xdif : int
var ydif : int
var ttext : string
var col : int
var size : int := 5
var colur : int := 7
var stamp : int := 0
var mx, my, mb : int
var tool : int := 1
var pencil : int
var eraser : int
var clear : int
var square : int
var circle : int
var text : int
var line : int
var fill : int
var pencil2 : int
var eraser2 : int
var clear2 : int
var square2 : int
var circle2 : int
var text2 : int
var line2 : int
var fill2 : int
var smiley : int
var smiley2 : int
var x, y, btnNumber, btnUpDown, buttons : int
%background
pencil := Pic.FileNew ("pencil.jpg")
eraser := Pic.FileNew ("eraser.jpg")
clear := Pic.FileNew ("clear.jpg")
square := Pic.FileNew ("drawbox.jpg")
circle := Pic.FileNew ("circle.jpg")
text := Pic.FileNew ("text tool.jpg")
line := Pic.FileNew ("line tool.jpg")
fill := Pic.FileNew ("paint can.jpg")
pencil2 := Pic.FileNew ("pencil2.jpg")
eraser2 := Pic.FileNew ("eraser2.jpg")
% clear2 := Pic.FileNew ("clear2.jpg")
square2 := Pic.FileNew ("drawbox2.jpg")
circle2 := Pic.FileNew ("circle2.jpg")
text2 := Pic.FileNew ("text tool2.jpg")
line2 := Pic.FileNew ("line tool2.jpg")
fill2 := Pic.FileNew ("paint can2.jpg")
smiley := Pic.FileNew ("nVidia.jpg")
smiley2 := Pic.FileNew ("nvidia_logo.jpg")
drawfillbox (0, 0, maxx, maxy, 13)
drawfillbox (250, 50, maxx - 20, maxy - 20, white)
drawfillbox (10, maxy - 25, 30, maxy - 45, 2)
drawfillbox (30, maxy - 25, 50, maxy - 45, 3)
drawfillbox (10, maxy - 45, 30, maxy - 65, 4)
drawfillbox (30, maxy - 45, 50, maxy - 65, 5)
drawfillbox (10, maxy - 65, 30, maxy - 80, 6)
drawfillbox (30, maxy - 65, 50, maxy - 80, 7)
drawfillbox (10, maxy - 80, 30, maxy - 100, 8)
drawfillbox (30, maxy - 80, 50, maxy - 100, 9)
drawfillbox (10, maxy - 100, 30, maxy - 120, 10)
drawfillbox (30, maxy - 100, 50, maxy - 120, 11)
drawfillbox (10, maxy - 120, 30, maxy - 140, 12)
drawfillbox (30, maxy - 120, 50, maxy - 140, 13)
drawfillbox (10, maxy - 140, 30, maxy - 160, 14)
drawfillbox (30, maxy - 140, 50, maxy - 160, 15)
drawfillbox (50, maxy - 25, 70, maxy - 45, 39)
drawfillbox (70, maxy - 25, 90, maxy - 45, 40)
drawfillbox (50, maxy - 45, 70, maxy - 65, 41)
drawfillbox (70, maxy - 45, 90, maxy - 65, 42)
drawfillbox (50, maxy - 65, 70, maxy - 80, 44)
drawfillbox (70, maxy - 65, 90, maxy - 80, 46)
drawfillbox (50, maxy - 80, 70, maxy - 100, 48)
drawfillbox (70, maxy - 80, 90, maxy - 100, 113)
drawfillbox (50, maxy - 100, 70, maxy - 120, 112)
drawfillbox (70, maxy - 100, 90, maxy - 120, 107)
drawfillbox (50, maxy - 120, 70, maxy - 140, 40)
drawfillbox (70, maxy - 120, 90, maxy - 140, 41)
drawfillbox (50, maxy - 140, 70, maxy - 160, 17)
drawfillbox (70, maxy - 140, 90, maxy - 160, 28)
drawbox (30, maxy - 170, 70, maxy - 210, brightred)
color (13)
put " Adobe Photochop 7.1"
%stamps
drawfillbox (30, 180, 150, 10, white)
locatexy (100, 170)
put "stamps" ..
drawfillstar (45, 140, 65, 160, yellow)
Pic.Draw (smiley, 75, 135, picCopy)
%FINDFAST
drawbox (120, 240, 200, 300, black) %load
Font.Draw ("Load", 138, 265, font, white)
drawbox (120, 320, 200, 380, black) %load
Font.Draw ("Save", 138, 345, font, white)
%size select
drawfillbox (10, maxy div 2 + 90, 100, 200, white)
locatexy (40, maxy div 2 + 75)
put "size" ..
locatexy (40, maxy div 2 + 60)
put "size=", size div 5 ..
drawfilloval (55, 368, 1, 1, black)
drawfilloval (55, 358, 5, 5, black)
drawfilloval (55, 341, 10, 10, black)
drawfilloval (55, 314, 15, 15, black)
drawfilloval (55, 277, 20, 20, black)
drawfilloval (55, 230, 25, 25, black)
%tool select
drawfillbox (124, maxy - 30, 176, maxy - 177, 29)
locatexy (130, maxy - 35)
put "tools" ..
Pic.Draw (pencil, 125, maxy - 100, picCopy)
Pic.Draw (eraser, 151, maxy - 100, picCopy)
Pic.Draw (clear, 125, maxy - 126, picCopy)
Pic.Draw (square, 151, maxy - 126, picCopy)
Pic.Draw (circle, 125, maxy - 151, picCopy)
Pic.Draw (text, 151, maxy - 151, picCopy)
Pic.Draw (line, 125, maxy - 176, picCopy)
Pic.Draw (fill, 151, maxy - 176, picCopy)
loop
color (black)
locatexy (40, maxy div 2 + 60)
put "size=", size div 5 ..
mousewhere (mx, my, mb)
%size select
if mx > 50 and mx < 60 and my > 367 and my < 380 and mb = 1 then
size := 1
elsif mx > 49 and mx < 61 and my > 352 and my < 364 and mb = 1 then
size := 5
elsif mx > 44 and mx < 66 and my > 331 and my < 352 and mb = 1 then
size := 10
elsif mx > 39 and mx < 71 and my > 298 and my < 330 and mb = 1 then
size := 15
elsif mx > 34 and mx < 76 and my > 256 and my < 298 and mb = 1 then
size := 20
elsif mx > 29 and mx < 81 and my > 200 and my < 256 and mb = 1 then
size := 25
%tool select
elsif mx > 125 and mx < 151 and my > maxy - 100 and my < maxy - 74 and mb = 1 then
tool := 1
Pic.Draw (pencil2, 125, maxy - 100, picCopy)
Pic.Draw (eraser, 151, maxy - 100, picCopy)
Pic.Draw (clear, 125, maxy - 126, picCopy)
Pic.Draw (square, 151, maxy - 126, picCopy)
Pic.Draw (circle, 125, maxy - 151, picCopy)
Pic.Draw (text, 151, maxy - 151, picCopy)
Pic.Draw (line, 125, maxy - 176, picCopy)
Pic.Draw (fill, 151, maxy - 176, picCopy)
elsif mx > 151 and mx < 176 and my > maxy - 100 and my < maxy - 74 and mb = 1 then
tool := 2
Pic.Draw (pencil, 125, maxy - 100, picCopy)
Pic.Draw (eraser2, 151, maxy - 100, picCopy)
Pic.Draw (clear, 125, maxy - 126, picCopy)
Pic.Draw (square, 151, maxy - 126, picCopy)
Pic.Draw (circle, 125, maxy - 151, picCopy)
Pic.Draw (text, 151, maxy - 151, picCopy)
Pic.Draw (line, 125, maxy - 176, picCopy)
Pic.Draw (fill, 151, maxy - 176, picCopy)
elsif mx > 125 and mx < 151 and my > maxy - 126 and my < maxy - 100 and mb = 1 then
tool := 3
Pic.Draw (pencil, 125, maxy - 100, picCopy)
Pic.Draw (eraser, 151, maxy - 100, picCopy)
%Pic.Draw (clear2, 125, maxy - 126, picCopy)
Pic.Draw (square, 151, maxy - 126, picCopy)
Pic.Draw (circle, 125, maxy - 151, picCopy)
Pic.Draw (text, 151, maxy - 151, picCopy)
Pic.Draw (line, 125, maxy - 176, picCopy)
Pic.Draw (fill, 151, maxy - 176, picCopy)
elsif mx > 151 and mx < 176 and my > maxy - 126 and my < maxy - 100 and mb = 1 then
tool := 4
Pic.Draw (pencil, 125, maxy - 100, picCopy)
Pic.Draw (eraser, 151, maxy - 100, picCopy)
Pic.Draw (clear, 125, maxy - 126, picCopy)
Pic.Draw (square2, 151, maxy - 126, picCopy)
Pic.Draw (circle, 125, maxy - 151, picCopy)
Pic.Draw (text, 151, maxy - 151, picCopy)
Pic.Draw (line, 125, maxy - 176, picCopy)
Pic.Draw (fill, 151, maxy - 176, picCopy)
elsif mx > 125 and mx < 151 and my > maxy - 151 and my < maxy - 126 and mb = 1 then
tool := 5
Pic.Draw (pencil, 125, maxy - 100, picCopy)
Pic.Draw (eraser, 151, maxy - 100, picCopy)
Pic.Draw (clear, 125, maxy - 126, picCopy)
Pic.Draw (square, 151, maxy - 126, picCopy)
Pic.Draw (circle2, 125, maxy - 151, picCopy)
Pic.Draw (text, 151, maxy - 151, picCopy)
Pic.Draw (line, 125, maxy - 176, picCopy)
Pic.Draw (fill, 151, maxy - 176, picCopy)
elsif mx > 151 and mx < 176 and my > maxy - 151 and my < maxy - 126 and mb = 1 then
tool := 6
Pic.Draw (pencil, 125, maxy - 100, picCopy)
Pic.Draw (eraser, 151, maxy - 100, picCopy)
Pic.Draw (clear, 125, maxy - 126, picCopy)
Pic.Draw (square, 151, maxy - 126, picCopy)
Pic.Draw (circle, 125, maxy - 151, picCopy)
Pic.Draw (text2, 151, maxy - 151, picCopy)
Pic.Draw (line, 125, maxy - 176, picCopy)
Pic.Draw (fill, 151, maxy - 176, picCopy)
elsif mx > 125 and mx < 151 and my > maxy - 176 and my < maxy - 151 and mb = 1 then
tool := 7
Pic.Draw (pencil, 125, maxy - 100, picCopy)
Pic.Draw (eraser, 151, maxy - 100, picCopy)
Pic.Draw (clear, 125, maxy - 126, picCopy)
Pic.Draw (square, 151, maxy - 126, picCopy)
Pic.Draw (circle, 125, maxy - 151, picCopy)
Pic.Draw (text, 151, maxy - 151, picCopy)
Pic.Draw (line2, 125, maxy - 176, picCopy)
Pic.Draw (fill, 151, maxy - 176, picCopy)
elsif mx > 151 and mx < 176 and my > maxy - 176 and my < maxy - 151 and mb = 1 then
tool := 8
Pic.Draw (pencil, 125, maxy - 100, picCopy)
Pic.Draw (eraser, 151, maxy - 100, picCopy)
Pic.Draw (clear, 125, maxy - 126, picCopy)
Pic.Draw (square, 151, maxy - 126, picCopy)
Pic.Draw (circle, 125, maxy - 151, picCopy)
Pic.Draw (text, 151, maxy - 151, picCopy)
Pic.Draw (line, 125, maxy - 176, picCopy)
Pic.Draw (fill2, 151, maxy - 176, picCopy)
end if
%stamp select
if mx > 35 and mx < 55 and my > 140 and my < 160 and mb = 1 then
stamp := 1
tool := 0
elsif mx > 75 and mx < 100 and my > 135 and my < 160 and mb = 1 then
stamp := 2
tool := 0
end if
%colour select
if mx > 10 and mx < 90 and my < maxy - 25 and my > maxy - 160 and mb = 1 then
colur := whatdotcolour (mx, my)
drawfillbox (31, maxy - 171, 69, maxy - 209, colur)
end if
%draw on canvas
if tool = 0 and mx > 250 + size * 3 and my > 50 + size * 3 and mx < (maxx - 20) - size * 3 and my < maxy - 20 + size * 3 and mb = 1 and stamp = 1 then
drawfillstar (mx - size * 3, my - size * 3, mx + size * 3, my + size * 3, colur)
elsif tool = 0 and mx > 300 and my > 100 and mx < maxx - 70 and my < maxy - 70 and mb = 1 and stamp = 2 then
Pic.Draw (smiley2, mx - 50, my - 50, picCopy)
end if
if tool = 1 and mx > 250 + size and my > 50 + size and mx < maxx - 20 - size and my < maxy - 20 - size and mb = 1 then
drawfilloval (mx, my, size, size, colur)
elsif tool = 2 and mx > 250 + size and my > 50 + size and mx < maxx - 20 - size and my < maxy - 20 - size and mb = 1 then
drawfilloval (mx, my, size, size, white)
elsif tool = 3 and mx > 250 and my > 50 and mx < maxx - 20 and my < maxy - 20 and mb = 1 then
drawfillbox (250, 50, maxx - 20, maxy - 20, white)
elsif tool = 4 and mx > 250 and my > 50 and mx < maxx - 20 and my < maxy - 20 and mb = 1 then
Mouse.ButtonWait ("down", x, y, btnNumber, btnUpDown)
mx := x
my := y
loop
drawfillbox (x, y, mx, my, 0) % Erase previous line
exit when Mouse.ButtonMoved ("up")
drawfillbox (x, y, mx, my, colur) % Draw line to position
end loop
Mouse.ButtonWait ("up", mx, my, btnNumber, btnUpDown)
drawfillbox (x, y, mx, my, colur) % Draw line to final position
elsif tool = 7 and mx > 250 and my > 50 and mx < maxx - 20 and my < maxy - 20 and mb = 1 then
Mouse.ButtonWait ("down", x, y, btnNumber, btnUpDown)
mx := x
my := y
loop
drawline (x, y, mx, my, 0) % Erase previous line
exit when Mouse.ButtonMoved ("up")
drawline (x, y, mx, my, colur) % Draw line to position
end loop
Mouse.ButtonWait ("up", mx, my, btnNumber, btnUpDown)
drawline (x, y, mx, my, colur) % Draw line to final position
elsif tool = 5 and mx > 250 and my > 50 and mx < maxx - 20 and my < maxy - 20 and mb = 1 then
loop
mousewhere (mx, my, mb)
if mb = 1 then
mx := x
my := y
if mx < x then
xrad := (x - mx) div 2
else
xrad := (mx - x) div 2
end if
if my < y then
yrad := (y - my) div 2
else
yrad := (my - y) div 2
end if
if mx < x then
xdif := x - xrad
else
xdif := mx - xrad
end if
if my < y then
ydif := y - yrad
else
ydif := my - yrad
end if
drawfilloval (xdif, ydif, xrad, yrad, 0) % Erase previous line
exit when mb = 0
drawfilloval (xdif, ydif, xrad, yrad, colur) % Draw line to position
end if
end loop
if mb = 0 then
drawfilloval (xdif, ydif, xrad, yrad, colur) % Draw line to final position
end if
elsif tool = 6 and mx > 250 and my > 50 and mx < maxx - 20 and my < maxy - 20 and mb = 1 then
color (colur)
locatexy (mx, my)
get ttext
end if
end loop
put "size=", size div 5 ..
mousewhere (mx, my, mb)
%size select
if mx > 50 and mx < 60 and my > 367 and my < 380 and mb = 1 then
size := 1
elsif mx > 49 and mx < 61 and my > 352 and my < 364 and mb = 1 then
size := 5
elsif mx > 44 and mx < 66 and my > 331 and my < 352 and mb = 1 then
size := 10
elsif mx > 39 and mx < 71 and my > 298 and my < 330 and mb = 1 then
size := 15
elsif mx > 34 and mx < 76 and my > 256 and my < 298 and mb = 1 then
size := 20
elsif mx > 29 and mx < 81 and my > 200 and my < 256 and mb = 1 then
size := 25
%tool select
elsif mx > 125 and mx < 151 and my > maxy - 100 and my < maxy - 74 and mb = 1 then
tool := 1
Pic.Draw (pencil2, 125, maxy - 100, picCopy)
Pic.Draw (eraser, 151, maxy - 100, picCopy)
Pic.Draw (clear, 125, maxy - 126, picCopy)
Pic.Draw (square, 151, maxy - 126, picCopy)
Pic.Draw (circle, 125, maxy - 151, picCopy)
Pic.Draw (text, 151, maxy - 151, picCopy)
Pic.Draw (line, 125, maxy - 176, picCopy)
Pic.Draw (fill, 151, maxy - 176, picCopy)
elsif mx > 151 and mx < 176 and my > maxy - 100 and my < maxy - 74 and mb = 1 then
tool := 2
Pic.Draw (pencil, 125, maxy - 100, picCopy)
Pic.Draw (eraser2, 151, maxy - 100, picCopy)
Pic.Draw (clear, 125, maxy - 126, picCopy)
Pic.Draw (square, 151, maxy - 126, picCopy)
Pic.Draw (circle, 125, maxy - 151, picCopy)
Pic.Draw (text, 151, maxy - 151, picCopy)
Pic.Draw (line, 125, maxy - 176, picCopy)
Pic.Draw (fill, 151, maxy - 176, picCopy)
elsif mx > 125 and mx < 151 and my > maxy - 126 and my < maxy - 100 and mb = 1 then
tool := 3
Pic.Draw (pencil, 125, maxy - 100, picCopy)
Pic.Draw (eraser, 151, maxy - 100, picCopy)
%Pic.Draw (clear2, 125, maxy - 126, picCopy)
Pic.Draw (square, 151, maxy - 126, picCopy)
Pic.Draw (circle, 125, maxy - 151, picCopy)
Pic.Draw (text, 151, maxy - 151, picCopy)
Pic.Draw (line, 125, maxy - 176, picCopy)
Pic.Draw (fill, 151, maxy - 176, picCopy)
elsif mx > 151 and mx < 176 and my > maxy - 126 and my < maxy - 100 and mb = 1 then
tool := 4
Pic.Draw (pencil, 125, maxy - 100, picCopy)
Pic.Draw (eraser, 151, maxy - 100, picCopy)
Pic.Draw (clear, 125, maxy - 126, picCopy)
Pic.Draw (square2, 151, maxy - 126, picCopy)
Pic.Draw (circle, 125, maxy - 151, picCopy)
Pic.Draw (text, 151, maxy - 151, picCopy)
Pic.Draw (line, 125, maxy - 176, picCopy)
Pic.Draw (fill, 151, maxy - 176, picCopy)
elsif mx > 125 and mx < 151 and my > maxy - 151 and my < maxy - 126 and mb = 1 then
tool := 5
Pic.Draw (pencil, 125, maxy - 100, picCopy)
Pic.Draw (eraser, 151, maxy - 100, picCopy)
Pic.Draw (clear, 125, maxy - 126, picCopy)
Pic.Draw (square, 151, maxy - 126, picCopy)
Pic.Draw (circle2, 125, maxy - 151, picCopy)
Pic.Draw (text, 151, maxy - 151, picCopy)
Pic.Draw (line, 125, maxy - 176, picCopy)
Pic.Draw (fill, 151, maxy - 176, picCopy)
elsif mx > 151 and mx < 176 and my > maxy - 151 and my < maxy - 126 and mb = 1 then
tool := 6
Pic.Draw (pencil, 125, maxy - 100, picCopy)
Pic.Draw (eraser, 151, maxy - 100, picCopy)
Pic.Draw (clear, 125, maxy - 126, picCopy)
Pic.Draw (square, 151, maxy - 126, picCopy)
Pic.Draw (circle, 125, maxy - 151, picCopy)
Pic.Draw (text2, 151, maxy - 151, picCopy)
Pic.Draw (line, 125, maxy - 176, picCopy)
Pic.Draw (fill, 151, maxy - 176, picCopy)
elsif mx > 125 and mx < 151 and my > maxy - 176 and my < maxy - 151 and mb = 1 then
tool := 7
Pic.Draw (pencil, 125, maxy - 100, picCopy)
Pic.Draw (eraser, 151, maxy - 100, picCopy)
Pic.Draw (clear, 125, maxy - 126, picCopy)
Pic.Draw (square, 151, maxy - 126, picCopy)
Pic.Draw (circle, 125, maxy - 151, picCopy)
Pic.Draw (text, 151, maxy - 151, picCopy)
Pic.Draw (line2, 125, maxy - 176, picCopy)
Pic.Draw (fill, 151, maxy - 176, picCopy)
elsif mx > 151 and mx < 176 and my > maxy - 176 and my < maxy - 151 and mb = 1 then
tool := 8
Pic.Draw (pencil, 125, maxy - 100, picCopy)
Pic.Draw (eraser, 151, maxy - 100, picCopy)
Pic.Draw (clear, 125, maxy - 126, picCopy)
Pic.Draw (square, 151, maxy - 126, picCopy)
Pic.Draw (circle, 125, maxy - 151, picCopy)
Pic.Draw (text, 151, maxy - 151, picCopy)
Pic.Draw (line, 125, maxy - 176, picCopy)
Pic.Draw (fill2, 151, maxy - 176, picCopy)
end if
%stamp select
if mx > 35 and mx < 55 and my > 140 and my < 160 and mb = 1 then
stamp := 1
tool := 0
elsif mx > 75 and mx < 100 and my > 135 and my < 160 and mb = 1 then
stamp := 2
tool := 0
end if
%colour select
if mx > 10 and mx < 90 and my < maxy - 25 and my > maxy - 160 and mb = 1 then
colur := whatdotcolour (mx, my)
drawfillbox (31, maxy - 171, 69, maxy - 209, colur)
end if
%draw on canvas
if tool = 0 and mx > 250 + size * 3 and my > 50 + size * 3 and mx < (maxx - 20) - size * 3 and my < maxy - 20 + size * 3 and mb = 1 and stamp = 1 then
drawfillstar (mx - size * 3, my - size * 3, mx + size * 3, my + size * 3, colur)
elsif tool = 0 and mx > 300 and my > 100 and mx < maxx - 70 and my < maxy - 70 and mb = 1 and stamp = 2 then
Pic.Draw (smiley2, mx - 50, my - 50, picCopy)
end if
if tool = 1 and mx > 250 + size and my > 50 + size and mx < maxx - 20 - size and my < maxy - 20 - size and mb = 1 then
drawfilloval (mx, my, size, size, colur)
elsif tool = 2 and mx > 250 + size and my > 50 + size and mx < maxx - 20 - size and my < maxy - 20 - size and mb = 1 then
drawfilloval (mx, my, size, size, white)
elsif tool = 3 and mx > 250 and my > 50 and mx < maxx - 20 and my < maxy - 20 and mb = 1 then
drawfillbox (250, 50, maxx - 20, maxy - 20, white)
elsif tool = 4 and mx > 250 and my > 50 and mx < maxx - 20 and my < maxy - 20 and mb = 1 then
Mouse.ButtonWait ("down", x, y, btnNumber, btnUpDown)
mx := x
my := y
loop
drawfillbox (x, y, mx, my, 0) % Erase previous line
exit when Mouse.ButtonMoved ("up")
drawfillbox (x, y, mx, my, colur) % Draw line to position
end loop
Mouse.ButtonWait ("up", mx, my, btnNumber, btnUpDown)
drawfillbox (x, y, mx, my, colur) % Draw line to final position
elsif tool = 7 and mx > 250 and my > 50 and mx < maxx - 20 and my < maxy - 20 and mb = 1 then
Mouse.ButtonWait ("down", x, y, btnNumber, btnUpDown)
mx := x
my := y
loop
drawline (x, y, mx, my, 0) % Erase previous line
exit when Mouse.ButtonMoved ("up")
drawline (x, y, mx, my, colur) % Draw line to position
end loop
Mouse.ButtonWait ("up", mx, my, btnNumber, btnUpDown)
drawline (x, y, mx, my, colur) % Draw line to final position
elsif tool = 5 and mx > 250 and my > 50 and mx < maxx - 20 and my < maxy - 20 and mb = 1 then
loop
mousewhere (mx, my, mb)
if mb = 1 then
mx := x
my := y
if mx < x then
xrad := (x - mx) div 2
else
xrad := (mx - x) div 2
end if
if my < y then
yrad := (y - my) div 2
else
yrad := (my - y) div 2
end if
if mx < x then
xdif := x - xrad
else
xdif := mx - xrad
end if
if my < y then
ydif := y - yrad
else
ydif := my - yrad
end if
drawfilloval (xdif, ydif, xrad, yrad, 0) % Erase previous line
exit when mb = 0
drawfilloval (xdif, ydif, xrad, yrad, colur) % Draw line to position
end if
end loop
if mb = 0 then
drawfilloval (xdif, ydif, xrad, yrad, colur) % Draw line to final position
end if
elsif tool = 6 and mx > 250 and my > 50 and mx < maxx - 20 and my < maxy - 20 and mb = 1 then
color (colur)
locatexy (mx, my)
get ttext
end if
loop
mousewhere (mx, my, mb)
% tool selection
if mb = 1 and mx > 120 and my > 240 and mx < 200 and my < 300 then % load
Pic.ScreenLoad ("mypic.bmp", 250, 50, picCopy)
elsif mb = 1 and mx > 120 and my > 320 and mx < 200 and my < 380 then %save
Pic.ScreenSave (250, 50, 800, 400, "mypic.bmp")
end if
end loop