003 変形して描画する(G@CHRCOPY)

読み込んだビットマップ画像を横方向に引き伸ばして描画させてみます。
下のビットマップ(縦横256ドット)を読み込んで


下のようにウィンドウ画面に描画させます。


もっとも簡単なプログラムは以下のようになります。

サンプルプログラム「2d 003」

CH = G@SETUP(640, 480, 16, 1)
B1 = G@CHRLOAD("DATA1.BMP")
LOOP
 G@CHRCLEAR(CH)
 G@CHRRECT(CH, 100, 200, 555, 455)
 G@CHRCOPY(B1, CH)
 G@FLIP()
ENDLOOP

赤字のG@CHRRECTで描画する位置を指定します。コピー先の矩形に合わせてコピー元の画像を変形して描画します。