ly/spanners-init.ly

   1 \version "2.12.0"
   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 episemInitium = #(make-span-event 'EpisemaEvent START)
  22 episemFinis = #(make-span-event 'EpisemaEvent STOP)
  23
  24
  25 % STOP: junkme!
  26 cresc =  {
  27   #(ly:export (make-event-chord (list cr)))
  28   \once \set crescendoText = \markup { \italic "cresc." }
  29   \once \set crescendoSpanner = #'text
  30 }
  31
  32
  33 dim =  {
  34   #(ly:export (make-event-chord (list decr)))
  35   \once \set decrescendoText = \markup { \italic "dim." }
  36   \once \set decrescendoSpanner = #'text
  37 }
  38
  39 enddim =  {
  40   #(ly:export (make-event-chord (list enddecr)))
  41 %  \unset decrescendoText
  42 %  \unset decrescendoSpanner
  43 }
  44
  45 endcresc =  {
  46   #(ly:export (make-event-chord (list endcr)))
  47 %  \unset crescendoText
  48 %  \unset crescendoSpanner
  49 }
  50
  51 %%%%%%%%%%%%%%%%
  52
  53 crescTextCresc = {
  54     \set crescendoText = \markup { \italic "cresc." }
  55     \set crescendoSpanner = #'text
  56     \override DynamicTextSpanner #'style = #'dashed-line
  57 }
  58
  59 dimTextDecresc = {
  60     \set decrescendoText = \markup { \italic "decresc." }
  61     \set decrescendoSpanner = #'text
  62     \override DynamicTextSpanner #'style = #'dashed-line
  63 }
  64
  65 dimTextDecr = {
  66     \set decrescendoText = \markup { \italic "decr." }
  67     \set decrescendoSpanner = #'text
  68     \override DynamicTextSpanner #'style = #'dashed-line
  69 }
  70
  71 dimTextDim = {
  72     \set decrescendoText = \markup { \italic "dim." }
  73     \set decrescendoSpanner = #'text
  74     \override DynamicTextSpanner #'style = #'dashed-line
  75 }
  76
  77 crescHairpin = {
  78     \unset crescendoText
  79     \unset crescendoSpanner
  80 }
  81
  82 dimHairpin = {
  83     \unset decrescendoText
  84     \unset decrescendoSpanner
  85 }
  86
  87
  88 sustainOff = #(make-span-event 'SustainEvent STOP)
  89 sustainOn = #(make-span-event 'SustainEvent START)
  90
  91 unaCorda = #(make-span-event 'UnaCordaEvent START)
  92 treCorde = #(make-span-event 'UnaCordaEvent STOP)
  93
  94 sostenutoOn = #(make-span-event 'SostenutoEvent START)
  95 sostenutoOff = #(make-span-event 'SostenutoEvent STOP)
  96
  97 %crescpoco = \set crescendoText = "cresc. poco a poco"
  98 %decresc = \set crescendoText = "decr."
  99 %dim = \set crescendoText = "dim."
 100
 101 newSpacingSection = #(make-event-chord (list (make-music 'SpacingSectionEvent)))