\version "2.19.83"

Roll = #(define-music-function (myMusic) (ly:music?)
  (make-music
    'TremoloRepeatedMusic
    'elements
    '()
    'repeat-count
    #(/ 64 ly:music-property myMusic 'duration)
    'element
    (make-music
      'NoteEvent
      'drum-type
      ly:music-property myMusic 'drum-type
      'duration
      (ly:make-duration 6)
    )
  )
)

one =  {
\new DrumStaff
  \drummode {sn4 \Roll sn4 sn4 sn4 }
}

\score {
  \one 
  \layout { }
}
\score {
  \unfoldRepeats \one
  \midi { }
}