How about :

\version "2.18.2"

\layout { ragged-right = ##f }

#(define mydrums '((kumi-daiko default #t 0)))

kumi-daiko-staff = {
  \override Staff.StaffSymbol.line-positions = #'( 0 )
  \override Staff.BarLine.bar-extent = #'(-1.5 . 1.5)
  \set DrumStaff.instrumentName = #"Kumi-daiko"
}

%% Flip noteheand:
#(define-markup-command (flip layout props arg) (markup?)
   (interpret-markup layout props
     (markup #:concat (#:null #:scale (cons -1 1) #:line (arg)))))

fl = {
  \once\override NoteHead.stencil = #(lambda (grob)
            ly:note-head::print (grob-interpret-markup grob
                                  #{
                                    \markup
                                    \flip
                                    \musicglyph #"noteheads.s2"
                                  #}))
  \once\override NoteHead.stem-attachment = #'(-0.7 . 0.3)
}

\new DrumStaff {
  \kumi-daiko-staff
  \set DrumStaff.drumStyleTable = #(alist->hash-table mydrums)

  \drummode {
    tt4*4 \fl tt tt \fl tt tt4*2 \fl tt tt \fl tt
  }
}

Cheers,
~Pierre

2015-09-29 10:01 GMT+02:00 Andrew Bernard <andrew.bern...@gmail.com>:

> Hi Johan,
>
> By coincidence I saw a taiko drum performance live a couple of days ago.
>
> Lilypond does not do notehead direction changes out of the box. But
> lilypond can be programmed to do pretty much anything. At the Lilypond
> Snippet Repository there is an example of how to reposition note heads to
> the opposite sides.
>
> http://lsr.di.unimi.it/LSR/Item?id=861
>
>
> Andrew
>
>
>
> _______________________________________________
> lilypond-user mailing list
> lilypond-user@gnu.org
> https://lists.gnu.org/mailman/listinfo/lilypond-user
>
>
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to