mirror of https://github.com/kastdeur/lilydrum.git
371 lines
7.0 KiB
Plaintext
371 lines
7.0 KiB
Plaintext
% ================================================= %
|
|
% Tenor Flourishing %
|
|
% ================================================= %
|
|
% Part of lilydrum
|
|
|
|
%---------------------------------------------------%
|
|
% Single note flourish definitions
|
|
%---------------------------------------------------%
|
|
splitTheFeather = ^\markup \center-column { \musicglyph #"noteheads.s2xcircle"}
|
|
cartWheel = ^\markup \center-column { \musicglyph #"timesig.neomensural94" }
|
|
up = ^\markup \center-column {
|
|
\fontsize #5
|
|
\override #'(thickness . 2)
|
|
\combine
|
|
\arrow-head #Y #UP ##f
|
|
\draw-line #'(0 . -3) % draw stick
|
|
}
|
|
|
|
rswipe = ^\markup \center-column {
|
|
\fontsize #5
|
|
\override #'(thickness . 2 )
|
|
\combine
|
|
\draw-line #'(-3 . 0)
|
|
\arrow-head #X #RIGHT ##f
|
|
}
|
|
|
|
bfly = ^\markup \center-column { \char ##x221E }
|
|
rbfly = ^\markup \center-column {
|
|
\line{
|
|
\combine
|
|
\arrow-head #X #LEFT ##f
|
|
\draw-line #'(3 . 0 )
|
|
}
|
|
\line { \char ##x221E }
|
|
}
|
|
|
|
rthrow = ^\markup \center-column {
|
|
\postscript #"
|
|
/width 2 def
|
|
/radius .4 def
|
|
/filled 1 def
|
|
/height .6 def
|
|
/fwidth width radius add def
|
|
|
|
/closedpoint {
|
|
radius 0 360 arc
|
|
gsave filled neg
|
|
setgray fill
|
|
grestore
|
|
stroke } def
|
|
|
|
/dotstick {
|
|
0 0 moveto
|
|
0 0 closedpoint
|
|
0 0 moveto
|
|
fwidth neg 0 lineto
|
|
fwidth neg height neg moveto
|
|
fwidth neg height lineto
|
|
stroke } def
|
|
|
|
newpath
|
|
fwidth height translate
|
|
0 0 dotstick
|
|
stroke
|
|
"
|
|
}
|
|
lthrow = ^\markup \center-column {
|
|
\postscript #"
|
|
/width 2 def
|
|
/radius .4 def
|
|
/filled 1 def
|
|
/height .6 def
|
|
/fwidth width radius add def
|
|
|
|
/closedpoint {
|
|
radius 0 360 arc
|
|
gsave filled neg
|
|
setgray fill
|
|
grestore
|
|
stroke } def
|
|
|
|
/dotstick {
|
|
radius 0 closedpoint
|
|
radius 0 moveto
|
|
fwidth 0 lineto
|
|
fwidth height neg moveto
|
|
fwidth height lineto
|
|
stroke } def
|
|
|
|
newpath
|
|
0 height translate
|
|
0 0 dotstick
|
|
stroke
|
|
"
|
|
}
|
|
bthrow = ^\markup \center-column {
|
|
\postscript #"
|
|
/width 2 def
|
|
/radius .4 def
|
|
/filled 1 def
|
|
/height .6 def
|
|
/fwidth width radius add def
|
|
|
|
/closedpoint {
|
|
radius 0 360 arc
|
|
gsave filled neg
|
|
setgray fill
|
|
grestore
|
|
stroke } def
|
|
|
|
/dotstick {
|
|
fwidth 0 closedpoint
|
|
fwidth 0 moveto
|
|
0 0 lineto
|
|
0 height neg moveto
|
|
0 height lineto
|
|
stroke } def
|
|
|
|
newpath
|
|
fwidth height translate
|
|
0 0 dotstick
|
|
180 rotate
|
|
fwidth 0 dotstick
|
|
stroke
|
|
"
|
|
}
|
|
rpush = ^\markup \center-column {
|
|
\postscript #"
|
|
/width 2 def
|
|
/radius .4 def
|
|
/filled 1 def
|
|
/height .6 def
|
|
/fwidth width radius add def
|
|
|
|
/closedpoint {
|
|
radius 0 360 arc
|
|
gsave filled neg
|
|
setgray fill
|
|
grestore
|
|
stroke } def
|
|
|
|
/dotstick {
|
|
0 0 moveto
|
|
0 0 closedpoint
|
|
0 0 moveto
|
|
fwidth neg 0 lineto
|
|
fwidth radius add 2 div neg 0 moveto
|
|
fwidth radius add 2 div neg radius neg
|
|
radius 90 450 arc
|
|
gsave filled
|
|
setgray fill
|
|
grestore
|
|
|
|
fwidth neg height neg moveto
|
|
fwidth neg height lineto
|
|
stroke } def
|
|
|
|
newpath
|
|
fwidth height translate
|
|
0 0 dotstick
|
|
stroke
|
|
"
|
|
}
|
|
lpush = ^\markup \center-column {
|
|
\postscript #"
|
|
/width 2 def
|
|
/radius .4 def
|
|
/filled 1 def
|
|
/height .6 def
|
|
/fwidth width radius add def
|
|
|
|
/closedpoint {
|
|
radius 0 360 arc
|
|
gsave filled neg
|
|
setgray fill
|
|
grestore
|
|
stroke } def
|
|
|
|
|
|
/dotstick {
|
|
radius 0 closedpoint
|
|
radius 0 moveto
|
|
fwidth 0 lineto
|
|
fwidth radius add 2 div 0 moveto
|
|
fwidth radius add 2 div radius neg
|
|
radius 90 450 arc
|
|
gsave filled
|
|
setgray fill
|
|
grestore
|
|
fwidth height neg moveto
|
|
fwidth height lineto
|
|
stroke } def
|
|
|
|
newpath
|
|
0 height translate
|
|
0 0 dotstick
|
|
stroke
|
|
" }
|
|
bpush = ^\markup \center-column {
|
|
\postscript #"
|
|
/width 2 def
|
|
/radius .4 def
|
|
/filled 1 def
|
|
/height .6 def
|
|
/fwidth width radius add def
|
|
|
|
/closedpoint {
|
|
radius 0 360 arc
|
|
gsave filled neg
|
|
setgray fill
|
|
grestore
|
|
stroke } def
|
|
|
|
|
|
/dotstick {
|
|
fwidth 0 closedpoint
|
|
fwidth 0 moveto
|
|
0 0 lineto
|
|
fwidth sub 2 div 0 moveto
|
|
fwidth radius sub 2 div radius neg
|
|
radius 90 450 arc
|
|
gsave filled
|
|
setgray fill
|
|
grestore
|
|
|
|
0 height neg moveto
|
|
0 height lineto
|
|
stroke } def
|
|
|
|
newpath
|
|
fwidth height translate
|
|
0 0 dotstick
|
|
-1 1 scale
|
|
fwidth 0 dotstick
|
|
stroke
|
|
"
|
|
}
|
|
|
|
andrewStop = ^\markup \center-column {
|
|
\postscript #"
|
|
/width .4 def
|
|
/radius width def
|
|
/filled 1 def
|
|
/height 2 def
|
|
/fheight height radius add def
|
|
|
|
/closedpoint {
|
|
radius 0 360 arc
|
|
gsave filled neg
|
|
setgray fill
|
|
grestore
|
|
stroke } def
|
|
/dotstick {
|
|
0 fheight closedpoint
|
|
0 fheight moveto
|
|
0 0 lineto
|
|
width neg 0 lineto
|
|
width 0 lineto
|
|
stroke } def
|
|
|
|
newpath
|
|
0 0 translate
|
|
-45 rotate
|
|
newpath
|
|
0 0 dotstick
|
|
stroke
|
|
45 rotate
|
|
fheight .5 sqrt mul 0 translate
|
|
45 rotate
|
|
0 0 dotstick
|
|
stroke
|
|
"
|
|
}
|
|
quiggs = ^\markup \center-column {
|
|
%\with-dimensions #'(-0.2 . 2.0) #'(0 . 2.0)
|
|
\postscript #"
|
|
/width 1 def
|
|
/radius .4 def
|
|
/filled 1 def
|
|
/height 2 def
|
|
/fheight height radius add def
|
|
|
|
/closedpoint {
|
|
radius 0 360 arc
|
|
gsave filled neg
|
|
setgray fill
|
|
grestore
|
|
stroke } def
|
|
/dotstick {
|
|
0 height closedpoint
|
|
0 height moveto
|
|
0 0 lineto
|
|
stroke } def
|
|
/invdotstick {
|
|
0 radius closedpoint
|
|
0 radius moveto
|
|
0 fheight lineto
|
|
stroke } def
|
|
|
|
newpath
|
|
0 0 dotstick
|
|
stroke
|
|
width 0 translate
|
|
newpath
|
|
0 0 invdotstick
|
|
stroke
|
|
"
|
|
}
|
|
|
|
stop = ^\markup \center-column {
|
|
%\with-dimensions #'(-0.2 . 2.0) #'(0 . 2.0)
|
|
\postscript #"
|
|
/height 2 def
|
|
/width .4 def
|
|
/radius width def
|
|
/filled 0 def
|
|
/fheight height radius add def
|
|
width 0 translate
|
|
|
|
newpath
|
|
0 fheight radius 0 360 arc gsave filled neg setgray fill grestore stroke
|
|
0 fheight moveto 0 0 lineto
|
|
width neg 0 moveto width 0 lineto
|
|
stroke
|
|
"
|
|
}
|
|
%---------------------------------------------------%
|
|
% Multiple note flourish definitions
|
|
%---------------------------------------------------%
|
|
flourish = #(define-music-function (parser location notes) (ly:music?)
|
|
#{
|
|
\temporary \override Staff.NoteHead.style = #'cross
|
|
$notes
|
|
\revert Staff.NoteHead.style
|
|
#})
|
|
|
|
% See issue #4 (https://github.com/kastdeur/lilydrum/issues/4)
|
|
scoop = #(define-music-function (music) (ly:music?)
|
|
(define (grace-music-filter event)
|
|
(let ((eventname (ly:music-property event 'name)))
|
|
(not (eq? eventname 'GraceMusic))))
|
|
(let*
|
|
(
|
|
(music-copy (ly:music-deep-copy music))
|
|
(es (extract-typed-music (music-filter grace-music-filter music-copy) 'note-event))
|
|
)
|
|
(if (< (length es) 2)
|
|
(ly:message "A scoop requires at least two notes for positioning"))
|
|
; do it anyway
|
|
#{
|
|
<>
|
|
-\tweak HorizontalBracketText.text "scoop"
|
|
-\tweak HorizontalBracketText.whiteout 1
|
|
\startGroup
|
|
#music
|
|
\stopGroup
|
|
#}))
|
|
%---------------------------------------------------%
|
|
% music function definitions
|
|
%---------------------------------------------------%
|
|
#(define (buildFlourishFunc flourish)
|
|
(define-music-function (parser location note) (ly:music? )
|
|
#{
|
|
<>-$flourish $note
|
|
#}
|
|
)
|
|
)
|
|
cart = #(buildFlourishFunc cartWheel)
|
|
stf = #(buildFlourishFunc splitTheFeather)
|
|
|