Dear Lilypond-users, I want to make a substitution with the \movement-command ( look at: http://lsr.dsi.unimi.it/LSR/Item?id=444). But unfortunately this doesn't work:
langsamer = { \movement "subito meno mosso" "4" #69 } How can I change it? I had another strange experience with the movement-command: When I exchange "\skip" with "s" in the below quoted example, it works fine, but in the the opposite case, I get a very strange error message.
Is it a bug? Here the example: %%%%%%%%%%% BEGIN %%%%%%%% #(define ((make-format-movement-markup-function text) duration count context) (markup #:huge #:bold text #:hspace 1 "(" #:general-align Y DOWN #:smaller
#:note-by-number (ly:duration-log duration) (ly:duration-dot-count duration) 1 "=" (number->string count)
")"))
#(define (string->duration duration-string) "Parse the `duration-string', e.g. ''4..'' or ''breve.'', and return a duration object."
(let* ((length (string-length duration-string)) (dot-index (or (string-index duration-string #\.) length)) (len (substring duration-string 0 dot-index)) (dots (- length dot-index))) (ly:make-duration (cond ((string=? len "breve") -1)
((string=? len "longa") -2) ((string=? len "maxima") -3) (else (log2 (string->number len)))) dots 1 1)))
movement = #(define-music-function (parser location text duration count music)
global = { \time 2/4 \skip 2 \time 3/4 \movement "subito meno mosso" "4" #69 \skip 2. }
pauke = { \clef bass c4 c c c c } schlagzwo = { c'4 c' c' c' c' } \paper { ragged-bottom = ##f ragged-last-bottom = ##f %wenn auf "t" gesetzt wird, dann wird das letzte System abgeschnitten!
bottem-margin = 30 \mm horizontal-shift = 5 \mm between-system-space = #2 between-system-padding = #2 %sorgt fuer ordentliche abstaende page-limit-inter-system-space = ##t
}
\layout{
\context { %hier wird ein neuer "Kontext" mit Namen "timesig" geschaffen \type "Engraver_group"