]> git.donarmstrong.com Git - lilypond.git/blob - ly/grace-init.ly
* scm/define-context-properties.scm (Module): change definition of
[lilypond.git] / ly / grace-init.ly
1 \version "2.4.0"
2
3
4 startGraceMusic =  {
5 %    \context Voice \applycontext #set-start-grace-properties
6 }
7
8 stopGraceMusic =  { 
9 %    \context Voice \applycontext #set-stop-grace-properties
10 }
11
12 startAppoggiaturaMusic =
13  {
14 %    \context Voice \applycontext #set-start-grace-properties
15     s1*0(
16 }
17
18 stopAppoggiaturaMusic =  { 
19 %    \context Voice \applycontext #set-stop-grace-properties
20     s1*0)
21 }
22
23 startAcciaccaturaMusic =  {
24 %    \context Voice \applycontext #set-start-grace-properties
25     s1*0(
26     \override Stem  #'stroke-style = #"grace"
27 }
28
29 stopAcciaccaturaMusic =  {
30     \revert Stem #'stroke-style
31 %    \context Voice \applycontext #set-stop-grace-properties
32     s1*0)
33 }