@音に合わせて円形配置 kerokero9696 --track0:音分割数,1,4096,40,1 --track1:Buf補正,1,4096,40,0.01 --track2:サイズ,1,4096,40,1 --track3:描画密度,1,120,20,1 --check0:カラー⇔モノクロ,1 --dialog:初期位置,hole=5;図形選択/fig,fig="円";図形サイズ/chk,chk2=0;seed,sd=100;変化速度,spd0=0;効果有無/chk,chk1=0; ------------------------------------set div=math.floor(obj.track0) t1=obj.track1 t2=math.floor(obj.track2) t3=math.floor(obj.track3) sw=obj.screen_w sh=obj.screen_h --------------------------------------- buf={} n=obj.getaudio(buf,"audiobuffer","spectrum",div) ---------------------------------------script if(chk1==1)then obj.setoption("drawtarget","tempbuffer",sw,sh) obj.setoption("drawtarget","tempbuffer") end spd=obj.time*spd0 for j=1,div do dst=buf[j]/t1+hole ik=t3 for i=0,359,ik do r=math.rad(i-90) sn=math.sin(r) cs=math.cos(r) dx=dst*cs dy=dst*sn fr=j+sd+spd rnd1=obj.rand(1,100,sd+i,fr) rnd2=obj.rand(1,100,sd+j,fr) rnd3=obj.rand(1,100,sd+i+j,fr) if(obj.check0)then col1=obj.rand(0,255,sd,fr*rnd1) col2=obj.rand(0,255,sd,fr*rnd2) col3=obj.rand(0,255,sd,fr*rnd3) else col1=obj.rand(0,255,sd,fr) col2=obj.rand(0,255,sd,fr) col3=obj.rand(0,255,sd,fr) end col="0x"..string.format("%02x",col1)..string.format("%02x",col2)..string.format("%02x",col3) if(chk2==0)then fgs1=math.ceil(t2*(div-j)/div) else if(j<=div/2)then fgs1=t2*j/div*2 else fgs1=t2*(1-j/div)*2 end end obj.load("figure",fig,col,fgs1,1000) if(chk1==1)then obj.setoption("blend","alpha_add") end obj.draw(dx,dy) end end if(chk1==1)then obj.load("tempbuffer") end ------------------------------------ @音に合わせて円形配置2 kerokero9696 --track0:音分割数,1,4096,40,1 --track1:Buf補正,1,4096,10,0.01 --track2:サイズ,1,4096,40,1 --track3:描画密度,1,120,20,1 --check0:カラー⇔モノクロ,1 --dialog:初期位置,dmax=150;図形選択/fig,fig="円";図形サイズ/chk,chk2=0;seed,sd=100;変化速度,spd0=0;効果有無/chk,chk1=0; ------------------------------------set div=math.floor(obj.track0) t1=obj.track1 t2=math.floor(obj.track2) t3=math.floor(obj.track3) sw=obj.screen_w sh=obj.screen_h --------------------------------------- buf={} n=obj.getaudio(buf,"audiobuffer","spectrum",div) ---------------------------------------script if(chk1==1)then obj.setoption("drawtarget","tempbuffer",sw,sh) obj.setoption("drawtarget","tempbuffer") end spd=obj.time*spd0 for j=1,div do dst=dmax-buf[j]/t1 ik=t3 for i=0,359,ik do r=math.rad(i-90) sn=math.sin(r) cs=math.cos(r) dx=dst*cs dy=dst*sn fr=j+sd+spd rnd1=obj.rand(1,100,sd+i,fr) rnd2=obj.rand(1,100,sd+j,fr) rnd3=obj.rand(1,100,sd+i+j,fr) if(obj.check0)then col1=obj.rand(0,255,sd,fr*rnd1) col2=obj.rand(0,255,sd,fr*rnd2) col3=obj.rand(0,255,sd,fr*rnd3) else col1=obj.rand(0,255,sd,fr) col2=obj.rand(0,255,sd,fr) col3=obj.rand(0,255,sd,fr) end col="0x"..string.format("%02x",col1)..string.format("%02x",col2)..string.format("%02x",col3) if(chk2==0)then fgs1=math.ceil(t2*(div-j)/div) else if(j<=div/2)then fgs1=t2*j/div*2 else fgs1=t2*(1-j/div)*2 end end obj.load("figure",fig,col,fgs1,1000) if(chk1==1)then obj.setoption("blend","alpha_add") end obj.draw(dx,dy) end end if(chk1==1)then obj.load("tempbuffer") end ------------------------------------ @音に合わせて円形配置 乱 kerokero9696 --track0:音分割数,1,4096,40,1 --track1:Buf補正,1,4096,40,0.01 --track2:サイズ,1,4096,40,1 --track3:描画密度,1,120,20,1 --check0:カラー⇔モノクロ,1 --dialog:初期位置,hole=0;Buf番号⇔BPM/chk,chk2=1;BPM,bpm0=30;乱範囲,rng=50;図形選択/fig,fig="円";seed,sd=100;変化速度,spd0=0;効果有無/chk,chk1=0;幅補正縦 係数,hh=1.0;幅補正横 係数,ww=1.0; ------------------------------------set div=math.floor(obj.track0) t1=obj.track1 t2=math.floor(obj.track2) t3=math.floor(obj.track3) sw=obj.screen_w sh=obj.screen_h bpm=math.sin(bpm0*obj.time/60*math.pi*2) if(bpm>0)then bpm=bpm else bpm=0 end --------------------------------------- buf={} n=obj.getaudio(buf,"audiobuffer","spectrum",div) ---------------------------------------script if(chk1==1)then obj.setoption("drawtarget","tempbuffer",sw*ww,sh*hh) obj.setoption("drawtarget","tempbuffer") end spd=obj.time*spd0 li=math.floor(div/2)+1 for j=1,div do dst=buf[j]/t1+hole ik=t3 for i=0,359,ik do r=math.rad(i-90) sn=math.sin(r) cs=math.cos(r) fr=j+sd+spd rnd1=obj.rand(1,100,sd+i,fr) rnd2=obj.rand(1,100,sd+j,fr) rnd3=obj.rand(1,100,sd+i+j,fr) if(obj.check0)then col1=obj.rand(0,255,sd,fr*rnd1) col2=obj.rand(0,255,sd,fr*rnd2) col3=obj.rand(0,255,sd,fr*rnd3) else col1=obj.rand(0,255,sd,fr) col2=obj.rand(0,255,sd,fr) col3=obj.rand(0,255,sd,fr) end col="0x"..string.format("%02x",col1)..string.format("%02x",col2)..string.format("%02x",col3) fr2=i+j+sd+spd if(chk2==0)then if(buf[j]/t10)then bpm=bpm else bpm=0 end --------------------------------------- buf={} n=obj.getaudio(buf,"audiobuffer","spectrum",div) ---------------------------------------script if(chk1==1)then obj.setoption("drawtarget","tempbuffer",sw*ww,sh*hh) obj.setoption("drawtarget","tempbuffer") end spd=obj.time*spd0 li=math.floor(div/2)+1 for j=1,div do dst=dmax-buf[j]/t1 ik=t3 for i=0,359,ik do r=math.rad(i-90) sn=math.sin(r) cs=math.cos(r) fr=j+sd+spd rnd1=obj.rand(1,100,sd+i,fr) rnd2=obj.rand(1,100,sd+j,fr) rnd3=obj.rand(1,100,sd+i+j,fr) if(obj.check0)then col1=obj.rand(0,255,sd,fr*rnd1) col2=obj.rand(0,255,sd,fr*rnd2) col3=obj.rand(0,255,sd,fr*rnd3) else col1=obj.rand(0,255,sd,fr) col2=obj.rand(0,255,sd,fr) col3=obj.rand(0,255,sd,fr) end col="0x"..string.format("%02x",col1)..string.format("%02x",col2)..string.format("%02x",col3) fr2=i+j+sd+spd if(chk2==0)then if(buf[j]/t1