lilypond-user
[Top][All Lists]
Advanced

[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
}




reply via email to

[Prev in Thread] Current Thread [Next in Thread]