""))
#(defmacro lyrics-if-defined (name voice . optionals)
(let ((above (if (pair? optionals) (car optionals) #f)))
(if (defined? name)
`(make-music 'ContextSpeccedMusic
""))
#(defmacro lyrics-if-defined (name voice . optionals)
(let ((above (if (pair? optionals) (car optionals) #f)))
(if (defined? name)
`(make-music 'ContextSpeccedMusic
- 'create-new #t
- 'context-type 'Lyrics
- 'property-operations ',(if above `((assign alignAboveContext ,above)) '())
- 'element (make-music 'LyricCombineMusic
- 'associated-context ,voice
- 'element ,name))
+ 'create-new #t
+ 'context-type 'Lyrics
+ 'property-operations ',(if above `((assign alignAboveContext ,above)) '())
+ 'element (make-music 'LyricCombineMusic
+ 'associated-context ,voice
+ 'element ,name))
#(defaulting ,(sym v2name "InstrumentName") ,v2name)
}
shortInstrumentName = \markup \right-column \smallCaps {
#(defaulting ,(sym v2name "InstrumentName") ,v2name)
}
shortInstrumentName = \markup \right-column \smallCaps {
}
midiInstrument = "clarinet"
} <<
#(defaulting Key)
\clef #(identity ,clef)
\new Voice = #(identity ,v1name) <<
}
midiInstrument = "clarinet"
} <<
#(defaulting Key)
\clef #(identity ,clef)
\new Voice = #(identity ,v1name) <<
>>
>>
#(lyrics-if-defined ,(sym v1name "Lyrics") ,v1name ,name)
>>
>>
#(lyrics-if-defined ,(sym v1name "Lyrics") ,v1name ,name)
#(if (defaulting TwoVoicesPerStaff #f)
(two-voice-staff "Women" "treble" "Soprano" "Alto")
(make-simultaneous-music (list (one-voice-staff "Soprano" "treble")
#(if (defaulting TwoVoicesPerStaff #f)
(two-voice-staff "Women" "treble" "Soprano" "Alto")
(make-simultaneous-music (list (one-voice-staff "Soprano" "treble")
#(if (defaulting TwoVoicesPerStaff #f)
(two-voice-staff "Men" "bass" "Tenor" "Bass")
(make-simultaneous-music (list (one-voice-staff "Tenor" "treble_8")
#(if (defaulting TwoVoicesPerStaff #f)
(two-voice-staff "Men" "bass" "Tenor" "Bass")
(make-simultaneous-music (list (one-voice-staff "Tenor" "treble_8")