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
= \notes \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
= #'neo
_mensural
89 %%\override Staff.BarLine #'extra-offset = #'(12 . 0)
91 \override Staff
.BarLine
#'extra-offset
= #'(23 . 0)
95 stich
= \notes \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
= \lyrics {
117 Wil -- hel -- mus van N
as -- 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 N
as -- sou -- we
132 Ben ick van duyt -- schen bloet
,
133 Den V
a -- 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