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)
(string? string? integer? ly:music?)
#{
\set Score.metronomeMarkFormatter =
#(make-format-movement-markup-function $text)
\set Score.tempoWholesPerMinute = #$(ly:moment-mul (ly:make-moment count
1)
(ly:duration-length
(string->duration duration)))
\set Score.tempoUnitDuration = #$(string->duration duration)
\set Score.tempoUnitCount = #$count
$music
\set Score.metronomeMarkFormatter = #format-metronome-markup
#})
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"
\consists "Text_spanner_engraver"
\consists "Text_engraver"
\consists "Dynamic_engraver"
\consists "Axis_group_engraver"
\name "TimeSig"
}
\context {
\Score \accepts TimeSig}
\context { \RemoveEmptyStaffContext }
} %Ende des Layoutblocks!!!\new Score
{ << \set Score.markFormatter = #format-mark-box-letters
\override Score.VerticalAxisGroup #'remove-first = ##t
\new TimeSig { \override Score.TimeSignature #'style = #'( ) \override
Score.BarNumber #'break-visibility = ##(#t #t #t) %jede Taktzahl wird
gezeigt, spaeter wieder loeschen!!
\global }
\new Staff << \set Staff.instrumentName = "Pauken"
\set Staff.shortInstrumentName = "Pk." { \pauke } >>
\new Staff = "Schlagzeug 2" << \set Staff.instrumentName = "Perc. 2"
\set Staff.shortInstrumentName = "Perc. 2" { \schlagzwo } >>
>>
}
\version "2.11.47"
%%%%%%%%%%%% END %%%%%%%%%%%%%
_______________________________________________
lilypond-user mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-user
