ly/spanners-init.ly

   1 \version "2.3.8"
   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
  13 startTextSpan = #(make-span-event 'TextSpanEvent START)
  14 stopTextSpan = #(make-span-event 'TextSpanEvent STOP)
  15
  16
  17 startTrillSpan = #(make-span-event 'TrillSpanEvent START)
  18 stopTrillSpan = #(make-span-event 'TrillSpanEvent STOP)
  19
  20
  21 % STOP: junkme!
  22 cresc =  {
  23   #(ly:export (make-event-chord (list cr)))
  24   \set crescendoText = \markup { \italic "cresc." }
  25   \set crescendoSpanner = #'dashed-line
  26 }
  27
  28
  29 dim =  {
  30   #(ly:export (make-event-chord (list decr)))
  31
  32   \set decrescendoText = \markup { \italic "dim." }
  33   \set decrescendoSpanner = #'dashed-line
  34 }
  35
  36 enddim =  {
  37   #(ly:export (make-event-chord (list enddecr)))
  38   \unset decrescendoText
  39   \unset decrescendoSpanner
  40 }
  41
  42 % ah, this is handy: maybe drop resetting of properties in
  43 % dynamic-engraver ?
  44 endcresc =  {
  45   #(ly:export (make-event-chord (list endcr)))
  46   \unset crescendoText
  47   \unset crescendoSpanner
  48 }
  49
  50 %%%%%%%%%%%%%%%%
  51
  52 setTextCresc = {
  53     \set crescendoText = \markup { \italic "cresc." }
  54     \set crescendoSpanner = #'dashed-line
  55 }
  56 setTextDecresc = {
  57     \set decrescendoText = \markup { \italic "decr." }
  58     \set decrescendoSpanner = #'dashed-line
  59 }
  60 setTextDim = {
  61     \set decrescendoText = \markup { \italic "dim." }
  62     \set decrescendoSpanner = #'dashed-line
  63 }
  64 setHairpinCresc = {
  65     \unset crescendoText
  66     \unset crescendoSpanner
  67 }
  68 setHairpinDecresc = {
  69     \unset decrescendoText
  70     \unset decrescendoSpanner
  71 }
  72 setHairpinDim = {
  73     \unset decrescendoText
  74     \unset decrescendoSpanner
  75 }
  76
  77
  78
  79 % better name sustainstart/stop?
  80 sustainUp = #(make-span-event 'SustainEvent STOP)
  81 sustainDown = #(make-span-event 'SustainEvent START)
  82
  83 unaCorda = #(make-span-event 'UnaCordaEvent START)
  84 treCorde = #(make-span-event 'UnaCordaEvent STOP)
  85
  86 sostenutoDown = #(make-span-event 'SostenutoEvent START)
  87 sostenutoUp = #(make-span-event 'SostenutoEvent STOP)
  88
  89 %crescpoco = \set crescendoText = "cresc. poco a poco"
  90 %decresc = \set crescendoText = "decr."
  91 %dim = \set crescendoText = "dim."
  92
  93
  94 % for regression testing purposes.
  95 assertBeamQuant =
  96 #(def-music-function (location l r) (pair? pair?)
  97   (let* ((f (check-quant-callbacks l r)))
  98
  99    #{
 100    \once \override Beam #'position-callbacks = $f
 101    #}
 102
 103 ))
 104
 105 % for regression testing purposes.
 106 assertBeamSlope =
 107 #(def-music-function (location comp) (procedure?)
 108   (let* ((f (check-slope-callbacks comp)))
 109
 110    #{
 111    \once \override Beam #'position-callbacks = $f
 112    #}
 113
 114 ))
 115