sample\hgimg4\test9.hsp » Plain Format
#include "hgimg4.as" title "HGIMG4 Test" gpreset setcls CLSMODE_SOLID, $404040 ;setreq SYSREQ_LOGWRITE,1 ; 終了時にログを出力 setcolor GPOBJ_LIGHT, 1,1,1 ; ライトカラーを設定 setdir GPOBJ_LIGHT, 0.5,0.5,0.5 ; アンビエントカラーを設定 gpload id_model,"res/duck.gpb" ; モデル読み込み setang id_mode, 0, 3.141592 ; モデルの回転を設定 gpfloor id_floor, 8,8, $00ffff ; 床ノードを追加 setpos GPOBJ_CAMERA, 0,2,5 ; カメラ位置を設定 repeat stick key,15 if key&128 : end redraw 0 ; 描画開始 ; カーソルキーでカメラ位置を動かす if key&1 : addpos GPOBJ_CAMERA, -0.2, 0 if key&4 : addpos GPOBJ_CAMERA, 0.2, 0 if key&8 : addpos GPOBJ_CAMERA, 0, 0 , 0.2 if key&2 : addpos GPOBJ_CAMERA, 0, 0 , -0.2 gplookat GPOBJ_CAMERA, 0,0.3,0 ; カメラから指定した座標を見る addang id_model,0,0.02 ; ノード回転 gpdraw ; シーンの描画 color 255,255,255 pos 8,8:mes "HGIMG4 sample" redraw 1 ; 描画終了 await 1000/60 ; 待ち時間 loop