[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Bracketed notes
From: |
Kieren MacMillan |
Subject: |
Re: Bracketed notes |
Date: |
Mon, 4 May 2009 23:19:52 -0400 |
Hi all,
Another option is to (ab)use the Arpeggio, as seen in the attached
snippet (which uses Mark P's postscript parens).
Cheers,
Kieren.
\version "2.12.2"
leftPar = \markup
{
\postscript
#(let ((width 0.75)
(height -4)
(edge-thickness 0.1)
(center-thickness 0.3))
(ly:format
"/w ~a def /h ~a def /t0 ~a def /t1 ~a def /x1 t1 t0 sub def
/y1 1 3 div h mul def /y2 2 3 div h mul def
currentpoint translate t0 setlinewidth 1 setlinecap 1
setlinejoin
w 0 moveto 0 y1 0 y2 w h curveto x1 y2 x1 y1 w 0 curveto
gsave fill grestore stroke
" width height edge-thickness center-thickness))
}
rightPar = \markup
{
\postscript
#(let ((width 0.75)
(height -4)
(edge-thickness 0.1)
(center-thickness 0.3))
(ly:format
"/w ~a def /h ~a def /t0 ~a def /t1 ~a def /x1 w t1 t0 sub sub
def
/y1 1 3 div h mul def /y2 2 3 div h mul def
currentpoint translate t0 setlinewidth 1 setlinecap 1
setlinejoin
0 0 moveto w y1 w y2 0 h curveto x1 y2 x1 y1 0 0 curveto
gsave fill grestore stroke
" width height edge-thickness center-thickness))
}
parenArp =
{
\once \override Arpeggio #'stencil = #ly:text-interface::print
\once \override Arpeggio #'text = \markup { \hspace #-0.4 \leftPar
\hspace #1.6 \rightPar }
}
parenChord = \relative
{
\parenArp <c e g>
}
\score
{
\parenChord
}