X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=input%2Fwilhelmus.ly;h=a6b00e404f20d442423776d1fd1d5d9e28c220a1;hb=3960071c37deae72403c4f54146bbdc67fcc9abe;hp=73806699fe0c0bd5d29bf6f29a2a6721a23df411;hpb=89f51abce852ded3618eac156ef18aa1adde420c;p=lilypond.git

diff --git a/input/wilhelmus.ly b/input/wilhelmus.ly
index 73806699fe..a6b00e404f 100644
--- a/input/wilhelmus.ly
+++ b/input/wilhelmus.ly
@@ -1,4 +1,4 @@
-\version "2.7.14"
+\version "2.10.0"
 
 \header {
   texidoc = "Wilhelmus van Nassouwe"
@@ -11,21 +11,6 @@
 }
 
 %% hymn tricks
-#(define (prepend-grob-property grob-name
-	  grob-prop entry)
-  (lambda (context)
-   (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 =  {
   s1
   \override Staff.Clef #'break-visibility =
@@ -33,17 +18,13 @@ noclefs =  {
 }
 
 setMargins = {
-  %% first line left margin
-  %% justified:
-  %% \context Staff \applyContext #(set-extra-space 'TimeSignature 'first-note 4.5)
-  %% raggedright:
-  \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 'TimeSignature
+  %% 'first-note -> extra-space 4.5
+
+  \override Staff.TimeSignature #'space-alist #'first-note = #'(extra-space . 9.5)
+  \override Staff.KeySignature #'space-alist #'staff-bar = #'(extra-space . 15)
+  \override Score.LeftEdge #'space-alist #'key-signature = #'(extra-space . 1)
   
-  %% next lines small key-signature margin
-  \context Staff \applyContext #(set-extra-space 'LeftEdge 'key-signature 1.0)
 }
 
 pipeSymbol = {
@@ -58,7 +39,7 @@ myBreak = { \bar "" \break }
 
 \layout {
   indent = 0.0\mm
-  linewidth = 120.0\mm
+  line-width = 120.0\mm
   textheight = 270.0\mm
 }
 
@@ -88,7 +69,7 @@ voice =  \relative c' {
 
   %% justified lines:
   %%\override Staff.BarLine #'extra-offset = #'(12 . 0)
-  %% raggedright:
+  %% ragged-right:
   \override Staff.BarLine #'extra-offset = #'(23 . 0)
   \bar "|."
 }
@@ -142,11 +123,14 @@ text = \lyricmode {
 
 oneHalfNoteTime = \markup {
   \override #'(baseline-skip . 0)
-  \column { \line { \number "1" } \line { \smaller \smaller \note #"2" #-0.5 } }
+  \column {
+    \line { \number "1" }
+    \line { \smaller \smaller \note #"2" #-0.6 }
+  }
 }
 
 \layout {
-  raggedright = ##t
+  ragged-right = ##t
 
   \context {
     \Score
@@ -173,12 +157,13 @@ oneHalfNoteTime = \markup {
       \override Staff.VerticalAxisGroup #'minimum-Y-extent = #'(2 . 2)
       
       %% Custom time signature
-      \override Staff.TimeSignature #'stencil = #Text_interface::print
+      \override Staff.TimeSignature #'stencil = #ly:text-interface::print
       \override Staff.TimeSignature #'text = #oneHalfNoteTime
+      \override Staff.TimeSignature #'style = #'()
       \noclefs
     
-      \context Voice = "voice" \voice
-      \context Voice = "stich" \stich
+      \new Voice =  "voice" \voice
+      \new Voice =  "stich" \stich
     >>
     \lyricsto "voice" \new Lyrics {
       \override VerticalAxisGroup #'minimum-Y-extent = #'(2 . 2)