From 7dfc156191e71a9ef2a989fc0441c009cd47f2bc Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Tue, 1 Mar 2005 17:35:42 +0000 Subject: [PATCH] * Documentation/topdocs/NEWS.tely (Top): elucidate GS problem. * scm/output-ps.scm (white-text): reinstate white-text --- ChangeLog | 9 +++++++++ Documentation/topdocs/NEWS.tely | 5 ++--- lily/slash-repeat-engraver.cc | 9 ++++----- scm/output-ps.scm | 6 ------ 4 files changed, 15 insertions(+), 14 deletions(-) diff --git a/ChangeLog b/ChangeLog index 4982259011..0c2d364167 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2005-03-01 Han-Wen Nienhuys + + * Documentation/topdocs/NEWS.tely (Top): elucidate GS problem. + + * scm/output-ps.scm (white-text): reinstate white-text + 2005-03-01 Jan Nieuwenhuizen * scm/output-ps.scm (offset-add): Remove. @@ -16,6 +22,9 @@ 2005-03-01 Han-Wen Nienhuys + * lily/slash-repeat-engraver.cc (try_music): always make slashes + if body length smaller than measure length. + * scm/define-markup-commands.scm (with-url): oops. use Y extent for Y. diff --git a/Documentation/topdocs/NEWS.tely b/Documentation/topdocs/NEWS.tely index e26bb67dd8..143f92aaeb 100644 --- a/Documentation/topdocs/NEWS.tely +++ b/Documentation/topdocs/NEWS.tely @@ -69,9 +69,8 @@ Individual objects may be assigned colors, for example, The PostScript backend is now used by default. This backend requires less machinery to run, and gives more consistent results. -Please use GhostScript 8.x, as earlier versions expose bugs in PDF -handling. -@c what is PDF handling? +GhostScript 8.x is required for PDF output. Earlier versions may hang +while converting PostScript to PDF. @item Separator slashes may be inserted between systems in a score. For an diff --git a/lily/slash-repeat-engraver.cc b/lily/slash-repeat-engraver.cc index f6b3e8f1a9..7c6111877f 100644 --- a/lily/slash-repeat-engraver.cc +++ b/lily/slash-repeat-engraver.cc @@ -68,17 +68,16 @@ Slash_repeat_engraver::try_music (Music * m) == Percent_repeat_iterator::constructor_proc) { body_length_ = Repeated_music::body_get_length (m); - int count = Repeated_music::repeat_count (m); + int count = Repeated_music::repeat_count (m); Moment now = now_mom (); start_mom_ = now; stop_mom_ = start_mom_ + Moment (count) * body_length_; next_moment_ = start_mom_ + body_length_; - Moment meas_len = robust_scm2moment (m->get_property ("measureLength"), Moment (0)); - if (body_length_ < meas_len - && meas_len.main_part_.mod_rat (body_length_.main_part_) - == Moment (Rational (0, 0))) + Moment meas_length + = robust_scm2moment (get_property ("measureLength"), Moment (0)); + if (body_length_ < meas_length ) { repeat_ = m; } diff --git a/scm/output-ps.scm b/scm/output-ps.scm index b8a4a9bf71..1c725c7173 100644 --- a/scm/output-ps.scm +++ b/scm/output-ps.scm @@ -310,18 +310,12 @@ (ly:numbers->string (list x y radius)) " draw_white_dot")) -;; FIXME: BARF helvetica? (define (white-text scale s) (let ((mystring (string-append "(" s ") " (number->string scale) " /Helvetica-Bold " " draw_white_text"))) mystring - - ;; FIXME - (ly:warn "FIXME: white-text broken for Han-Wen's $HOME install of GS 8.x") - - "" )) (define (zigzag-line centre? zzw zzh thick dx dy) -- 2.39.5