line+avi sample for HSP3 by gocha (tinyavi.as sample)

;-----------------------------------------------------------------------------
; line+avi sample for HSP3 by gocha
;-----------------------------------------------------------------------------

#include "tinyavi.as"

#runtime "hsp3c"
#packopt name "lineavi"

onexit goto *p_exit

fps = 60
gosub *resetdraw
title "Close to stop!"

;---------------------------------------
; >> メイン
;---------------------------------------
*main
	redraw 0
	gosub *dodraw
	redraw 1

	; フレーム処理
	tvw_add: frame++
	await dt
goto *main

;---------------------------------------
; >> 線を描写
;---------------------------------------
*dodraw
	color rnd(256), rnd(256), rnd(256)
	line rnd(wx), rnd(wy), wx/2, wy/2
return

;---------------------------------------
; >> 初期化処理
;---------------------------------------
*resetdraw
	randomize

	frame = 0
	dt = 1000/fps

	wx = 256: wy = 224
	screen 0, wx, wy
	gsel 0, 1 : cls
	title "line+avi sample"

	tvw_start "line.avi", fps
	tvw_add
return

;---------------------------------------
; >> 終了処理
;---------------------------------------
*p_exit
	tvw_end
	end