d

2026-01-20 09:30:07 +01:00
parent b80900f367
commit 30e3032d4e
1 changed files with 86 additions and 0 deletions
--- a/string-quartet.ly
+++ b/string-quartet.ly
@@ -0,0 +1,86 @@
+
+
+makePiece = #(define-scheme-function
+              (p)
+              (string?)
+              #{ \markup { \bold \fontsize #+1 $p } #}
+              )
+
+makeScriptum = #(define-scheme-function
+                 (s)
+                 (string?)
+                 #{ \markup { \fontsize #-1 \normal-text $s } #}
+                 )
+
+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)
+                        }
+                      }
+                    }          
+                  #}
+                  )