Am 15.02.2013 12:39, schrieb David Kastrup:
Urs Liska <[email protected]> writes:
Am 15.02.2013 12:18, schrieb Jan-Peter Voigt:
Am 15.02.2013 11:40, schrieb Urs Liska:
You can create an adhoc-book in scheme with a #{-#} construct:
writeScoreOddEven =
#(define-void-function (parser location score)
(ly:score?)
(let ((book #{ \book { \score { $score } } #}))
; process with first-number 1
Unfortunately this gives me the following error:
In procedure memoization in expression (let (book #)):
Try copy&paste. You are missing one.
Huh? I'm missing one what?
Am I right that the '(let ...' line is one statement and that the last
')' in this line should match the one right before 'let'?
In fact I did copy&paste, the line as above is quoted from Jan-Peter's
email. But of course we're not here to blame but to solve the problem ;-)
Your example was either missing a closing bracket or having one
opening bracket too much. But that doesn't change anything.
No, you just did not understand that
; process with first-number 1
was supposed to be replaced by the rest of the function body, depending
on what you want done.
Of course I know that (the comment line was actually from _my_ file).
Attached you see the complete file.
\version "2.16.0"
% get the current output name
myname = #(ly:parser-output-name parser)
% process a score with ly:book-process
% score - the score
writeScoreOddEven =
#(define-void-function (parser location score)
(ly:score?)
(let ((book #{ \book { \score { $score } } #})))
; process with first-number 1
(ly:output-def-set-variable! (ly:book-paper book) 'first-page-number 1)
(ly:book-process book #{ \paper {} #} #{ \layout {} #} myname)
; process with first-number 2
(ly:output-def-set-variable! (ly:book-paper book) 'first-page-number 2)
(ly:book-process book #{ \paper {} #} #{ \layout {} #} (format "~A-even" myname)))
% Let the first page number be visible (to see the result)
\paper {
print-first-page-number = ##t
}
% Call the function
\writeScoreOddEven
\score {
\relative c'' {
c b a g c1
}
}
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
