ly/spanners-init.ly

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