On 11/04/06, Jannik Jeppesen <[EMAIL PROTECTED]> wrote:
>
> I want to whrite a few drum march and rhythm exercises, but cant make them
> look perfect...
> Here is a little march, with alot of things that can be done more nicely.
>
> can anyone set this one up in a more beautifulll manner? So the bars in
> under each other, the volta brakets is not ended with a |, and the stickings
> ( H and V) is whritten more beautiful. And any other ideas is apreciated...

Don't know much about how this kind of drumming should look, so I'm
enclosing a sample of a mode for pipe band snare drum that I've played
a little with. Here sticking is indicated by notes above and below the
line. Have a look at the drum.ly file to see how things are done.
--
Sven Axelsson
\version "2.8.0"

pitchnamesPipebandDrum = #`(
  (v . ,(ly:make-pitch 0 5 NATURAL))
  (h . ,(ly:make-pitch 1 0 NATURAL))
)
pitchnames = \pitchnamesPipebandDrum
#(ly:parser-set-note-names parser pitchnames)

\layout {
indent = 0.0\cm
\context {
    \RhythmicStaff
    \name PipebandDrumStaff
    \alias RhythmicStaff
    \remove "Pitch_squash_engraver"
    \consists "Horizontal_bracket_engraver"

    \override Stem #'direction = #DOWN
    \override Slur #'direction = #UP
    \override Tie #'direction = #UP
    \override StemTremolo #'slope = #0.45
    
    \override VoltaBracket #'Y-offset-callbacks = #(list ly:staff-symbol-referencer::callback)
    \override VoltaBracket #'staff-position = #10
    
    \override HorizontalBracket #'Y-offset-callbacks = #(list ly:staff-symbol-referencer::callback)
    \override HorizontalBracket #'staff-position = #7
    \override HorizontalBracket #'direction = #UP
    \override HorizontalBracket #'bracket-flare = #'(0 . 0)
    
    \override Beam #'positions = #'(-5 . -5)
    \override Stem #'lengths = #'(5 5 5 5 5)
}
\context {
    \Score
    \accepts "PipebandDrumStaff"
}
}

% Some common timing tweaks.

% Sets the autobeamer to span quarter notes only. Use for fast music.
% TODO: Needs more tweaking
quarterBeaming = {
  #(override-auto-beam-setting '(end * * * *) 1 4 'Staff)
  #(override-auto-beam-setting '(end * * * *) 1 2 'Staff)
  #(override-auto-beam-setting '(end * * * *) 3 4 'Staff)
  #(override-auto-beam-setting '(end * * * *) 4 4 'Staff)
  #(revert-auto-beam-setting '(end 1 32 2 4 ) 1 8 'Staff)
  #(revert-auto-beam-setting '(end 1 32 2 4 ) 3 8 'Staff)
  #(revert-auto-beam-setting '(end 1 32 4 4 ) 1 8 'Staff)
  #(revert-auto-beam-setting '(end 1 32 4 4 ) 3 8 'Staff)
  #(revert-auto-beam-setting '(end 1 32 4 4 ) 5 8 'Staff)
  #(revert-auto-beam-setting '(end 1 32 4 4 ) 7 8 'Staff)
  \set subdivideBeams = ##t
  \set Score.beatLength = #(ly:make-moment 1 8)
}

fine = {
  \once \override Score.RehearsalMark #'break-visibility = #begin-of-line-invisible
  \once \override Score.RehearsalMark #'self-alignment-X = #right
  \once \override Score.RehearsalMark #'extra-offset = #'(0 . -8)
  \mark \markup { \normalsize \italic "Fine" }
}
dcalfine = {
  \once \override Score.RehearsalMark #'break-visibility = #begin-of-line-invisible
  \once \override Score.RehearsalMark #'self-alignment-X = #right
  \once \override Score.RehearsalMark #'extra-offset = #'(0 . -8)
  \mark \markup { \normalsize \italic "d.c. al Fine" }
}

startTutti = \startGroup
stopTutti = \stopGroup

vnick = { \grace { \once \override Stem  #'stroke-style = #"grace" v8 } }
hnick = { \grace { \once \override Stem  #'stroke-style = #"grace" h8 } }


\version "2.8.0"

\include "drum.ly"
\include "format.ly"

#(set-global-staff-size 16)

\score {

\new PipebandDrumStaff {
    \time 4/4
    \quarterBeaming
    
    \partial 8 h8:32( |
    \repeat volta 2 {
    v8.) v16 h8:32( v8) \vnick h8 h8:32( v8) h8:32( \startTutti |
    \times 2/3 { v16) h v } \vnick h16. v32
    \times 2/3 { h16 v h } \vnick v16. v32
    \vnick h8 h8:32( v8) \stopGroup h8:32( |
    v8.) v16 h8:32( v8) \vnick h8 h8:32( v8) v8 |
    \vnick h4 \startTutti h4:32( h4) \stopTutti r4\fine |
    }
    
    \partial 8 v8 \bar "||"
    \hnick h8 \startTutti s1*0 \stopTutti h8:32( v8) v8:32( h8) 
    \hnick v8 \startTutti h16 \hnick v8 v16 |
    \hnick h8 \stopTutti h8:32( v8) v8:32( h8) 
    \hnick v8 \startTutti h16 \hnick v8 v16 |
    \vnick h8 \times 2/3 { v16 h v } 
    \vnick h8 \hnick v8 \stopTutti
    v16. h32:128( h16.) v32 
    h16.:64( h32) \times 2/3 { v16 h v } |
    \vnick h4 \startTutti h4:32( h4) \stopTutti r4\dcalfine \bar "|."
}

\header {
    meter = "March"
    title = "Scotland the Brave"
    composer = "Allan Rasmussen"
    arranger = "HP&D, 4 September 1988"
}

}


Attachment: test.png
Description: PNG image

_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to