ly/spanners-init.ly

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