[cl-typesetting-devel] Border in printed document.

[Peter Seibel]

Erik Enge <erik at nittin.net> writes:

> I loop over boxes in content and do:
> 
>                  (pdf:with-page (:bounds *letter-sized-page*)
>                    (pdf:set-line-width 0.0001)
>                    (typeset::draw-block content 20 800 545 700 0))))
> 
> for each.  As you can see, I have been trying to manipulate the border
> using set-line-width and with the current setting I cannot see a line
> in my PDF viewer but when I print the document there is a faint line
> present.  The same happen for the hello.pdf created by cl-typesetting.
> Without set-line-width or setting it to 0 or nil the line is much
> thicker.
> 
> How can I make the line go away?

Here's the function I use to draw pages. I think you just don't want
to use draw-block (note, I have some other foo going on because I'm
adding a header to each page):

  (defun draw-page (content header &key width height margins (header-height 12))
    (destructuring-bind (left &optional (top left) (right left) (bottom top)) margins
      (let ((x left)
            (y (- height top))
            (dx (- width left right))
            (dy (- height top bottom)))
        (pdf:with-page (:bounds (vector 0 0 width height))
          (pdf:with-saved-state
            (typeset::stroke
              (typeset::make-filled-vbox
                header dx header-height :top) x y))
            (typeset::stroke
              (typeset::make-filled-vbox
                content dx (- dy header-height) :top) x (- y header-height))))))


-Peter

-- 
Peter Seibel                                      peter at javamonkey.com

         Lisp is the red pill. -- John Fraser, comp.lang.lisp