' load RGB png image with FBImage
' full screen, window mode

' fbgfxモードを使う
#Include "fbgfx.bi"
Using fb

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

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

' デスクトップ解像度を取得
Dim As Integer scrw, scrh
ScreenInfo(scrw, scrh)

' ウインドウサイズと色深度(bpp)を指定。ウインドウの境界線(フレーム)は無し
screenres scrw, scrh, 32, , GFX_NO_FRAME

' 画像読み込み
var img = LoadRGBAFile("image_png.png")

' 画面クリア
color RGB(255, 255, 255), RGB(40, 80, 160)
cls

' マウスカーソル非表示
SetMouse ,, 0

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

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

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

' マウスカーソル表示
SetMouse ,, 1