E.x.E. С Днём Рождения =)

D12 · 17.11.2007, 05:06

Будь умным и обаятельным, поздровляю

Расти большой =)

вот маленький подарок

AS3

Код:

package {
	import flash.display.Sprite;
	import flash.display.StageAlign;
	import flash.media.Sound;
	import flash.media.SoundMixer;
	import flash.media.SoundChannel;
	import flash.events.Event;
	import flash.utils.ByteArray;
	import flash.net.URLRequest;

	public class ExE extends Sprite{
	private var s:Sound = new Sound();
    private var sc:SoundChannel;
    private var ba:ByteArray = new ByteArray();
	public var a:Number = 0;
	private var array:Array;
		
	public function ExE(){
	s.load(new URLRequest("test3.mp3"));
    sc = s.play(0,1000);
    this.addEventListener(Event.ENTER_FRAME, spectrum);
    }
		
	public function spectrum(event:Event):void{
	 graphics.clear();
    SoundMixer.computeSpectrum(ba,true,0);
	for (var i:int = 0; i < 90; i=i+4){
	a = ba.readFloat();
    var num:Number = a*60;
	graphics.lineStyle(num/25,0x0066FF|(num << 18));
	graphics.moveTo(i+200,100+Math.abs(num)/2);
   	graphics.lineTo(i+200, 150);
	}
    } 
}
}