Hi all,
I was having problems with files I created in 1.6 of lilypond.
I converted them to 1.8 and most of them work.
I just notated a song and when I run ly2dvi it gives me the same error
mesages as the older files do.
Is there something I must do to author a file in 1.8. I tried adding a
line for version 1.8.0.
But this didn't help.
I even ran the update script but this didn't sseem to help.
Any ideas??
here is the error:
--------------------------------------------------------------
[EMAIL PROTECTED] web]$ ly2dvi -p kop.ly
ly2dvi (GNU LilyPond) 1.8.0
Running /usr/bin/lilypond...GNU LilyPond 1.8.0
Now processing: `kop.ly'
Parsing...Backtrace:
In unknown file:
?: 0* [#<procedure #f (lyric)> #<Music SequentialMusic>]
In /nigunsite/web/kop.ly:
16: 1* [text-map #<procedure #f (word)> #<Music SequentialMusic>]
2: 2 (let (# # #) (if # #) (if # #) ...)
2: 3* (ly-get-mus-property music (quote text))
/nigunsite/web/kop.ly:2:15: In expression (ly-get-mus-property music
(quote text)):
/nigunsite/web/kop.ly:2:15: Unbound variable: ly-get-mus-property
ly2dvi: error: LilyPond failed on input file kop (exit status 2)
ly2dvi: warning: Running LilyPond failed. Rerun with --verbose for a
trace.
[EMAIL PROTECTED] web]$
----------------------------------------------
here is the file:
-------------------------------------------------
\version "1.8.0"
\header {
title = "\\R{זשעבינער קאפ}"
language = "hebrew,english"
}
\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 "treble"
\key e \minor
\property Staff.midiInstrument = "oboe"
\time 4/4
\relative d' {
\repeat volta 2 {
%music before first and second time bars
e8. e16 a4 e8. d16 a4 |
a8 \grace {b8} a8 g8. fis16 g2 |
a8. b16 a8. b16 a16 a8. e4
}
\alternative {
{
%First time
g8 fis16 a8 g16 g8 fis16 g16 fis8 e
% FR(5)
}
{%Second time
g8 fis16 a16 a8. e2
}
}
\repeat volta 2 {
%music before first and second time bars
c8. d16 c8. d16 c16 c8. b8. a16 |
a8. d16 a8. d16 a16 a8. g4 |
g8. g16 c4 b16 c16 b8 a16 b16 a8 |
e2. r4
}
|
% FR(10)
\repeat volta 2 {
%music before first and second time bars
g4.-\segno a32 b a16 g4. a32 b a16 |
g8. a16 g8 a16 g2 |
a8. b16 a8. b16 a8 g16 fis e4
g8. a16 g8. a16 f2 |
g4 e'4 d4 c4 |
b d c b |
a8 c e c b4 a8. g16 |
% FR(15)
g8 a d a g4 \times 3/2 {[fis8 e fis]} |
e2. r4
}
\repeat volta 2
%music before first and second time bars
{
\times 3/2 {[e8 fis g]} a4 g8. fis16 g4 |
\times 3/2 {[e8 fis g]} a8. b16 a2
g8. fis16 g2 |
\times 3/2 {[e8 fis g]} a8. a16 c2
b4 a e2 |
}
\repeat volta 2 {
%music before first and second time bars
e4 e'8. e16 e2 |
e4 e'8. e16 e2 |
e8. f16 g8. f16 e8 d c b |
c8. d16 e8. d16 d8 c b a |
b8. c16 c8. c16 b8 a8 gis f |
gis b a gis f d f |
e2.^" "^#'(bold "D.S. al fine") r4
}
}
\context Lyrics \apply #(text-augment "\\R{" "}") \lyrics {
}
% Here you probably want to use "\\R{" and "}" instead.
\paper {
papersize = "a4"
indent = 0.0\cm
} \midi { \tempo 4 = 106 }
}
-----------------------------------------
Thanks
Aaron
_______________________________________________
Lilypond-user mailing list
[EMAIL PROTECTED]
http://mail.gnu.org/mailman/listinfo/lilypond-user
