Add arrange of The Tank Girl's Dream
For Touhou's 25th anniversary! #SoEWeek
This commit is contained in:
parent
0b3c68a777
commit
27aec21af2
|
@ -0,0 +1,8 @@
|
|||
all: foreground background
|
||||
sox -m foreground.wav background.wav "tank-girl-dream.wav"
|
||||
foreground:
|
||||
perl foreground.pl | xargs ../mysox.sh foreground.wav
|
||||
background:
|
||||
perl background.pl | xargs ../mysox.sh background.wav
|
||||
clean:
|
||||
-rm -f *.wav
|
|
@ -0,0 +1,13 @@
|
|||
___ ___
|
||||
| |__| |__
|
||||
| | | |___
|
||||
___ __ __ . __
|
||||
| /\ |\ | |__/ / _` | |__) | ' /__`
|
||||
| /~~\ | \| | \ \__> | | \ |___ .__/
|
||||
__ __ ___
|
||||
| \ |__) |__ /\ |\/|
|
||||
|__/ | \ |___ /~~\ | |
|
||||
|
||||
The Tank Girl's Dream
|
||||
Composed by ZUN for Touhou Fuumaroku: the Story of Eastern Wonderland
|
||||
Arranged by Job Bautista
|
|
@ -0,0 +1,128 @@
|
|||
#!/usr/bin/env perl
|
||||
|
||||
use warnings;
|
||||
use strict;
|
||||
|
||||
=begin
|
||||
Copyright (C) 2022 Job Bautista
|
||||
|
||||
Permission is hereby granted, free of charge, to any person obtaining a copy of
|
||||
this software and associated documentation files (the "Software"), to deal in
|
||||
the Software without restriction, including without limitation the rights to
|
||||
use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies
|
||||
of the Software, and to permit persons to whom the Software is furnished to do
|
||||
so, subject to the following conditions:
|
||||
|
||||
The above copyright notice and this permission notice shall be included in all
|
||||
copies or substantial portions of the Software.
|
||||
|
||||
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||||
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
||||
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
||||
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
||||
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
||||
SOFTWARE.
|
||||
=cut
|
||||
|
||||
use lib '..';
|
||||
use SoXMusicGen;
|
||||
|
||||
our @notes;
|
||||
|
||||
setTempo(161);
|
||||
setDefaultSynthType("square", "square", "square");
|
||||
our $maxSynthChannels=3;
|
||||
|
||||
# Intro, part 1
|
||||
sub intro1 {
|
||||
sub amisc {
|
||||
push (@notes, "$ha:A3/$_[0]3");
|
||||
}
|
||||
sub fsed {
|
||||
amisc("F#");
|
||||
amisc("E");
|
||||
amisc("D");
|
||||
}
|
||||
fsed(); amisc("E");
|
||||
fsed(); push (@notes, "$ha:G#3/F3");
|
||||
fsed(); amisc("E");
|
||||
fsed();
|
||||
push @notes, (
|
||||
"$qu:G#3/F#3",
|
||||
"$qu:G#3/F3"
|
||||
);
|
||||
}
|
||||
|
||||
# Intro, part 2
|
||||
sub intro2 {
|
||||
for (iterate(1,4)) {
|
||||
push @notes, (
|
||||
"$ha:F3/A#2",
|
||||
"$ha:D#3/G#2",
|
||||
"$ha:C#3/F#2",
|
||||
"$ha:D#3/G#2",
|
||||
);
|
||||
}
|
||||
}
|
||||
|
||||
intro1(); intro2();
|
||||
intro1(); intro2();
|
||||
|
||||
# Supposed to be a full note which would be 1.49,
|
||||
# but getting desync for some reason
|
||||
silence(1.45);
|
||||
|
||||
# Verse 1
|
||||
sub asgsfs {
|
||||
push @notes, (
|
||||
"$fu:A#3/F3/C#3",
|
||||
"$fu:G#3/D#3/C3",
|
||||
"$fu:F#3/C#3/A#2"
|
||||
);
|
||||
}
|
||||
asgsfs(); push (@notes, "1.48:A3/F3/C3");
|
||||
asgsfs(); push (@notes, "1.48:C4/D#3/C3");
|
||||
asgsfs(); push (@notes, "1.48:A3/F3/C3");
|
||||
asgsfs(); push (@notes, "1.48:C4/D#3/C3");
|
||||
|
||||
# Verse 2
|
||||
sub gfds {
|
||||
push @notes, (
|
||||
"$fu:G3/D3/A#2",
|
||||
"$fu:F3/C3/A2",
|
||||
"$fu:D#3/A#2/G2"
|
||||
);
|
||||
}
|
||||
gfds(); push (@notes, "1.48:F#3/D3/A2");
|
||||
gfds(); push (@notes, "1.48:A3/C3/A2");
|
||||
gfds(); push (@notes, "1.48:F#3/D3/A2");
|
||||
gfds(); push (@notes, "1.48:A3/C3/A2");
|
||||
|
||||
# Verse 3
|
||||
sub gsdsb {
|
||||
push @notes, (
|
||||
"$fu:G#3/D#3/B2",
|
||||
"$fu:F#3/C#3/A#2",
|
||||
"$fu:E3/B2/G#2"
|
||||
);
|
||||
}
|
||||
gsdsb(); push (@notes, "1.48:G3/D#3/A#2");
|
||||
gsdsb(); push (@notes, "1.48:A#3/C#3/A#2");
|
||||
gsdsb(); push (@notes, "1.48:G3/D#3/A#2");
|
||||
gsdsb(); push (@notes, "1.48:A#3/C#3/A#2");
|
||||
|
||||
# Verse 4
|
||||
sub casgs {
|
||||
push @notes, (
|
||||
"$fu:C4/G3/D#3",
|
||||
"$fu:A#3/F3/D3",
|
||||
"$fu:G#3/D#3/C3"
|
||||
);
|
||||
}
|
||||
casgs(); push (@notes, "1.48:B3/G3/D3");
|
||||
casgs(); push (@notes, "1.48:D4/F3/D3");
|
||||
casgs(); push (@notes, "$fu:B3/G3/D3");
|
||||
casgs(); push (@notes, "$fu:D4/F3/D3");
|
||||
|
||||
createSynths();
|
|
@ -0,0 +1,269 @@
|
|||
#!/usr/bin/env perl
|
||||
|
||||
use warnings;
|
||||
use strict;
|
||||
|
||||
=begin
|
||||
Copyright (C) 2022 Job Bautista
|
||||
|
||||
Permission is hereby granted, free of charge, to any person obtaining a copy of
|
||||
this software and associated documentation files (the "Software"), to deal in
|
||||
the Software without restriction, including without limitation the rights to
|
||||
use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies
|
||||
of the Software, and to permit persons to whom the Software is furnished to do
|
||||
so, subject to the following conditions:
|
||||
|
||||
The above copyright notice and this permission notice shall be included in all
|
||||
copies or substantial portions of the Software.
|
||||
|
||||
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||||
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
||||
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
||||
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
||||
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
||||
SOFTWARE.
|
||||
=cut
|
||||
|
||||
use lib '..';
|
||||
use SoXMusicGen;
|
||||
|
||||
our @notes;
|
||||
|
||||
setTempo(161);
|
||||
setDefaultSynthType("square", "square", "square");
|
||||
our $maxSynthChannels=3;
|
||||
|
||||
# To accompany background
|
||||
silence("$ei");
|
||||
|
||||
# Intro, part 1
|
||||
sub intro1 {
|
||||
sub af3 {
|
||||
for (iterate(1,3)) {
|
||||
push (@notes, "$ei:A4/F#4");
|
||||
}
|
||||
}
|
||||
for (iterate(1,6)) {
|
||||
af3();
|
||||
silence("$ei");
|
||||
}
|
||||
af3();
|
||||
push (@notes, "$ha:G#4/F4");
|
||||
}
|
||||
|
||||
# Intro, part 2
|
||||
sub intro2 {
|
||||
sub fcs3 {
|
||||
for (iterate(1,3)) {
|
||||
push (@notes, "$ei:F4/C#4");
|
||||
}
|
||||
}
|
||||
fcs3(); silence("$ei");
|
||||
sub ddgccf {
|
||||
push (@notes, "$ei:D#4/C4");
|
||||
push (@notes, "$ei:D#4/C4");
|
||||
push (@notes, "$ei:G#4/F4");
|
||||
}
|
||||
ddgccf(); silence("$ei");
|
||||
fcs3(); push (@notes, "$ei:F4/C#4");
|
||||
push @notes, (
|
||||
"$ei:D#4/C4",
|
||||
"$ei:C#4/A#3",
|
||||
"$ei:C4/G#3"
|
||||
);
|
||||
silence("$ei");
|
||||
fcs3(); silence("$ei"); ddgccf();
|
||||
push @notes, (
|
||||
"$dqu:A#4/F4",
|
||||
"$ei:F4/C#4",
|
||||
"$ei:A#4/F4",
|
||||
"$ei:F4/C#4",
|
||||
"$ei:C5/G#4",
|
||||
"$ei:C#5/A#4"
|
||||
);
|
||||
}
|
||||
|
||||
intro1(); silence("$ei"); intro1(); silence("$ei");
|
||||
intro2(); silence("$ei"); intro2(); silence("$ei");
|
||||
intro1(); silence("$ei"); intro1(); silence("$ei");
|
||||
intro2(); silence("$ei"); intro2();
|
||||
silence("$fu");
|
||||
|
||||
# Verse 1
|
||||
sub verse1 {
|
||||
sub verse1common {
|
||||
push @notes, (
|
||||
"$ei:D#5",
|
||||
"$ei:C#5",
|
||||
"$ei:C5",
|
||||
"$si:C#5",
|
||||
"$dei:F4"
|
||||
);
|
||||
}
|
||||
sub asccs {
|
||||
push @notes, (
|
||||
"$ei:A#4",
|
||||
"$ei:C5",
|
||||
"$ei:C#5"
|
||||
);
|
||||
}
|
||||
sub commonasccs3 {
|
||||
for (iterate(1,3)) {
|
||||
verse1common(); asccs();
|
||||
}
|
||||
}
|
||||
commonasccs3();
|
||||
push @notes, (
|
||||
"$ei:C5",
|
||||
"$ei:A#4",
|
||||
"$ei:A4",
|
||||
"$si:C5",
|
||||
"$dei:A4",
|
||||
"$ei:F5",
|
||||
"$ei:D#5",
|
||||
"$ei:F5"
|
||||
);
|
||||
commonasccs3();
|
||||
verse1common();
|
||||
push @notes, (
|
||||
"$ei:F5",
|
||||
"$ei:D#5",
|
||||
"$ei:C5"
|
||||
);
|
||||
}
|
||||
verse1(); verse1();
|
||||
|
||||
# Verse 2, a variation of verse 1
|
||||
sub verse2 {
|
||||
sub verse2common {
|
||||
push @notes, (
|
||||
"$ei:C5",
|
||||
"$ei:A#4",
|
||||
"$ei:A4",
|
||||
"$si:A#4",
|
||||
"$dei:D4"
|
||||
);
|
||||
}
|
||||
sub gaas {
|
||||
push @notes, (
|
||||
"$ei:G4",
|
||||
"$ei:A4",
|
||||
"$ei:A#4"
|
||||
);
|
||||
}
|
||||
sub commongaas3 {
|
||||
for (iterate(1,3)) {
|
||||
verse2common(); gaas();
|
||||
}
|
||||
}
|
||||
commongaas3();
|
||||
push @notes, (
|
||||
"$ei:A4",
|
||||
"$ei:G4",
|
||||
"$ei:F#4",
|
||||
"$si:A4",
|
||||
"$dei:F#4",
|
||||
"$ei:D5",
|
||||
"$ei:C5",
|
||||
"$ei:D5"
|
||||
);
|
||||
commongaas3();
|
||||
verse2common();
|
||||
push @notes, (
|
||||
"$ei:D5",
|
||||
"$ei:C5",
|
||||
"$ei:A4"
|
||||
);
|
||||
}
|
||||
verse2(); verse2();
|
||||
|
||||
# Verse 3, another variation of verse 1
|
||||
sub verse3 {
|
||||
sub verse3common {
|
||||
push @notes, (
|
||||
"$ei:C#5",
|
||||
"$ei:B4",
|
||||
"$ei:A#4",
|
||||
"$si:B4",
|
||||
"$dei:D#4"
|
||||
);
|
||||
}
|
||||
sub gsasb {
|
||||
push @notes, (
|
||||
"$ei:G#4",
|
||||
"$ei:A#4",
|
||||
"$ei:B4"
|
||||
);
|
||||
}
|
||||
sub commongsasb3 {
|
||||
for (iterate(1,3)) {
|
||||
verse3common(); gsasb();
|
||||
}
|
||||
}
|
||||
commongsasb3();
|
||||
push @notes, (
|
||||
"$ei:A#4",
|
||||
"$ei:G#4",
|
||||
"$ei:G4",
|
||||
"$si:A#4",
|
||||
"$dei:G4",
|
||||
"$ei:D#5",
|
||||
"$ei:C#5",
|
||||
"$ei:D#5"
|
||||
);
|
||||
commongsasb3();
|
||||
verse3common();
|
||||
push @notes, (
|
||||
"$ei:D#5",
|
||||
"$ei:C#5",
|
||||
"$ei:A#4"
|
||||
);
|
||||
}
|
||||
verse3(); verse3();
|
||||
|
||||
# Verse 4, another variation of verse 1
|
||||
sub verse4 {
|
||||
sub verse4common {
|
||||
push @notes, (
|
||||
"$ei:F5",
|
||||
"$ei:D#5",
|
||||
"$ei:D5",
|
||||
"$si:D#5",
|
||||
"$dei:G4"
|
||||
);
|
||||
}
|
||||
sub cdds {
|
||||
push @notes, (
|
||||
"$ei:C5",
|
||||
"$ei:D5",
|
||||
"$ei:D#5"
|
||||
);
|
||||
}
|
||||
sub commoncdds3 {
|
||||
for (iterate(1,3)) {
|
||||
verse4common(); cdds();
|
||||
}
|
||||
}
|
||||
commoncdds3();
|
||||
push @notes, (
|
||||
"$ei:D5",
|
||||
"$ei:C5",
|
||||
"$ei:B4",
|
||||
"$si:D5",
|
||||
"$dei:B4",
|
||||
"$ei:G5",
|
||||
"$ei:F5",
|
||||
"$ei:G5"
|
||||
);
|
||||
commoncdds3();
|
||||
verse4common();
|
||||
push @notes, (
|
||||
"$ei:G5",
|
||||
"$ei:F5",
|
||||
"$ei:D5"
|
||||
);
|
||||
}
|
||||
verse4(); verse4();
|
||||
|
||||
createSynths();
|
Reference in New Issue