' load png image sample from bin2bas with FBImage
'
' bin2bas.exe で変換生成した .bas は小さいファイルサイズじゃないと使えない。
' ファイルサイズが大きいと、FreeBASICコンパイラがハングアップする。
' bin2bas.py で変換生成した .bas ならコンパイル時のファイルサイズ制限が若干緩和される。

' Windows10 x64 22H2 + FreeBASIC 1.10.1 + FBImage + bn2bas.py
' Last updated: <2024/02/03 20:49:44 +0900>

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

' ubytes配列の画像データバイナリ
#include "image_png.bas"

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

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

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

' メモリ上にある画像データを FBImage で読み込む。ポインタとバイト数を渡す
Dim As Long size = image_png_png_data_length
var img = LoadRGBAMemory(@(image_png_png_data(0)), size)

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

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

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