@Œ´“_ˆÊ’u’²�®�j1 kerokero9696
--track0:’·‚³,1,1024,80,1
--track1:‘¾‚³,1,1024,8,1
--track2:Ž²ˆÊ’u,10,4096,80,1
--track3:Ž²»²½Þ,10,1000,20,1
--check0:Œ`�ó•Ï‰»,0
--dialog:Œ`�ó”gŒW�”,coef3=1.00;Color/col,col=0xffffff;�æ’[•Ï‰»/chk,chk1=0;�}Œ`‘I‘ð/fig,fig1="ŽOŠpŒ`";�æ’[»²½Þ,fgs1=12;
------------------------------------set
t0=math.floor(obj.track0)
t1=math.floor(obj.track1)
t2=obj.track2/10
t3=obj.track3/10
------------------------------------
rng=t0*t1/3
obj.setoption("drawtarget","tempbuffer",rng,rng)
for i=0,t0 do
 fgs=t1
 dst=fgs/2

 if(i==math.floor(t0/t2))then
  fgs=fgs*t3
 end
 
 if(i==t0 and chk1==1)then
  fig=fig1
  fgs=fgs1
 else
  fig="‰~"
 end

 if(obj.check0)then
  r=math.rad(i/t0*360*coef3)
  cs=math.cos(r)
  sn=math.sin(r)
  dx=dst*sn
  dy=(t0/2-i)*dst/2
 else
  dx=0
  dy=(t0/2-i)*dst/2
 end

 obj.load("figure",fig,col,fgs)
 obj.setoption("blend","alpha_add")
 obj.draw(dx,dy)
end
------------------------------------
obj.load("tempbuffer")
obj.cy=(t0/2-math.floor(t0/t2))*dst/2
obj.oy=(t0/2-math.floor(t0/t2))*dst/2


@Œ´“_ˆÊ’u’²�®�j2(Buf’l”½‰ž) kerokero9696
--track0:‰¹•ªŠ„�”,1,1024,5,1
--track1:Buf”Ô�†,1,1024,1,1
--track2:Buf•â�³,0.01,1024,100,0.01
--track3:Buf’lMAX,0,4096,240,1
--check0:Info,1
--dialog:•ûŒü”½“]/chk,chk1=0;�F/col,col=0xffffff;�æ’[�}Œ`/fig,fig="ŽOŠpŒ`";�æ’[»²½Þ,fgs1=10;
------------------------------------set
t0=math.floor(obj.track0)
t1=math.floor(obj.track1)
if(t0<=t1)then t1=t0 end
t2=obj.track2
rzm=math.floor(obj.track3)
sw=obj.screen_w
sh=obj.screen_h
------------------------------------
fgs=200
obj.setoption("drawtarget","tempbuffer",fgs,fgs)
obj.load("figure","‰~",col,fgs/10)
obj.setoption("blend","alpha_add")
obj.draw(-60)

obj.load("figure","ŽlŠpŒ`",col,fgs*2/5)
obj.setoption("blend","alpha_add")
v1,v2=fgs*2/5,fgs/50
obj.drawpoly(-v1,-v2,0, v1,-v2,0, v1,v2,0, -v1,v2,0, -v1,-v1, v1,-v1, v1,v1, -v1,v1)

obj.load("figure",fig,col,fgs1)
obj.setoption("blend","alpha_add")
obj.draw(fgs*2/5,0,0,1,1,0,0,-30)
------------------------------------
div=t0
buf={}
n=obj.getaudio(buf,"audiobuffer","spectrum",div)
------------------------------------
bv=buf[t1]/t2
obj.load("tempbuffer")
if(bv>=rzm)then bv=rzm end
if(chk1==1)then bv=-bv end
obj.rz=obj.rz-90+bv
obj.cx=-obj.h*0.3
------------------------------------
if(obj.check0)then
 obj.setoption("drawtarget","tempbuffer",sw,sh)
 fs=sw/32
 obj.setfont("‚µ‚Ë‚«‚á‚Õ‚µ‚å‚ñ",fs,3,0x000000,0xffffff)
 obj.load("text","Buf”Ô�†:"..t1.." Buf’l:"..math.floor(bv))
 dx=0
 dy=-sh/2+fs/2
 obj.setoption("blend","alpha_add")
 obj.draw(dx,dy)

 obj.setfont("‚µ‚Ë‚«‚á‚Õ‚µ‚å‚ñ",fs/2,0,0xffffff,0xffffff)
 for i=1,div do
  bv=buf[i]/t2
  dst=sw/fs/2
  dx=i*dst-div*dst/2-fs/2
  dy=sh/2-bv-fs/2
  obj.load("text",i)
  obj.draw(dx,dy)
  
  if(t1==i)then
   obj.load("figure","‰~",0xff0000,fs,fs/10)
   obj.setoption("blend","alpha_add")
   obj.draw(dx,dy)
  end
 end
obj.load("tempbuffer")
obj.rx=obj.rx-obj.rx
obj.ry=obj.ry-obj.ry
obj.rz=obj.rz-obj.rz
end

@•¶Žš”Õ‘f�Þ1 kerokero9696
--track0:–Ú�·”͈Í,0,359,180,1
--track1:–Ú�·‹——£,0,4096,100,0.1
--track2:�”’l”͈Í,0,359,180,1
--track3:�”’l‹——£,0,4096,120,0.1
--check0:�”’l•\Ž¦,1
--dialog:–Ú�·–§“x,ik1=5;�”’l–§“x,ik2=10;–Ú�·‘I‘ð/fig,fig="ŽlŠpŒ`";–Ú�·»²½Þ,fgs=12;–Ú�·»²½ÞŒW�”,fsc=0.70;–Ú�·�F/col,col1=0xffffff;–Ú�·�c‰¡”ä,as=-0.75;FONT,fn="MS Gothic";�”’l»²½Þ,fs=12;�”’l‘•�ü[0-4],fmd=0;�”’l�F1/col,col2=0xffffff;�”’l�F2/col,col3=0x000000;ŠJŽnˆÊ’uŠp“x,ang=-180;–Ú�·”͈͂¸‚炵,df1=0;�”’l”͈͂¸‚炵,df2=0;�”’l•\Ž¦ŒW�”,mc=1.00;
------------------------------------set
t0=math.floor(obj.track0)
t1=obj.track1
t2=math.floor(obj.track2)
t3=obj.track3
------------------------------------
dst1=t1
for i=df1,t0+df1,ik1 do
 r=math.rad(i+ang)
 cs=math.cos(r)
 sn=math.sin(r)
 dx=dst1*cs
 dy=dst1*sn
 rz=i+ang
  if(i%ik2==0)then
  fgs1=fgs
 else
  fgs1=fgs*fsc
 end
 obj.load("figure",fig,col1,fgs1)
 obj.aspect=as
 obj.draw(dx,dy,0,1,1,0,0,rz)
end

if(obj.check0)then
dst2=t3
obj.setfont(fn,fs,fmd,col2,col3)
for i=df2,t2+df2,ik2 do
 r=math.rad(i+ang)
 cs=math.cos(r)
 sn=math.sin(r)
 dx=dst2*cs
 dy=dst2*sn
 obj.load("text",math.floor(i*mc))
 obj.draw(dx,dy)
end
end

@•¶Žš”Õ‘f�Þ2 kerokero9696
--track0:˜g»²½Þ,1,1024,280,1
--track1:’PˆÊ”͈Í,1,1024,270,1
--track2:ŠJŽnˆÊ’u,-360,360,0,0.01
--track3:�”’l»²½Þ,1,100,12,1
--check0:�”’l•\Ž¦,1
--dialog:–Ú�·–§“x,ik1=5;�”’lŠÔŠu,ik2=10;–Ú�·‘I‘ð/fig,fig="‰~";–Ú�·»²½Þ,fgs1=10;–Ú�·»²½ÞŒW�”,fsc=0.70;–Ú�·�F/col,col1=0xffffff;ŒÂ•ÊŠp“x,ang2=30;FONT,fn="MS Gothic";�”’l‘•�ü,fmd=0;�”’l�F1/col,col2=0xffffff;�”’l�F2/col,col3=0x000000;–Ú�·’ljÁ,df1=0;�”’l’ljÁ,df2=0;�”’l•\Ž¦ŒW�”,mc=1.00;
------------------------------------set
t0=math.floor(obj.track0)
t1=math.floor(obj.track1)
ang=obj.track2-180
fs=math.floor(obj.track3)
------------------------------------
rng=t0
obj.setoption("drawtarget","tempbuffer",rng,rng)
for i=1,9 do
 dx,dy=0,0
 if(i==1)then
  fgs=rng
  col=0x440000
 elseif(i==2)then
  fgs=math.ceil(rng*0.94)
  col=0x880000
 elseif(i==3)then
  fgs=math.ceil(rng*0.64)
  col=0xddaaaa
 elseif(i==4)then
  fgs=math.ceil(rng*0.14)
  col=0x880000
 elseif(i==5)then
  fgs=math.ceil(rng*0.07)
  col=0x220000
 else
  fgs=math.ceil(rng*0.06)
  col=0x660000
  dx=-rng*0.1*(i-5)+4*math.ceil(rng*0.06)
  dy=rng*0.15
 end
 obj.load("figure","‰~",col,fgs)
 obj.setoption("blend","alpha_add2")
 obj.draw(dx,dy)
end
--obj.load("tempbuffer")
------------------------------------
rng1=t1
dst1=rng/2.75
for i=0,rng1+df1,ik1 do
 r=math.rad(i+ang)
 cs=math.cos(r)
 sn=math.sin(r)
 dx=dst1*cs
 dy=dst1*sn
 rz=i+ang-ang2
 
 if(i%ik2==0)then
  fgs=fgs1
 else
  fgs=fgs1*fsc
 end
 
 obj.load("figure",fig,col1,fgs)
 obj.setoption("blend","alpha_add2")
 obj.draw(dx,dy,0,1,1,0,0,rz)
end

if(obj.check0)then
rng2=t1
dst2=rng/2.35
obj.setfont(fn,fs,fmd,col2,col3)
for i=0,rng2+df2,ik2 do
 r=math.rad(i+ang)
 cs=math.cos(r)
 sn=math.sin(r)
 dx=dst2*cs
 dy=dst2*sn
 obj.load("text",math.floor(i*mc))
 obj.setoption("blend",0)
 obj.draw(dx,dy)
end
end
obj.load("tempbuffer")
------------------------------------
--[[http://madeinpc.blog50.fc2.com/]]--