I created the file with one alef so that I can see what I am doing:
here is the file and here is the output:
---------------------snip-----------------
\version "1.6.10" % Thanks, Han-Wen!
% Do you still have problems with the titles?
\header {
title = "Title"
% languague = "hebrew,english" % don't forget to uncomment this!
}
\include "paper26.ly"
% General purpose mapping function: applies FUNC to every
% text field in MUSIC.
#(define (text-map func music)
(let ((text (ly-get-mus-property music 'text))
(element (ly-get-mus-property music 'element))
(elements (ly-get-mus-property music 'elements)))
(if (not (null? text))
(ly-set-mus-property! music 'text (func text)))
(if (not (null? element))
(ly-set-mus-property! music 'element (text-map func element)))
(if (not (null? elements))
(ly-set-mus-property! music 'elements
(map (lambda (m) (text-map func m)) elements)))
music))
% Does Scheme really not include this function?
#(define (string-reverse str)
(list->string (reverse (string->list str))))
% Reverse every word (in terms of the above two functions)
#(define (text-reverse lyric)
(text-map string-reverse lyric))
% Sandwich every word between PRE and POST
#(define (text-augment pre post)
(lambda (lyric)
(text-map (lambda (word) (string-append pre word post)) lyric)))
% I factored out the lyrics, and also tried setting
% the extra-offset property randomly. It works.
lyr = \lyrics {
א
%\property LyricsVoice . LyricText \override #'extra-offset = #'(5 .
0)
%ta
%\property LyricsVoice . LyricText \revert #'extra-offset
%damm
}
\score {
\addlyrics
\notes {
\clef "bass"
\key d \major
\time 3/4
d4. a8 g4
}
\context Lyrics < \lyr \apply #(text-augment "\\R{" "}") \lyr >
% Here you probably want to use "\\R{" and "}" instead.
\paper {
papersize = "a4"
indent = 0.0\cm
}
}
-------------------------------snip---------------
[EMAIL PROTECTED] aamehl]$ ly2dvi -P onenoet.ly
Running LilyPond...
GNU LilyPond 1.6.10
Now processing: `onenoet.ly'
Parsing...
Interpreting music...warning: can't find ascii character: 224
warning: can't find ascii character: 224
[2]
Preprocessing elements...
Calculating column positions... programming error: No StaffSpacing
wishes found (Continuing; cross thumbs)
[2]
paper output to `onenoet.tex'...
writing header field `title' to `onenoet.title'...
Analyzing onenoet.tex...
Running LaTeX...
ly2dvi:error: LaTeX failed on the output file.
ly2dvi:error: The error log is as follows:
! Undefined control sequence.
<argument> ...scale \magfontSZXAComMMBo \hbox {\R
{א}}
l.73 }
%
The control sequence at the end of the top line
Traceback (most recent call last):
File "/usr/bin/ly2dvi", line 1073, in ?
run_latex (files, outbase, extra_init)
File "/usr/bin/ly2dvi", line 777, in run_latex
raise 'LaTeX error'
LaTeX error
LATEX output to `onenoet.latex'...
TEX output to `onenoet.tex'...
[EMAIL PROTECTED] aamehl]$
----------------snip------------
Thanks
Aaron
_______________________________________________
Lilypond-user mailing list
[EMAIL PROTECTED]
http://mail.gnu.org/mailman/listinfo/lilypond-user
