EPS edge at 0, but take minimum with left-overshoot. This fixes
cut off system start delims.
2006-02-05 Han-Wen Nienhuys <hanwen@xs4all.nl>
2006-02-05 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ * scm/framework-ps.scm (dump-stencil-as-EPS): don't hardcode left
+ EPS edge at 0, but take minimum with left-overshoot. This fixes
+ cut off system start delims.
+
* lily/instrument-name-engraver.cc (stop_translation_timestep):
hack: add to axis group if not added yet. This fixes hara kiri'd
piano staves.
* lily/instrument-name-engraver.cc (stop_translation_timestep):
hack: add to axis group if not added yet. This fixes hara kiri'd
piano staves.
if (is_number_pair (yext))
{
if (is_number_pair (yext))
{
Box b = s.extent_box();
b[Y_AXIS] = ly_scm2interval (yext);
Box b = s.extent_box();
b[Y_AXIS] = ly_scm2interval (yext);
(inexact->exact
(round (* x scale mm-to-bigpoint)))) mmbox)))
(inexact->exact
(round (* x scale mm-to-bigpoint)))) mmbox)))
- (list (car box) (cadr box)
+ (list (car box)
+ (cadr box)
(max (1+ (car box)) (caddr box))
(max (1+ (car box)) (caddr box))
- (max (1+ (cadr box)) (cadddr box)))))
+ (max (1+ (cadr box)) (cadddr box))
+ )))
+ (display (ly:stencil-extent dump-me X))
(let* ((outputter (ly:make-paper-outputter
;; FIXME: better wrap open/open-file,
;; content-mangling is always bad.
;; MINGW hack: need to have "b"inary for embedding CFFs
(open-file (format "~a.eps" filename) "wb")
"ps"))
(let* ((outputter (ly:make-paper-outputter
;; FIXME: better wrap open/open-file,
;; content-mangling is always bad.
;; MINGW hack: need to have "b"inary for embedding CFFs
(open-file (format "~a.eps" filename) "wb")
"ps"))
(port (ly:outputter-port outputter))
(xext (ly:stencil-extent dump-me X))
(yext (ly:stencil-extent dump-me Y))
(port (ly:outputter-port outputter))
(xext (ly:stencil-extent dump-me X))
(yext (ly:stencil-extent dump-me Y))
(equal? (format #f "~S" x) "+#.#")
(equal? (format #f "~S" x) "-#.#"))
0.0 x))
(equal? (format #f "~S" x) "+#.#")
(equal? (format #f "~S" x) "-#.#"))
0.0 x))
- ;; set left of X to 0, to prevent barnumbers
- ;; from sticking out of margin.
- (list 0.0 (car yext) (cdr xext) (cdr yext))))
+
+ ;; the left-overshoot is to make sure that
+ ;; bar numbers stick out of margin uniformly.
+ ;;
+ (list (min left-overshoot (car xext))
+ (car yext) (cdr xext) (cdr yext))))
(rounded-bbox (mm-to-bp-box bbox))
(port (ly:outputter-port outputter))
(header (eps-header paper rounded-bbox load-fonts?)))
(rounded-bbox (mm-to-bp-box bbox))
(port (ly:outputter-port outputter))
(header (eps-header paper rounded-bbox load-fonts?)))