All-slurs-up

Zur Navigation springen Zur Suche springen
Diese Funktion hebt einen Bogen um einen vorgegebenen Wert vertikal in die Höhe.
all-slurs-up =
#(define-scheme-function (hoch what) (number? symbol?)
   #{
     \shape #`((0 . ,hoch) (0 . ,hoch) (0 . ,hoch) (0 . ,hoch)) $what
   #})