sample_15_d3wincx.hsp

sample\d3module\sample_15_d3wincx.hsp » Plain Format

;============================================================
;                                                 2005/--/--
;	d3module  sample script
;	for HSP 3.0
;
;============================================================
;
; 変数 d3wincx, d3wincy を変更すると、スクリーン上の描画位置を
; ずらすことができます。
;
; ツール系のソフトにマッチするような、エンボスっぽい線で
; 3D オブジェクトを表示することも可能です。
;
;============================================================

#include "d3m.hsp"

	title "S.Programs d3module sample"


*mainloop
	time = d3timer()

	redraw 0

	syscolor 15
	boxf

	repeat 2

		; カメラ座標を回転させる
		d3setcam cos(0.001 * time) * 1000, sin(0.001 * time) * 1414, cos(0.001 * time) * 1000

		; 描画位置をずらす
		d3wincx -= cnt
		d3wincy -= cnt

		; 色設定
		if cnt = 0 : syscolor 20 ; 明るい色
		if cnt = 1 : syscolor 16 ; 暗い色


		; オブジェクト描画
		d3box -500, -100, -100,  500, 100, 100
		d3box -100, -500, -100,  100, 500, 100
		d3box -100, -100, -500,  100, 100, 500
	loop


	redraw
	await 10

	goto *mainloop