ly/spanners-init.ly

   1 \version "1.9.7"
   2
   3 startGroup = #(make-span-event 'NoteGroupingEvent START)
   4 stopGroup = #(make-span-event 'NoteGroupingEvent STOP)
   5
   6
   7 cr = #(make-span-event 'CrescendoEvent START)
   8 decr = #(make-span-event 'DecrescendoEvent START)
   9 enddecr = #(make-span-event 'DecrescendoEvent STOP)
  10 endcr = #(make-span-event 'CrescendoEvent STOP)
  11
  12 %% TODO: remove for 2.0
  13 rc = \endcr
  14 rced = \enddecr
  15
  16 startTextSpan = #(make-span-event 'TextSpanEvent START)
  17 stopTextSpan = #(make-span-event 'TextSpanEvent STOP)
  18
  19 cresc = \notes {
  20   #(ly:export (make-event-chord (list cr)))
  21   \property Voice.crescendoText = \markup { \italic "cresc." }
  22   \property Voice.crescendoSpanner = #'dashed-line
  23 }
  24
  25 % ah, this is handy: maybe drop resetting of properties in
  26 % dynamic-engraver ?
  27 endcresc = \notes {
  28   #(ly:export (make-event-chord (list rc)))
  29   \property Voice.crescendoText \unset
  30   \property Voice.crescendoSpanner \unset
  31 }
  32
  33 dim = \notes {
  34   #(ly:export (make-event-chord (list decr)))
  35
  36   \property Voice.decrescendoText = \markup { \italic "dim." }
  37   \property Voice.decrescendoSpanner = #'dashed-line
  38 }
  39
  40 enddim = \notes {
  41   #(ly:export (make-event-chord (list rced)))
  42    \property Voice.decrescendoText \unset
  43  \property Voice.decrescendoSpanner \unset
  44 }
  45
  46 %{
  47
  48 cresc = \spanevent \start "crescendo"
  49 endcresc = \spanevent \stop "crescendo"
  50
  51 %}
  52
  53 % better name sustainstart/stop?
  54 sustainUp = #(make-span-event 'SustainEvent STOP)
  55 sustainDown = #(make-span-event 'SustainEvent START)
  56
  57 unaCorda = #(make-span-event 'UnaCordaEvent START)
  58 treCorde = #(make-span-event 'UnaCordaEvent STOP)
  59
  60 sostenutoDown = #(make-span-event 'SostenutoEvent START)
  61 sostenutoUp = #(make-span-event 'SostenutoEvent STOP)
  62
  63 %crescpoco = \property Voice.crescendoText = "cresc. poco a poco"
  64 %decresc = \property Voice.crescendoText = "decr."
  65 %dim = \property Voice.crescendoText = "dim."