Hi all and Amelie, I have been using your script and it really works.
I have one question, when I want to add -- or ___ between lyrics they
don't show up in the final ps or pdf (see attached) notice to notes with
no lyrics that is because in the song there are a few places with a few
notes per one sylable.
I checked the mahyedid.out.29 and all the -- and __ had vanished???
What to do??
Also notice in the exampe that the lyrics in the first measure are not
aligned right.
Help
Thanks
Aaron
On Wed, 2003-07-02 at 20:22, Amelie Zapf wrote:
> Hi Aaron, all,
> The following script should do the job:
>
> Cheers, Amy
>
> #!/usr/bin/perl
> ####################################################
> # revertlyrics.pl v0.1
> # Script to print right-to-left languages backwards
> # in Lilypond
> # (c) Amelie Zapf 2003
> # Licensed under the GNU GPL v2
> ####################################################
>
> # Usage: revertlyrics.pl <lilypondfile>
> # 1. Name each lyric file <lilypondfile>.lyr.<number>
> # 2. Insert "\include "<lilypondfile>.out.<number>";
> # at the appropriate positions in your lilypond file
> # 3. Run script
>
> use warnings;
> use strict;
>
> # which files to process
> my $file=$ARGV[0];
> $file=~s/\.ly//;
> my @files=glob("$file.lyr.*");
>
> foreach (@files) {
> # read
> open FILE, $_;
> my @content=<FILE>;
> close FILE;
>
> # process
> for (my $i=0; $i<scalar(@content); $i++) {
> # get rid of spurious blank space
> chomp $content[$i];
> $content[$i]=~s/\s+/ /g;
> #split into syllables
> my @line=split / /, $content[$i];
> for (my $j=0; $j<scalar(@line); $j++) {
> # get rid of lyric value
> my $time=$line[$j];
> $time=~s/^[^\d]+//;
> $line[$j]=~s/[\d]+\.+$//;
> # take care that trailing hyphens appear at the end
> if ($line[$j]=~/\-$/) {
> $line[$j]=~s/\-$//;
> $line[$j]="-$line[$j]";
> }
> # special treatment of centered hyphens and
> # syllable extenders, actual substitution
> if ($line[$j] ne "--" && $line[$j] ne "__") {
> $line[$j]="\"\\\\R{$line[$j]}\"";
> }
> # get value back in
> $line[$j]="$line[$j]$time";
> }
> # fuse line from syllables
> $content[$i]=join " ", @line;
> }
>
> # output
> my $newfile=$_;
> $newfile=~s/\.lyr\./.out./;
> open FILE, ">$newfile";
> for (my $i=0; $i<scalar(@content); $i++) {
> print FILE "$content[$i]\n";
> }
> close FILE;
> }
>
>
>
> _______________________________________________
> Lilypond-user mailing list
> [EMAIL PROTECTED]
> http://mail.gnu.org/mailman/listinfo/lilypond-user
mayedidos29.pdf
Description: Adobe PDF document
_______________________________________________ Lilypond-user mailing list [EMAIL PROTECTED] http://mail.gnu.org/mailman/listinfo/lilypond-user
