sample\d3m\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