MyOttava
Zur Navigation springen
Zur Suche springen
Das Anfangszeichen einer Oktavierungsklammer mittels Scheme ändern:
myOttava =
#(define-music-function (o) (integer?)
(let ((text (case o
((0) #f)
((1 -1) "8")
((2 -2) "15"))))
#{
\ottava #o
\set Staff.ottavation = #text
#}))
Anwendung
\relative {
c''1 c c \myOttava 1 c \ottava 0 c \myOttava 1 c
}