@背景サイン波01
--track0:振幅,0,9999,360,1
--track1:本数,1,9999,12,1
--track2:高さ,0,9999,120,1
--track3:速度,-1000,1000,60,1
--check0:Random Vector,0
--dialog:線太さ,local t0=8;密度,local ik=2;線境界ぼかし,local ev=4;Color/col,col=0xff6060;SEED,sd=100;X補正,local ww=1.00;Y補正,local hh=1.00;
-----------------------------------set
local ang=math.floor(obj.track0)
local t1=math.floor(obj.track1)
local t2=math.floor(obj.track2)
local t3=math.floor(obj.track3)
local sw,sh=obj.screen_w,obj.screen_h
sw,sh=sw*ww,sh*hh
local ogvzm=obj.getvalue("zoom")/100
local fs=sh/24/ogvzm
obj.setfont("",fs)
-----------------------------------
if(t0 > 0)then
	obj.setoption("drawtarget","tempbuffer",sw,sh)
	obj.load("figure","円",col,t0)
	for j=1,t1 do
		dyy=obj.rand(-sh*100,sh*100,sd,j)/200
		ang0=obj.rand(ang/6,ang,sd,j)
		if(obj.check0)then
			vvv=(-1)^(obj.rand(0,100,sd,j))
		else
			vvv=1
		end
		spd=obj.rand(t3/6,t3,sd,j)*obj.time*vvv
		h=obj.rand(t2/4,t2,sd,j)
		alp=obj.rand(75,100,sd,j)/100
		for i=0,sw,ik do
			dx=i-sw/2
			dy=math.sin(math.rad(ang0*i/sw+spd))*h	+dyy
			obj.setoption("blend",1)
			obj.draw(dx,dy,0,1,alp)
		end
	end


	obj.load("tempbuffer")
	if(ev > 0)then
		obj.effect("境界ぼかし","範囲",ev,"透明度の境界をぼかす",1)
	end
end


@背景サイン波02
--track0:振幅,0,9999,360,1
--track1:本数,1,9999,12,1
--track2:高さ,0,9999,300,1
--track3:速度,-1000,1000,60,1
--check0:Random Vector,1
--dialog:線太さ,local t0=8;密度,local ik=2;線境界ぼかし,local ev=4;色相,local shikiso=360;彩度,local saido=100;明度,local meido=50;SEED,sd=100;X補正,local ww=1.00;Y補正,local hh=1.00;
-----------------------------------set
local ang=math.floor(obj.track0)
local t1=math.floor(obj.track1)
local t2=math.floor(obj.track2)
local t3=math.floor(obj.track3)
local sw,sh=obj.screen_w,obj.screen_h
sw,sh=sw*ww,sh*hh
local ogvzm=obj.getvalue("zoom")/100
local fs=sh/24/ogvzm
obj.setfont("",fs)
-----------------------------------
if(t0 > 0)then
	obj.setoption("drawtarget","tempbuffer",sw,sh)
	for j=1,t1 do
		dyy=obj.rand(-sh*100,sh*100,sd,j)/200
		ang0=obj.rand(ang/6,ang,sd,j)
		if(obj.check0)then
			vvv=(-1)^(obj.rand(0,100,sd,j))
		else
			vvv=1
		end
		spd=obj.rand(t3/6,t3,sd,j)*obj.time*vvv
		h=obj.rand(t2/4,t2,sd,j)
		alp=obj.rand(75,100,sd,j)/100
		for i=0,sw,ik do
			dx=i-sw/2
			dy=math.sin(math.rad(ang0*i/sw+spd))*h	+dyy


			col=HSV(shikiso*(j-1)/(t1-1),saido,meido)
			obj.load("figure","円",col,t0)
			obj.setoption("blend",1)
			obj.draw(dx,dy,0,1,alp)
		end
	end


	obj.load("tempbuffer")
	if(ev > 0)then
		obj.effect("境界ぼかし","範囲",ev,"透明度の境界をぼかす",1)
	end
end



--[[http://madeinpc.blog50.fc2.com/]]--