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