Rietveld Code Review Tool
Help | Bug tracker | Discussion group | Source code | Sign in
(46)

Unified Diff: scm/translation-functions.scm

Issue 568970043: Add user-definable ottavation markups
Patch Set: correct line lengths Created 4 years, 6 months ago
Use n/p to move between diff chunks; N/P to move between comments. Please Sign in to add in-line comments.
Jump to:
View side-by-side diff with in-line comments
Download patch
« no previous file with comments | « scm/define-music-callbacks.scm ('k') | no next file » | no next file with comments »
Expand Comments ('e') | Collapse Comments ('c') | Show Comments Hide Comments ('s')
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")))
« no previous file with comments | « scm/define-music-callbacks.scm ('k') | no next file » | no next file with comments »

Powered by Google App Engine
RSS Feeds Recent Issues | This issue
This is Rietveld f62528b