mirror of
https://github.com/kastdeur/lilydrum.git
synced 2024-12-23 01:33:32 +01:00
Fixed the flam function, now useable for flams, drags, ruffs and swiss ruffs
This commit is contained in:
parent
895cade572
commit
3b80ad9473
2 changed files with 57 additions and 14 deletions
|
@ -15,17 +15,17 @@
|
||||||
\drummode {
|
\drummode {
|
||||||
\repeat volta 2{
|
\repeat volta 2{
|
||||||
\partial 8 d8:32( |
|
\partial 8 d8:32( |
|
||||||
g8) \tuplet 3/2 { d16 g d } \flamg g16. d32-> g16. g32 |
|
g8) \tuplet 3/2 { d16 g d } \flam g16. d32-> g16. g32 |
|
||||||
\flamd d8 d8:32( g8:32)(-> \tuplet 3/2 { d16) g d } |
|
\flam d8 d8:32( g8:32)(-> \tuplet 3/2 { d16) g d } |
|
||||||
|
|
||||||
\flamg g8[ \dragd d16. d32]-> g16.[ \dragd d32 d16. g32] |
|
\flam g8[ \drag d16. d32]-> g16.[ \drag d32 d16. g32] |
|
||||||
d4:32( d8) d8:32( |
|
d4:32( d8) d8:32( |
|
||||||
|
|
||||||
g8) \tuplet 3/2 { d16 g d } \flamg g16. d32-> g16. g32 |
|
g8) \tuplet 3/2 { d16 g d } \flam g16. d32-> g16. g32 |
|
||||||
\flamd d8 d8:32( g8:32)(-> \tuplet 3/2 { d16) g d } |
|
\flam d8 d8:32( g8:32)(-> \tuplet 3/2 { d16) g d } |
|
||||||
|
|
||||||
|
|
||||||
\flamg g8-> \tuplet 3/2 { \flamd d16 g d-> } g16. g32 \flamd d8 |
|
\flam g8-> \tuplet 3/2 { \flam d16 g d-> } g16. g32 \flam d8 |
|
||||||
d4:32( d8)
|
d4:32( d8)
|
||||||
}
|
}
|
||||||
\break
|
\break
|
||||||
|
@ -40,7 +40,7 @@
|
||||||
d8:32( \tuplet 3/2 { g16) d g-> } d8:32(-> g8:32)(-> |
|
d8:32( \tuplet 3/2 { g16) d g-> } d8:32(-> g8:32)(-> |
|
||||||
\tuplet 3/2 { d16) g d->} g16. g32 d8:32(-> \tuplet 3/2 { g16) d g } |
|
\tuplet 3/2 { d16) g d->} g16. g32 d8:32(-> \tuplet 3/2 { g16) d g } |
|
||||||
|
|
||||||
\flamg g8-> \tuplet 3/2 { \flamd d16 g d-> } g16. g32 \flamd d8 |
|
\flam g8-> \tuplet 3/2 { \flam d16 g d-> } g16. g32 \flam d8 |
|
||||||
d4:32( d8)
|
d4:32( d8)
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
61
lilydrum.ly
61
lilydrum.ly
|
@ -18,6 +18,7 @@
|
||||||
}
|
}
|
||||||
|
|
||||||
%}
|
%}
|
||||||
|
#(ly:set-option 'point-and-click #f)
|
||||||
|
|
||||||
% Note name defs :
|
% Note name defs :
|
||||||
% "d" for the right hand ("droite") and
|
% "d" for the right hand ("droite") and
|
||||||
|
@ -128,7 +129,7 @@ eighthBeaming = {
|
||||||
}
|
}
|
||||||
sixteenthBeaming = {
|
sixteenthBeaming = {
|
||||||
\set Score.baseMoment = #(ly:make-moment 1 16)
|
\set Score.baseMoment = #(ly:make-moment 1 16)
|
||||||
\set Score.beatStructure = #'( 2 2 )
|
\set Score.beatStructure = #'( 4 4 4 4 )
|
||||||
}
|
}
|
||||||
|
|
||||||
\layout{
|
\layout{
|
||||||
|
@ -144,6 +145,9 @@ sixteenthBeaming = {
|
||||||
|
|
||||||
% I like being able to identify the 8th notes
|
% I like being able to identify the 8th notes
|
||||||
subdivideBeams = ##t
|
subdivideBeams = ##t
|
||||||
|
strictBeatBeaming = ##t
|
||||||
|
|
||||||
|
\override TupletBracket.bracket-visibility = ##f
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -183,13 +187,18 @@ dynLine = #(define-music-function
|
||||||
% Flams, Drags & the sort %
|
% Flams, Drags & the sort %
|
||||||
% ================================================= %
|
% ================================================= %
|
||||||
drumgrace = #(define-music-function (parser location notes) (ly:music?) #{
|
drumgrace = #(define-music-function (parser location notes) (ly:music?) #{
|
||||||
|
% Set settings
|
||||||
\stemUp
|
\stemUp
|
||||||
|
\once \override Beam.positions = #'(1.8 . 1.8)
|
||||||
|
\once \override DrumStaff.Stem.length = #5
|
||||||
\override Flag.stroke-style = #"grace"
|
\override Flag.stroke-style = #"grace"
|
||||||
\once \override Beam.positions = #'(2 . 2)
|
\override Score.GraceSpacing #'spacing-increment = #1
|
||||||
\once \override DrumStaff.Stem.length = #6
|
|
||||||
\override Score.GraceSpacing #'spacing-increment = #0
|
|
||||||
\override Score.Stem #'beamlet-max-length-proportion = #'(0.5 . 0.5)
|
\override Score.Stem #'beamlet-max-length-proportion = #'(0.5 . 0.5)
|
||||||
\tiny \grace $notes \normalsize
|
|
||||||
|
% Print notes
|
||||||
|
\grace $notes
|
||||||
|
|
||||||
|
% Revert back
|
||||||
\revert Score.Stem #'beamlet-default-length
|
\revert Score.Stem #'beamlet-default-length
|
||||||
\revert Flag.stroke-style
|
\revert Flag.stroke-style
|
||||||
\stemNeutral
|
\stemNeutral
|
||||||
|
@ -220,13 +229,47 @@ sruffgdr = \drummode { \drumgrace { g16[\startGroup d d] }} % with start repeat
|
||||||
sruffd = \drummode { \drumgrace { d16[ g g] }} % right Swiss Ruff
|
sruffd = \drummode { \drumgrace { d16[ g g] }} % right Swiss Ruff
|
||||||
sruffddr = \drummode { \drumgrace { d16[\startGroup g g] }} % with start repeat
|
sruffddr = \drummode { \drumgrace { d16[\startGroup g g] }} % with start repeat
|
||||||
|
|
||||||
|
% Embellishment functions, automatic left or right
|
||||||
|
% Flam
|
||||||
flam = #(define-music-function (parser location note) (ly:music?) #{
|
flam = #(define-music-function (parser location note) (ly:music?) #{
|
||||||
% is note right-handed? then \flamd
|
% is note right-handed? then \flamd
|
||||||
% if left, then \flamg
|
% if left, then \flamg
|
||||||
|
#(if (string=? (symbol->string (ly:music-property note 'drum-type)) "left-hand")
|
||||||
#(if #f \flamg ($\flamd)) % fix \flam{gd} return
|
#{ \flamg #}
|
||||||
|
#{ \flamd #})
|
||||||
|
% print the note, else it won't show up
|
||||||
|
$note
|
||||||
|
#})
|
||||||
|
|
||||||
|
% Drag
|
||||||
|
drag = #(define-music-function (parser location note) (ly:music?) #{
|
||||||
|
% is note right-handed? then \flamd
|
||||||
|
% if left, then \flamg
|
||||||
|
#(if (string=? (symbol->string (ly:music-property note 'drum-type)) "left-hand")
|
||||||
|
#{ \dragg #}
|
||||||
|
#{ \dragd #})
|
||||||
|
% print the note, else it won't show up
|
||||||
|
$note
|
||||||
|
#})
|
||||||
|
|
||||||
|
% Ruff
|
||||||
|
ruff = #(define-music-function (parser location note) (ly:music?) #{
|
||||||
|
% is note right-handed? then \flamd
|
||||||
|
% if left, then \flamg
|
||||||
|
#(if (string=? (symbol->string (ly:music-property note 'drum-type)) "left-hand")
|
||||||
|
#{ \ruffg #}
|
||||||
|
#{ \ruffd #})
|
||||||
|
% print the note, else it won't show up
|
||||||
|
$note
|
||||||
|
#})
|
||||||
|
|
||||||
|
% Swiss Ruff
|
||||||
|
sruff = #(define-music-function (parser location note) (ly:music?) #{
|
||||||
|
% is note right-handed? then \flamd
|
||||||
|
% if left, then \flamg
|
||||||
|
#(if (string=? (symbol->string (ly:music-property note 'drum-type)) "left-hand")
|
||||||
|
#{ \sruffg #}
|
||||||
|
#{ \sruffd #})
|
||||||
% print the note, else it won't show up
|
% print the note, else it won't show up
|
||||||
$note
|
$note
|
||||||
#})
|
#})
|
Loading…
Reference in a new issue