Index: scm/translation-functions.scm |
diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm |
index de8393fdaa8c3c9823776db898375246a53da015..8f74400f41939a2ffdfc1c61ab85dfd4208b2268 100644 |
--- a/scm/translation-functions.scm |
+++ b/scm/translation-functions.scm |
@@ -900,3 +900,31 @@ original @var{semitone->pitch} function." |
(+ 4 (ly:pitch-octave pitch)))) |
(octave->lily-string pitch)))))) |
(make-concat-markup markuplist))) |
+ |
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
+;; markups for OttavaBrackets |
+ |
+(define-public default-ottavation-markups |
+ `((4 . ,(markup #:concat (#:general-align Y UP "29" |
+ #:general-align Y UP #:tiny "ma"))) |
+ (3 . ,(markup #:concat (#:general-align Y UP "22" |
+ #:general-align Y UP #:tiny "ma"))) |
+ (2 . ,(markup #:concat (#:general-align Y UP "15" |
+ #:general-align Y UP #:tiny "ma"))) |
+ (1 . ,(markup #:concat (#:general-align Y UP "8" |
+ #:general-align Y UP #:tiny "va"))) |
+ (-1 . ,(markup #:concat ("8" #:tiny "vb"))) |
+ (-2 . ,(markup #:concat ("15" #:tiny "mb"))) |
+ (-3 . ,(markup #:concat ("22" #:tiny "mb"))) |
+ (-4 . ,(markup #:concat ("29" #:tiny "mb"))))) |
+ |
+; former default |
+(define-public simple-ottavation-markups |
+ '((4 . "29ma") |
+ (3 . "22ma") |
+ (2 . "15ma") |
+ (1 . "8va") |
+ (-1 . "8vb") |
+ (-2 . "15mb") |
+ (-3 . "22mb") |
+ (-4 . "29mb"))) |