diff --git a/pierrot-of-the-star-spangled-banner/gen.sh b/pierrot-of-the-star-spangled-banner/gen.sh index a2cea24..ce162e5 100755 --- a/pierrot-of-the-star-spangled-banner/gen.sh +++ b/pierrot-of-the-star-spangled-banner/gen.sh @@ -14,4 +14,4 @@ cat 00 \ 04 \ 04-05-common \ 05 | -../stdin/synths.pl 180 6 square square triangle square square sawtooth +../stdin/synths.pl 180 48000 6 square square triangle square square sawtooth diff --git a/stdin/synths.pl b/stdin/synths.pl index 99ae0ef..14d1c96 100755 --- a/stdin/synths.pl +++ b/stdin/synths.pl @@ -30,10 +30,11 @@ use SoXMusicGen; our @notes; setTempo($ARGV[0]); -our $maxSynthChannels=$ARGV[1]; +our $synthSampleRate=$ARGV[1]; +our $maxSynthChannels=$ARGV[2]; my @synths; -for my $synth (iterate(2,@ARGV)) { +for my $synth (iterate(3,@ARGV)) { if (exists($ARGV[$synth])) { push (@synths, $ARGV[$synth]); }