lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: lyrics entry help!!!-was hebrew lily


From: Aaron
Subject: Re: lyrics entry help!!!-was hebrew lily
Date: 04 Jul 2003 15:50:27 +0300

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---------------
address@hidden 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'...
address@hidden aamehl]$
----------------snip------------

Thanks
Aaron





reply via email to

[Prev in Thread] Current Thread [Next in Thread]