lucidapogee wrote: ↑Apr 01, 2023 2:07
"Not available in the -lang qb dialect unless referenced with the alias __Imagecreate." I see that it's possible, but I haven't been able to make it work.
What have you tried? We'd be interested to know where you got stuck.
"... unless referenced with the alias __Imagecreate" means use "__Imagecreate".
Code: Select all
#lang "qb"
sub MakeAndSaveImage
Dim image As Any __Ptr
image = __ImageCreate( 64, 64, __RGB(0, 128, 0) )
'' draw on the image created
for x = 0 to 63 step 5
line image, (0,0)-(x,63), 15
line image, (63-x,0)-(63,63), 15
next
bsave "tmppic.bmp", image, 64*64*4
__imagedestroy( image )
end sub
sub LoadAndShowImage
Dim image As Any __Ptr
image = __ImageCreate( 64, 64, __RGB(0, 128, 0) )
bload "tmppic.bmp", image
'' put the image on the screen
put (0,0),image,pset
put (100,0),image,pset
put (200,100),image,pset
put (300,300),image,pset
__imagedestroy( image )
end sub
screen 12, 32
MakeAndSaveImage
print "image saved - press key to continue"
sleep
cls
LoadAndShowImage
sleep