\version "2.24.3"
\language "english"


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 midi music)
              (string? string? ly:music?)
              (let ((moment (if (defined? 'sqCustomMoment) sqCustomMoment #(ly:make-moment 1/3))))
                (display "MOMENT=")(display moment)(newline)
                #{
                \score {
                  \new Staff \with { 
                    instrumentName = $instrument 
                    midiInstrument = $midi
                  }
                  $music
                  \layout { 
                    \context {
                      \Score
                        \override SpacingSpanner.common-shortest-duration = #moment
                    }
                  }
                  \midi {
                  }
                }          
              #}
              )
              )		

makeScoreVI = #(define-scheme-function
                (music)
                (ly:music?)
                (makeScore "Violin I" "violin" music)
                )

makeScoreVII = #(define-scheme-function
                 (music)
                 (ly:music?)
                 (makeScore "Violin II" "violin" music)
                 )

makeScoreVa = #(define-scheme-function
                (music)
                (ly:music?)
                (makeScore "Viola" "viola" #{ { \clef alto $music } #})
                )

makeScoreCl = #(define-scheme-function
                (music)
                (ly:music?)
                (makeScore "Cello" "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" 
                          midiInstrument = "violin"
                        } $vI
                        \new Staff \with { 
                          instrumentName = "Violin II" 
                          midiInstrument = "violin"
                        } $vII
                        \new Staff \with { 
                          instrumentName = "Viola" 
                          midiInstrument = "viola"
                        } { \clef alto $va }
                        \new Staff \with { 
                          instrumentName = "Cello" 
                          midiInstrument = "cello"
                        } { \clef bass $cl }
                      >>
                      \layout { 
                        \context {
                          \Score
                            \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3)
                        }
                      }
                      \midi {
                      }
                    }          
                  #}
                  )