X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fspanners-init.ly;h=7b26094e497fbbfdf81c6b5fe20cc271644344c0;hb=cb01be4028886109ecc4772234452965ce7dfb66;hp=1425b22b14954315deea2483a50c4b3a110e737e;hpb=5457e0162783d5bbcd549857a244d949e93b5ca1;p=lilypond.git diff --git a/ly/spanners-init.ly b/ly/spanners-init.ly index 1425b22b14..7b26094e49 100644 --- a/ly/spanners-init.ly +++ b/ly/spanners-init.ly @@ -1,4 +1,4 @@ -\version "2.10.0" +\version "2.12.0" startGroup = #(make-span-event 'NoteGroupingEvent START) stopGroup = #(make-span-event 'NoteGroupingEvent STOP) @@ -21,84 +21,74 @@ stopTrillSpan = #(make-span-event 'TrillSpanEvent STOP) % STOP: junkme! cresc = { #(ly:export (make-event-chord (list cr))) - \set crescendoText = \markup { \italic "cresc." } - \set crescendoSpanner = #'dashed-line + \once \set crescendoText = \markup { \italic "cresc." } + \once \set crescendoSpanner = #'text } dim = { #(ly:export (make-event-chord (list decr))) - - \set decrescendoText = \markup { \italic "dim." } - \set decrescendoSpanner = #'dashed-line + \once \set decrescendoText = \markup { \italic "dim." } + \once \set decrescendoSpanner = #'text } enddim = { #(ly:export (make-event-chord (list enddecr))) - \unset decrescendoText - \unset decrescendoSpanner +% \unset decrescendoText +% \unset decrescendoSpanner } -% ah, this is handy: maybe drop resetting of properties in -% dynamic-engraver ? endcresc = { #(ly:export (make-event-chord (list endcr))) - \unset crescendoText - \unset crescendoSpanner +% \unset crescendoText +% \unset crescendoSpanner } %%%%%%%%%%%%%%%% -setTextCresc = { +crescTextCresc = { \set crescendoText = \markup { \italic "cresc." } \set crescendoSpanner = #'text \override DynamicTextSpanner #'style = #'dashed-line } -setTextDecresc = { +dimTextDecresc = { \set decrescendoText = \markup { \italic "decresc." } \set decrescendoSpanner = #'text \override DynamicTextSpanner #'style = #'dashed-line } -setTextDecr = { +dimTextDecr = { \set decrescendoText = \markup { \italic "decr." } \set decrescendoSpanner = #'text \override DynamicTextSpanner #'style = #'dashed-line } -setTextDim = { +dimTextDim = { \set decrescendoText = \markup { \italic "dim." } \set decrescendoSpanner = #'text \override DynamicTextSpanner #'style = #'dashed-line } -setHairpinCresc = { +crescHairpin = { \unset crescendoText \unset crescendoSpanner } -setHairpinDecresc = { - \unset decrescendoText - \unset decrescendoSpanner -} - -setHairpinDim = { +dimHairpin = { \unset decrescendoText \unset decrescendoSpanner } - -% better name sustainstart/stop? -sustainUp = #(make-span-event 'SustainEvent STOP) -sustainDown = #(make-span-event 'SustainEvent START) +sustainOff = #(make-span-event 'SustainEvent STOP) +sustainOn = #(make-span-event 'SustainEvent START) unaCorda = #(make-span-event 'UnaCordaEvent START) treCorde = #(make-span-event 'UnaCordaEvent STOP) -sostenutoDown = #(make-span-event 'SostenutoEvent START) -sostenutoUp = #(make-span-event 'SostenutoEvent STOP) +sostenutoOn = #(make-span-event 'SostenutoEvent START) +sostenutoOff = #(make-span-event 'SostenutoEvent STOP) %crescpoco = \set crescendoText = "cresc. poco a poco" %decresc = \set crescendoText = "decr."