Reviewers: ,
Message:
Making 'outside-staff-priority work properly for tuplets
would be a useful addition. Probably easier than adding an
'avoid-tuplet >property.
Trevor
I think this does the trick.
Cheers,
MS
Description:
Makes outside-staff-property work for TupletNumber.
Please review this at http://codereview.appspot.com/4530112/
Affected files:
M scm/define-grobs.scm
M scm/output-lib.scm
Index: scm/define-grobs.scm
diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index
84c3f72f8fbb72c715ebab652bd81c2780b31998..c1a2b2afe1be7cb1cd13fbe185bdcef36961d2e9
100644
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -2341,6 +2341,7 @@
. (
(avoid-slur . inside)
(cross-staff . ,ly:tuplet-number::calc-cross-staff)
+ (direction . ,tuplet-number::calc-direction)
(font-shape . italic)
(font-size . -2)
(stencil . ,ly:tuplet-number::print)
Index: scm/output-lib.scm
diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index
c25edf31f68a93de749a87e69e26cd4dde6dfc3d..54d04174a06e1861cf4347df7d9c29b8e2de71e3
100644
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -327,6 +327,9 @@ and duration-log @var{log}."
(define-public (tuplet-number::calc-denominator-text grob)
(number->string (ly:event-property (event-cause grob) 'denominator)))
+(define-public (tuplet-number::calc-direction grob)
+ (ly:tuplet-bracket::calc-direction (ly:grob-object grob 'bracket)))
+
(define-public (tuplet-number::calc-fraction-text grob)
(let ((ev (event-cause grob)))
_______________________________________________
lilypond-devel mailing list
lilypond-devel@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-devel
