いちおー、サンプルをひとつ(ちょと長い)
#include "hgimg3.as"
x=64:y=64:color 0,0,0
hgini
screen 2,256,256:cls 0 ;テクスチャ用のバッファを用意。わかりやすくするため、screenを使用
settex 256,256,0,-1 ;新規テクスチャを作成 (四番目のパラメータが-1になっている事に注目)
TEXTURE=stat ;
gsel 0
;板モデルを作成し、先ほど作ったテクスチャを割り当てる
;30,30はモデルの大きさを表し、
;0,0,255,255は「(0,0)〜(255,255)の領域をテクスチャとして貼り付けますよ」ということをあらわす
addplate mdlPLATE,0,30,30,0,0,255,255,TEXTURE
regobj PLATE,mdlPLATE
repeat
gosub *DrawLine
gosub *TextureUpdate
hgdraw
hgsync 30
loop
*DrawLine
;テクスチャ用のバッファに、カーソルキーで線を引いてみよう
stick k,1+2+4+8
if k=1:x--
if k=4:x++
if k=2:y--
if k=8:y++
gsel 2
pset x,y
gsel 0
return
*TextureUpdate
;テクスチャ更新
gsel 2 ;テクスチャが描かれているバッファを選択し(重要)、
settex 256,256,0,TEXTURE ;テクスチャを更新
gsel 0
return