tmont/music
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

updated pitch bend snippet

Browse Source
This commit is contained in:
tmont 2016-11-29 19:44:21 -08:00
parent df6e42f955
commit f7c13719ed
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lib/guitar-bend.ily
View File

@ -13,7 +13,7 @@
% add comma-separated tags to make searching more effective: % add comma-separated tags to make searching more effective:
tags = "guitar, bend, string bending" tags = "guitar, bend, string bending"
% is this snippet ready? See meta/status-values.md % is this snippet ready? See meta/status-values.md
status = "undocumented" status = "buggy"
} }
% TODO: % TODO:
@ -196,8 +196,8 @@ thickness begin-x line-y end-x line-y))))
(left-tab-note-head (ly:grob-property left-bound 'cause)) (left-tab-note-head (ly:grob-property left-bound 'cause))
(right-tab-note-head (ly:grob-property right-bound 'cause)) (right-tab-note-head (ly:grob-property right-bound 'cause))
(control-points (ly:grob-property grob 'control-points)) (control-points (ly:grob-property grob 'control-points))
;;changed: car and cadddr changed to: first and last (left-point (car control-points))
(left-point (first control-points)) ;;changed: cadddr changed to last
(right-point (last control-points)) (right-point (last control-points))
(left-pitch (ly:event-property (event-cause left-bound) 'pitch)) (left-pitch (ly:event-property (event-cause left-bound) 'pitch))
(right-pitch (ly:event-property (event-cause right-bound) 'pitch)) (right-pitch (ly:event-property (event-cause right-bound) 'pitch))
@ -395,10 +395,13 @@ thickness begin-x line-y end-x line-y))))
%%% music functions %%% music functions
bendOn = { bendOn =
#(define-music-function (parser location note) (ly:music?)
#{
\override Voice.Slur #'stencil = #slur::draw-pointed-slur \override Voice.Slur #'stencil = #slur::draw-pointed-slur
\override TabVoice.Slur #'stencil = #slur::draw-bend-arrow \override TabVoice.Slur #'stencil = #slur::draw-bend-arrow
} $note \noBreak
#})
bendOff = { bendOff = {
\revert Voice.Slur #'stencil \revert Voice.Slur #'stencil