Sorry your browser is not supported!

rem start the demo
set window on
sync on
sync rate 0
set display mode 1024,768,32
color backdrop rgb(0,0,128)
set text font "arial" : set text size 24 : set text transparent

rem set circle varibles
global cirx as double float
global ciry as double float
global cirred as integer
global cirgreen as integer
global cirblue as integer

      rem set varibles to given values
      cirx = screen width()/2
      ciry = screen height()/2
      cirred = 100
      cirgreen = 100
      cirblue = 100



do
ink rgb(255,255,225),rgb(255,255,255)
set cursor 0,0 : print "Simple 2d draw"
set cursor 0,40 : print "Press r to randomize background and to clear screen"


rem change color of background
if scancode()= 19
randomizebackground(rnd(10000))
endif

rem the 2d engine
2draw()

sync
loop

function randomizebackground(seed)
randomize seed
cls rgb(rnd(255),rnd(255),rnd(255))
endfunction randomizebackground

function 2draw()

ink rgb(cirred,cirgreen,cirblue),rgb(cirred,cirgreen,cirblue)
rem make circle ball
for x=50 to 1 step -1
circle cirx, ciry, x
next x


if upkey()=1
ciry = ciry-1
cirred = cirred+5
cirblue = cirblue+1
cirgreen = cirgreen+1
endif

if downkey()=1
ciry = ciry+1
cirred = cirred+1
cirblue = cirblue+1
cirgreen = cirgreen+5
endif

if leftkey()=1
cirx = cirx-1
cirred = cirred+1
cirblue = cirblue+5
cirgreen = cirgreen+1
endif

if rightkey()=1
cirx = cirx+1
cirred = cirred+1
cirblue = cirblue+10
cirgreen = cirgreen+3
endif

endfunction 2draw

gosub _globalvariables

do
gosub _variables
gosub _menu
gosub _change
gosub _pencil
gosub _circle
gosub _box
gosub _3dbox
gosub _rubber
loop

_globalvariables:
global tool=1
global xpos=0
global ypos=0
return

_variables:
radius# =1
xpos=mousex()
ypos=mousey()
return

_menu:
rollover(10,10,50,30,1,"Pencil")
rollover(60,10,100,30,2,"Circle")
rollover(110,10,150,30,3,"Box")
rollover(160,10,200,30,4,"3D Tool")
rollover(210,10,250,30,5,"Rubber")
return

_change:
if shiftkey()=1
input "Tool Selection: ( (1)- Pencil (2)- Circle (3)-Box (4)-3D Box (5)Eraser ) ",tool
endif
return

_pencil:
if tool=1
if mouseclick()=1 then dot xpos,ypos
endif
return

_circle:
if tool=2 then
if mouseclick()=1 then circle xpos,ypos,10
return

_box:
if tool=3
if mouseclick()=1 then box xpos,ypos,xpos+10,ypos+10
endif
return

_3dbox:
if tool=4
if mouseclick()=1 then box xpos,ypos,xpos+10,ypos+10,rgb(232,21,10),rgb(023,120,230),rgb(50,07,80),rgb(60,05,04)
endif
return

_rubber:
if tool=5
if mouseclick()=1 then box xpos,ypos,xpos+10,ypos+10,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(0,0,0)
endif
return


function rollover(boxleft,boxtop,boxright,boxbottom,buttonnumber,value$)


box boxleft-1,boxtop-1,boxright+1,boxbottom+1,

box boxleft,boxtop,boxright,boxbottom,RGB(21,19,51),RGB(21,19,51),RGB(116,10,173),C
set text font "arial"
set text size 12
text boxleft+3,boxtop+3,value$
if xpos>boxleft and xpos<boxright and ypos>boxtop and ypos<boxbottom
menu:
box boxleft,boxtop,boxright,boxbottom,RGB(21,19,51),RGB(21,19,51),RGB(116,10,173),RGB(192,192,192)
text boxleft+3,boxtop+3,value$
if mouseclick()=1

if buttonnumber=1
 tool=1
endif

if buttonnumber=2
tool=2
wait 100
 goto menu
endif

if buttonnumber=3
tool=3
wait 100
 goto menu
endif

if buttonnumber=4
tool=4
wait 100
 goto menu
endif

if buttonnumber=5
tool=5
wait 100
 goto menu
endif


endif
endif
endfunction

function export(exp_dir$,file$,exp_num,exp_value$)
set dir exp_dir$
 delete file file$

 open to write exp_num,file$
 write string exp_num,exp_value$
 close file exp_num

endfunction



function export_read(exp_num,file$,read_variable$)

open to read exp_num,file$
read string exp_num,read_variable$
print read_variable$
close file exp_num

endfunction