sample\hgimg4\cnvaxis.hsp » Plain Format
#include "hgimg4.as"
title "HGIMG4 Test"
gpreset
setcls CLSMODE_SOLID, 0 ; 画面クリア設定
setpos GPOBJ_CAMERA, 0,0,5 ; カメラ位置を設定
gptexmat id_texmat, "res/qbox.png" ; テクスチャマテリアル作成
gpbox id_model, 1, -1, id_texmat ; 箱ノードを追加
repeat
stick key,15
if key&128 : end
gosub *drag_cam
redraw 0 ; 描画開始
addang id_model,0,0.01,0.02 ; ノード回転
gpdraw ; シーンの描画
gpcnvaxis dx,dy,dz, 0,0,0, 0
color 255,255,255
pos dx,dy:mes "Z="+dz
redraw 1 ; 描画終了
await 1000/60 ; 待ち時間
loop
*drag_cam
; タッチでカメラ位置を動かす
if dragmd { ; ドラッグ中
getkey a,1
if a=1 {
dx=-0.01*(mousex-dragx)+cx
dy=0.01*(mousey-dragy)+cy
setpos GPOBJ_CAMERA, dx,dy,cz
} else {
dragmd=0
}
} else { ; ドラッグなし
getkey a,1
if a {
dragx=mousex:dragy=mousey
getpos GPOBJ_CAMERA, cx,cy,cz
dragmd=1
}
}
;gplookat GPOBJ_CAMERA, 0,0,0 ; カメラから指定した座標を見る
return