sample\d3module\xsample_gcube.hsp » Plain Format
;============================================================ ; 2006/--/-- title "S.Programs Glass-Cube" ; version 1.0/sample_ver ; http://sprocket.babyblue.jp/ ;============================================================ /* ・Glass-Cube ガラスのキューブがバウンドしながら転がっていく様子を描画します。 単一のオブジェクトをローカル座標変換して、回転させたり、鏡像にしたり、影にしたりして描画しています。 ↑/↓ : キューブの回転速度の増減 [Enter] : フルスクリーン切り替え [Esc] : 終了 */ #include "d3m.hsp" ;============================================================ ; main ;============================================================ ;------------------------------------------------------------ ; init ve = 200.0 po = 0.0 t_start = d3timer() ;------------------------------------------------------------ *mainloop ;------------------------------------------------------------ ; full-screen ctrlr (toggle : Enter) stick ky_inp, 15 if ky_inp & 128 : end if ky_inp & 32 { mode_fsc ^= 1 chgdisp mode_fsc ; (default : 640, 480) if mode_fsc { bgscr 2 gsel 2, 2 mouse -1 } else { gsel 2, -1 gsel mouse } } ;------------------------------------------------------------ ; timers sec = 0.001 * d3timer() dt = sec - ot ot = sec ; a-v-p ve += dt * 100 * ((ky_inp=2)-(ky_inp=8)) po += dt * ve ; uso バウンド h = absf(sin(sec)) ; starting-efct divisor div = (d3timer() - t_start + 1000) ;------------------------------------------------------------ ; drw init redraw 0 color : boxf ; gmode 6, , , 128 : gcopy 0, , , ginfo_winx, ginfo_winy hsvcolor sec, 128, 224 - 224000 / div ;------------------------------------------------------------ ; setcam r = 3000000 / div + 700 d3setcam cos(sec/5)*r, sin(sec/5)*r, sin(sec/6)*300 + r/2, 0,0,h*140 ;------------------------------------------------------------ ; global repeat 16 x = ((cnt * 64 + po) & 1023) - 512 repeat 16 y = cnt * 64 - 512 r = h * 150 + 400 a = (1.0 - 0.4 * h) * ( (r-sqrt(x*x + y*y)) / r) * (rnd(160) + 160) if a > 0 { r = 28 x0 = x-r, x+r, x+r, x-r y0 = y-r, y-r, y+r, y+r z0 = 0, 0, 0, 0 gmode 5, , , a d3square x0, y0, z0 } loop loop ;------------------------------------------------------------ ; local object repeat 3 randomize 0 if cnt = 0 { ; shadow alp = sqrt(h) * 0.1 gm = 6 rr = h * 0.5 + 1 zz = -0.05 } if cnt = 1 { ; reflex alp = 0.3 - h * 0.2 gm = 5 rr = 1 zz = -0.9 } if cnt = 2 { ; real alp = 1 zz = 1 } r0 = 64 : r1 = 58 : r2 = 4 ; set local th = -po / 170 d3setlocal 0,0,(h*300 + 70)*zz, sin(th)*rr,0,cos(th)*rr, 0,rr,0, cos(th)*zz,0,-sin(th)*zz ; glass-cube repeat 2 z = r0 * (cnt*2-1), z, z, z repeat 4 s1 = (cnt\2*2-1) s2 = (cnt/2*2-1) x = r2*s1, r2*s1, r1*s1, r1*s1 y = r2*s2, r1*s2, r1*s2, r2*s2 gmode gm, , , alp * (rnd(160) + 96) d3square x, y, z d3square z, x, y d3square y, z, x loop loop loop ;------------------------------------------------------------ redraw await ;10 goto *mainloop