#TITLE Battle1/サイキックバトル (星をみるひと, FC) 修正
#ARTIST unknown
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT MML coded 1/28/2024 rev.2


/* Ini ====================================================================== */

$TEMPO = t99.17 ; /* T*60.09*60/round(L*60.09) , T=56time L=33.882sec */
                  /* %1=6.303ms , 1frame=%2.64 */
$RANGE = x0     ; /* linear dynamic range */
$NS    = ns0    ; /* note shift */
$LOOP  = 32     ; /* repeat */

$VSa = @V120 ; /* 2A03 SQR */
$VSb = @V120 ; /* 2A03 SQR */
$VTc = @V88  ; /* 2A03 TRI */

$DT0 = @D0   ; /* tune default */


/* Wave ===================================================================== */

#WAV13 0,80 86 86 86 86 86 86 86 86 86 86 86 87 96 96 96 96 96 96 96 96 96 95 95 95 9E A5 A5 A5 A5 A5 A5 A4 A4 A4 A4 A4 A5 B2 B3 B3 B3 B2 B2 B2 B2 B2 B1 B1 B1 B6 C0 C0 C0 BF BF BF BF BE BE BE BD BD CA CC CC CB CB CB CA CA CA C9 C9 C9 CC D7 D7 D6 D6 D6 D5 D5 D5 D4 D4 D3 D3 DD E1 E1 E0 E0 DF DF DF DE DE DD DD DE EA EA EA E9 E9 E8 E8 E7 E7 E6 E6 E6 ED F3 F2 F2 F1 F1 F0 F0 EF EF EE EE EE ED ED EC EC EB EB EA EA E9 E9 E9 E8 E2 D9 D9 D9 D8 D8 D7 D7 D7 D6 D6 D6 D5 C9 C6 C6 C6 C6 C5 C5 C5 C4 C4 C4 C4 C0 B5 B4 B4 B4 B4 B3 B3 B3 B3 B2 B2 B2 A7 A3 A3 A3 A2 A2 A2 A2 A2 A2 A2 A1 9F 92 92 92 92 92 92 91 91 91 91 91 91 88 81 81 81 81 81 81 81 81 81 81 81 80 72 72 72 72 72 72 72 72 72 72 72 72 6C 62 62 62 62 63 63 63 63 63 63 63 63 55 53 53 54 54 54 54 54 54 55 55 55 50 44 45 45 45 45 46 46 46 46 47 47 47 3A 36 36 37 37 37 38 38 38 39 39 39 37 28 28 29 29 2A 2A 2A 2B 2B 2B 2C 2C 21 1B 1B 1B 1C 1C 1D 1D 1D 1E 1E 1F 1E 0E 0D 0E 0E 0F 0F 10 10 11 11 12 12 0A 00 01 01 02 02 03 03 04 04 05 05 06 06 07 07 08 08 09 09 0A 0A 0B 0B 0C 12 20 20 21 21 21 22 22 23 23 23 24 24 33 37 38 38 38 39 39 39 39 3A 3A 3A 3E 4D 4D 4E 4E 4E 4E 4E 4F 4F 4F 4F 50 5B 62 62 62 62 62 62 62 62 63 63 63 65 74 74 74 75 75 75 75 75 75 75 75 75 /* 2A03 Tri */

#WAV13 1,80 F8 FF FF FF FE FE FD FD FC FC FB FA FA F9 F9 F8 F8 F7 F7 F6 F6 F5 F5 F4 F4 F3 F3 F3 F2 F2 F1 F1 F0 F0 EF EF EE EE ED ED EC EC EC EB EB EA EA E9 E9 E6 76 61 61 61 61 61 61 61 61 62 62 62 62 62 62 62 62 63 63 63 63 63 63 63 63 64 64 64 64 64 64 64 64 65 65 65 65 65 65 65 65 65 66 66 66 66 66 66 66 66 66 66 67 67 67 67 67 67 67 67 67 68 68 68 68 68 68 68 68 68 68 69 69 69 69 69 69 69 69 69 69 6A 6A 6A 6A 6A 6A 6A 6A 6A 6A 6A 6B 6B 6B 6B 6B 6B 6B 6B 6B 6B 6B 6B 6C 6C 6C 6C 6C 6C 6C 6C 6C 6C 6C 6D 6D 6D 6D 6D 6D 6D 6D 6D 6D 6D 6D 6D 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 6F 70 70 70 70 70 70 70 70 70 70 70 70 70 70 70 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 73 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 74 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 75 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 78 79 79 79 79 79 79 79 79 /* 2A03 Sqr 12.50 */

#WAV13 6,80 B9 B9 B9 B8 B8 B8 B8 B7 B7 B7 B7 B6 B6 B6 B6 B6 B5 B5 B5 B5 B4 B4 B4 B4 B4 B3 B3 B3 B3 B2 B2 B2 B2 B2 B1 B1 B1 B1 B1 B0 B0 B0 B0 B0 AF AF AF AF AF AE AE AE AE AE AD AD AD AD AD AD AC AC AC AC AC AB AB AB AB AB AA AA AA AA AA AA A9 A9 A9 A9 A9 A9 A8 A8 A8 A8 A8 A8 A7 A7 A7 A7 A7 A7 A6 A6 A6 A6 A6 A6 A5 A5 A5 A5 A5 A5 A5 A4 A4 A4 A4 A4 A4 A3 A3 A3 A3 A3 A3 A3 A2 A2 A2 A2 A2 A2 A2 A1 A1 A1 A1 A1 A1 A1 A1 A0 A0 A0 A0 A0 A0 A0 9F 9F 9F 9F 9F 9F 9F 9F 9E 9E 9E 9E 9E 9E 9E 9D 9D 9D 9D 9D 9D 9D 9D 9D 9C 9C 9C 9C 9C 9C 9C 9C 9B 9B 9B 9B 9B 9B 9B 9B 9B 9A 9A 9A 9A 9A 9A 9A 9A 9A 99 99 99 99 99 99 99 99 99 99 98 98 98 98 98 98 98 98 98 98 97 97 97 97 97 97 97 97 97 97 96 96 96 96 96 96 96 96 96 96 96 95 95 95 95 95 95 95 95 95 95 95 94 94 94 94 94 94 94 94 94 94 94 94 93 93 93 93 93 93 93 93 93 93 93 93 93 92 92 92 92 92 92 92 92 92 92 92 92 92 91 91 91 91 91 91 91 91 91 91 91 91 91 91 90 90 90 90 43 09 09 0A 0A 0B 0B 0C 0C 0D 0D 0E 0E 0F 0F 10 10 11 11 12 12 13 13 13 14 14 15 15 16 16 17 17 17 18 18 19 19 1A 1A 1A 1B 1B 1C 1C 1D 1D 1D 1E 1E 1F 1F 1F 20 20 21 21 21 22 22 23 23 23 24 24 25 25 25 26 26 26 27 27 28 28 28 29 29 29 2A 2A 2B 2B 2B 2C 2C 2C 2D 2D 2D 2E 2E 2E 2F 2F 2F 30 30 30 31 31 4C /* 2A03 Sqr 75.00 */


/* Extra ==================================================================== */

$TEMPO;

$Ex0   = @E1,0,0,127,0 ;
$ExSE0 = @X127 @E1,0,0, 120,1,120,0, 112,1,112,0, 96,1,96,0, 88,1,88,0, 72,1,72,0, 64,1,64,0, 48,1,48,0, 40,1,40,0, 24,1,24,0, 16,1,16,0, 8,8, 0,0 ;


/* SQRb ===================================================================== */

$Ba16{a} = @13-6 @X64 %a%3 @13-1 $ExSE0 %a%13 $Ex0 ;
$Bb{a,b} = @13-6 @X64 %a%%b ;
$Bc16{a} = @13-1 $ExSE0 %a%16 $Ex0 ;
$Bd32{a} = @13-6 @X64 %a%16 @13-1 $ExSE0 %a%16 $Ex0 ;

$b00a = q16 @Q0 $Ex0;
$b00b = o5 $Ba16{c+} $Ba16{d} ;
$b01a = $Bb{e,176} r%16 $Bb{c+,128} $Bc16{c+} $Ba16{c+} $Ba16{d} $Ba16{e} $Bb{f,176} r%16 $Bb{d,128} $Bc16{d} r%16 ;
$b01b = $Ba16{c+} $Ba16{d} ;
$b01c = r%32 ;
$b09a = o4 $Ba16{a} $Ba16{a+} <$Ba16{c} $Ba16{c+} $Ba16{d} $Ba16{e} $Ba16{c+} r%16 $Ba16{c+} r%48
        $Ba16{c+} $Ba16{d} $Ba16{e} $Ba16{f} $Ba16{g+} $Ba16{a} $Ba16{e} r%16 $Ba16{e} r%16 ;
$b09b = r%32 ;
$b09c = $Ba16{c+} $Ba16{d} ;
$b25  = o6 $Bd32{b-} $Bd32{g-} $Bd32{a} $Bd32{f} $Bd32{a-} $Bd32{e} $Bd32{g} $Bd32{e-}
        $Bd32{g-} $Bd32{d} $Bd32{f} $Bd32{d-} $Bd32{e} $Bd32{c} $Bd32{e-} >$Bd32{b}
        <$Bd32{d} >$Bd32{b-} <$Bb{c+,8} $Bc16{c+} r%8 r%128 ;

$RANGE $NS $VSb $DT0 $b00a
$b00b
/:$LOOP /: $b01a $b01b $b01a $b01c $b09a $b09b $b09a / $b09c :/ $b09b $b25 / $b00b :/
;


/* SQRa ===================================================================== */

/* envelopes is shared with SQRb */
$Aa12{a}  = @13-6 @X64 %a%3 @13-1 $ExSE0 %a%9 $Ex0 ;

$a00a = q16 @Q0 $Ex0;
$a00b = r%32 ;
$a01  = /: o6 r%48 $Ba16{a} $Ba16{a+} $Ba16{a} $Ba16{g+} $Ba16{e} $Ba16{f} $Ba16{g+} $Ba16{a} $Ba16{a+} :/ ;
$a03  = /: o6 r%48 $Ba16{a+} <$Ba16{c} >$Ba16{a+} $Ba16{a} $Ba16{e} $Ba16{f} $Ba16{a} $Ba16{a+} <$Ba16{c} :/ ;
$a09  = o5 r%96 $Ba16{a} r%16 $Ba16{a} <$Aa12{d}  $Aa12{d-}  $Aa12{c} >$Aa12{b} ;
$a10  = o6 r%96 $Ba16{c+} r%16 $Ba16{c+} $Aa12{c+} $Aa12{c} > $Aa12{b}  $Aa12{b-} ;
$a12  = o6 r%96 $Bd32{c+} $Ba16{c+} r%48 ;
$a25  = o7 r%192 r%192 r%192 /:8 $Aa12{c+}  $Aa12{d} :/ ;

$RANGE $NS $VSa $DT0 $b00a
$a00b
/:$LOOP /: $a01 $a03 :/ $a09 $a10 $a09 $a12 /: $a01 $a03 :/ $a09 $a10 $a09 $a12 $a25 :/
;


/* TRIc ===================================================================== */

$c00a = @Q0 $Ex0 @13-0 ;
$c00b = r12 ;

$c01 = l24 q3 o3 /:4 ararg+e :/ /:4 a+ra+rg+e :/ ;
$c09 = /: efg+efg+ ererrr aa+<c+>aa+<c+> ararrr :/ ;
$c25 = l12 q8 o5 c+>aa+b <d+cf+e d<c+>g+e d+dc+>a+ <dd+d24r24 r6 r4 ;

$RANGE $NS $VTc $DT0 $c00a
$c00b
/:$LOOP /: $c01 $c01 $c09 :/ $c25 :/
;