From f76146f3b29b042269639a7089252d13f85b0643 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Tue, 20 Jan 2026 09:53:38 +0100
Subject: [PATCH] functions

---
 Joseph-Haydn-Die-Sieben-Wörte-des-Erlösers.ly | 89 +------------------
 1 file changed, 2 insertions(+), 87 deletions(-)

diff --git a/Joseph-Haydn-Die-Sieben-Wörte-des-Erlösers.ly b/Joseph-Haydn-Die-Sieben-Wörte-des-Erlösers.ly
index 0265d01..2e752bb 100644
--- a/Joseph-Haydn-Die-Sieben-Wörte-des-Erlösers.ly
+++ b/Joseph-Haydn-Die-Sieben-Wörte-des-Erlösers.ly
@@ -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