Re: Optional chords

[Klaus Blum]

Hi Herbert, 

several years ago, someone in the German lilypond forum posted a solution: 
http://www.lilypondforum.de/index.php?action=profile;area=showposts;u=54

This can easily be adjusted to draw parentheses only on the left or right
side: 

%
-------------------------------------------------------------------------------------
#(define (parenthesis-ignatzek-chord-names in-pitches bass inversion
context)
(markup #:line ( "(" (ignatzek-chord-names in-pitches bass inversion
context) ")" )))

#(define (left-parenthesis-ignatzek-chord-names in-pitches bass inversion
context)
(markup #:line ( "(" (ignatzek-chord-names in-pitches bass inversion
context) )))

#(define (right-parenthesis-ignatzek-chord-names in-pitches bass inversion
context)
(markup #:line ( (ignatzek-chord-names in-pitches bass inversion context)
")" )))

paren = #(define-music-function (parser location griffe) (ly:music?)
#{
        \set chordNameFunction = #parenthesis-ignatzek-chord-names
        $griffe
        \set chordNameFunction = #ignatzek-chord-names
#})

leftParen = #(define-music-function (parser location griffe) (ly:music?)
#{
        \set chordNameFunction = #left-parenthesis-ignatzek-chord-names
        $griffe
        \set chordNameFunction = #ignatzek-chord-names
#})

rightParen = #(define-music-function (parser location griffe) (ly:music?)
#{
        \set chordNameFunction = #right-parenthesis-ignatzek-chord-names
        $griffe
        \set chordNameFunction = #ignatzek-chord-names
#})

\new ChordNames \chordmode {
  \paren f1:maj7   \leftParen g2:m7  \rightParen c2:7
}
%
-------------------------------------------------------------------------------------

Cheers, 
Klaus



--
View this message in context: 
http://lilypond.1069038.n5.nabble.com/Optional-chords-tp195806p195817.html
Sent from the User mailing list archive at Nabble.com.