sample\hgimg4\light_test1.hsp » Plain Format
#include "hgimg4.as" title "HGIMG4 Test" ; ポイントライトテスト ; マウス/タッチドラッグでカメラを動かすことができます ; randomize gpreset gpresetlight 1,1 ; ポイントライトを1個追加する setcls CLSMODE_SOLID, $404040 ; 背景色 setcolor GPOBJ_LIGHT, 0.3,0.3,0.3 ; 標準ライトカラーを設定 setdir GPOBJ_LIGHT, 0.2,0.2,0.2 ; 標準アンビエントカラーを設定 ; ポイントライトを設定します gpnull id_light ; ヌルノードを生成する gplight id_light, GPOBJ_LGTOPT_POINT,6 ; ポイントライトとして設定する setcolor id_light, 0,1,0 ; ライトカラーを設定 setpos id_light, 0, 0.5, 0 ; ライトの座標を設定 gpuselight id_light ; ポイントライトをカレントに登録する setpos GPOBJ_CAMERA, 0,2,6 ; カメラ位置を設定 gplookat GPOBJ_CAMERA, 0,0.3,0 ; カメラから指定した座標を見る ; 3Dモデルを生成 ; (生成される3Dモデルはカレントライトの影響を受けます) gpbox id_model, 1 ; 箱ノードを生成する setpos id_model, -1,0.5,0 gpbox id_model2, 1 ; 箱ノードを生成する setpos id_model2, 1,0.5,0 gpfloor id_floor, 40,40, $808080 ; 床ノードを追加 *main stick key,15+256 if key&128 : end redraw 0 ; 描画開始 addang id_model,0,0.02 ; ノード回転 gpdraw ; シーンの描画 color 255,255,255 pos 8,8:mes "HGIMG4 sample" redraw 1 ; 描画終了 await 1000/60 ; 待ち時間 goto *main