「一月一日」 ff: お正月っぽい曲

by matacat forked from お正月っぽい曲 (diff: 82) 
"ICHIGATSU ICHIJITSU": A song of New Year's Day in Japan
年の初めの, 投稿がASというよりMML.
明けましておめでとうございます. 今年も宜しくお願いします.
♥0 | Line 77 | Modified 2011-01-03 00:23:22 | MIT License
play

ActionScript3 source code

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

package
{
    import com.bit101.components.PushButton;
    import flash.display.Sprite;
    import org.si.sion.SiONData;
    import org.si.sion.SiONDriver;
    
    [SWF (width="465",height="465",backgroundColor="0xFFFFFF",frameRate="30")]
    
    /**
    * @author flabaka, matacat
    */
    
    public class Main extends Sprite
    {
        private var mml:String =
            "t156;"
          + "#EFFECT0{lf8810};"
            
          + "#TABLE10{4|2};"
          + "#TABLE11{(128,64)4,(96,64)4|64};"
            
          + "#A="
          + "%1 @,63,0,0,63"
          + "@lfo8,1 mp0,12,30,0"
          + "@@10,1 na11,2"
          + "l4 q8 v13 o6"
          + "$"
          + "g2age.d8cc   ddg.f8e2..r8"
          + "g2age.d8cc   dde.d8c2..r8"
          + "<c2c>a<cc>gg aag.f8e2..r8"
          + "g2ag<c.>a8gf egf.d8c2..r8"
          + ";"
            
          + "#TABLE20{(128,0)4,(96,0)6|0};"
            
          + "#B="
          + "%1 @4,63,0,0,63"
          + "na20,1"
          + "l16 q8 v5 o7"
          + "$"
          + "[g<ceg>]8                          [gb<dg>]4[g<ceg>]4"
          + "[g<ceg>]4[a-b<de>][a<cea>]         [a<cdf>][gb<df>][g<ceg>]4"
          + "[a<ce-f>]4[a<cea>]4                [a<cdf>][gb<df>][g<ceg>]4"
          + "[g<ceg>][b-<ceg>][a<cdg>][a-<cdg>] [gb<df>]4[g<ceg>]4"
          + ";"
            
          + "#V=[cr<c8>];"
          + "#W=cr<cc>cr<c8>;"
            
          + "#C="
          + "%1 @8,63,0,0,63"
          + "l16 q6 v16 o4"
          + "$"
          + "VWVW             V(7)W(7)VW"
          + "VWW(-4)W(-3)     V(-7)W(-5)VW"
          + "V(5)W(5)V(4)W(4) W(2)W(7)VW"
          + "VWW(5)W(2)       V(7)W(7)VW"
          + ";"
            
          + "#TABLE40{0|2};"
          + "#TABLE41{128,64,96,48,24,12,6,3,1|0};"
          + "#TABLE42{128,64,32,16,8,4,2,1|0};"
          + "#TABLE43{0|-5};"
          + "#TABLE44{128,64,48,36,27,20,15,11,8,6,(4,1)4|0};"
          + "#X=@9  nt40,2 na41,1 v14 o1 c;"
          + "#Y=@10 nt     na42,1 v9  o0 c;"
          + "#Z=@9  nt43,1 na44,1 v12 o0 a;"
            
          + "#D="
          + "%1 @,63,0,0,63"
          + "l16 q8"
          + "$"
          + "[X8YYZ8|YY]16ZZ"
          + ";"
            
          + "A;B;C;D;"
        ;
        
        private var driver:SiONDriver  = new SiONDriver();
        private var musicData:SiONData = driver.compile(mml);
        
        public function Main():void
        {
            new PushButton(
                this,
                stage.stageWidth - 100 >> 1,
                stage.stageHeight - 20 >> 1,
                "CLICK!",
                function():void { driver.play(musicData); }
            );
        }
    }
}