[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
hebrew help latest lilypond
From: |
Aaron |
Subject: |
hebrew help latest lilypond |
Date: |
Wed, 03 Nov 2004 16:32:36 +0200 |
Hi I am trying to finish a book in hebrew using lilypond but the hebrew
template I used doesn't work for me in the current lilypond.
I ran convert-ly on it with no results
\version "2.2.0" % Thanks, Han-Wen!
2
3
4 \header {
5 title = "\\R{ÃàøéàÃ}"
6 language = "hebrew,english" % don't forget to uncomment this!
7 }
8
9 #(set-global-staff-size 26)
10
11 % General purpose mapping function: applies FUNC to every
12 % text field in MUSIC.
13 #(define (text-map func music)
14 (let ((text (ly:music-property music 'text))
15 (element (ly:music-property music 'element))
16 (elements (ly:music-property music 'elements)))
17 (if (not (null? text))
18 (ly:music-set-property! music 'text (func text)))
19 (if (not (null? element))
20 (ly:music-set-property! music 'element (text-map func
element)))
21 (if (not (null? elements))
22 (ly:music-set-property! music 'elements
23 (map (lambda (m) (text-map func m)) elements)))
24 music))
25
26
27 % Does Scheme really not include this function?
28 #(define (string-reverse str)
29 (list->string (reverse (string->list str))))
30
31 % Reverse every word (in terms of the above two functions)
32 #(define (text-reverse lyric)
33 (text-map string-reverse lyric))
34
35 % Sandwich every word between PRE and POST
36 #(define (text-augment pre post)
37 (lambda (lyric)
38 (text-map (lambda (word) (string-append pre word post))
lyric)))
39
40
41
42 \score {
43 \addlyrics
44 \notes {
45 \clef "treble"
46 \key e \minor
47 \set Staff.midiInstrument = "oboe"
48 \time 4/4
49
50
51 d'4 e' f' g'
52
53
54
55
56
57
58
59
60 }
61 \context Lyrics \apply #(text-augment "\\R{" "}") \lyrics {
62
63 àðé îòîéå }
64 % Here you probably want to use "\\R{" and "}"
instead.
65 \paper {
66 papersize = "a4"
67 indent = 0.0\cm
68 } \midi { \tempo 4 = 106 }
69 }
-----------------------------------
here is the lilypond output:
arsing...
Backtrace:
In unknown file:
?: 0* [#<procedure #f (lyric)> #<Music SequentialMusic>]
In /disks/hda2/bakup/projectnigun/notation/norai/lily/ly/withwords.ly:
16: 1* [text-map #<procedure #f (word)> #<Music SequentialMusic>]
2: 2 (let (# # #) (if # #) (if # #) ...)
2: 3* (ly:get-mus-property music (quote text))
/disks/hda2/bakup/projectnigun/notation/norai/lily/ly/withwords.ly:2:15:
In expression (ly:get-mus-property music (quote text)):
/disks/hda2/bakup/projectnigun/notation/norai/lily/ly/withwords.ly:2:15:
Unbound variable: ly:get-mus-property
lilypond: error: LilyPond failed on input file withwords (exit status 2)
lilypond: warning: Running LilyPond failed. Rerun with --verbose for a
trace.
theone ly $
Thanks
Aaron
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- hebrew help latest lilypond,
Aaron <=