Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / lily / beaming-pattern.cc

diff --git a/lily/beaming-pattern.cc b/lily/beaming-pattern.cc
index c6fba3a5a5b0589183bc3fdda33420ab7b0ab8bd..f48faadc5666e8bf0c365839a26d7cedae71ce92 100644 (file)
--- a/lily/beaming-pattern.cc
+++ b/lily/beaming-pattern.cc
@@ -79,6 +79,11 @@ Beaming_pattern::beamify (Context *context)
   
   bool subdivide_beams = to_boolean (context->get_property ("subdivideBeams"));
   Moment beat_length = robust_scm2moment (context->get_property ("beatLength"), Moment (1, 4));
+  Moment measure_length = robust_scm2moment (context->get_property ("beatLength"), Moment (1, 4));
+
+  if (infos_[0].start_moment_ < Moment (0))
+    for (vsize i = 0; i < infos_.size(); i++)
+      infos_[i].start_moment_ += measure_length;
   
   SCM grouping = context->get_property ("beatGrouping");
   Moment measure_pos (0);