The only other way I can think of is using an image memblock.
text 0,0,"click the mouse to draw a box"
do
if mouseclick() = 1 and last_click <> 1
draw_box(mousex(),mousey())
endif
last_click = mouseclick()
loop
function draw_box(mx as integer,my as integer)
local colour as integer : local in as integer : local x as integer : local y as integer
dec mx,50 : dec my,50
make memblock 1,((100*100)*4)+12
write memblock dword 1,0,100 : `width
write memblock dword 1,4,100 : `height
write memblock dword 1,8,32 : `depth
colour = rgba(rnd(255),rnd(255),rnd(255),128)
in = 12
for y = 0 to 99
for x = 0 to 99
write memblock dword 1,in,colour
inc in,4
next x
next y
make image from memblock 1,1
delete memblock 1
paste image 1,mx,my,1
endfunction
function rgba(r as integer,g as integer,b as integer,a as integer)
colour as dword
colour = (b)+(g*256)+(r*65536)+(a*16777216)
endfunction colour
he told me that he loved me and then he kicked me in the chest