]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/wilhelmus.ly
* lily/stem-tremolo.cc (raw_stencil): read slope property.
[lilypond.git] / input / wilhelmus.ly
index f062d22fbff520d678436c35c394838da911d810..07d7cc1ee9843473d97bd45a2088df8c9f17c1a7 100644 (file)
@@ -1,4 +1,4 @@
-\version "2.3.9"
+\version "2.7.10"
 
 \header {
   texidoc = "Wilhelmus van Nassouwe"
 
 noclefs =  {
   s1
-  \override Staff.Clef #'break-visibility = #(lambda (dir) (cons #t #t))
+  \override Staff.Clef #'break-visibility =
+    #all-invisible
 }
 
 setMargins = {
   %% first line left margin
   %% justified:
-  %% \context Staff \applycontext #(set-extra-space 'TimeSignature 'first-note 4.5)
+  %% \context Staff \applyContext #(set-extra-space 'TimeSignature 'first-note 4.5)
   %% raggedright:
-  \context Staff \applycontext #(set-extra-space 'TimeSignature 'first-note 9.5)
+  \context Staff \applyContext #(set-extra-space 'TimeSignature 'first-note 9.5)
   
   %% next lines left margin
-  \context Staff \applycontext #(set-extra-space 'KeySignature 'staff-bar 15)
+  \context Staff \applyContext #(set-extra-space 'KeySignature 'staff-bar 15)
   
   %% next lines small key-signature margin
-  \context Staff \applycontext #(set-extra-space 'LeftEdge 'key-signature 1.0)
+  \context Staff \applyContext #(set-extra-space 'LeftEdge 'key-signature 1.0)
 }
 
 pipeSymbol = {
@@ -55,7 +56,7 @@ pipeSymbol = {
 
 myBreak = { \bar "" \break }
 
-\paper {
+\layout {
   indent = 0.0\mm
   linewidth = 120.0\mm
   textheight = 270.0\mm
@@ -113,7 +114,7 @@ stich =  \relative c'' {
   s8 e8[ fis]
 }
 
-modernText = \lyrics {
+modernText = \lyricmode {
   Wil -- hel -- mus van Nas -- sou -- we
   ben ik van duit -- sen bloed,
 
@@ -127,7 +128,7 @@ modernText = \lyrics {
   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,
@@ -142,10 +143,10 @@ text = \lyrics {
 
 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 {
@@ -173,7 +174,7 @@ oneHalfNoteTime = \markup {
       \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
     
@@ -185,7 +186,7 @@ oneHalfNoteTime = \markup {
       \text
     }
   >>
-  \paper {}
+  \layout {}
   \midi {}
 }