kastdeur/lilydrum
1
0
Fork 0
mirror of https://github.com/kastdeur/lilydrum.git synced 2024-12-22 09:13:33 +01:00
Code Issues Releases Activity

Whitespace fix for Special Sticking

Browse source
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

43
lib/special_sticking.ily
View file

@ -2,29 +2,32 @@
% 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
#{
\temporary \override Voice.NoteHead.style = #'triangle
\temporary \override Voice.NoteHead.font-size = #1.2
#notes
\revert Staff.NoteHead.font-size
\revert Staff.NoteHead.style
#})
\revert Voice.NoteHead.font-size
\revert Voice.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
#{
\temporary \override Voice.NoteHead.style = #'xcircle
\temporary \override Voice.NoteHead.font-size = #1.2
#notes
\revert Staff.NoteHead.font-size
\revert Staff.NoteHead.style
#})
\revert Voice.NoteHead.font-size
\revert Voice.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" }
#{
\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 Staff.NoteHead.stencil
\revert Staff.NoteHead.text
\revert Staff.NoteHead.font-size
#})
\revert Voice.NoteHead.stencil
\revert Voice.NoteHead.text
\revert Voice.NoteHead.font-size
#})