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