111 lines
3.5 KiB
Plaintext
111 lines
3.5 KiB
Plaintext
\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 {
|
|
}
|
|
}
|
|
#}
|
|
)
|