@背景サイン波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


@連結線
--track0:個数,3,1024,25,1
--track1:移動X%,0,1000,25,1
--track2:移動Y%,0,1000,25,1
--track3:Frame,0,9999,0,1
--check0:連結点有無,0
--dialog:ぼかし範囲,local eb=1;図形選択/fig,fig="四角形";速度,local spd0=100;太さ追加,local ph=1;X初期位置係数,local wc=0.5;Y初期位置係数,local hc=0.5;SEED,sd=100;
-----------------------------------set
local t0=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
local ogvzm=obj.getvalue("zoom")/100
local fs=sh/24/ogvzm
obj.setfont("",fs)
sd = sd + t3
-----------------------------------set2
--figure
local num = t0
local fgs0 = {}
local fgs1 = {}
local col = {}
local px = {}
local py = {}
local pz = {}
local zm = {}
local al = {}

for i=1,num do
	mx,my = 0,0
	idx = 0
	repeat
		sd0 = sd + i + idx
		spd = obj.rand(spd0,spd0*100,sd0+6,i)*0.01 *(-1)^i
		ang = obj.rand(0,360,sd0+5,i)
		r = math.rad(obj.time * spd - ang) * obj.rand(1,10,sd0,i)*0.1
		mx = mx + obj.rand(-sw,sw,sd0+1,i)*math.cos(r)*0.1 + obj.rand(-sh,sh,sd0+3,i)*math.sin(r)*0.1 
		my = my + obj.rand(-sw,sw,sd0+2,i)*math.cos(r)*0.1 + obj.rand(-sh,sh,sd0+4,i)*math.sin(r)*0.1
		idx = idx +1
	until idx > obj.rand(25,100,sd,i)


	fgs0[i] = obj.rand(sw*0.1,sw,sd+1,i)*0.05
	fgs1[i] = 2
	h,s,v = ((i+t3)/num*360)%360,obj.rand(0,100,sd+3,i),obj.rand(75,100,sd+3,i)
	col[i] = HSV(h,s,v)
	px[i] = obj.rand(-sw,sw,sd+4,i) * wc		+ mx * t1*0.01
	py[i] = obj.rand(-sh,sh,sd+5,i) * hc		+ my * t2*0.01
	pz[i] = 0
	zm[i] = obj.rand(25,100,sd+7,i)*0.01
	al[i] = obj.rand(50,85,sd+8,i)*0.01
end

obj.setoption("drawtarget","tempbuffer",sw,sh)
obj.setoption("blend","alpha_add")
if(obj.check0)then
	for i=1,num do
		obj.load("figure","円",col[i],fgs0[i],fgs1[i])
		dx = px[i]
		dy = py[i]
		dz = pz[i]
		dzm = zm[i]
		dal = al[i]
		obj.draw(dx,dy,dz,dzm,dal)
	end
end

for i=1,num do
	fgs = sh * 0.5
	obj.load("figure",fig,col[i],fgs)
	if(i ~= num)then
		r = math.atan2((py[i+1]-py[i]),(px[i+1]-px[i]))
		wfgs = math.sqrt((px[i+1]-px[i])^2+(py[i+1]-py[i])^2)
	else
		r = math.atan2((py[1]-py[i]),(px[1]-px[i]))
		wfgs = math.sqrt((px[1]-px[i])^2+(py[1]-py[i])^2)
	end
	cs = math.cos(r)
	sn = math.sin(r)

	u0,v0 = 0,0
	u1,v1 = fgs,v0
	u2,v2 = u1,fgs
	u3,v3 = u0,v2
	dal = al[i]

	if(ph>0)then
		hfgs = math.ceil(sw *0.002) + obj.rand(1,ph,sd,i)
	else
		hfgs = math.ceil(sw *0.002)
	end
	x0,y0,z0 = 0,0,0
	x1,y1,z1 = wfgs,y0,z0
	x2,y2,z2 = x1,hfgs,z0
	x3,y3,z3 = x0,y2,z0

	xx0 = x0 * cs - y0 * sn 	+ px[i]
	yy0 = x0 * sn + y0 * cs		+ py[i]
	xx1 = x1 * cs - y1 * sn 	+ px[i]
	yy1 = x1 * sn + y1 * cs		+ py[i]
	xx2 = x2 * cs - y2 * sn 	+ px[i]
	yy2 = x2 * sn + y2 * cs		+ py[i]
	xx3 = x3 * cs - y3 * sn 	+ px[i]
	yy3 = x3 * sn + y3 * cs		+ py[i]
	obj.drawpoly(xx0,yy0,z0,xx1,yy1,z1,xx2,yy2,z2,xx3,yy3,z3,u0,v0,u1,v1,u2,v2,u3,v3,dal)
end
obj.load("tempbuffer")
if(eb > 0)then
	obj.effect("境界ぼかし","範囲",eb,"透明度の境界をぼかす",1)
end


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