Curly bracket with variable length (path): Difference between revisions

m New category
mNo edit summary
 
(One intermediate revision by one other user not shown)
Line 1: Line 1:
Curly bracket (or flat brace).
Curly brackets (or flat braces).


<lilypond version="2.24" full>
See also snippet [[Orchestral grouping with a custom brace]].
%% http://lsr.di.unimi.it/LSR/Item?id=988
%% see also: http://lsr.di.unimi.it/LSR/Item?id=986
%% Credits: PPS on April 2015


%here starts the snippet:
<lilypond version="2.24">
%% LSR: Credits: PPS on April 2015


%%% Defining a custom strait brace with a variable length:
%%% Defining a custom straight brace with a variable length:
#(define-markup-command (long-curly-bracket layout props arg-height)
#(define-markup-command (long-curly-bracket layout props arg-height)
   (number?)
   (number?)
Line 21: Line 19:
           (curveto  -0.2  0.4  -0.3  0.7 -0.3  1.5)
           (curveto  -0.2  0.4  -0.3  0.7 -0.3  1.5)
           (lineto  -0.3  ,arg-height)
           (lineto  -0.3  ,arg-height)
           (curveto  -0.4  ,(+ arg-height 1.3) 0.5 ,(+ arg-height 2.8) 0.7 ,(+ arg-height 2.8))
           (curveto  -0.4  ,(+ arg-height 1.3) 0.5
           (curveto  0.6  ,(+ arg-height 2.5) 0.1 ,(+ arg-height 2)  0.1 ,arg-height)
                            ,(+ arg-height 2.8) 0.7
                            ,(+ arg-height 2.8))
           (curveto  0.6  ,(+ arg-height 2.5) 0.1
                            ,(+ arg-height 2)  0.1
                            ,arg-height)
           (lineto    0.1  1.5)
           (lineto    0.1  1.5)
           (curveto  0.1  0.7  0.1  0.0  -0.8  0.0)
           (curveto  0.1  0.7  0.1  0.0  -0.8  0.0)
Line 28: Line 30:
           (curveto  -0.2  -0.4  -0.3  -0.7  -0.3  -1.5)
           (curveto  -0.2  -0.4  -0.3  -0.7  -0.3  -1.5)
           (lineto  -0.3  ,(* arg-height -1))
           (lineto  -0.3  ,(* arg-height -1))
           (curveto  -0.4  ,(* (+ arg-height 1.3) -1) 0.5 ,(* (+ arg-height 2.8) -1) 0.7 ,(* (+ arg-height 2.8) -1))
           (curveto  -0.4  ,(* (+ arg-height 1.3) -1) 0.5
           (curveto  0.6  ,(* (+ arg-height 2.5) -1) 0.1 ,(* (+ arg-height 2) -1)  0.1 ,(* arg-height -1))
                            ,(* (+ arg-height 2.8) -1) 0.7
                            ,(* (+ arg-height 2.8) -1))
           (curveto  0.6  ,(* (+ arg-height 2.5) -1) 0.1
                            ,(* (+ arg-height 2) -1)  0.1
                            ,(* arg-height -1))
           (lineto    0.1  -1.5)
           (lineto    0.1  -1.5)
           (curveto  0.1  -0.7  0.1  0.0  -0.8  0.0)
           (curveto  0.1  -0.7  0.1  0.0  -0.8  0.0)
Line 44: Line 50:
     \center-column { "#10" \vspace #1 \long-curly-bracket #10 }
     \center-column { "#10" \vspace #1 \long-curly-bracket #10 }
     \hspace #4
     \hspace #4
     \center-column { "#20" \vspace #1 \long-curly-bracket #20 }
     \center-column { "#22" \vspace #1 \long-curly-bracket #22 }
    \hspace #4
  % \hspace #4
    \center-column { "#40" \vspace #1 \long-curly-bracket #40 }
  % \center-column { "#40" \vspace #1 \long-curly-bracket #40 }
     \hspace #30
     \hspace #30
     \center-column {  
     \center-column {  
Line 54: Line 60:
       \rotate #90 \raise #3 \long-curly-bracket #3
       \rotate #90 \raise #3 \long-curly-bracket #3
       \vspace #1
       \vspace #1
      "#6"  
  %  "#6"  
      \rotate #90 \raise #6 \long-curly-bracket #6
  %  \rotate #90 \raise #6 \long-curly-bracket #6
      \vspace #1
  %  \vspace #1
       "#12"  
       "#12"  
       \rotate #90 \raise #12 \long-curly-bracket #12
       \rotate #90 \raise #12 \long-curly-bracket #12
Line 63: Line 69:
       \rotate #90 \raise #20 \long-curly-bracket #20
       \rotate #90 \raise #20 \long-curly-bracket #20
       \vspace #1
       \vspace #1
      "#30"  
  %  "#30"  
      \rotate #90 \raise #30 \long-curly-bracket #30
  %  \rotate #90 \raise #30 \long-curly-bracket #30
      \vspace #1
  %  \vspace #1
      "#28"  
  %  "#28"  
      \rotate #-90 \raise #28 \long-curly-bracket #28
  %  \rotate #-90 \raise #28 \long-curly-bracket #28
      \vspace #1
  %  \vspace #1
       "#14"  
       "#18"  
       \rotate #-90 \raise #14 \long-curly-bracket #14
       \rotate #-90 \raise #18 \long-curly-bracket #18
       \vspace #1
       \vspace #1
       "#7"  
       "#7"  
       \rotate #-90 \raise #7 \long-curly-bracket #7
       \rotate #-90 \raise #7 \long-curly-bracket #7
       \vspace #1
       \vspace #1
      "#4"  
  %  "#4"  
      \rotate #-90 \raise #4 \long-curly-bracket #4
  %  \rotate #-90 \raise #4 \long-curly-bracket #4
      \vspace #1
  %  \vspace #1
       "#2"  
       "#2"  
       \rotate #-90 \raise #2 \long-curly-bracket #2
       \rotate #-90 \raise #2 \long-curly-bracket #2
Line 83: Line 89:
   }
   }
}
}
\paper { tagline = ##f }
</lilypond>
</lilypond>