/* [PC88] JESUS - 蒼い無限 - (C)ENIX 1987 original MDX by RUPA/Y.ROMI FlMML MML by LinearDrive date:2011-02-20 [FlMML rev.38704] JASRAC:081-0041-1 */ #OCTAVE REVERSE #VELOCITY REVERSE /* シーケンサ初期化用 */ $INITFM = r8 q16 @q0 x1 @x127 @v0 ns0 @d0 @l0,0,0,0,0,0; /* ＦＭ音源音色初期化用 */ $POFF = @o0,0 @o0,1 @o0,2 @o0,3 @i0,0 @i0,1 @i0,2 @i0,3; /* ＦＭ音源トラック向け音量制御用 $V[connection][operator] */ $V01{Z}=; $V11{Z}=; $V21{Z}=; $V31{Z}=; $V02{Z}=; $V12{Z}=; $V22{Z}=; $V32{Z}=; $V03{Z}=; $V13{Z}=; $V23{Z}=; $V33{Z}=; $V04{Z}=%Z; $V14{Z}=%Z; $V24{Z}=%Z; $V34{Z}=%Z; $V41{Z}=; $V51{Z}=; $V61{Z}=; $V71{Z}=%Z; $V42{Z}=%Z; $V52{Z}=%Z; $V62{Z}=%Z; $V72{Z}=%Z; $V43{Z}=; $V53{Z}=%Z; $V63{Z}=%Z; $V73{Z}=%Z; $V44{Z}=%Z; $V54{Z}=%Z; $V64{Z}=%Z; $V74{Z}=%Z; $VF15=@v127; $VF14=@v122; $VF13=@v116; $VF12=@v111; $VF11=@v106; $VF10=@v100; $VF9= @v95 ; $VF8= @v90 ; $VF7= @v84 ; $VF6= @v79 ; $VF5= @v74 ; $VF4= @v68 ; $VF3= @v63 ; $VF2= @v58 ; $VF1= @v52 ; $VF0= @v0 ; /* ＦＭ音源音色データ定義 */ /* FM-Tone(@1) fb7,al2 */ $T11 = $POFF @o1,0 @0 @e1,0, 32,119,4096,0, 48 @v82 ns43 @d5; $T12 = $POFF @o1,1 @0 @e1,0,3072, 0, 32 @v16 ns47 @d-11; $T13 = $POFF @i4,1 @o2,0 @0 @e1,0,4096, 0, 96 @v97 ns0 @d-2; $T14 = $POFF @i4,0 @0 @e1,0, 72,111, 896,0, 32 ns19 @d4; /* CON, FB, AR, DR, SR, RR, DL, TL, KS,MUL, DT @001 { 2, 7, 31, 12, 4, 10, 1, 32, 0, 12, 3, 31, 2, 4, 6, 15, 57, 3, 15, 4, 31, 12, 4, 6, 0, 30, 0, 1, 3, 31, 5, 3, 7, 2, 5, 2, 3, 2 }; */ /* FM-Tone(@3) fb4,al0 */ $T31 = $POFF @o1,0 @13-1 @e1,0, 33,111, 512,0, 16 @v101 ns31 @d0; $T32 = $POFF @i4,0 @o1,1 @0 @e1,0, 36,119,1024,0, 16 @v39 ns28 @d-15; $T33 = $POFF @i4,1 @o1,2 @0 @e1,0, 18,119,1536,0, 16 @v110 ns-12 @d-2; $T34 = $POFF @i4,2 @0 @e1,0, 56,103, 16 ns0 @d-2; /* CON, FB, AR, DR, SR, RR, DL, TL, KS,MUL, DT @003 { 0, 4, 31, 7, 6, 9, 2, 28, 3, 6, 6, 31, 6, 3, 9, 1, 58, 3, 5, 6, 31, 9, 2, 9, 1, 22, 2, 0, 6, 31, 6, 0, 9, 3, 10, 2, 1, 6 }; */ /* FM-Tone(@5) fb7,al2 */ $T51 = $POFF @o1,0 @13-0 @e1,0, 0,127, 99999 @v84 ns0 @d3; $T52 = $POFF @i4,0 @o1,1 @0 @e1,1, 36, 95, 20 @v91 ns12 @d3; $T53 = $POFF @o2,1 @0 @e1,0, 0,127, 32 @v51 ns24 @d3; $T54 = $POFF @i4,1 @0 @e1,1, 0,127, 32 ns0 @d3; /* CON, FB, AR, DR, SR, RR, DL, TL, KS,MUL, DT @005 { 3, 7, 31, 0, 0, 0, 0, 39, 1, 1, 3, 19, 11, 0, 11, 4, 36, 0, 2, 3, 31, 15, 0, 9, 0, 51, 1, 4, 3, 19, 15, 0, 9, 0, 14, 1, 1, 3 }; */ /* FM-Tone(@6) fb0,al4 */ $T61 = $POFF @o1,0 @0 @e1,0, 0,127, 99999 @v90 ns0 @d2; $T62 = $POFF @i4,0 @0 @e1,0, 64,103,1280,0, 32 ns0 @d0; $T63 = $POFF @o1,1 @0 @e1,0, 0,127, 99999 @v15 ns36 @d-1; $T64 = $POFF @i2,1 @0 @e1,0, 48,103,1280,0, 32 ns0 @d1; /* CON, FB, AR, DR, SR, RR, DL, TL, KS,MUL, DT @006 { 4, 0, 31, 0, 8, 0, 4, 35, 3, 1, 2, 25, 7, 2, 7, 3, 15, 2, 1, 4, 31, 0, 8, 0, 4, 90, 3, 8, 5, 25, 8, 2, 7, 3, 15, 2, 1, 1 }; */ /* ＭＭＬ定義 (ch.A FM) */ $A0 = $INITFM o7 ; $A1{S} = $T6%S $V4%S{$VF11} @l8,24,0,3,0,0 r4c4.d4.c4&c8r4c4.c8 d2&d8g8e8d8c4.d8c8 d2&d8g8e8d8c4.d8 $T1%S $V2%S{$VF11} f16g16a2a+8a8g16f8a16&a2..f16g16a2>c8 d2&d8g8e8d8c4.d8c8f2r4< :/ a+8r4a+8>e8e16r8.e8< a8r4a8>d8d16r8.d8c2 f8r4f8f8r4.< /:4 f8>c8f2r4< :/ a+8r4a+8>e8e16r8.e8< a8r4a8>d8d16r8.d8c2g+4g4c8r4c8c4.r8 < /:3 f8r4f8f8r4. :/ f8r4f8f8f16r8.f8 a+8a+16r8.a+8>e8e16r8.e8d8d16r8.d8 t73.98 /*t73.9820*/ c4& t68.77 /*t68.7720*/ c4 < t63.41 /*t63.4131*/ f1&f1 ; /* ＭＭＬ定義 (ch.C FM) */ $C0 = $INITFM o5 ; $C1{S} = $T6%S $V4%S{$VF10} @l8,24,0,3,0,0 r4e16g16e16g16e8d8&d16f16d8 r4f16a+16f16a+16f8e8.g16e8 r4e16g16e16g16e8d8.f16d8 c16e16c16e16c8d8 c8f8a8f8c+8f8c+8f8 c4c16f16a16a+8a8g8f8 c8f8a8f8c+8f8>c+8e8 f8e8d+8 c16c16c16c16c16f16a16a+8a8g8f8 c8f8a8f8c+8f8>c+8e8 f8e8d+8 c16c16c16c16c16< :/ a4.r8< /:3 a+8>f8d8c8g8e8c8d8a8f8d8c8g8e8c8< :/ a+8>f8d8c8g8e8c8d+8g8d+8g8 r8 d8f8d8 e8d16e16c16f16d16e16c16e16c16e8r8 /:4 c16f16 :/ /:4 c+16f16 :/ c16f16c16f16> a+16a16g16f16 a16f16c16 f16c16e16c16d+16c16 c16c16c16c16c2&c2 ; /* 演奏 */ $A0 $A1{1}; $A0 $A1{2}; $A0 $A1{3}; $A0 $A1{4}; $B0 $B1{1}; $B0 $B1{2}; $B0 $B1{3}; $B0 $B1{4}; $C0 $C1{1}; $C0 $C1{2}; $C0 $C1{3}; $C0 $C1{4}; /* 波形メモリ定義（フィードバック変調済み正弦波） 【生成式】 y = [TL]sin( rd + [FB][2*pi]last_y ) 【パラメータ】 TL:OPN-TotalLevel, rd:ラジアン, FB:OPN-FB変調率, pi:円周率, last_y:前回のy. */ /* WAV13-0 【生成情報】 １周期分４４０サンプル生成。 TL=39(0.034475..倍), FB=7(2倍). */ #WAV13 0,8184878A8E9194979A9DA0A3A6A9ACAFB2B5B8BABDBFC2C4C7C9CCCED0D2D4D6D8DADCDEE0E1E3E4E6E7E9EAECEDEEEFF0F1F2F3F4F5F6F7F8F8F9FAFAFBFBFCFCFDFDFEFEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFEFDFDFDFCFCFCFBFBFAFAF9F9F8F8F7F7F6F5F5F4F3F3F2F1F1F0EFEFEEEDECEBEBEAE9E8E7E7E6E5E4E3E2E1E0DFDEDDDCDBDAD9D8D7D6D5D4D3D2D1D0CFCECDCCCBCAC9C8C6C5C4C3C2C1C0BEBDBCBBBAB9B7B6B5B4B3B2B0AFAEADABAAA9A8A7A5A4A3A2A09F9E9D9B9A99989695949391908F8E8C8B8A89878685838281807E7D7C7B79787775747372706F6E6D6B6A69686665646361605F5E5C5B5A59575655545351504F4E4D4B4A4948474644434241403F3D3C3B3A3938373635343231302F2E2D2C2B2A292827262524232221201F1E1E1D1C1B1A191817171615141313121110100F0E0E0D0C0C0B0A0A09090808070706060505040404030303020202020101010101010101010101010101010101020202020303040404050606070708090A0A0B0C0D0E0F10111314151618191A1C1E1F21222426282A2C2E30323437393B3E404345484A4D505356585B5E6164676B6E7174777A7E /* WAV13-1 【生成情報】 １周期分４４０サンプル生成。 TL=28(0.089125..倍), FB=4(0.25倍). */ #WAV13 1,80828486888A8C8E91939597999B9D9FA1A3A5A7A9ABADAFB1B3B5B7B9BABCBEC0C2C3C5C7C9CACCCECFD1D2D4D5D7D8DADBDDDEDFE1E2E3E5E6E7E8E9EAEBECEEEEEFF0F1F2F3F4F5F5F6F7F8F8F9F9FAFBFBFCFCFCFDFDFEFEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFDFDFDFCFCFCFBFBFAFAF9F9F8F7F7F6F5F5F4F3F3F2F1F0EFEFEEEDECEBEAE9E8E7E6E5E4E3E2E1E0DFDEDCDBDAD9D8D7D5D4D3D2D0CFCECCCBCAC8C7C6C4C3C2C0BFBDBCBBB9B8B6B5B3B2B0AFADACAAA9A7A6A4A3A19F9E9C9B999896949391908E8D8B898886858381807E7D7B797876757371706E6D6B6A6866656362605F5D5C5A5857555452514F4E4C4B4A4847454442413F3E3D3B3A393736353332312F2E2D2C2A2928272624232221201F1E1D1C1B1A19181716151413121111100F0E0D0D0C0B0B0A09090807070606050504040403030302020201010101010101010101010101010101010102020202030304040405050607070808090A0A0B0C0D0E0F0F1011121314151718191A1B1C1E1F202223242627292A2C2D2F3032343537393A3C3E4041434547494B4D4E50525456585A5C5E60626466696B6D6F71737577797B7E /*EOF*/