i have a problem with IMAGECREATE() and GET commands
Code: Select all
BIT = 16
ScreenRes 1024, 768, BIT, 2
Dim As Any Ptr imageCur = ImageCreate(50, 50, 0, BIT)
Get (100, 100)-(200, 200), imageCur
Put (1, 1), ImageCur
Best Regards
Code: Select all
BIT = 16
ScreenRes 1024, 768, BIT, 2
Dim As Any Ptr imageCur = ImageCreate(50, 50, 0, BIT)
Get (100, 100)-(200, 200), imageCur
Put (1, 1), ImageCur
Code: Select all
VAR BIT_ = 16
SCREENRES 1024, 768, BIT_, 2
VAR imageCur = IMAGECREATE(50, 50, 0, BIT_)
IF imageCur THEN
GET (100, 100)-(200, 200), imageCur
PUT (1, 1), ImageCur
VAR w = 0, h = 0, bpp = 0, pitch = 0, pixdata = CAST(ANY PTR, 0), size = 0
VAR i = IMAGEINFO(imagecur, w, h, bpp, pitch, pixdata, size)
IMAGEDESTROY(imagecur)
SCREEN 0
?"ImageInfo: "; i
?" width: "; w
?" heigth: "; h
?" bpp: "; bpp
?" pitch: "; pitch
?" pixdata: "; pixdata
?" size: "; size
SLEEP
ELSE
?"ImageCreate failed"
END IF
Code: Select all
VAR BIT_ = 16
SCREENRES 1024, 768, BIT_, 2
VAR imageCur = IMAGECREATE(50, 50, 0, BIT_)
IF imageCur THEN
GET (100, 100)-(149, 149), imageCur
PUT (1, 1), ImageCur
VAR w = 0, h = 0, bpp = 0, pitch = 0, pixdata = CAST(ANY PTR, 0), size = 0
VAR i = IMAGEINFO(imagecur, w, h, bpp, pitch, pixdata, size)
IMAGEDESTROY(imagecur)
SCREEN 0
?"ImageInfo: "; i
?" width: "; w
?" heigth: "; h
?" bpp: "; bpp
?" pitch: "; pitch
?" pixdata: "; pixdata
?" size: "; size
SLEEP
ELSE
?"ImageCreate failed"
END IF
Code: Select all
ImageInfo: 0
width: 50
heigth: 50
bpp: 2
pitch: 112
pixdata: 17072256
size: 5632
Code: Select all
imageCur = IMAGECREATE(300, 300, 0, 8)
Get (1, 1)-(200, 200), imageCur
PUT (500, 500), ImageCur
w = 0 : h = 0 : bpp = 0 : pitch = 0 : pixdata = CAST(ANY PTR, 0) : size = 0
i = IMAGEINFO(imagecur, w, h, bpp, pitch, pixdata, size)
IMAGEDESTROY(imagecur)
locate 5,
?"ImageInfo: "; i
?" width: "; w
?" heigth: "; h
?" bpp: "; bpp
?" pitch: "; pitch
?" pixdata: "; pixdata
?" size: "; size
Code: Select all
PUT (500, 500), ImageCur, pset