@音に合わせてﾗｽﾀｰ kerokero9696
--track0:Buf番号,1,4096,20,1
--track1:Buf補正,1,4096,25,0.01
--track2:高/横,0,4096,100,1
--track3:周期,-40,40,1,0.01
--check0:横幅⇔高さ,1
--dialog:Buf値上限/chk,chk1=0;Buf値上限,bmax=200.00;Buf値下限/chk,chk2=0;Buf値下限,bmin=40.00;音分割数,div=40;Color/col,col=0xffffff;縦ラスター/chk,chk3=0;ランダム振幅/chk,chk4=0;Guid[0-1],guid=0;
------------------------------------set
t0=math.floor(obj.track0)
if(t0>=div)then t0=div end
t1=obj.track1
t2=math.floor(obj.track2)
t3=obj.track3
---------------------------------------
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
------------------------------------script
n1="横幅"
n2="高さ"
if(obj.check0)then
 v1=buf[t0]/t1
 if(chk1==1)then
  if(v1>=bmax)then
   v1=bmax
  end
 end
 if(chk2==1)then
  if(v1<=bmin)then
   v1=bmin
  end
 end
 v2=t2
else
 v1=t2
 v2=buf[t0]/t1
 if(chk1==1)then
  if(v2>=bmax)then
   v2=bmax
  end
 end
 if(chk2==1)then
  if(v2<=bmin)then
   v2=bmin
  end
 end
end
n3="周期"
v3=t3
n4="縦ラスター"
if(chk3==0)then
 v4=0
else
 v4=1
end
n5="ランダム振幅"
if(chk4==0)then
 v5=0
else
 v5=1
end

obj.effect("ラスター",n1,v1,n2,v2,n3,v3,n4,v4,n5,v5)
------------------------------------
if(guid==1)then
obj.effect()
obj.draw()

if(obj.check0)then
 info="横幅:"..math.floor(v1)
else
 info="高さ:"..math.floor(v2)
end
obj.setfont("しねきゃぷしょん",24,3,0x000000,0xffffff)
obj.load("text",info)
obj.draw()

 w=obj.screen_w
 h=obj.screen_h
 rl=t0
 ln=w/320

 obj.setfont("ms gothic",w/64,0,col)
 for i=0,n-1 do
  obj.load("text",i+1)
  x=-w/2+w/n*i
  y=h/2-buf[i+1]/t1
  obj.draw(x,y,0.5)
 end

 obj.load("figure","円",col,w/32,ln)
 x=-w/2+w/n*(rl-1)
 y=h/2-buf[t0]/t1
 obj.draw(x,y,0.5)
end


@音に合わせて色ずれ kerokero9696
--track0:Buf番号,1,4096,20,1
--track1:Buf補正,1,4096,75,0.01
--track2:強/幅,0,4096,100,1
--track3:角度,-360,360,0,0.01
--check0:ずれ幅⇔強さ,1
--dialog:Buf値上限/chk,chk1=0;Buf値上限,bmax=20.00;Buf値下限/chk,chk2=0;Buf値下限,bmin=1.00;音分割数,div=40;Color/col,col=0xffffff;色ずれ種類[0-5],v4=0;Guid/chk,chk3=1;
------------------------------------set
t0=math.floor(obj.track0)
if(t0>=div)then t0=div end
t1=obj.track1
t2=math.floor(obj.track2)
t3=obj.track3
---------------------------------------
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
---------------------------------------script
n1="ずれ幅"
n2="強さ"
if(obj.check0)then
 v1=buf[t0]/t1
 if(chk1==1)then
  if(v1>=bmax)then
   v1=bmax
  end
 end
 if(chk2==1)then
  if(v1<=bmin)then
   v1=bmin
  end
 end
 v2=t2
else
 v1=t2
 v2=buf[t0]/t1
 if(chk1==1)then
  if(v2>=bmax)then
   v2=bmax
  end
 end
 if(chk2==1)then
  if(v2<=bmin)then
   v2=bmin
  end
 end
end
n3="角度"
v3=t3
n4="type"

obj.effect("色ずれ",n1,v1,n2,v2,n3,v3,n4,v4)
------------------------------------
if(chk3==1)then
obj.effect()
obj.draw()

if(obj.check0)then
 info="ずれ幅:"..math.floor(v1)
else
 info="強さ:"..math.floor(v2)
end
obj.setfont("しねきゃぷしょん",24,3,0x000000,0xffffff)
obj.load("text",info)
obj.draw()

 w=obj.screen_w
 h=obj.screen_h
 rl=t0
 ln=w/320

 obj.setfont("ms gothic",w/64,0,col)
 for i=0,n-1 do
  obj.load("text",i+1)
  x=-w/2+w/n*i
  y=h/2-buf[i+1]/t1
  obj.draw(x,y,0.5)
 end

 obj.load("figure","円",col,w/32,ln)
 x=-w/2+w/n*(rl-1)
 y=h/2-buf[t0]/t1
 obj.draw(x,y,0.5)
end


@音に合わせて波紋 kerokero9696
--track0:Buf番号,1,4096,20,1
--track1:Buf補正,1,4096,75,0.01
--track2:高/幅,-100,100,15,0.1
--track3:速度,-1000,1000,150,0.1
--check0:幅⇔高さ,1
--dialog:Buf値上限/chk,chk1=0;Buf値上限,bmax=100.00;Buf値下限/chk,chk2=0;Buf値下限,bmin=10.00;音分割数,div=40;Color/col,col=0xffffff;中心Ｘ,v4=0;中心Y,v5=0;波紋数,v6=0;波紋間隔,v7=0;増幅減衰回数,v8=0;Guid/chk,chk3=1;領域拡張係数,scoef=1.00;
------------------------------------set
t0=math.floor(obj.track0)
if(t0>=div)then t0=div end
t1=obj.track1
t2=obj.track2
t3=obj.track3
---------------------------------------
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
---------------------------------------script
n1="高さ"
n2="幅"
if(obj.check0)then
 v1=buf[t0]/t1
 if(chk1==1)then
  if(v1>=bmax)then
   v1=bmax
  end
 end
 if(chk2==1)then
  if(v1<=bmin)then
   v1=bmin
  end
 end
 v2=t2
else
 v1=t2
 v2=buf[t0]/t1
 if(chk1==1)then
  if(v2>=bmax)then
   v2=bmax
  end
 end
 if(chk2==1)then
  if(v2<=bmin)then
   v2=bmin
  end
 end
end
n3="速度"
v3=t3
n4="中心X"
n5="中心Y"
n6="num"
n7="interval"
n8="add"

if(scoef>0)then
 ssww=obj.w*scoef
 sshh=obj.h*scoef
 obj.effect("領域拡張","上",sshh,"下",sshh,"左",ssww,"右",ssww)
end
obj.effect("波紋",n1,v1,n2,v2,n3,v3,n4,v4,n5,v5,n6,v6,n7,v7,n8,v8)
------------------------------------
if(chk3==1)then
obj.effect()
obj.draw()

if(obj.check0)then
 info="幅:"..math.floor(v1)
else
 info="高さ:"..math.floor(v2)
end
obj.setfont("しねきゃぷしょん",24,3,0x000000,0xffffff)
obj.load("text",info)
obj.draw()

 w=obj.screen_w
 h=obj.screen_h
 rl=t0
 ln=w/320

 obj.setfont("ms gothic",w/64,0,col)
 for i=0,n-1 do
  obj.load("text",i+1)
  x=-w/2+w/n*i
  y=h/2-buf[i+1]/t1
  obj.draw(x,y,0.5)
 end

 obj.load("figure","円",col,w/32,ln)
 x=-w/2+w/n*(rl-1)
 y=h/2-buf[t0]/t1
 obj.draw(x,y,0.5)
end
--[[http://madeinpc.blog50.fc2.com/]]--