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

\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\!
}

Manuela (talk) 17:56, 8 January 2026 (UTC)