ly/spanners-init.ly

   1 \version "1.5.68"
   2
   3
   4 #(define (make-span-request 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-request 'NoteGroupingEvent START)
  11 groupClose = #(make-span-request 'NoteGroupingEvent STOP)
  12
  13
  14 cr = #(make-span-request 'CrescendoEvent START)
  15 rc = #(make-span-request 'CrescendoEvent STOP)
  16 decr = #(make-span-request 'DecrescendoEvent START)
  17 rced = #(make-span-request 'DecrescendoEvent STOP)
  18
  19 cresc = \notes {
  20   \commandspanrequest \start "crescendo"
  21   \property Voice.crescendoText = #'((font-shape . 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   \commandspanrequest \stop "crescendo"
  29   \property Voice.crescendoText \unset
  30   \property Voice.crescendoSpanner \unset
  31 }
  32
  33 dim = \notes {
  34   \commandspanrequest \start "decrescendo"
  35   \property Voice.decrescendoText = #"dim."
  36   \property Voice.decrescendoSpanner = #'dashed-line
  37 }
  38
  39 enddim = \notes {
  40   \commandspanrequest \stop "decrescendo"
  41    \property Voice.decrescendoText \unset
  42  \property Voice.decrescendoSpanner \unset
  43 }
  44
  45 %{
  46
  47 cresc = \spanrequest \start "crescendo"
  48 endcresc = \spanrequest \stop "crescendo"
  49
  50 %}
  51
  52 % better name sustainstart/stop?
  53 sustainDown = \spanrequest \start "Sustain"
  54 sustainUp = \spanrequest \stop "Sustain"
  55
  56 unaCorda = \spanrequest \start "UnaCorda"
  57 treCorde = \spanrequest \stop "UnaCorda"
  58
  59 sostenutoDown = \spanrequest \start "Sostenuto"
  60 sostenutoUp = \spanrequest \stop "Sostenuto"
  61
  62 %crescpoco = \property Voice.crescendoText = "cresc. poco a poco"
  63 %decresc = \property Voice.crescendoText = "decr."
  64 %dim = \property Voice.crescendoText = "dim."