ly/spanners-init.ly

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