@»°ΈΩŒ^Ήή°Όή kerokero9696
--track0:‰~Œa,1,9999,100,0.1
--track1:}Œ`»²½ή,1,1000,25,1
--track2:–§“x,1,100,3,1
--track3:’l,0,360,60,1
--check0:Info,1
--dialog:Œό‚«‹t“]/chk,chk1=1;}Œ`/fig,fig="ŽlŠpŒ`";}Œ`•,fgs2=25;}Œ`c‰‘”δ,as=-0.95;Color/col,col1=0xffffff;Color/col,col2=0x444444;
------------------------------------set
t0=obj.track0
t1=obj.track1
t2=math.floor(obj.track2)
t3=math.floor(obj.track3)
sw=obj.screen_w
sh=obj.screen_h
ogvz=obj.getvalue("zoom")/100
------------------------------------script
ik=t2
bv=t3
for i=0,359,ik do
 if(i<=bv)then
  col=col1
 else
  col=col2
 end
 obj.load("figure",fig,col,t1,fgs2)
 if(chk1==0)then
  i=-i
 end
 r=math.rad(i+obj.rz)
 cs=math.cos(r)
 sn=math.sin(r)
 dx=t0*cs
 dy=t0*sn
 rz=i
 obj.aspect=as
 obj.draw(dx*ogvz,dy*ogvz,0,1,1,0,0,rz)
end

------------------------------------
if(obj.check0)then
 info=bv --‚±‚±‚Ι•\Ž¦‚΅‚½‚’ŠJ”­Žž‚Μ’l‚π“ό—Ν
 fs=24
 obj.setfont("‚΅‚Λ‚«‚α‚Υ‚΅‚ε‚ρ",fs,3,0x000000,0xffffff)
 obj.load("text",info)
 dx=-sw/2+string.len(info)*fs/2
 dy=sh/2-fs
 obj.draw(dx,dy)
end

@»°ΈΩŒ^‰Ή”gΉή°Όή1 kerokero9696
--track0:‰~Œa,1,9999,100,0.1
--track1:•β³,1,1000,10,1
--track2:–§“x,1,100,3,1
--track3:Buf”ԍ†,1,1000,20,1
--check0:Info,1
--dialog:Buf•ͺŠ„”,div=40;Œό‚«‹t“]/chk,chk1=1;}Œ`/fig,fig="ŽlŠpŒ`";}Œ`»²½ή,fgs1=25;}Œ`•,fgs2=25;}Œ`c‰‘”δ,as=-0.95;Color/col,col1=0xffffff;Color/col,col2=0x444444;
------------------------------------set
t0=obj.track0
t1=obj.track1
t2=math.floor(obj.track2)
t3=math.floor(obj.track3)
if(t3>div)then t3=div end
sw=obj.screen_w
sh=obj.screen_h
ogvz=obj.getvalue("zoom")/100
------------------------------------script
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
------------------------------------

ik=t2
bv=math.floor(buf[t3]/t1)
for i=0,359,ik do
 if(i<=bv)then
  col=col1
 else
  col=col2
 end
 obj.load("figure",fig,col,fgs1,fgs2)
 if(chk1==0)then
  i=-i
 end
 r=math.rad(i+obj.rz)
 cs=math.cos(r)
 sn=math.sin(r)
 dx=t0*cs
 dy=t0*sn
 rz=i
 obj.aspect=as
 obj.draw(dx*ogvz,dy*ogvz,0,1,1,0,0,rz)
end

------------------------------------
if(obj.check0)then
 info=bv --‚±‚±‚Ι•\Ž¦‚΅‚½‚’ŠJ”­Žž‚Μ’l‚π“ό—Ν
 fs=24
 obj.setfont("‚΅‚Λ‚«‚α‚Υ‚΅‚ε‚ρ",fs,3,0x000000,0xffffff)
 obj.load("text",info)
 dx=-sw/2+string.len(info)*fs/2
 dy=sh/2-fs
 obj.draw(dx,dy)
end

@»°ΈΩŒ^‰Ή”gΉή°Όή2 kerokero9696
--track0:‰~Œa,1,9999,100,0.1
--track1:•β³,1,1000,10,1
--track2:–§“x,1,100,3,1
--track3:Buf”ԍ†,1,1000,20,1
--check0:Info,1
--dialog:Buf•ͺŠ„”,div=40;Œό‚«‹t“]/chk,chk1=1;}Œ`/fig,fig="ŽlŠpŒ`";}Œ`»²½ή,fgs1=25;}Œ`•,fgs2=25;}Œ`c‰‘”δ,as=-0.95;Color/col,col1=0xffffff;Color/col,col2=0x444444;
------------------------------------set
t0=obj.track0
t1=obj.track1
t2=math.floor(obj.track2)
t3=math.floor(obj.track3)
if(t3>div)then t3=div end
sw=obj.screen_w
sh=obj.screen_h
ogvz=obj.getvalue("zoom")/100
------------------------------------script
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
------------------------------------

ik=t2
bv=math.floor(buf[t3]/t1)
for i=0,359,ik do
 if(i<=bv)then
  col=col1
 else
  col=col2
 end
 obj.load("figure",fig,col,fgs1,fgs2)
 if(chk1==0)then
  i=-i
 end
 r=-math.rad(i+obj.rz)
 cs=math.cos(r)
 sn=math.sin(r)
 dx=t0*cs
 dy=t0*sn
 rz=i
 obj.aspect=as
 obj.draw(dx*ogvz,dy*ogvz,0,1,1,0,0,rz)
end

------------------------------------
if(obj.check0)then
 info=bv --‚±‚±‚Ι•\Ž¦‚΅‚½‚’ŠJ”­Žž‚Μ’l‚π“ό—Ν
 fs=24
 obj.setfont("‚΅‚Λ‚«‚α‚Υ‚΅‚ε‚ρ",fs,3,0x000000,0xffffff)
 obj.load("text",info)
 dx=-sw/2+string.len(info)*fs/2
 dy=sh/2-fs
 obj.draw(dx,dy)
end


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