sample\d3m\sample_16_d3setlocal.hsp » Plain Format
;============================================================
; 2005/--/--
; d3module sample script
; for HSP 3.0
;
;============================================================
;
; d3setlocal 命令で、ローカル座標系を設定することが出来ます。
;
; この命令を使用することで、d3setcam だけでは実現できなかった
; さまざまな座標変換設定を行うことができます。
;
; ローカル座標系は、d3setcam でカメラ位置を初期化した後に何度
; でも変更可能で、複数の飛行物体が飛び回る画面の描画などが簡単
; に行えるようになります。
;
;============================================================
#include "d3m.hsp"
title "S.Programs d3module sample"
*mainloop
time = d3timer()
title "fps = " + d3getfps()
redraw 0
color 16, 16, 12 : boxf
; カメラ座標を回転させる
d3setcam cos(0.0005 * time) * 2000, sin(0.0005 * time) * 1500, cos(0.0007 * time) * 1000
; グローバル座標系で座標軸を描画
color 128, 128, 96
d3arrow 1000, 0, 0, -1000, 0, 0
d3arrow 0, 1000, 0, 0, -1000, 0
d3arrow 0, 0, 1000, 0, 0, -1000
d3mes "X", 1100, 0, 0
d3mes "Y", 0, 1100, 0
d3mes "Z", 0, 0, 1100
; ボックス描画
POLYS = 7 ; 分割数
dh = 6.2831853 / POLYS
r = 900
repeat POLYS
p = dh * cnt
f = 0.002 * time - p
;------------------------------------------------------------
; ローカル座標系設定
d3setlocal cos(p)*r,sin(p)*r,0, cos(f),sin(f),0, -sin(f),cos(f),0, 0,0,1
; └┬────────┘└┬───────────────────┘
; │ └ 3x3 座標変換マトリクス
; └ 原点からの移動位置
;------------------------------------------------------------
; 現在のローカル座標系で座標軸を描画
color 128, 128, 96
d3arrow 300, 0, 0, -300, 0, 0
d3arrow 0, 300, 0, 0, -300, 0
d3arrow 0, 0, 300, 0, 0, -300
d3mes "X", 350, 0, 0
d3mes "Y", 0, 350, 0
d3mes "Z", 0, 0, 350
; ボックス描画
color 255, 255, 192
d3box 300, 400, 100, -300, 200, -100
loop
; 球体オブジェクト描画
repeat 2
; ローカル座標 平行移動量 + 3x3 変形マトリクス 設定
if cnt = 0 {
f = 0.002 * time
; ローカル座標系設定
d3setlocal 0,0,500, sin(f),0,cos(f), 0,1,0, -cos(f),0,sin(f)
}
if cnt = 1 {
f = 0.002 * time + 1.6
; ローカル座標系設定
d3setlocal ,,-500, sin(f),0,cos(f), 0,1,0, cos(f),0,-sin(f)
}
; 現在のローカル座標系で座標軸を描画
color 128, 128, 96
d3arrow 400, 0, 0, -400, 0, 0
d3arrow 0, 400, 0, 0, -400, 0
d3arrow 0, 0, 400, 0, 0, -400
d3mes "X", 500, 0, 0
d3mes "Y", 0, 500, 0
d3mes "Z", 0, 0, 500
; 球体オブジェクト描画 (sample_08 とほぼ同じもの)
color 255, 255, 192
POLYS = 12 ; 分割数
dh = 6.2831853 / POLYS
r = 500
; oOOo
repeat POLYS / 2 - 1, 1
ph = dh * cnt
d3initlineto
repeat POLYS + 1
th = dh * cnt
x = 0
y = 0
z = r
d3rotate y, z, y, z, ph
d3rotate x, y, x, y, th
d3lineto x, y, z
loop
loop
; (())
repeat POLYS
th = dh * cnt
d3initlineto
repeat POLYS / 2 + 1
ph = dh * cnt
x = 0
y = 0
z = r
d3rotate y, z, y, z, ph
d3rotate x, y, x, y, th
d3lineto x, y, z
loop
loop
loop
redraw
await
goto *mainloop