return center if extents not empty.
* scm/music-functions.scm (unfold-repeats): typo,
* VERSION: release 1.6.0
+ * lily/self-aligment-interface.cc (centered_on_parent): only
+ return center if extents not empty.
+
+ * scm/music-functions.scm (unfold-repeats): typo,
+
* mf/feta-bolletjes.mf: use resolution independent variables.
2002-08-19 janneke <janneke@blauw.xs4all.nl>
texidoc = "Repeats may be unfolded through the Scheme function @code{unfold-repeats}."
}
-nots = \notes\relative c' {c4 \repeat volta 2 c4 \alternative { d e }}
+nots = \notes\relative c' {
+ c4 \repeat volta 2 c4 \alternative { d e }
+ \repeat tremolo 4 { c16 d }
+}
-\score { \notes {
+\score { \notes \context Voice {
\nots
\apply #unfold-repeats \nots
}
"Set property @var{sym} in music expression @var{mus} to @var{val}.")
{
Music * sc = unsmob_music (mus);
- SCM_ASSERT_TYPE(sc, mus, SCM_ARG1, __FUNCTION__, "grob");
+ SCM_ASSERT_TYPE(sc, mus, SCM_ARG1, __FUNCTION__, "music");
SCM_ASSERT_TYPE(gh_symbol_p (sym), sym, SCM_ARG2, __FUNCTION__, "symbol");
bool ok = type_check_assignment (sym, val, ly_symbol2scm ("music-type?"));
Grob *me = unsmob_grob (element_smob);
Axis a = (Axis) gh_scm2int (axis);
Grob *him = me->get_parent (a);
-
- return gh_double2scm (him->extent (him,a).center ());
+ Interval he = him->extent (him,a);
+
+ return gh_double2scm (he.empty_b () ? 0.0 : he.center ());
}
(let* ((es (ly-get-mus-property music 'elements))
(e (ly-get-mus-property music 'element))
(n (ly-music-name music)))
-
+
(if (equal? n "Repeated_music")
(begin
(if (equal?
(ly-get-mus-property music 'iterator-ctor)
Chord_tremolo_iterator::constructor)
- (shift-duration-log music (- (intlog2 (ly-get-mus-property 'repeat-count music))))
+ (shift-duration-log music (intlog2 (ly-get-mus-property music 'repeat-count)))
)
(ly-set-mus-property!
music 'length Repeated_music::unfolded_music_length)