kastdeur
/
lilydrum
mirror of https://github.com/kastdeur/lilydrum.git
1
0
Fork 0
Code Issues Releases Activity

Whitespace fix for Special Sticking

This commit is contained in:
Eric Teunis de Boone 2020-07-05 19:49:12 +02:00
parent 42adbf719a
commit f8d879f4cc
1 changed files with 32 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
lib/special_sticking.ily
View File

@ -1,30 +1,33 @@
% ================================================= %
% Side Sticking (modifies note, or adds mark) %
% ================================================= %
% ================================================= %
% Side Sticking (modifies note, or adds mark) %
% ================================================= %
% Part of lilydrum
backstick = #(define-music-function (parser location notes) (ly:music?)
#{
\temporary \override Staff.NoteHead.style = #'triangle
\temporary \override Staff.NoteHead.font-size = #1.2
#notes
\revert Staff.NoteHead.font-size
\revert Staff.NoteHead.style
#})
crossstick = #(define-music-function (parser location notes) (ly:music?)
#{
\temporary \override Staff.NoteHead.style = #'xcircle
\temporary \override Staff.NoteHead.font-size = #1.2
#notes
\revert Staff.NoteHead.font-size
\revert Staff.NoteHead.style
#})
rimshot = #(define-music-function (parser location notes) (ly:music?)
#{
\temporary \override Staff.NoteHead.font-size = #1.2
\temporary \override Staff.NoteHead.stencil = #ly:text-interface::print
\temporary \override Staff.NoteHead.text = \markup { \musicglyph #"scripts.halfopen" }
#notes
\revert Staff.NoteHead.stencil
\revert Staff.NoteHead.text
\revert Staff.NoteHead.font-size
#})
backstick = #(define-music-function (parser location notes) (ly:music?)
#{
\temporary \override Voice.NoteHead.style = #'triangle
\temporary \override Voice.NoteHead.font-size = #1.2
#notes
\revert Voice.NoteHead.font-size
\revert Voice.NoteHead.style
#})
crossstick = #(define-music-function (parser location notes) (ly:music?)
#{
\temporary \override Voice.NoteHead.style = #'xcircle
\temporary \override Voice.NoteHead.font-size = #1.2
#notes
\revert Voice.NoteHead.font-size
\revert Voice.NoteHead.style
#})
rimshot = #(define-music-function (parser location notes) (ly:music?)
#{
\temporary \override Voice.NoteHead.font-size = #1.2
\temporary \override Voice.NoteHead.stencil = #ly:text-interface::print
\temporary \override Voice.NoteHead.text = \markup { \musicglyph #"scripts.halfopen" }
#notes
\revert Voice.NoteHead.stencil
\revert Voice.NoteHead.text
\revert Voice.NoteHead.font-size
#})