-\version "2.1.34"
+\version "2.3.9"
\header {
texidoc = "Wilhelmus van Nassouwe"
}
%% hymn tricks
-#(define (override-alist-property grob-name alist-property entry)
+#(define (prepend-grob-property grob-name
+ grob-prop entry)
(lambda (context)
- (let* ((grob-properties (ly:context-property context grob-name))
- (alist-cons (chain-assoc-get alist-property grob-properties '()))
- (new-alist-cons (assoc-set! alist-cons (car entry) (cdr entry)))
- (new-props (assoc-set! (car grob-properties)
- alist-property new-alist-cons)))
- (ly:context-set-property! context grob-name (list new-props)))))
-
+ (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)
- (override-alist-property grob-name 'space-alist
- ;;;huh, broken? --jcn
- ;;;(cons entry (cons 'fixed-space value))))
+ (prepend-grob-property grob-name 'space-alist
(cons entry (cons 'extra-space value))))
-
-noclefs = \notes { s1 \set Staff.Clef = \turnOff }
-margins = {
+
+noclefs = {
+ s1
+ \override Staff.Clef #'break-visibility = #(lambda (dir) (cons #t #t))
+}
+
+setMargins = {
%% first line left margin
- \applycontext #(set-extra-space 'TimeSignature 'first-note 4.5)
+ %% 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
- %% \applycontext #(set-extra-space 'KeySignature 'first-note 15)
- \applycontext #(set-extra-space 'KeySignature 'staff-bar 15)
+ \context Staff \applycontext #(set-extra-space 'KeySignature 'staff-bar 15)
%% next lines small key-signature margin
- \applycontext #(set-extra-space 'LeftEdge 'key-signature 1.0)
-
- %% using StaffSymbol.width now
- %% right margin
- %%\applycontext #(set-extra-space 'BarLine 'right-edge 12.5)
+ \context Staff \applycontext #(set-extra-space 'LeftEdge 'key-signature 1.0)
}
-smallBarLines = {
+pipeSymbol = {
%% Set height of bar line to 2 staff-spaces
- \override Staff.BarLine #'bar-size-procedure = #(lambda (x) 2)
+ \once \override Staff.BarLine #'bar-size-procedure = #(lambda (x) 2)
%% Move barline one staff-space up
- \override Staff.BarLine #'extra-offset = #'(0 . 1)
+ \once \override Staff.BarLine #'extra-offset = #'(0 . 1)
+ \bar "|"
}
-endBarLine = {
- \revert Staff.BarLine #'bar-size-procedure
- \revert Staff.BarLine #'extra-offset
- \override Staff.BarLine #'extra-offset = #'(12 . 0)
- \bar "|."
-}
+myBreak = { \bar "" \break }
\paper {
indent = 0.0\mm
textheight = 270.0\mm
}
-voice = \notes \relative c' {
+voice = \relative c' {
\clef violin
\key g \major
- \partial 4
- d4 g g a a b a8
- b8 c4 b a a g2.
-
- d4 g g a a b a8
- b8 c4 b a a g2.
-
- b8[ c] d2 e4 d2 c4 b a8
- b8 c4 b a g a2.
+ d4 | g g a a b | a8 \myBreak
+ b8 | c4 b a a | g2. \myBreak
+
+ d4 | g g a a | b a8 \myBreak
+ b8 | c4 b a a| g2. \myBreak
+
+ %% Hack for better left tekst margin
+ %% b8[ c] | d2 e4 d2 c4 | b a8 \myBreak
+ \set melismaBusyProperties = #'()
+ b8[ c] |
+ \unset melismaBusyProperties
+ d2 e4 d2 c4 b | a8 \myBreak
+ b8 | c4 b a g | a2. \myBreak
+
+ d,4 | g4.\melisma a8\melismaEnd b2 a2 g4 | fis e8 \myBreak
+ d8 | e4 g g fis |
+
+ \override NoteHead #'style = #'neomensural
- d,4 g4.\melisma a8\melismaEnd b2 a2 g4 fis e8
- d8 e4 g g fis
- \override NoteHead #'style = #'neo_mensural
g\breve
+
+ %% justified lines:
+ %%\override Staff.BarLine #'extra-offset = #'(12 . 0)
+ %% raggedright:
+ \override Staff.BarLine #'extra-offset = #'(23 . 0)
+ \bar "|."
}
-stich = \notes \relative c'' {
+stich = \relative c'' {
\override Staff.NoteCollision #'merge-differently-dotted = ##t
\set fontSize = #-3
%% broken?
- \override Voice.Stem #'beamed-lengths = #(map (lambda (x) (* 0.2 x)) '(3.26))
+ \override Stem #'beamed-lengths = #(map (lambda (x) (* 0.2 x)) '(3.26))
\voiceTwo
\partial 4
s8 s s2 s4 s2 s4 s s8
s8 s4 s s s s2.
- s4 g8 fis g a s2 s2 s4 s s8
+ s4 g8[ fis g a] s2 s2 s4 s s8
s8 e8[ fis]
}
-text = \lyrics {
+modernText = \lyrics {
Wil -- hel -- mus van Nas -- sou -- we
ben ik van duit -- sen bloed,
heb ik al -- tijd ge -- eerd.
}
+text = \lyrics {
+ Wil -- hel -- mus van Nas -- sou -- we
+ Ben ick van duyt -- schen bloet,
+ Den Va -- der -- landt ghe -- trou -- we,
+ blyf ick tot in den doot!
+ %% Hack for better left text margin:
+ %% Een Prin -- ce van O -- ran -- gien
+ Een " " Prin -- ce van O -- ran -- gien
+ Ben ick, vry, on -- ver -- veert;
+ Den Co -- ninck van His -- pan -- gien
+ Heb ick al -- tijt ghe -- eert.
+}
+
oneHalfNoteTime = \markup {
\override #'(baseline-skip . 0)
\column < { \number "1" } { \smaller \smaller \note #"2" #-0.5 } >
}
-linebreaks = \notes {
- \repeat unfold 2 { s4 s1 s4 s8 \bar "" \break
- s8 s1 s2. \bar "" \break }
- s4 s2*3 s4 s8 \bar "" \break
- s8 s1 s2. \bar "" \break
- s4 s4*7 s4. \bar "" \break
- s8 s1 s\breve \endBarLine
+\paper {
+ raggedright = ##t
+
+ \context {
+ \Score
+ %% defaults
+ %% (shortest-duration-space . 2.0)
+ %% (spacing-increment . 1.2)
+ %% (base-shortest-duration . ,(ly:make-moment 1 8))
+ %% wider spacing
+ \override SpacingSpanner #'shortest-duration-space = #3.0
+ \override SpacingSpanner #'spacing-increment = #1.2
+ \override SpacingSpanner #'base-shortest-duration = #(ly:make-moment 1 8)
+ }
}
\score {
\context Score <<
\context Staff <<
\override Staff.StaffSymbol #'width = #'80
- \margins
- \smallBarLines
-
+ \set Staff.autoBeaming = ##f
+ \set Score.timing = ##f
+ \setMargins
+
%% Less vertical space needed with lyrics
\set Staff.minimumVerticalExtent = #'(2 . 2)
- %% Second time signature
- %% \override Staff.TimeSignature #'print-function =
- %% #(second-time-signature '(3 . 2) Time_signature::print)
-
%% Custom time signature
\override Staff.TimeSignature #'print-function = #Text_item::print
\override Staff.TimeSignature #'text = #oneHalfNoteTime
-
- %% Invisible alternating time signature
- \notes {
- \partial 4 s4
- \override Staff.TimeSignature #'print-function = #'()
- \repeat unfold 2 { \time 4/4 s1 \time 2/4 s2 \time 4/4 s1*2 }
- \time 3/2 s2*3 \time 2/4 s2 \time 4/4 s1*2
- \time 7/4 s4*7 \time 2/4 s2
- \time 4/4 s1 \time 4/2 s1*2
- }
-
+ \noclefs
+
\context Voice = "voice" \voice
- \linebreaks
- \noclefs
\context Voice = "stich" \stich
>>
\lyricsto "voice" \new Lyrics {
}
>>
\paper {}
-% \midi {}
+ \midi {}
}
%%% Local variables:
projects / lilypond.git / blobdiff