@΄ΘΩ·ή°Ήή°Όήi–ڐ·‚θj kerokero9696
--track0:’·‚³,1,800,15,1
--track1:ƒTƒCƒY,1,4096,25,1
--track2:–ڐ·‚θ,0,4096,50,0.01
--track3:–§“x/10,1,3600,25,1
--dialog:Figure/fig,fig="ŽlŠpŒ`";Color/col,col1=0xff0000;Color/col,col2=0x3b3b3b;}Œ`”δ—¦,as=0.90;
------------------------------------set
t0=math.floor(obj.track0)
fgs1=math.floor(obj.track1)
t2=obj.track2
ik=10/obj.track3

for i=0,t0-1,ik do
 dx=i*fgs1*as
 dy=0
 if(dx<t2)then
  col=col1
 else
  col=col2
 end
 
 obj.load("figure",fig,col,fgs1,fgs1)
 obj.aspect=as
 obj.draw(dx,dy)
end

@‰Ή”gΉή°Όή1i‰Ήj kerokero9696
--track0:’·‚³,1,800,15,1
--track1:ƒTƒCƒY,1,4096,25,1
--track2:–ڐ·‚θ,0,4096,50,0.01
--track3:–§“x/10,1,3600,25,1
--dialog:Figure/fig,fig="ŽlŠpŒ`";Color/col,col1=0xff0000;Color/col,col2=0x3b3b3b;seed,sd=100;}Œ`”δ—¦,as=0.90;sŠΤ,yy=1;‰Ή•ͺŠ„”,div=10;
------------------------------------set
t0=math.floor(obj.track0)
fgs1=math.floor(obj.track1)
t2=obj.track2
ik=10/obj.track3
---------------------------------------
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
---------------------------------------
for j=0,div-1 do
 for i=0,t0-1,ik do
  dx=i*fgs1*as-(t0-1)*fgs1*as/2
  dy=j*fgs1+yy*j-(div-1)*fgs1/2

  if(dx<buf[j+1]/t2-(t0-1)*fgs1*as/2)then
   col=col1
  else
   col=col2
  end
 
  obj.load("figure",fig,col,fgs1,fgs1)
  obj.aspect=as
  obj.draw(dx,dy)
 end
end

@‰Ή”gΉή°Όή2i‰Ήj kerokero9696
--track0:’·‚³,1,800,15,1
--track1:ƒTƒCƒY,1,4096,25,1
--track2:–ڐ·‚θ,0,4096,50,0.01
--track3:–§“x/10,1,3600,25,1
--dialog:Figure/fig,fig="ŽlŠpŒ`";BG Color/col,col2=0x3b3b3b;seed,sd=100;}Œ`”δ—¦,as=-0.90;sŠΤ,xx=1;‰Ή•ͺŠ„”,div=20;ΆΧΜΩ/chk,chk1=0;
------------------------------------set
t0=math.floor(obj.track0)
fgs1=math.floor(obj.track1)
t2=obj.track2
ik=10/obj.track3
---------------------------------------
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
---------------------------------------

num={}
colnum=""
for j=0,div-1 do
 rnd1=obj.rand(0,9999,sd,j)
 for i=0,t0-1,ik do
  dx=j*fgs1+xx*j-(div-1)*fgs1/2
  dy=(t0-1-i)*fgs1*as-(t0-1)*fgs1*as/2

  if(dy>-buf[j+1]/t2-(t0-1)*fgs1*as/2)then
   for k=1,6 do
    if(chk1==0)then
     num[k]=string.format("%01x",obj.rand(0,15,math.floor(sd*k),rnd1))
    else
     num[k]=string.format("%01x",obj.rand(0,15,math.floor(sd*(t0-1-i)*k),rnd1))
    end
   end
  col="0x"..num[1]..num[2]..num[3]..num[4]..num[5]..num[6]
  else
   col=col2
  end


  obj.load("figure",fig,col,fgs1,fgs1)
  obj.aspect=as
  obj.draw(dx,dy)
 end
end

@‰Ή”gΉή°Όή3i‰Ήj kerokero9696
--track0:’·‚³,1,800,15,1
--track1:ƒTƒCƒY,1,4096,25,1
--track2:–ڐ·‚θ,0,4096,50,0.01
--track3:–§“x/10,1,3600,25,1
--dialog:Figure/fig,fig="ŽlŠpŒ`";BG Color/col,col2=0x3b3b3b;seed,sd=100;}Œ`”δ—¦,as=-0.90;ŒΒXŠΤŠu,cr1=10;’†S”ΌŒa,cr2=50;‰Ή•ͺŠ„”,div=4;ΆΧΜΩ/chk,chk1=0;
------------------------------------set
t0=math.floor(obj.track0)
fgs1=math.floor(obj.track1)
t2=obj.track2
ik=10/obj.track3
---------------------------------------
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
---------------------------------------

num={}
colnum=""
sita=360/div
for j=0,div-1 do
 r=math.rad(j*sita)
 cs=math.cos(r)
 sn=math.sin(r)
 rnd1=obj.rand(0,9999,sd,j)

 for i=0,t0-1,ik do
  dx=j*fgs1-(div-1)*fgs1/2
  dy=(t0-1-i)*fgs1*as-(t0-1)*fgs1*as/2

  if(dy>-buf[j+1]/t2-(t0-1)*fgs1*as/2)then
   for k=1,6 do
    if(chk1==0)then
     num[k]=string.format("%01x",obj.rand(0,15,math.floor(sd*k),rnd1))
    else
     num[k]=string.format("%01x",obj.rand(0,15,math.floor(sd*(t0-1-i)*k),rnd1))
    end
   end
  col="0x"..num[1]..num[2]..num[3]..num[4]..num[5]..num[6]
  else
   col=col2
  end

  dx=cs*((t0-1-i)*cr1+cr2)
  dy=sn*((t0-1-i)*cr1+cr2)

  obj.load("figure",fig,col,fgs1,fgs1)
  obj.aspect=as
  rz=j*sita+90
  obj.draw(dx,dy,0,1,1,0,0,rz)
 end
end

@‰Ή”gΉή°Όή4i‰Ήj kerokero9696
--track0:’·‚³,1,800,8,1
--track1:ƒTƒCƒY,1,4096,16,1
--track2:–ڐ·‚θ,0,4096,50,0.01
--track3:–§“x/10,1,3600,25,1
--dialog:Figure/fig,fig="ŽlŠpŒ`";BG Color/col,col2=0x3b3b3b;seed,sd=100;}Œ`”δ—¦,as=-0.90;ŒΒXŠΤŠu,cr1=10;’†S”ΌŒa,cr2=50;}Œ`Šg‘ε—¦,zm2=2;‰Ή•ͺŠ„”,div=24;ΆΧΜΩ/chk,chk1=0;
------------------------------------set
t0=math.floor(obj.track0)
fgs1=math.floor(obj.track1)
t2=obj.track2
ik=10/obj.track3
---------------------------------------
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
---------------------------------------

num={}
colnum=""
sita=360/div
for j=0,div-1 do
 r=math.rad(j*sita)
 cs=math.cos(r)
 sn=math.sin(r)
 rnd1=obj.rand(0,9999,sd,j)

 for i=0,t0-1,ik do
  dx=j*fgs1-(div-1)*fgs1/2
  dy=(t0-1-i)*fgs1*as-(t0-1)*fgs1*as/2

  if(dy>-buf[j+1]/t2-(t0-1)*fgs1*as/2)then
   for k=1,6 do
    if(chk1==0)then
     num[k]=string.format("%01x",obj.rand(0,15,math.floor(sd*k),rnd1))
    else
     num[k]=string.format("%01x",obj.rand(0,15,math.floor(sd*(t0-1-i)*k),rnd1))
    end
   end
  col="0x"..num[1]..num[2]..num[3]..num[4]..num[5]..num[6]
  else
   col=col2
  end
  
  zm1=math.sqrt(1+(t0-1-i)*zm2/(t0-1))
  dx=cs*((t0-1-i)*cr1*zm1+cr2)
  dy=sn*((t0-1-i)*cr1*zm1+cr2)
  fgs=fgs1*(1+(t0-1-i)*zm1/(t0-1))
  obj.load("figure",fig,col,fgs,fgs)
  obj.aspect=as
  rz=j*sita+90
  obj.draw(dx,dy,0,1,1,0,0,rz)
 end
end

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