hans/lilypond-haydn-op-51-die-sieben-worte-des-erlosers
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

functions

Browse Source
This commit is contained in:
Hans Dijkema
2026-01-20 09:53:38 +01:00
parent 002b97a9f8
commit f76146f3b2
1 changed files with 2 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files

89
Joseph-Haydn-Die-Sieben-Wörte-des-Erlösers.ly
View File

@@ -31,19 +31,8 @@
}
}
\include "lilypond-hd/functions.ly"
makePiece = #(define-scheme-function
(p)
(string?)
#{ \markup { \bold \fontsize #+1 $p } #}
)
makeScriptum = #(define-scheme-function
(s)
(string?)
#{ \markup { \fontsize #-1 \normal-text $s } #}
)
\include "functions.ly"
\include "string-quartet.ly"
fig = #(define-music-function
(a b c)
@@ -69,80 +58,6 @@ fg = #(define-music-function
#{ #(withDuration a 3 2)( #(withDuration b 5 0)) #}
)
makeHdr = #(define-scheme-function
(thePiece theScriptum)
(markup? markup?)
#{
\header {
subsubtitle = $theScriptum
piece = $thePiece
}
#}
)
makeScore = #(define-scheme-function
(instrument music)
(string? ly:music?)
#{
\score {
\new Staff \with { instrumentName = $instrument }
$music
\layout {
\context {
\Score
\override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3)
}
}
}
#}
)
makeScoreVI = #(define-scheme-function
(music)
(ly:music?)
(makeScore "Violin I" music)
)
makeScoreVII = #(define-scheme-function
(music)
(ly:music?)
(makeScore "Violin II" music)
)
makeScoreVa = #(define-scheme-function
(music)
(ly:music?)
(makeScore "Viola" #{ { \clef alto $music } #})
)
makeScoreCl = #(define-scheme-function
(music)
(ly:music?)
(makeScore "Cello" #{ { \clef bass $music } #})
)
makeScoreFull = #(define-scheme-function
(vI vII va cl)
(ly:music? ly:music? ly:music? ly:music?)
#{
\score {
<<
\new Staff \with { instrumentName = "Violin I" } $vI
\new Staff \with { instrumentName = "Violin II" } $vII
\new Staff \with { instrumentName = "Viola" } { \clef alto $va }
\new Staff \with { instrumentName = "Cello" } { \clef bass $va }
>>
\layout {
\context {
\Score
\override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3)
}
}
}
#}
)
global = {
\key f \major
\time 4/4