hans/exit-music
1
0
Fork 0
generated from hans/lilypond-hd
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Delete string-quartet.ly

Browse Source
This commit is contained in:
Hans Dijkema
2026-01-21 22:44:00 +01:00
parent 1f38db81e4
commit fa67bed049
1 changed files with 0 additions and 107 deletions
Download Patch File Download Diff File Expand all files Collapse all files

107
string-quartet.ly
View File

@@ -1,107 +0,0 @@
\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?)
#{
\score {
\new Staff \with {
instrumentName = $instrument
midiInstrument = $midi
}
$music
\layout {
\context {
\Score
\override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3)
}
}
\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 {
}
}
#}
)