hans/lilypond-hd
Template
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ja

Browse Source
This commit is contained in:
Hans Dijkema
2026-01-21 00:48:54 +01:00
parent 30e3032d4e
commit 3ccd2aa9f7
1 changed files with 32 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
string-quartet.ly
View File

@@ -1,3 +1,5 @@
\version "2.24.3"
\language "english"
makePiece = #(define-scheme-function
@@ -24,11 +26,14 @@ makeHdr = #(define-scheme-function
)
makeScore = #(define-scheme-function
(instrument music)
(string? ly:music?)
(instrument midi music)
(string? string? ly:music?)
#{
\score {
\new Staff \with { instrumentName = $instrument }
\new Staff \with {
instrumentName = $instrument
midiInstrument = $midi
}
$music
\layout {
\context {
@@ -36,6 +41,8 @@ makeScore = #(define-scheme-function
\override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3)
}
}
\midi {
}
}
#}
)
@@ -43,25 +50,25 @@ makeScore = #(define-scheme-function
makeScoreVI = #(define-scheme-function
(music)
(ly:music?)
(makeScore "Violin I" music)
(makeScore "Violin I" "violin" music)
)
makeScoreVII = #(define-scheme-function
(music)
(ly:music?)
(makeScore "Violin II" music)
(makeScore "Violin II" "violin" music)
)
makeScoreVa = #(define-scheme-function
(music)
(ly:music?)
(makeScore "Viola" #{ { \clef alto $music } #})
(makeScore "Viola" "viola" #{ { \clef alto $music } #})
)
makeScoreCl = #(define-scheme-function
(music)
(ly:music?)
(makeScore "Cello" #{ { \clef bass $music } #})
(makeScore "Cello" "cello" #{ { \clef bass $music } #})
)
makeScoreFull = #(define-scheme-function
@@ -70,10 +77,22 @@ makeScoreFull = #(define-scheme-function
#{
\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 }
\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 {
@@ -81,6 +100,8 @@ makeScoreFull = #(define-scheme-function
\override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3)
}
}
\midi {
}
}
#}
)