Editing Talk:Moving the ends of hairpins

== Scheme function for shortening hairpins ==

If you need more often to move the end of the hairpins, you can create a scheme-funcion using quasiquote
<lilypond version="2.25.31">
shorten-hairpin-right =
#(define-scheme-function (rechts) (number?)
   #{
     \once \override Hairpin.shorten-pair = #`(0 . ,rechts)
   #})

\paper {
  indent = 0
}

\relative {
  \omit Staff.TimeSignature
  c''1_\markup "default" c4\< c2 c4\!
  \break
  c1_\markup "shorten right 10"
  \shorten-hairpin-right #10
  c4\< c2 c4\!
  \break
  c1_\markup "lengthen right 10"
  \shorten-hairpin-right #-10
  c4\< c2 c4\!
}
</lilypond> [[User:Manuela|Manuela]] ([[User talk:Manuela|talk]]) 17:56, 8 January 2026 (UTC)