-

string-quartet.ly

@@ -28,7 +28,9 @@ makeHdr = #(define-scheme-function
 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 
@@ -38,14 +40,15 @@ makeScore = #(define-scheme-function
                   \layout { 
                     \context {
                       \Score
-                        \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3)
+                        \override SpacingSpanner.common-shortest-duration = #moment
                     }
                   }
                   \midi {
                   }
                 }          
               #}
-              )	
+              )
+              )		
 
 makeScoreVI = #(define-scheme-function
                 (music)