* lily/text-spanner.cc (print): idem.
* lily/dynamic-text-spanner.cc (print): only print line if longer
than dash-period.
2006-02-17 Han-Wen Nienhuys <hanwen@xs4all.nl>
2006-02-17 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ * lily/relocate.cc (setup_paths): GCC 4.2 fixes: const correctness.
+
+ * lily/text-spanner.cc (print): idem.
+
+ * lily/dynamic-text-spanner.cc (print): only print line if longer
+ than dash-period.
+
* lily/auto-change-iterator.cc (change_to): formatting.
* lily/beam.cc (get_default_dir): take extreme note head as input
* lily/auto-change-iterator.cc (change_to): formatting.
* lily/beam.cc (get_default_dir): take extreme note head as input
}
while (flip (&d) != LEFT);
}
while (flip (&d) != LEFT);
- if (!span_points.is_empty ())
+ if (!span_points.is_empty ()
+ && span_points.length () > robust_scm2double (me->get_property ("dash-period"), 0.0))
{
Stencil l = Line_spanner::line_stencil (me,
Offset (span_points[LEFT], 0),
{
Stencil l = Line_spanner::line_stencil (me,
Offset (span_points[LEFT], 0),
-const char *LILYPOND_DATADIR = PACKAGE_DATADIR "/" TOPLEVEL_VERSION;
+char const *LILYPOND_DATADIR = PACKAGE_DATADIR "/" TOPLEVEL_VERSION;
static void
env_var_info (FILE *out, char const *key)
static void
env_var_info (FILE *out, char const *key)
void
setup_guile_env ()
{
void
setup_guile_env ()
{
- char *yield = getenv ("LILYPOND_GC_YIELD");
+ const char *yield = getenv ("LILYPOND_GC_YIELD");
bool overwrite = true;
if (!yield)
{
bool overwrite = true;
if (!yield)
{
/* Adding mf/out make lilypond unchanged source directory, when setting
LILYPONDPREFIX to lilypond-x.y.z */
/* Adding mf/out make lilypond unchanged source directory, when setting
LILYPONDPREFIX to lilypond-x.y.z */
- char *suffixes[] = {"ly", "ps", "scm", 0 };
+ char const *suffixes[] = {"ly", "ps", "scm", 0 };
}
while (flip (&d) != LEFT);
}
while (flip (&d) != LEFT);
- if (!span_points.is_empty ())
+
+ if (!span_points.is_empty ()
+ && span_points.length () > robust_scm2double (me->get_property ("dash-period"), 0.0))
{
Stencil l = Line_spanner::line_stencil (me,
Offset (span_points[LEFT], 0),
{
Stencil l = Line_spanner::line_stencil (me,
Offset (span_points[LEFT], 0),
return m.smobbed_copy ();
}
return m.smobbed_copy ();
}
-ADD_INTERFACE (Text_spanner, "text-spanner-interface",
+ADD_INTERFACE (Text_spanner,
+ "text-spanner-interface",
+
- "bound-padding dash-period dash-fraction edge-height bracket-flare edge-text shorten-pair style thickness enclose-bounds");
+
+ "bound-padding "
+ "bracket-flare "
+ "dash-fraction "
+ "dash-period "
+ "edge-height "
+ "edge-text "
+ "enclose-bounds"
+ "shorten-pair "
+ "style "
+ "thickness "
+ );
(clef . (minimum-space . 2.0))
(first-note . (fixed-space . 1.0)) ;huh?
(right-edge . (extra-space . 0.1))))
(clef . (minimum-space . 2.0))
(first-note . (fixed-space . 1.0)) ;huh?
(right-edge . (extra-space . 0.1))))
(stencil . ,ly:text-interface::print)
(stencil . ,ly:text-interface::print)
(text . ,(make-musicglyph-markup "scripts.rcomma"))
(Y-offset . ,ly:breathing-sign::offset-callback)
(break-visibility . ,begin-of-line-invisible)
(text . ,(make-musicglyph-markup "scripts.rcomma"))
(Y-offset . ,ly:breathing-sign::offset-callback)
(break-visibility . ,begin-of-line-invisible)
(stencil . ,ly:clef::print)
(glyph-name . ,ly:clef::calc-glyph-name)
(stencil . ,ly:clef::print)
(glyph-name . ,ly:clef::calc-glyph-name)
(breakable . #t)
(font-family . music)
(break-align-symbol . clef)
(breakable . #t)
(font-family . music)
(break-align-symbol . clef)
(ClusterSpannerBeacon
. (
(ClusterSpannerBeacon
. (
(Y-extent . ,ly:cluster-beacon::height)
(Y-extent . ,ly:cluster-beacon::height)
(meta . ((class . Item)
(interfaces . (cluster-beacon-interface))))))
(ClusterSpanner
. (
(meta . ((class . Item)
(interfaces . (cluster-beacon-interface))))))
(ClusterSpanner
. (
(springs-and-rods . ,ly:spanner::set-spacing-rods)
(stencil . ,ly:cluster::print)
(springs-and-rods . ,ly:spanner::set-spacing-rods)
(stencil . ,ly:cluster::print)
(minimum-length . 0.0)
(padding . 0.25)
(style . ramp)
(minimum-length . 0.0)
(padding . 0.25)
(style . ramp)
(stencil . ,ly:text-interface::print)
(after-line-breaking . ,ly:chord-name::after-line-breaking)
(stencil . ,ly:text-interface::print)
(after-line-breaking . ,ly:chord-name::after-line-breaking)
(word-space . 0.0)
(font-family . sans)
(font-size . 1.5)
(word-space . 0.0)
(font-family . sans)
(font-size . 1.5)
(stencil . ,ly:text-interface::print)
(stencil . ,ly:text-interface::print)
(no-spacing-rods . #t)
(Y-offset . ,ly:side-position-interface::y-aligned-side)
(X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
(no-spacing-rods . #t)
(Y-offset . ,ly:side-position-interface::y-aligned-side)
(X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
. (
(break-align-symbol . custos)
(breakable . #t)
. (
(break-align-symbol . custos)
(breakable . #t)
(stencil . ,ly:custos::print)
(stencil . ,ly:custos::print)
(break-visibility . ,end-of-line-visible)
(style . vaticana)
(neutral-direction . ,DOWN)
(break-visibility . ,end-of-line-visible)
(style . vaticana)
(neutral-direction . ,DOWN)
. (
(axes . (0))
(direction . ,RIGHT)
. (
(axes . (0))
(direction . ,RIGHT)
(positioning-done . ,ly:dot-column::calc-positioning-done)
(X-extent . ,ly:axis-group-interface::width)
(positioning-done . ,ly:dot-column::calc-positioning-done)
(X-extent . ,ly:axis-group-interface::width)
(X-offset . ,ly:dot-column::side-position)
(meta . ((class . Item)
(interfaces . (dot-column-interface
(X-offset . ,ly:dot-column::side-position)
(meta . ((class . Item)
(interfaces . (dot-column-interface
(stencil . ,ly:dots::print)
(stencil . ,ly:dots::print)
(dot-count . 1)
(meta . ((class . Item)
(interfaces . (font-interface
(dot-count . 1)
(meta . ((class . Item)
(interfaces . (font-interface
(DoublePercentRepeatCounter
. (
(DoublePercentRepeatCounter
. (
(stencil . ,ly:text-interface::print)
(X-offset . ,(ly:make-simple-closure `(,+ ,(ly:make-simple-closure (list ly:self-alignment-interface::centered-on-y-parent))
,(ly:make-simple-closure (list ly:self-alignment-interface::x-aligned-on-self)))))
(stencil . ,ly:text-interface::print)
(X-offset . ,(ly:make-simple-closure `(,+ ,(ly:make-simple-closure (list ly:self-alignment-interface::centered-on-y-parent))
,(ly:make-simple-closure (list ly:self-alignment-interface::x-aligned-on-self)))))
(minimum-space . 1.2)
(direction . ,DOWN)
(side-axis . ,Y)
(minimum-space . 1.2)
(direction . ,DOWN)
(side-axis . ,Y)
(Y-extent . ,ly:axis-group-interface::height)
(X-extent . ,ly:axis-group-interface::width)
(Y-extent . ,ly:axis-group-interface::height)
(X-extent . ,ly:axis-group-interface::width)
(meta . ((class . Spanner)
(interfaces . (axis-group-interface
dynamic-interface
(meta . ((class . Spanner)
(interfaces . (axis-group-interface
dynamic-interface
(stencil . ,ly:dynamic-text-spanner::print)
;; rather ugh with NCSB
(stencil . ,ly:dynamic-text-spanner::print)
;; rather ugh with NCSB
(X-extent . ,ly:grid-line-interface::width)
(stencil . ,ly:grid-line-interface::print)
(X-extent . ,ly:grid-line-interface::width)
(stencil . ,ly:grid-line-interface::print)
(self-alignment-X . ,CENTER)
(X-offset . ,(ly:make-simple-closure
`(,+ ,(ly:make-simple-closure (list ly:self-alignment-interface::centered-on-x-parent))
(self-alignment-X . ,CENTER)
(X-offset . ,(ly:make-simple-closure
`(,+ ,(ly:make-simple-closure (list ly:self-alignment-interface::centered-on-x-parent))
(stencil . ,ly:hairpin::print)
(springs-and-rods . ,ly:spanner::set-spacing-rods)
(after-line-breaking . ,ly:hairpin::after-line-breaking)
(stencil . ,ly:hairpin::print)
(springs-and-rods . ,ly:spanner::set-spacing-rods)
(after-line-breaking . ,ly:hairpin::after-line-breaking)
(thickness . 1.0)
(height . 0.6666)
(minimum-length . 2.0)
(thickness . 1.0)
(height . 0.6666)
(minimum-length . 2.0)
(stencil . ,ly:key-signature-interface::print)
(stencil . ,ly:key-signature-interface::print)
(space-alist . (
(time-signature . (extra-space . 1.25))
(staff-bar . (extra-space . 0.6))
(space-alist . (
(time-signature . (extra-space . 1.25))
(staff-bar . (extra-space . 0.6))
(break-align-symbol . key-cancellation)
(break-visibility . ,begin-of-line-invisible)
(breakable . #t)
(break-align-symbol . key-cancellation)
(break-visibility . ,begin-of-line-invisible)
(breakable . #t)
(meta . ((class . Item)
(interfaces . (key-signature-interface
font-interface
break-aligned-interface))))))
(KeySignature
. (
(meta . ((class . Item)
(interfaces . (key-signature-interface
font-interface
break-aligned-interface))))))
(KeySignature
. (
(stencil . ,ly:key-signature-interface::print)
(stencil . ,ly:key-signature-interface::print)
(space-alist . (
(time-signature . (extra-space . 1.15))
(staff-bar . (extra-space . 1.1))
(space-alist . (
(time-signature . (extra-space . 1.15))
(staff-bar . (extra-space . 1.1))
(break-align-symbol . key-signature)
(break-visibility . ,begin-of-line-visible)
(breakable . #t)
(break-align-symbol . key-signature)
(break-visibility . ,begin-of-line-visible)
(breakable . #t)
(meta . ((class . Item)
(interfaces . (key-signature-interface
font-interface
break-aligned-interface))))))
(LaissezVibrerTie
. (
(meta . ((class . Item)
(interfaces . (key-signature-interface
font-interface
break-aligned-interface))))))
(LaissezVibrerTie
. (
(stencil . ,ly:tie::print)
(control-points . ,ly:laissez-vibrer-tie::calc-control-points)
(direction . ,ly:laissez-vibrer-tie::calc-direction)
(stencil . ,ly:tie::print)
(control-points . ,ly:laissez-vibrer-tie::calc-control-points)
(direction . ,ly:laissez-vibrer-tie::calc-direction)
(details . ((ratio . 0.333)
(height-limit . 1.0)))
(thickness . 1.0)
(details . ((ratio . 0.333)
(height-limit . 1.0)))
(thickness . 1.0)
(springs-and-rods . ,ly:ledger-line-spanner::set-spacing-rods)
(stencil . ,ly:ledger-line-spanner::print)
(springs-and-rods . ,ly:ledger-line-spanner::set-spacing-rods)
(stencil . ,ly:ledger-line-spanner::print)