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