4 texidoc = "Wilhelmus van Nassouwe"
5 title = "Wilhelmus van Nassouwe"
7 subtitle = "Neder-landtsche gedenck-clanck"
9 copyright = "public domain"
10 enteredby = "janneke@gnu.org"
14 #(define (prepend-grob-property grob-name
18 ((grob-def (ly:context-property context grob-name)))
20 (ly:context-pushpop-property context grob-name grob-prop
23 (assoc-get grob-prop (car grob-def))))))))
25 #(define (set-extra-space grob-name entry value)
26 (prepend-grob-property grob-name 'space-alist
27 (cons entry (cons 'extra-space value))))
31 \override Staff.Clef #'break-visibility = #(lambda (dir) (cons #t #t))
35 %% first line left margin
37 %% \context Staff \applycontext #(set-extra-space 'TimeSignature 'first-note 4.5)
39 \context Staff \applycontext #(set-extra-space 'TimeSignature 'first-note 9.5)
41 %% next lines left margin
42 \context Staff \applycontext #(set-extra-space 'KeySignature 'staff-bar 15)
44 %% next lines small key-signature margin
45 \context Staff \applycontext #(set-extra-space 'LeftEdge 'key-signature 1.0)
49 %% Set height of bar line to 2 staff-spaces
50 \once \override Staff.BarLine #'bar-size-procedure = #(lambda (x) 2)
51 %% Move barline one staff-space up
52 \once \override Staff.BarLine #'extra-offset = #'(0 . 1)
56 myBreak = { \bar "" \break }
64 voice = \relative c' {
67 d4 | g g a a b | a8 \myBreak
68 b8 | c4 b a a | g2. \myBreak
70 d4 | g g a a | b a8 \myBreak
71 b8 | c4 b a a| g2. \myBreak
73 %% Hack for better left tekst margin
74 %% b8[ c] | d2 e4 d2 c4 | b a8 \myBreak
75 \set melismaBusyProperties = #'()
77 \unset melismaBusyProperties
78 d2 e4 d2 c4 b | a8 \myBreak
79 b8 | c4 b a g | a2. \myBreak
81 d,4 | g4.\melisma a8\melismaEnd b2 a2 g4 | fis e8 \myBreak
84 \override NoteHead #'style = #'neomensural
89 %%\override Staff.BarLine #'extra-offset = #'(12 . 0)
91 \override Staff.BarLine #'extra-offset = #'(23 . 0)
95 stich = \relative c'' {
96 \override Staff.NoteCollision #'merge-differently-dotted = ##t
99 \override Stem #'beamed-lengths = #(map (lambda (x) (* 0.2 x)) '(3.26))
103 s4 s s a8[ b] c[ a] s4.
106 s4 s s a8[ b] c[ a] s4.
109 s8 s s2 s4 s2 s4 s s8
112 s4 g8[ fis g a] s2 s2 s4 s s8
116 modernText = \lyricmode {
117 Wil -- hel -- mus van Nas -- sou -- we
118 ben ik van duit -- sen bloed,
120 den va -- der -- land ge -- trou -- we
121 blijf ik tot in den dood.
123 Een prin -- se van O -- ran -- je
124 ben ik vrij on -- ver -- veerd,
126 den ko -- ning van His -- pan -- je
127 heb ik al -- tijd ge -- eerd.
131 Wil -- hel -- mus van Nas -- sou -- we
132 Ben ick van duyt -- schen bloet,
133 Den Va -- der -- landt ghe -- trou -- we,
134 blyf ick tot in den doot!
135 %% Hack for better left text margin:
136 %% Een Prin -- ce van O -- ran -- gien
137 Een " " Prin -- ce van O -- ran -- gien
138 Ben ick, vry, on -- ver -- veert;
139 Den Co -- ninck van His -- pan -- gien
140 Heb ick al -- tijt ghe -- eert.
143 oneHalfNoteTime = \markup {
144 \override #'(baseline-skip . 0)
145 \column < { \number "1" } { \smaller \smaller \note #"2" #-0.5 } >
154 %% (shortest-duration-space . 2.0)
155 %% (spacing-increment . 1.2)
156 %% (base-shortest-duration . ,(ly:make-moment 1 8))
158 \override SpacingSpanner #'shortest-duration-space = #3.0
159 \override SpacingSpanner #'spacing-increment = #1.2
160 \override SpacingSpanner #'base-shortest-duration = #(ly:make-moment 1 8)
167 \override Staff.StaffSymbol #'width = #'80
168 \set Staff.autoBeaming = ##f
169 \set Score.timing = ##f
172 %% Less vertical space needed with lyrics
173 \set Staff.minimumVerticalExtent = #'(2 . 2)
175 %% Custom time signature
176 \override Staff.TimeSignature #'print-function = #Text_item::print
177 \override Staff.TimeSignature #'text = #oneHalfNoteTime
180 \context Voice = "voice" \voice
181 \context Voice = "stich" \stich
183 \lyricsto "voice" \new Lyrics {
184 \set minimumVerticalExtent = #'(2 . 2)
193 %%% LilyPond-indent-level:2