-\version "2.3.0"
+\version "2.5.2"
\header {
texidoc = "Wilhelmus van Nassouwe"
#(define (prepend-grob-property grob-name
grob-prop entry)
(lambda (context)
- (ly:context-pushpop-property context grob-name grob-prop
- (cons
- entry
- (assoc-get grob-prop (car (ly:context-property context grob-name)))))))
+ (let*
+ ((grob-def (ly:context-property context grob-name)))
+ (if (pair? grob-def)
+ (ly:context-pushpop-property context grob-name grob-prop
+ (cons
+ entry
+ (assoc-get grob-prop (car grob-def))))))))
#(define (set-extra-space grob-name entry value)
(prepend-grob-property grob-name 'space-alist
(cons entry (cons 'extra-space value))))
-noclefs = \notes {
+noclefs = {
s1
\override Staff.Clef #'break-visibility = #(lambda (dir) (cons #t #t))
}
myBreak = { \bar "" \break }
-\paper {
+\layout {
indent = 0.0\mm
linewidth = 120.0\mm
textheight = 270.0\mm
}
-voice = \notes \relative c' {
+voice = \relative c' {
\clef violin
\key g \major
d4 | g g a a b | a8 \myBreak
d,4 | g4.\melisma a8\melismaEnd b2 a2 g4 | fis e8 \myBreak
d8 | e4 g g fis |
- \override NoteHead #'style = #'neo_mensural
+ \override NoteHead #'style = #'neomensural
g\breve
\bar "|."
}
-stich = \notes \relative c'' {
+stich = \relative c'' {
\override Staff.NoteCollision #'merge-differently-dotted = ##t
\set fontSize = #-3
%% broken?
s8 e8[ fis]
}
-modernText = \lyrics {
+modernText = \lyricmode {
Wil -- hel -- mus van Nas -- sou -- we
ben ik van duit -- sen bloed,
heb ik al -- tijd ge -- eerd.
}
-text = \lyrics {
+text = \lyricmode {
Wil -- hel -- mus van Nas -- sou -- we
Ben ick van duyt -- schen bloet,
Den Va -- der -- landt ghe -- trou -- we,
oneHalfNoteTime = \markup {
\override #'(baseline-skip . 0)
- \column < { \number "1" } { \smaller \smaller \note #"2" #-0.5 } >
+ \column { \line { \number "1" } \line { \smaller \smaller \note #"2" #-0.5 } }
}
-\paper {
+\layout {
raggedright = ##t
\context {
- \ScoreContext
+ \Score
%% defaults
%% (shortest-duration-space . 2.0)
%% (spacing-increment . 1.2)
\set Staff.minimumVerticalExtent = #'(2 . 2)
%% Custom time signature
- \override Staff.TimeSignature #'print-function = #Text_item::print
+ \override Staff.TimeSignature #'print-function = #Text_interface::print
\override Staff.TimeSignature #'text = #oneHalfNoteTime
\noclefs
\text
}
>>
- \paper {}
-% \midi {}
+ \layout {}
+ \midi {}
}
%%% Local variables: