--- /dev/null
+\header {
+
+ texidoc = "With @code{full-length-to-extent}, the extent of the
+ attaching column for a full-length tuplet bracket can be ignored."
+
+}
+\version "2.11.55"
+
+\new Staff {
+ \set tupletFullLength = ##t
+
+ \time 1/8
+ \times 2/3 { c'16 c'16 c'16 }
+ \times 2/3 { c'16 c'16 c'16 }
+ \override TupletBracket #'full-length-to-extent = ##f
+ \times 2/3 { c'16 c'16 c'16 }
+ \override Score.RehearsalMark #'break-visibility = ##(#t #t #t)
+ \override Score.RehearsalMark #'direction = #down
+ \mark "xxxxxxxxxxxxxxxxxxxxxxx"
+}
if (bounds[d]->break_status_dir ())
padding = 0.0;
- x_span[d] = bounds[d]->relative_coordinate(commonx, X_AXIS) - padding;
+ Real coord = bounds[d]->relative_coordinate(commonx, X_AXIS);
+ if (to_boolean (me->get_property ("full-length-to-extent")))
+ coord = robust_relative_extent(bounds[d], commonx, X_AXIS)[LEFT];
+
+ coord = max (coord, x_span[LEFT]);
+
+ x_span[d] = coord - padding;
}
}
while (flip (&d) != LEFT);
"edge-height "
"edge-text "
"full-length-padding "
+ "full-length-to-extent "
"gap "
"positions "
"note-columns "
@item
@code{xo-padding} -- Padding for open and mute indicators from top fret. Default
value 0.25.
-@end itemize")
+@end itemize") ;"
;; ugh: double, change.
(full-length-padding ,number? "How much padding to use at the right side of a full-length tuplet bracket.")
+ (full-length-to-extent ,boolean? "Run to the extent of the column for a full-length tuplet bracket.")
+
(full-size-change ,boolean? "Don't make a change clef smaller.")
(gap ,ly:dimension? "Size of a gap in a variable symbol.")
(edge-height . (0.7 . 0.7))
(shorten-pair . (-0.2 . -0.2))
(staff-padding . 0.25)
+ (full-length-to-extent . #t)
(direction . ,ly:tuplet-bracket::calc-direction)
(positions . ,ly:tuplet-bracket::calc-positions)
(connect-to-neighbor . ,ly:tuplet-bracket::calc-connect-to-neighbors)