Sorry your browser is not supported!

set window on
set window position 40,40
set display mode 800,600,32
rem Initializare DirectX
D3D_Init
D3D_Box 10,500,200,550,rgb(0,0,900)
D3D_BOX 210,500,400,550,rgb(900,0,0)
D3D_Box 410,500,600,550,rgb(0,900,0)

D3D_Line 0,490,800,490

D3D_StartText
D3D_Text 1,100,520,1,"Circle"
D3D_Text 2,300,520,1,"Line"
D3D_Text 3,500,520,1,"Dot"
D3D_EndText
do
if mousex() > 10 and mousex() < 200
if mousey() > 500 and mousey() < 600
draw = 1
endif
endif

if mousex() > 410 and mousex() < 600
if mousey() > 500 and mousey() < 600
draw = 2
endif
endif

if mousex() > 210 and mousex() < 400
if mousey() > 500 and mousey() < 600
draw = 3
endif
endif

if mouseclick() = 1
if draw = 2
D3D_Dot mousex(),mousey()
else
if draw = 3
D3D_Line 400,170,mousex(),mousey()
else 
if draw = 1
D3D_Circle mouseX(),mouseY(),rnd(40),rnd(1)
endif
endif
endif
endif
sync
loop