' load png image sample with FBImage. use asm line
'
' This program is not work. APPCRASH. 
' このプログラムは動作しない。exeを実行するとクラッシュする。
'
' Windows10 x64 22H2 + FreeBASIC 1.10.1 + FBImage
' Last updated: <2024/02/04 01:36:02 +0900>

' 画像読み込み用ライブラリ FBImage を使う
#include once "FBImage.bi"

#define IMAGEDATA_SIZE 50344
' #define IMAGEDATA_SIZE 297

' 画像バイナリをアセンブラの記述で内包する
Asm

.data
.global imgdata
imgdata:
.incbin "image_png.png"

End Asm

' カレントディレクトリを exeファイルのある場所にする
chdir exepath()

' デスクトップ解像度を指定
Dim As Integer scrw = 512
Dim As Integer scrh = 288

' ウインドウサイズと色深度(bpp)を指定
screenres scrw, scrh, 32

' 画像バイナリのアドレスを取得している？
Dim As Any Ptr image

Asm

push OFFSET imgdata
pop  [image]

End Asm

' メモリ上にある画像データを FBImage で読み込む。ポインタとバイト数を渡す
var img = LoadRGBAMemory(image, IMAGEDATA_SIZE)

' 画像を描画。RGB=(255, 0, 255) のピクセルは透明色として扱う
Put (16, 16), img, TRANS

' キー入力があるまで待ち続ける
sleep

' 画像を使い終わったので破棄
ImageDestroy img