[cl-pdf-devel] Problems with Adobe Reader 7

[Marc Battyani]

"Edi Weitz" <edi at agharta.de> wrote:

> The simple example below for me produces a file that is fine for
> Acrobat Reader 6 but renders as a blank page with Reader 7.
>
>   (in-package typeset)
>
>   (defun foo (rows &optional (file "test-table.pdf"))
>     (with-document ()
>       (let ((max (make-array (length (first rows))
>                              :initial-element 0)))
>         (dolist (row rows)
>           (loop for col in row
>                 for col-index from 0
>                 for size = (tt::compute-boxes-natural-size
>                              (tt::boxes (compile-text () col))
>                              #'dx)
>                 do (setf (aref max col-index)
>                            (max (aref max col-index) size))))
>         (draw-pages (compile-text ()
>                       (tt:table (:col-widths (coerce max 'list) :border 1)
>                                 (dolist (row rows)
>                                   (tt:row ()
>                                           (dolist (cell row)
>                                             (tt:cell () cell))))))
>                     :break :after)
>         (pdf:write-document file)))
>     nil)
>
>   (foo '(("one" "two" "three")
>          ("Groucho" "Chico" "Harpo")
>          ("do" "re" "mi")))

I installed acrobat reader 7 and tried your example with LWW4.4. It works
for me.
Can you try the attached pdf ?

Marc
-------------- next part --------------
A non-text attachment was scrubbed...
Name: test-table.pdf
Type: application/pdf
Size: 1159 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cl-pdf-devel/attachments/20050415/1be49f3c/attachment.pdf>