47 lines
1.6 KiB
Perl
Executable File
47 lines
1.6 KiB
Perl
Executable File
#!/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($ARGV[0]);
|
|
our $maxSamplesChannels=$ARGV[1];
|
|
our $samplesDir=$ARGV[2];
|
|
|
|
our @notestemp=<STDIN>;
|
|
|
|
for my $note (@notestemp) {
|
|
if ($note ne "\n") { # Check first if string is just a trailing newline,
|
|
$note =~ s/(\$\w+)/$1/ee; # Evaluate variable names in stdin
|
|
$note =~ s/\R\z//; # Remove trailing newlines, else xargs will get confused
|
|
push (@notes, $note);
|
|
} # we don't want to print a forever synth after all
|
|
}
|
|
|
|
createSamples();
|