/********************************************************************************************** [PC88] SORCERIAN - ルシフェルの水門:ブラッディー・リバー - (C)Falcom 1987 by LinearDrive date:2010-10-17 初版 JASRAC:045-4683-1 ***********************************************************************************************/ #OCTAVE REVERSE $POFF = @o0,0 @o0,1 @o0,2 @o0,3 @i0,0 @i0,1 @i0,2 @i0,3; /* FM-Tone(A):drums fb7,al6 */ $TA1 = x1 $POFF @o1,0 @4@n0 @e1,0,15,111,1024,0,72 @v127 ns0 @d0; $TA2 = x1 $POFF @i4,0 @0 @e1,0, 5, 87, 80,0,64 ns-12 @d0; $TA3 = x1 $POFF @0 @e1,0,64, 47, 128,0,64 ns-12 @d3; $TA4 = x1 $POFF @0 @e1,0,96, 63, 96,0,56 ns-12 @d3; /* FM-Tone(A):bass fb7,al0 */ $TB1 = x1 $POFF @o1,0 @13-1 @e1,0, 5,111,80 @v89 ns40 @d-10; $TB2 = x1 $POFF @i4,0 @o1,1 @0 @e1,0,15,111, 896,0,80 @v69 ns-12 @d3; $TB3 = x1 $POFF @i4,1 @o1,2 @0 @e1,0,30,111, 896,0,80 @v118 ns-12 @d3; $TB4 = x1 $POFF @i4,2 @0 @e1,0,30,111,1152,0,80 ns-12 @d3; /* FM-Tone(C):lead0 fb7,al2 */ $TC1 = x1 $POFF @o1,0 @13-2 @e1,0, 12,119,1024,0,64 @v95 ns36 @d3; $TC2 = x1 $POFF @o1,1 @0 @e1,0, 15, 0,64 @v62 ns40 @d-13; $TC3 = x1 $POFF @i4,1 @o2,0 @0 @e1,0,1280, 0,512 @v114 ns-12 @d0; $TC4 = x1 $POFF @i4,0 @0 @e1,0, 9,103,1920,0,96 ns0 @d3; /* FM-Tone(D):lead1 fb5,al4 */ $TD1 = x1 $POFF @o1,0 @13-0 @e1,0,0,127,99999 @v116 ns12 @d-2; $TD2 = x1 $POFF @i4,0 @0 @e1,3,24,119,224 ns36 @d-2; $TD3 = x1 $POFF @o1,1 @0 @e1,0,0,127,99999 @v115 ns24 @d2; $TD4 = x1 $POFF @i4,1 @0 @e1,3,24,119,224 ns24 @d2; /* FM-Tone(E):lead2 fb7,al0 */ $TE1 = x1 $POFF @o1,0 @13-1 @e1,2,11,103,512 @v106 ns19 @d0; $TE2 = x1 $POFF @i4,0 @o1,1 @0 @e1,2, 0,127,256 @v107 ns0 @d3; $TE3 = x1 $POFF @i4,1 @o1,2 @0 @e1,1, 0,127,768 @v106 ns0 @d3; $TE4 = x1 $POFF @i4,2 @0 @e1,1, 0,127,16 ns0 @d3; /* FM-Tone(F):lead3 fb0,al0 */ $TF1 = x1 $POFF @o1,0 @0 @e1,0,1152, 0,224 @v108 ns12 @d-2; $TF2 = x1 $POFF @i4,0 @o1,1 @0 @e1,0, 20,111, 96,0,224 @v120 ns12 @d-1; $TF3 = x1 $POFF @i4,1 @o1,2 @0 @e1,0,1152, 0,224 @v120 ns0 @d3; $TF4 = x1 $POFF @i4,2 @0 @e1,0, 40,111,256,0,192 ns12 @d3; /* MML定義(FM ch.A) */ $MPON = @l2000,64,13-9,3,0,0; $A0 = @q0q16 l16 $MPON o4 ; $A1 = /:7 e24r8>e24r12e24r12e24r12e24r24e24e24 < /:7 e24r8>e24r12e24r12e24r12e24e24e24e24 < /:7 e24r8>e24r12e24r12a24a24a24e24e24e24e24c24c24r24c24e24e24 < /:3 e24r8>e24r12e24r12e24r12e24r24e24r24e24r12e24r12e24e24a24a24e24e24c24r24c24c24e24e24 < /:3 e24r8>e24r12e24r12e24r12e24r24e24r24e24r12e24r12e24e24a24a24e24e24c24r24c24c24e24e24 < /:9 e24r8>e24r12e24r12e24r24a24a24a24a24e24e24e24e24c24c24c24c24 < ; /* MML定義(FM ch.B) */ $B0 = @q0q16 l16 o4 ; $B1 = /:8 e8b24b8e24e8b24>f+24g24f+24g24d24e24e24e8e24a8e24d8f+24g24f+24g24d24e24e24e8e24a8e24d8f+24g24f+24g24d24e24f+24g24f+24g24d24e24f+24g24f+24g24d24e24e24e8e24a8e24d8f+24g24e12<:/ ; /* MML定義(FM ch.C) */ $C0 = @q0q16 l16 o4 ; $C1 = @l0,0,0,0,0,0 /:2 /:2 a12e12e24a24:/ /:2 g12e12e24g24:/ /:2 f+12e12e24f+24:/ /:2 g12e12e24g24:/ :/ ; $C2 = @l18,30,0,60,0,0 e24d+24e24f+24g4e12f+12g12e6e6f+6g6a8b8a12g8a8 g12f+8g8f+12e12r12e6f+4&f+6g12a12b12a6g6f+12d12d12d12d4e12e4&e12 < ; $C3 = e8g24r24f+24a24r12g24a24b24a24g24e24c24 >> ; $C4 = e24d+24e24f+24g4e12f+12g12e6e6f+6g6a8b8a12g8a8g12 f+8g8f+12e12r12e6f+4&f+6g12a12b12a6g6f+12d12d12d12d4e12e4&e12 r24 < ; $C5 = @l0,0,0,0,0,0 e24>a24a24a24e24e24e24e24c24c24r24c24e24 ; $C6 = @l20,30,0,40,0,0 /:2 b8a24r12>d6c12d6c12c24 ; $C7 = /:2 b12e12g12d24f+12e12d12:/ /:2 b12e12g12d24f+12c24e12d12:/ b12e12g12d24f+12c24e12e12a12f+12g12e24f+12d24e12c12d12 /:2 b12f+12a12f+24g12e24f+12d12e12:/ ; $C8 = @l0,0,0,0,0,0 /:8 e24:/ /:8 e24:/ e24r24 ; $C9 = >e24r24a24a24a24a24e24e24e24e24c24c24c24c24 < ; /* MML定義(SSG ch.D) */ $Ev1 = @e1,0,3,127, 8,103, 68, 0,48; $Ev2 = @e1,0,3,127, 8,103, 68, 0,640; $Ev3 = @e1,0,3,127, 1,111,480, 0,48; $Ev4 = @e1,0,2,127, 1,119,640, 0,48; $Ev5 = @e1,0,0,119,48; $D0 = x1 q16@q0 @3 ns0 @d13 v11 l16 o6 ; $D1 = $Ev1 /:2 /:2 a12e12e24a24:/ /:2 g12e12e24g24:/ /:2 f+12e12e24f+24:/ /:2 g12e12e24g24:/ :/ )) /:4 g12e8g24:/ /:4 g12c24e8g24c24:/ /:2 e12c8e24:/ /:2 f+12d8f+24:/ /:2 g12e8g24:/ e8g24r24f+24 $Ev2 a24r12 $Ev1 g24a24b24a24g24e24c24 /:4 g12e8g24:/ /:4 g12c24e8g24c24:/ /:2 e12c8e24:/ /:2 f+12d8f+24:/ /:2 g12e8g24:/ e8g24r24f+24 $Ev2 a24r12 $Ev1 g24a24b24a24g24e24c24 /:2 g12c24e8g24c24:/ /:2 f+12d8f+24:/ /:4 g12d8g24:/ /:4 f+12d8f+24:/ /:4 g12e8g24:/ /:2 g12c24e8g24c24:/ /:2 f+12d8f+24:/ /:4 g12d8g24:/ /:4 f+12d8f+24:/ /:4 g12e8g24:/ /:2 g12e12:/ /:2 g12c12e12c12c12:/ e12c12e12c12c12 f+12d12d12d12 /:2 g12e12e12:/ /:2 f+12e8f+24:/ /:2 g12e8g24:/ (( ; /* MML定義(SSG ch.E) */ $E0 = x1 q16@q0 @3 ns0 @d3 v9 l16 o6 ; $E1 = $Ev1 /:2 r24 /:2 a12e12e24a24:/ /:2 g12e12e24g24:/ /:2 f+12e12e24f+24:/ g12e12e24g24g12e12e24g24 :/ (( $Ev3 < g24f+24g24a24b4g12a12b12g6g6a6b6f+8g8f+12e8f+8e12d8e8 d12c12r12g6a4&a6e12f+12g12f+6e6d12a12a12a12a4b12b4&b12 )))) r24>e8g24r24f+24a24r12g24a24b24a24g24e24 (((( e8g24r24f+24a24r12g24a24b24a24g24e24 > ((( $Ev4 /:2 g8f+24r12a6a12g12f+12:/ f+8g8e4&e6d8e8e4d12d2&d6e12f+4e12d2&d6a8g8f+12 $Ev5 b24a24g24f+24a24g24f+24e24g24f+24e24d24f+24e24d24 b24a24g24f+24a24g24f+24e24g24f+24e24d24f+24e24d24e12d12:/ /:2 b12e12g12d24f+12c24e12d12:/ b12e12g12d24f+12c24e12e12a12f+12g12e24f+12d24e12c12d12 /:2 b12f+12a12f+24g12e24f+12d12e12:/ ))) $Ev1 r24/:2 f+12e8f+24:/ g12e8g24g12e8g24 (( > ; /* MML定義(SSG ch.F) */ $Ev10 = @e1,0,1,127,1,103, 48,0,40; $Ev11 = @e1,0,1,127,1,103, 80,0,40; $Ev12 = @e1,0,1,127,1,103,128,0,40; $Nz1 = o0d24; $Nz2 = $Ev11 o0a24 $Ev10; $Nz3 = $Ev12 o0e12 $Ev10; $Nz4a = $Ev12 o0b8 $Ev10; $Nz4b = $Ev12 o0b12 $Ev10; $Nz4c = $Ev12 o0b24 $Ev10; $F0 = x1 q16@q0 @7 ns0 @d0 v12 l16 o5 ; $F1 = $Ev10 /:16 $Nz1 ) $Nz1 $Nz1 $Nz1 ( $Nz2 ) $Nz1 $Nz1 $Nz1 ( :/ /:15 $Nz1 ) $Nz1 $Nz1 $Nz1 ( $Nz2 ) $Nz1 $Nz1 $Nz1 ( :/ $Nz1 ) $Nz1 $Nz1 $Nz1 ( $Nz3 ) $Nz1 $Nz1 ( /:15 $Nz1 ) $Nz1 $Nz1 $Nz1 ( $Nz2 ) $Nz1 $Nz1 $Nz1 ( :/ $Nz1 ) $Nz1 $Nz1 $Nz1 ( $Nz2 r24 $Nz2 $Nz2 /:15 $Nz1 ) $Nz1 $Nz1 $Nz1 ( $Nz2 ) $Nz1 $Nz1 $Nz1 ( :/ $Nz1 ) $Nz1 $Nz1 $Nz1 ( $Nz3 ) $Nz1 $Nz1 ( /:15 $Nz1 ) $Nz1 $Nz1 $Nz1 ( $Nz2 ) $Nz1 $Nz1 $Nz1 ( :/ $Nz1 ) $Nz1 $Nz1 $Nz1 ( $Nz3 ) $Nz1 $Nz1 ( /:16 $Nz1 ) $Nz1 $Nz1 $Nz1 ( $Nz2 ) $Nz1 $Nz1 $Nz1 ( :/ /:2 $Nz4a $Nz4a $Nz4b r12 $Nz4c r24 $Nz4c r8 :/ ; /* 演奏(FM) */ $LOOP=32; t99 r8 $A0 /:$LOOP $TA1$A1 :/; r8 $A0v12 /:$LOOP $TA2$A1 :/; r8 $A0v12 /:$LOOP $TA3$A1 :/; r8 $A0v12 /:$LOOP $TA4$A1 :/; r8 $B0 /:$LOOP $TB1$B1 :/; r8 $B0 /:$LOOP $TB2$B1 :/; r8 $B0 /:$LOOP $TB3$B1 :/; r8 $B0v11 /:$LOOP $TB4$B1 :/; r8 $C0 /:$LOOP $TC1$C1 $TD1$C2 $TB1$C3 $TD1$C4 $TA1$C5 $TE1$C6 $TF1$C7 $TA1$C8 $C9 :/; r8 $C0 /:$LOOP $TC2$C1 v11 $TD2$C2 $TB2$C3 v11 $TD2$C4 v8 $TA2$C5 $TE2$C6 $TF2$C7 v7 $TA2$C8 v8 $C9 :/; r8 $C0 /:$LOOP $TC3$C1 $TD3$C2 $TB3$C3 $TD3$C4 v8 $TA3$C5 $TE3$C6 $TF3$C7 v7 $TA3$C8 v8 $C9 :/; r8 $C0 /:$LOOP v10 $TC4$C1 v11 $TD4$C2 v11 $TB4$C3 v11 $TD4$C4 v8 $TA4$C5 v11 $TE4$C6 v11 $TF4$C7 v7 $TA4$C8 v8 $C9 :/; /* 演奏(SSG) */ r8 $D0 /:$LOOP $D1:/; r8 $E0 /:$LOOP $E1:/; r8 $F0 /:$LOOP $F1:/; /* 波形メモリ定義(フィードバック変調済み正弦波) 【生成式】 y = [TL]sin( rd + [FB][2*pi]last_y ) 【パラメータ】 TL:OPN-TotalLevel, rd:ラジアン, FB:OPN-FB変調率, pi:円周率, last_y:前回のy. */ /* WAV13-0 【生成情報】 1周期分880サンプル生成。 TL=22(0.14962..倍), FB=5(0.5倍). */ #WAV13 0,8082848587898A8C8E9091939596989A9B9D9FA0A2A3A5A7A8AAABADAEB0B1B3B4B6B7B9BABCBDBEC0C1C2C4C5C6C7C9CACBCCCDCFD0D1D2D3D4D5D6D7D8D9DADBDCDDDEDFE0E1E1E2E3E4E5E6E6E7E8E9E9EAEBEBECEDEDEEEEEFF0F0F1F1F2F2F3F3F4F4F5F5F6F6F6F7F7F8F8F8F9F9F9FAFAFAFBFBFBFBFCFCFCFCFDFDFDFDFDFEFEFEFEFEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFEFEFEFEFDFDFDFDFDFDFDFCFCFCFCFCFBFBFBFBFAFAFAFAFAF9F9F9F9F8F8F8F8F7F7F7F6F6F6F6F5F5F5F4F4F4F3F3F3F2F2F2F1F1F1F0F0F0EFEFEEEEEEEDEDEDECECEBEBEBEAEAE9E9E9E8E8E7E7E7E6E6E5E5E4E4E4E3E3E2E2E1E1E0E0DFDFDFDEDEDDDDDCDCDBDBDADAD9D9D8D8D7D7D6D6D5D5D4D4D3D3D2D2D1D1D0D0CFCFCECECDCDCCCBCBCACAC9C9C8C8C7C7C6C6C5C4C4C3C3C2C2C1C1C0BFBFBEBEBDBDBCBBBBBABAB9B9B8B7B7B6B6B5B5B4B3B3B2B2B1B1B0AFAFAEAEADACACABABAAA9A9A8A8A7A6A6A5A5A4A3A3A2A2A1A0A09F9F9E9D9D9C9C9B9A9A999898979796959594949392929190908F8F8E8D8D8C8C8B8A8A898888878786858584848382828180807F7F7E7D7D7C7B7B7A7A797878777776757574737372727170706F6F6E6D6D6C6B6B6A6A696868676766656564636362626160605F5F5E5D5D5C5C5B5A5A59595857575656555454535352515150504F4F4E4D4D4C4C4B4A4A4949484847464645454444434242414140403F3F3E3D3D3C3C3B3B3A3A393938373736363535343433333232313130302F2E2E2D2D2C2C2B2B2A2A2929282827272626262525242423232222212120201F1F1F1E1E1D1D1C1C1B1B1B1A1A19191818181717161616151514141413131312121111111010100F0F0F0E0E0E0D0D0D0C0C0C0B0B0B0A0A0A0A090909080808080707070706060606050505050504040404040303030303030202020202020202010101010101010101010101010101010101010101010101010101010101010101010102020202020202030303030304040404040505050606060607070708080909090A0A0B0B0C0C0C0D0D0E0E0F101011111212131414151616171818191A1B1B1C1D1E1F1F202122232425262728292A2B2C2D2E2F30313234353637383A3B3C3D3F40414344454748494B4C4E4F5152545557585A5C5D5F6062646567686A6C6D6F7173747678797B7D7E /* WAV13-1 【生成情報】 1周期分440サンプル生成。 TL=44(0.022387..倍), FB=7(2倍). */ #WAV13 1,7F828487898C8E919396989B9DA0A2A4A7A9ABAEB0B2B5B7B9BBBDBFC2C4C6C8CACBCDCFD1D3D5D6D8DADBDDDEE0E1E3E4E5E7E8E9EBECEDEEEFF0F1F2F3F4F5F5F6F7F8F8F9FAFAFBFBFCFCFDFDFDFEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFDFDFDFCFCFCFBFBFAFAF9F9F8F8F7F7F6F5F5F4F3F3F2F1F0F0EFEEEDECECEBEAE9E8E7E6E5E4E3E2E1E0DFDEDDDCDBDAD9D8D7D6D5D3D2D1D0CFCECCCBCAC9C8C6C5C4C3C1C0BFBEBCBBBAB8B7B6B4B3B2B0AFAEACABAAA8A7A6A4A3A1A09F9D9C9B999896959492918F8E8C8B8A888785848381807E7D7B7A797776747372706F6D6C6A696866656362615F5E5D5B5A585756545352504F4E4C4B4A484746444342413F3E3D3C3A3938373634333231302E2D2C2B2A2928272625232221201F1E1D1C1B1B1A19181716151413131211100F0F0E0D0D0C0B0B0A09090808070706060505040403030302020202010101010101010101010101010101010101020202030303040405050606070708090A0A0B0C0D0E0F1011121314151617191A1B1D1E1F2122242627292B2C2E3032333537393B3D3F414346484A4C4E515355585A5C5F616466686B6D707275777A7C /* WAV13-2 【生成情報】 1周期分440サンプル生成。 TL=36(0.044668..倍), FB=7(2倍). */ #WAV13 2,7F83878B8F93989CA0A3A7ABAFB2B6B9BDC0C3C6C9CCCED1D3D6D8DADDDFE1E2E4E6E8E9EBECEDEFF0F1F2F3F4F5F6F7F8F9F9FAFBFBFCFCFDFDFDFEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFEFDFDFDFCFCFCFBFBFAFAF9F9F9F8F7F7F6F6F5F5F4F3F3F2F1F1F0EFEFEEEDEDECEBEAE9E9E8E7E6E5E5E4E3E2E1E0E0DFDEDDDCDBDAD9D8D7D6D5D4D3D2D2D1D0CFCECDCCCBCAC8C7C6C5C4C3C2C1C0BFBEBDBCBBBAB9B8B6B5B4B3B2B1B0AFAEACABAAA9A8A7A6A5A3A2A1A09F9E9D9B9A9998979695939291908F8E8C8B8A8988878584838281807E7D7C7B7A79777675747372706F6E6D6C6B6A68676665646361605F5E5D5C5B5A58575655545352514F4E4D4C4B4A4948474645434241403F3E3D3C3B3A393837363534333231302F2E2D2C2B2A29282726252424232221201F1E1D1D1C1B1A19181817161515141312121110100F0E0E0D0C0C0B0B0A0909080807070606050505040404030303020202020101010101010101010101010101010101020202020303040405050606070808090A0B0C0D0E0F101113141517181A1C1D1F21232527292B2E303335383B3E4144474A4D5154585B5F63676B6F73777B /* ピッチベンドテーブル for drums */ #WAV13 9,807F7E7D7C7B7A797877767574737271706F6E6D6C6B6A696867666564636261605F5E5D5C5B5A595857565554535251504F4E4D4C4B4A494847464544434241403F3E3D3C3B3A393837363534333231302F2E2D2C2B2A292827262524232221201F1E1D1C1B1A191817161514131211100F0E0D0C0B0A090807060504030201 /*EOF*/