[cl-pdf-devel] cl-pdf image question

[Cyrus Harmon]

Ok, I'm probably doing something here, but when I try:


(cl:defpackage #:cl-pdf-test
   (:use #:cl))

(cl:in-package :cl-pdf-test)

(defun png-test (file)
   (pdf:with-document ()
     (let ((pdf-image (pdf::make-image file)))
       (pdf:with-page ()
         (pdf:add-images-to-page pdf-image)
         (pdf:draw-image pdf-image
                         300 300 500 300
                         0 t)))
     (pdf:write-document (merge-pathnames (make-pathname :type "pdf")
                                          file))))
;;; doesn't work
(png-test "circles.png")

;;; works
(png-test "circles-small.png")

where circles-small is a cropped version of the bigger png, circles- 
small works as expected, but the big image either prints nothing or a  
single black line. I've attached a tgz with the images in question.  
I'm new to cl-pdf, so this could very easily be operator error, but,  
nevertheless, I'm a bit stumped.

Thanks,

Cyrus

-------------- next part --------------
A non-text attachment was scrubbed...
Name: cl-pdf-test.tgz
Type: application/octet-stream
Size: 24848 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cl-pdf-devel/attachments/20070508/c8f983e1/attachment.obj>
-------------- next part --------------