VBMP3にはスペアナ機能があるのでそれを利用する事なら出来るんですが・・・
(WMAは再生できない orz)
さくらさんの作成したVBMP3操作モジュール(exmp3dll.as)の
#module〜#globalの間に以下の文を書き足して、
#deffunc getSpectrum array prm1,array prm2
vbmp3_getSpectrum varptr(prm1),varptr(prm2)
return 0
以下のスクリプトを実行してみてください
#include "exmp3dll.as"
onexit *quit
screen 0,640,150
initmp3 25,25,25
dim info,32
dim Lch,256
dim Rch,256
dialog "mp3",16,"MPEG Layer-3 Audio File"
if stat=0:end
playmp3 info,refstr
;=========
repeat
redraw 0
color 0,0,0:boxf
color 0,255,0
getSpectrum Lch,Rch
repeat 255
line cnt,150,cnt,150-Lch(cnt)
loop
repeat 255
line cnt+300,150,cnt+300,150-Rch(cnt)
loop
redraw 1
wait 1
loop
;=========
*quit
stopmp3
closemp3
end
まだFFTはさっぱり分からん・・・