input/wilhelmus.ly

   1 \version "2.10.0"
   2
   3 \header {
   4   texidoc = "Wilhelmus van Nassouwe"
   5   title = "Wilhelmus van Nassouwe"
   6   composer = "Valerius"
   7   subtitle = "Neder-landtsche gedenck-clanck"
   8   opus = "1626"
   9   copyright = "public domain"
  10   enteredby = "janneke@gnu.org"
  11 }
  12
  13 %% hymn tricks
  14 noclefs =  {
  15   s1
  16   \override Staff.Clef #'break-visibility =
  17     #all-invisible
  18 }
  19
  20 setMargins = {
  21   %% \context Staff \applyContext #(set-extra-space 'TimeSignature
  22   %% 'first-note -> extra-space 4.5
  23
  24   \override Staff.TimeSignature #'space-alist #'first-note = #'(extra-space . 9.5)
  25   \override Staff.KeySignature #'space-alist #'staff-bar = #'(extra-space . 15)
  26   \override Score.LeftEdge #'space-alist #'key-signature = #'(extra-space . 1)
  27
  28 }
  29
  30 pipeSymbol = {
  31   %% Set height of bar line to 2 staff-spaces
  32   \once \override Staff.BarLine #'bar-size = #2
  33   %% Move barline one staff-space up
  34   \once \override Staff.BarLine #'extra-offset = #'(0 . 1)
  35   \bar "|"
  36 }
  37
  38 myBreak = { \bar "" \break }
  39
  40 \layout {
  41   indent = 0.0\mm
  42   line-width = 120.0\mm
  43   textheight = 270.0\mm
  44 }
  45
  46 voice =  \relative c' {
  47   \clef violin
  48   \key g \major
  49   d4 | g g a a b | a8 \myBreak
  50   b8 | c4 b a a | g2. \myBreak
  51
  52   d4 | g g a a | b a8 \myBreak
  53   b8 | c4 b a a| g2.  \myBreak
  54
  55   %% Hack for better left tekst margin
  56   %% b8[ c] | d2 e4 d2 c4 | b a8 \myBreak
  57   \set melismaBusyProperties = #'()
  58   b8[ c] |
  59   \unset melismaBusyProperties
  60   d2 e4 d2 c4 b | a8 \myBreak
  61   b8 | c4 b a g | a2. \myBreak
  62
  63   d,4 | g4.\melisma a8\melismaEnd b2 a2 g4 | fis e8 \myBreak
  64   d8 | e4 g g fis |
  65
  66   \override NoteHead #'style = #'neomensural
  67
  68   g\breve
  69
  70   %% justified lines:
  71   %%\override Staff.BarLine #'extra-offset = #'(12 . 0)
  72   %% ragged-right:
  73   \override Staff.BarLine #'extra-offset = #'(23 . 0)
  74   \bar "|."
  75 }
  76
  77 stich =  \relative c'' {
  78   \override Staff.NoteCollision #'merge-differently-dotted = ##t
  79   \set fontSize = #-3
  80   \override Stem #'length-fraction = #(magstep -3)
  81
  82   \voiceTwo
  83   \partial 4
  84   s4 s s a8[ b] c[ a] s4.
  85   s8 s4 s a8 g s4 s2.
  86
  87   s4 s s a8[ b] c[ a] s4.
  88   s8 s4 s a8 g s4 s2.
  89
  90   s8 s s2 s4 s2 s4 s s8
  91   s8 s4 s s s s2.
  92
  93   s4 g8[ fis g a] s2 s2 s4 s s8
  94   s8 e8[ fis]
  95 }
  96
  97 modernText = \lyricmode {
  98   Wil -- hel -- mus van Nas -- sou -- we
  99   ben ik van duit -- sen bloed,
 100
 101   den va -- der -- land ge -- trou -- we
 102   blijf ik tot in den dood.
 103
 104   Een prin -- se van O -- ran -- je
 105   ben ik vrij on -- ver -- veerd,
 106
 107   den ko -- ning van His -- pan -- je
 108   heb ik al -- tijd ge -- eerd.
 109 }
 110
 111 text = \lyricmode {
 112   Wil -- hel -- mus van Nas -- sou -- we
 113   Ben ick van duyt -- schen bloet,
 114   Den Va -- der -- landt ghe -- trou -- we,
 115   blyf ick tot in den doot!
 116   %% Hack for better left text margin:
 117   %% Een Prin -- ce van O -- ran -- gien
 118   Een " " Prin -- ce van O -- ran -- gien
 119   Ben ick, vry, on -- ver -- veert;
 120   Den Co -- ninck van His -- pan -- gien
 121   Heb ick al -- tijt ghe -- eert.
 122 }
 123
 124 oneHalfNoteTime = \markup {
 125   \override #'(baseline-skip . 0)
 126   \column { \line { \number "1" } \line { \smaller \smaller \note #"2" #-0.5 } }
 127 }
 128
 129 \layout {
 130   ragged-right = ##t
 131
 132   \context {
 133     \Score
 134     %% defaults
 135     %% (shortest-duration-space . 2.0)
 136     %% (spacing-increment . 1.2)
 137     %% (base-shortest-duration . ,(ly:make-moment 1 8))
 138     %% wider spacing
 139     \override SpacingSpanner #'shortest-duration-space = #3.0
 140     \override SpacingSpanner #'spacing-increment = #1.2
 141     \override SpacingSpanner #'base-shortest-duration = #(ly:make-moment 1 8)
 142   }
 143 }
 144
 145 \score {
 146   \context Score <<
 147     \context Staff <<
 148       \override Staff.StaffSymbol #'width = #'80
 149       \set Staff.autoBeaming = ##f
 150       \set Score.timing = ##f
 151       \setMargins
 152
 153       %% Less vertical space needed with lyrics
 154       \override Staff.VerticalAxisGroup #'minimum-Y-extent = #'(2 . 2)
 155
 156       %% Custom time signature
 157       \override Staff.TimeSignature #'stencil = #ly:text-interface::print
 158       \override Staff.TimeSignature #'text = #oneHalfNoteTime
 159       \noclefs
 160
 161       \new Voice =  "voice" \voice
 162       \new Voice =  "stich" \stich
 163     >>
 164     \lyricsto "voice" \new Lyrics {
 165       \override VerticalAxisGroup #'minimum-Y-extent = #'(2 . 2)
 166       \text
 167     }
 168   >>
 169   \layout {}
 170   \midi {}
 171 }
 172
 173 %%% Local variables:
 174 %%% LilyPond-indent-level:2
 175 %%% End: