Test

/**
 * Copyright Sharakusai ( http://wonderfl.net/user/Sharakusai )
 * MIT License ( http://www.opensource.org/licenses/mit-license.php )
 * Downloaded from: http://wonderfl.net/c/yuIq
 */

<?xml version="1.0" encoding="utf-8"?>
<mx:Application   
	paddingTop="8" paddingLeft="8" paddingRight="8" paddingBottom="8"
	xmlns:mx="http://www.adobe.com/2006/mxml" creationComplete="init()">
<mx:Script><![CDATA[
	
        import org.si.sion.*;
        import org.si.sion.utils.SiONPresetVoice;
        import org.si.sion.events.*;
        import org.si.sion.events.SiONTrackEvent;
        import mx.controls.*;	
        import mx.collections.ArrayCollection;


        public var driver:SiONDriver = new SiONDriver();     
        public var Voices:SiONPresetVoice = new SiONPresetVoice();


	// 初期化			
        private function init():void {
            myText.text ="cde";
            driver.volume = 0.5;
        }

	// Play Button
	private function onButtonClick() : void {
            var mml:String = myText.text;

            var Voice:SiONVoice = Voices["midi.reed1"];
	  
            var data:SiONData    = driver.compile(mml);

            driver.play();
            driver.sequenceOn(data, Voice, 0, 0, 2);			
	}
	

	private function onStopButtonClick() : void {
            driver.stop();
            }

	
]]></mx:Script>
<mx:Panel title="SiON Test" backgroundColor="0xC0D0D0" width="100%" height="100%" fontSize="12">
    <mx:HBox paddingTop="8" paddingLeft="8" paddingRight="8">
        <mx:Button id="playButton" label="PLAY" click="onButtonClick();" width="80" height="30" toolTip="SiON MML準拠で演奏します"/>
        <mx:Button id="stopButton" label="PLAY" click="onStopButtonClick();" width="80" height="30" toolTip="SiON MML準拠で演奏します"/>
    </mx:HBox>
    <mx:VBox paddingLeft="8" paddingBottom="8" paddingRight="8" width="100%" height="100%" >
        <mx:TextArea id="myText" width="100%" height="100%"/>
    </mx:VBox>
</mx:Panel>
</mx:Application>