ly/spanners-init.ly

   1 \version "1.7.2"
   2
   3
   4 #(define (make-span-event type spandir)
   5   (let* ((m (make-music-by-name  type)))
   6   (ly-set-mus-property! m 'span-direction spandir)
   7   m
   8   ))
   9
  10 groupOpen = #(make-span-event 'NoteGroupingEvent START)
  11 groupClose = #(make-span-event 'NoteGroupingEvent STOP)
  12
  13
  14 cr = #(make-span-event 'CrescendoEvent START)
  15 rc = #(make-span-event 'CrescendoEvent STOP)
  16 decr = #(make-span-event 'DecrescendoEvent START)
  17 rced = #(make-span-event 'DecrescendoEvent STOP)
  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 = #'((font-shape . 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 = #"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 'SustainPedalEvent STOP)
  58
  59 unaCorda = #(make-span-event 'UnaCordaEvent START)
  60 treCorde = #(make-span-event 'UnaCordaEvent STOP)
  61
  62 sostenutoDown = #(make-span-event 'SostenutoEvent START)
  63 sostenutoUp = #(make-span-event 'SostenutoEvent STOP)
  64
  65 %crescpoco = \property Voice.crescendoText = "cresc. poco a poco"
  66 %decresc = \property Voice.crescendoText = "decr."
  67 %dim = \property Voice.crescendoText = "dim."