xsample_verge.hsp

sample\d3m\xsample_verge.hsp » Plain Format

;============================================================
;                                                 2006/--/--
	title "S.Programs 花火窓 Verge"
;	version 1.0/sample_ver
;                               http://sprocket.babyblue.jp/
;============================================================
/*
・花火窓 Verge

空中移動する視点から打ち上げ花火を見るスクリプトです。
水上花火をさまざまな角度から眺めることができます。

[Enter] : フルスクリーン切り替え
[Esc] : 終了

*/

#include "d3m.hsp"

;============================================================
;	main
;============================================================

; 参考数値 : 10 号玉
; h = 300m
; d = 300m

#const	INSTMAX	5	; インスタンス数

#const	PTCS_SH	40	; shooter 粒子数
#const	PTCS_FR	200	; fire, bgstar 粒子数

#const	MODELS	6		; モデル数
#const	MDLSFT	PTCS_FR / 2	; モデルシフタ


;------------------------------------------------------------
; init

	;------------------------------------------------------------
	; mkparticle

	arr = 6, 2, 133, 60 ; *over-frame 133%

	d3mkparticle 0,  224, 224, 224,  arr	; 0 white
	d3mkparticle 1,  128, 128, 255,  arr	; 1 blue
	d3mkparticle 2,  255, 255, 128,  arr	; 2 yellow
	d3mkparticle 3,  128, 192, 255,  arr	; 3 skyblue


	;------------------------------------------------------------
	; mkinstance

	dim s_iph, 16 ; >= INSTMAX
	memset s_iph, 1, 64


	randomize


;------------------------------------------------------------
*mainloop


	;------------------------------------------------------------
	; full-screen ctrlr (toggle : Enter)

	stick ky_inp
	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
		}
	}


	;------------------------------------------------------------
	; setup

	redraw 0
	hsvcolor 112, 128, 32 + lup : boxf

	lup = 0
	time = d3timer()


	;------------------------------------------------------------
	; setcam

	f = 0.00005 * time
	r = sin(f)*300 + 400	; r-rng : 100 -- 700
	z = 70000.0/r - 90	; z-rng : 600 -- 0
	d3setcam cos(f)*r, sin(f)*r, z,  0, 0, z*2/3


	;------------------------------------------------------------
	; play sequence

	repeat INSTMAX

		; duplicate
		dup	iph,	s_iph(cnt)
		dup	it0,	s_it0(cnt)
		dup	it1,	s_it1(cnt)
		dup	icx,	s_icx(cnt)
		dup	icz,	s_icz(cnt)
		dup	imod,	s_imod(cnt)

		; phase change (phase++)
		if it1 <= time {
			iph++			; phase inc
			it0	= time		; t_start
			it1	= time + 5000	; t_end (default)

			lup	|= (iph = 2) * 40	; thunder (if phase 1 -> 2)
		}

		; re-setup (phase 3 -> 0)
		if iph >= 3 {
			iph	= 0			; reset phase
			imod	= rnd(MODELS)		; model no.
			icx	= rnd(400) - 200	; x-pos
			icz	= rnd(100) + 230	; height
			it1	= time + rnd(7000)	; sleep time
		}

		; draw (phase : 1-shoot, 2-exp)
		if iph {
			; setup
			ts	= 0.001 * (time - it0)

			; prms for *starptc
			ds_x	= icx
			ds_z	= ts*ts*-5	; ts*ts*5 = 落下項 (g = 10m/s2; z = (1/2)gt2)
			ds_r	= logf(ts + 0.9)
			ds_stg	= 1.0 - ts / 5

			; Phase 1 shoot
			if iph = 1 {
				ds_mode	= 2	; mode shoot
				ds_r	*= icz
				ds_stg	/= 2
				ds_cnt	= PTCS_SH

			; Phase 2 explosion
			} else {
				ds_z	+= icz
				ds_r	*= 90
				ds_cnt	= PTCS_FR
				ds_seed	= imod * MDLSFT
			}

			; draw
			gosub *starptc
		}
	loop


	;------------------------------------------------------------
	; stars

	; prms for *starptc
	ds_x	= 0
	ds_z	= 0
	ds_cnt	= PTCS_FR
	ds_r	= 720
	ds_stg	= 0.5

	gosub *starptc


	;------------------------------------------------------------
	redraw
	await ;10

	goto *mainloop



;------------------------------------------------------------
*starptc
	; pre-calc
	sqstg = sqrt(ds_stg)


	; generate vector / draw particles
	repeat ds_cnt, ds_seed

		; vector -> pos

		pid = cnt / PTCS_FR  + ds_mode
		f = cnt
		g = cnt * 1013

		; r
	;	z = 1.0
		z = 0.001 * (1000 - cnt\PTCS_FR*(pid=3))

		if ds_mode {	; vector : shooter

			z /= (cnt + 3)
			x = cos(f) / z / 1000
			y = sin(g) / z / 1000 * ds_r

		} else {	; vector : fire

			; pid
			; 0 : model O (default)	white
			; 1 : model O (default)	blue
			; 2 : model o (r = 0.5)	yellow
			; 3 : model - (f = 0)	skyblue

			; fire-shift
			z /= (pid = 2) + 1
			f *= (pid ! 3)

			x = cos(f) * cos(g) * z
			y = cos(f) * sin(g) * z * ds_r
			z *= sin(f)
		}

		x = x * ds_r + ds_x
		z = z * ds_r + ds_z

		z *= (z > 0) ; clip


		; draw

		gmode 5, , , sqstg * 256
		d3particle  pid, x, y, z, ds_stg * 4

		gmode 5, , , sqstg * 90
		d3particlem pid, ds_stg * 7 + 2

		gmode 5, , , sqstg * 60
		z = -0.9 * z - 4
		d3particle  pid, x, y, z, ds_stg * 10
	loop


	; set default
	ds_mode	= 0	; fire
	ds_seed	= 0


	return