音階を奏でてみる

SiONの練習を兼ねて、ひとまず（ドからドまでの）音階を奏でてみる。

forked:2
favorite:2
lines:37
license : MIT License
modified : 2010-12-30 15:42:15

Embed: Tweet

package 
{
    import com.bit101.components.PushButton;
    import flash.display.Sprite;
    import flash.events.Event;
    import flash.events.MouseEvent;
    import org.si.sion.SiONData;
    import org.si.sion.SiONDriver;
    
    [SWF (width="465",height="465",backgroundColor="0xFFFFFF",frameRate="30")]
    /**
    * ...
    * @author flabaka
    */
    
    public class Main extends Sprite 
    {
        private var driver:SiONDriver;
        private var musicData:SiONData;
        private var btn:PushButton;
        
        public function Main():void 
        {
            if (stage) init();
            else addEventListener(Event.ADDED_TO_STAGE, init);
        }
        
        private function init(e:Event = null):void 
        {
            removeEventListener(Event.ADDED_TO_STAGE, init);
            
            btn = new PushButton();
            btn.label = "CLICK!";
            btn.x = (stage.stageWidth / 2) - (btn.width / 2);
            btn.y = (stage.stageHeight / 2) - btn.height;
            addChild(btn);
            
            driver = new SiONDriver();
            musicData = driver.compile("t100 @v32 18 o5 cdefgab o6 cc o5 bagfedc");
            btn.addEventListener(MouseEvent.CLICK, clickHandler);
        }
        
        private function clickHandler(e:MouseEvent):void 
        {
            driver.play(musicData);
        }
    }
}

Code Fullscreen

Preview Fullscreen