#TITLE Field2/スペースコロニー (星をみるひと, FC) 修正
#ARTIST unknown
#CODING Mayu Hiraizumi (dic.nicovideo.jp/u/11448931)
#COMMENT MML coded 1/28/2024 rev.2


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

$TEMPO = t119.96 ; /* T*60.09*60/round(L*60.09) , T=108time L=54.019sec */
                   /* %1=5.210ms , 1frame=%3.19 */
$RANGE = x0      ; /* linear dynamic range */
$NS    = ns0     ; /* note shift */
$LOOP  = 20      ; /* 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 ;


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

$Aa{a,b,c} = @13-6 @X64 %a%%b @13-1 $ExSE0 %a%%c $Ex0 ;
$Ab24{a}   = @13-6 @X64 %a%8 @13-1 $ExSE0 %a%16 $Ex0 ;

$a00  = q16 @Q0 $Ex0 ;
$a01  = r%384 ;
$a02  = o6 $Aa{e,272,16} $Aa{d,80,16} $Aa{c,80,16} >$Aa{b,80,16} <$Aa{c,48,16} $Aa{d,48,16} $Aa{e,48,16} ;
$a04  = $Aa{g,272,16} $Aa{e,32,16} $Aa{c,176,16} $Aa{e,32,16} $Aa{f,80,16} $Aa{g,80,16} ;
$a06  = $Aa{a,272,16} $Aa{g,80,16} $Aa{f,176,16} $Aa{e,80,16} $Aa{c,80,16} ;
$a08  = $Aa{d,560,16} >$Ab24{g} $Ab24{a} $Ab24{b} <$Ab24{c} >$Ab24{a} $Ab24{b} <$Ab24{c} $Ab24{d} ;
$a14  = $Aa{a-,272,16} $Aa{g,80,16} $Aa{f,80,16} $Aa{e-,80,16} $Aa{d,48,16} $Aa{e-,48,16} $Aa{f,48,16} ;
$a16  = $Aa{g,272,16} >$Aa{b-,80,16} <$Aa{c,176,16} $Aa{c,48,16} $Aa{d,48,16} $Aa{e-,48,16} ;
$a18  = $Aa{f,176,16} $Aa{c,176,16} >$Aa{b,368,16} ;
$a20  = o5 r%96 $Aa{a,80,16} $Aa{b,80,16} <$Aa{c,32,16} $Aa{d,416,16} ;
$a22  = r%96 >$Aa{b-,80,16} <$Aa{c,80,16} $Aa{d,80,16} $Aa{e,128,16} $Aa{d,128,16} $Aa{e,80,16} ;
$a26  = r%96 $Aa{e-,80,16} $Aa{d,80,16} $Aa{e-,80,16} $Aa{c,80,16} $Aa{d,80,16} $Aa{e-,80,16} $Aa{f,80,16} ;

$RANGE $NS $VSa $DT0 $a00
$a01
/:$LOOP $a02 $a04 $a06 $a08 $a02 $a04 $a14 $a16 $a18 $a20 $a22 $a20 $a26 :/
;

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

$Ba384{a,b,c,d,e,f,g,h}
         = /:4 @13-6 @X32 %a%8 @13-1 $ExSE0 %a%16 $Ex0 %b @13-6 @X32 %c%8 @13-1 $ExSE0 %c%16 $Ex0 %d
           @13-6 @X32 %e%8 @13-1 $ExSE0 %e%16 $Ex0 %f @13-6 @X32 %g%8 @13-1 $ExSE0 %g%16 $Ex0 %h :/;
$Ba96{a,b,c,d,e,f,g,h}
         = @13-6 @X32 %a%8 @13-1 $ExSE0 %a%16 $Ex0 %b @13-6 @X32 %c%8 @13-1 $ExSE0 %c%16 $Ex0 %d
           @13-6 @X32 %e%8 @13-1 $ExSE0 %e%16 $Ex0 %f @13-6 @X32 %g%8 @13-1 $ExSE0 %g%16 $Ex0 %h ;
$Ba24{a} = @13-6 @X32 %a%8 @13-1 $ExSE0 %a%16 $Ex0 ;

$b00  = q16 @Q0 $Ex0 ;
$b01  = o6 $Ba384{g,<,c,,d,,e,>} ;
$b04  = $Ba384{g,,b-,<,d,,f,>} ;
$b06  = $Ba384{a,<,d,,e,,f,>} ;
$b08  = $Ba384{b-,<,d,,e-,,f,>} ;
$b09  = /: $Ba96{g,,b,<,c,,d,>} :/ $Ba96{b,<,c,,d,,e,} $Ba96{c,,d,,e,,f,};
$b14  = $Ba384{a-,<,c,,d,,e-,>} ;
$b16  = $Ba384{g,,b-,<,d,,e-,>} $Ba384{g,<,c,,d,,e-,>} $Ba384{a,<,c,,d,,f,>} $Ba384{g,,b,<,c,,d,>} ;
$b20  = $Ba384{a,<,f,,e,,c,>} $Ba384{a,<,e,,d,,a,>} $Ba384{a-,<,e-,,d,>,b-,} ;
$b23  = $Ba384{g,<,e,,d,>,b,} ;
$b27  = r%24 $Ba24{f} $Ba24{a} <$Ba24{c} r%24 >$Ba24{g} $Ba24{b} <$Ba24{d}
        r%24 >$Ba24{a-} <$Ba24{c} >$Ba24{e-} < $Ba24{f} $Ba24{d} >$Ba24{b-} <$Ba24{c} ;

$RANGE $NS $VSb $DT0 $b00
$b01
/:$LOOP 
/:$b01 $b01 $b04 $b04 / $b06 $b06 $b08 $b09 :/ $b14 $b08 $b16
$b20 $b23 $b20 $b27 :/
;

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

$Ca384{a,b} = q11 /:7 %a :/ q6 %a16 %b16 ;
$Cb192{a,b} = q11 /:3 %a :/ q6 %a16 %b16 ;
$Cc384{a}   = q12 %a. q6 %a16 r %a16 %a16 /: q11 %a q6 %a16 %a16 :/ ;

$c00 = l8 @Q0 $Ex0 @13-0 ;
$c01 = r1 ;
$c02 = o4 $Ca384{c,>g}< ;
$c06 = o3 $Ca384{f,<c} ;
$c08 = o3 $Ca384{b-,f} ;
$c09 = /: o3 $Cb192{g,<d} :/ ;
$c15 = o3 $Ca384{b-,<f} ;
$c16 = $Ca384{e-,>b-} ;
$c18 = $Ca384{d,>a} $Ca384{g,<d} ;
$c20 = o3 /: $Cc384{g} $Cc384{a} $Cc384{b-} /$Cc384{a} :/ ;
$c27 = q11 g<f>a<g >b-<a-cb- ;

$RANGE $NS $VTc $DT0 $c00
$c01
/:$LOOP /: /:4 $c02 :/ $c06 / $c06 $c08 $c09 :/ $c15 $c16 $c02 $c18 $c20 $c27 :/
;