ly/grace-init.ly

   1 \version "2.17.6"
   2
   3 startGraceSlur = #(make-music 'SlurEvent 'span-direction START 'spanner-id 'grace)
   4 stopGraceSlur = #(make-music 'SlurEvent 'span-direction STOP 'spanner-id 'grace)
   5
   6
   7 startGraceMusic =  {
   8 }
   9
  10 stopGraceMusic =  {
  11 }
  12
  13 startAppoggiaturaMusic =
  14 {
  15     <>\startGraceSlur
  16 }
  17
  18 stopAppoggiaturaMusic =  {
  19     <>\stopGraceSlur
  20 }
  21
  22 startAcciaccaturaMusic =  {
  23     <>\startGraceSlur
  24     \temporary \override Flag.stroke-style = #"grace"
  25 }
  26
  27 stopAcciaccaturaMusic =  {
  28     \revert Flag.stroke-style
  29     <>\stopGraceSlur
  30 }
  31
  32 startSlashedGraceMusic =  {
  33   \temporary \override Flag.stroke-style = #"grace"
  34 }
  35
  36 stopSlashedGraceMusic =  {
  37   \revert Flag.stroke-style
  38 }