From edi at agharta.de  Wed Dec  1 09:36:53 2004
From: edi at agharta.de (Edi Weitz)
Date: Wed, 01 Dec 2004 10:36:53 +0100
Subject: [cl-pdf-devel] Small Windows patch
In-Reply-To: <064901c4d6ed$1858c300$0a02a8c0@marcxp> (Marc Battyani's
	message of "Tue, 30 Nov 2004 15:58:46 +0100")
References: <ubrdgl1im.fsf@agharta.de> <064901c4d6ed$1858c300$0a02a8c0@marcxp>
Message-ID: <uacsypdfu.fsf@agharta.de>

Hi Marc!

On Tue, 30 Nov 2004 15:58:46 +0100, "Marc Battyani" <marc.battyani at fractalconcept.com> wrote:

> Have you tried the ACL zlib binding in the contrib directory ? 

Yes, that didn't work either.

> The external format for Allegro has changed several times. Maybe you
> can try an older one or disable the binary writing.

As I said, I'm not using Allegro on Windows myself, I just wanted to
check. Someone who is actually using it should invest the time needed
to make it work... :)

> BTW to disable the compression it's better to put *compress-streams*
> to nil.

OK, I somehow missed that one.

Cheers,
Edi.



From marc.battyani at fractalconcept.com  Wed Dec  1 10:38:30 2004
From: marc.battyani at fractalconcept.com (Marc Battyani)
Date: Wed, 1 Dec 2004 11:38:30 +0100
Subject: [cl-pdf-devel] Small Windows patch
References: <ubrdgl1im.fsf@agharta.de> <064901c4d6ed$1858c300$0a02a8c0@marcxp>
	<uacsypdfu.fsf@agharta.de>
Message-ID: <027801c4d791$e70e2470$0a02a8c0@marcxp>

"Edi Weitz" <edi at agharta.de> wrote:
> On Tue, 30 Nov 2004 15:58:46 +0100, "Marc Battyani"
<marc.battyani at fractalconcept.com> wrote:
>
> > Have you tried the ACL zlib binding in the contrib directory ?
>
> Yes, that didn't work either.
>
> > The external format for Allegro has changed several times. Maybe you
> > can try an older one or disable the binary writing.
>
> As I said, I'm not using Allegro on Windows myself, I just wanted to
> check. Someone who is actually using it should invest the time needed
> to make it work... :)

I know that several ACL users use cl-pdf/cl-typesetting but I don't know if
they actually read the mailing lists.
If they don't manifest I will try to contact them directly.

Cheers,

Marc




From edi at agharta.de  Wed Dec  1 10:51:27 2004
From: edi at agharta.de (Edi Weitz)
Date: Wed, 01 Dec 2004 11:51:27 +0100
Subject: [cl-pdf-devel] Small Windows patch
In-Reply-To: <027801c4d791$e70e2470$0a02a8c0@marcxp> (Marc Battyani's
	message of "Wed, 1 Dec 2004 11:38:30 +0100")
References: <ubrdgl1im.fsf@agharta.de> <064901c4d6ed$1858c300$0a02a8c0@marcxp>
	<uacsypdfu.fsf@agharta.de> <027801c4d791$e70e2470$0a02a8c0@marcxp>
Message-ID: <ur7ma8f68.fsf@agharta.de>

On Wed, 1 Dec 2004 11:38:30 +0100, "Marc Battyani" <marc.battyani at fractalconcept.com> wrote:

> I know that several ACL users use cl-pdf/cl-typesetting but I don't
> know if they actually read the mailing lists.

On Windows? I'm pretty sure this is a non-issue on *nix.

This is somewhat related to

  <http://cl-cookbook.sourceforge.net/io.html#faith>

albeit for FFI instead of streams. 



From d95-bli at nada.kth.se  Wed Dec  1 17:51:18 2004
From: d95-bli at nada.kth.se (=?iso-8859-1?q?Bj=F6rn_Lindberg?=)
Date: 01 Dec 2004 18:51:18 +0100
Subject: [cl-pdf-devel] Greek letters?
In-Reply-To: <20041130231929.GB7692@w-m-p.com>
References: <hcsoehfe8dv.fsf@my.nada.kth.se>
	<065501c4d6f0$7ea25740$0a02a8c0@marcxp>
	<hcsfz2rdxg6.fsf@my.nada.kth.se>
	<076a01c4d70e$03944860$0a02a8c0@marcxp>
	<hcs7jo3du8k.fsf@my.nada.kth.se> <20041130225417.GA381@w-m-p.com>
	<20041130231929.GB7692@w-m-p.com>
Message-ID: <hcsy8ghc3ft.fsf@my.nada.kth.se>

Klaus Weidner <kw at w-m-p.com> writes:

> On Tue, Nov 30, 2004 at 04:54:17PM -0600, Klaus Weidner wrote:
> > On Tue, Nov 30, 2004 at 08:14:51PM +0100, Bj?rn Lindberg wrote:
> > > Ah. I am using xpdf to view PDFs, and there it came up blank. But now
> > > when I tried acroread it showed up both in your file and
> > > mine. However, when I print it in the normal way it came up blank, so
> > > there is something fishy going on. (Everything else I have done so far
> > > using cl-pdf/typesetting, I can view with xpdf and print with no
> > > problems.) This seems to be a font issue I guess.
> > 
> > The font got encoded as WinAnsiEncoding by default which appears to be
> > invalid.
> > 
> > Try this:
> 
> Oops, that didn't work. This one works for acroread, xpdf, and
> ghostscript:
> 
>   (pdf:with-document ()
>     (pdf:with-page ()
>       (let ((font (pdf:get-font "Symbol" nil)))
>         (pdf:in-text-mode
>           (pdf:set-font font 36.0)
>           (pdf:move-text 100 800)
>           (pdf:draw-text "abcdefghABCDEFGH"))))
>     (pdf:write-document "foo.pdf"))
> 
> Now the encoding gets listed as "built-in" by acroread in the "properties
> -> fonts" menu, as opposed to the "Windows" default encoding.

Thanks! This works here as well.


Bj?rn


From divanov at aha.ru  Mon Dec 20 17:57:31 2004
From: divanov at aha.ru (Dmitri Ivanov)
Date: Mon, 20 Dec 2004 20:57:31 +0300
Subject: [cl-pdf-devel] PNG images support code
Message-ID: <001001c4e6bd$974d00b0$a44d02c3@digo>

Hello,

This is a new code contribution supporting images in PNG format.
In brief:

1) Suggestion of the sample-image class and the make-image generic.
2) PNG-related primitives and functions.
3) Example code and images.

Additionally, the pdf-name function is needed: I offered it earlier in
thread "Named destinations proposal and small amendments".

The resulting pdf-file is exposed at
     http://lisp.ystok.ru/code/ex-png.pdf

Please test.
--
Sincerely,
Dmitri Ivanov
lisp.ystok.ru
-------------- next part --------------
A non-text attachment was scrubbed...
Name: di-png.lisp
Type: application/octet-stream
Size: 9348 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cl-pdf-devel/attachments/20041220/af9ca054/attachment.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: di-ping-ex.lisp
Type: application/octet-stream
Size: 2823 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cl-pdf-devel/attachments/20041220/af9ca054/attachment-0001.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: ys-png-images.zip
Type: application/x-zip-compressed
Size: 8646 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cl-pdf-devel/attachments/20041220/af9ca054/attachment.bin>

From marc.battyani at fractalconcept.com  Tue Dec 21 19:21:37 2004
From: marc.battyani at fractalconcept.com (Marc Battyani)
Date: Tue, 21 Dec 2004 20:21:37 +0100
Subject: [cl-pdf-devel] PNG images support code
References: <001001c4e6bd$974d00b0$a44d02c3@digo>
Message-ID: <016c01c4e792$4be0ed50$0a02a8c0@marcxp>

Hi Dmitri,

[Sorry for the late reply]

> This is a new code contribution supporting images in PNG format.
> In brief:
>
> 1) Suggestion of the sample-image class and the make-image generic.
> 2) PNG-related primitives and functions.
> 3) Example code and images.
>
> Additionally, the pdf-name function is needed: I offered it earlier in
> thread "Named destinations proposal and small amendments".
>
> The resulting pdf-file is exposed at
>      http://lisp.ystok.ru/code/ex-png.pdf
>
> Please test.

Nice. Works for me in acrobat.
I will have some time next week to clean and publish up-to-date versions of
cl-pdf and cl-typesetting. I have started to add and test all the contribs
I've got so far.
The cl-pdf repository is already up-to-date (except for this new stuff and a
new version of iterate).

Thanks,

Marc




From marc.battyani at fractalconcept.com  Tue Dec 28 18:38:35 2004
From: marc.battyani at fractalconcept.com (Marc Battyani)
Date: Tue, 28 Dec 2004 19:38:35 +0100
Subject: [cl-pdf-devel] PNG images support code
References: <001001c4e6bd$974d00b0$a44d02c3@digo>
	<016c01c4e792$4be0ed50$0a02a8c0@marcxp>
	<001701c4ed0b$5abc4e90$2d4d02c3@digo>
Message-ID: <055c01c4ed0c$838c3190$0a02a8c0@marcxp>

"Dmitri Ivanov" <divanov at aha.ru> wrote:

> Hello Marc,
>
> The PNG support shoud be accompanied by changes like the following in
typeset:
>
> (defclass image-box (soft-box)
>   ((file :accessor file :initform nil :initarg :file)
>    (pdf-image :accessor pdf-image :initform nil :initarg :pdf-image)))
>
> (defmethod stroke ((box image-box) x y)
>   (let ((pdf-image (or (pdf-image box)
>                        (setf (pdf-image box) (pdf:make-image (file
box))))))
>     (pdf:add-images-to-page pdf-image)
>     (pdf:draw-image pdf-image x (+ (- y (dy box))(offset box))
>                       (dx box)(dy box) 0 t)))
>
> (defun image (&rest args &key inline &allow-other-keys)
>   (if inline
>       (add-box (apply 'make-instance 'image-box
>                      :allow-other-keys t args))
>       (let ((hbox (make-instance 'hbox
>                     :boxes (list (make-hfill-glue)
>                                  (apply 'make-instance 'image-box
>                                    :allow-other-keys t args)
>                                  (make-hfill-glue))
>                     :adjustable-p t)))
>  (compute-natural-box-size hbox)
>  (add-box hbox))))

Hi Dmitri,

OK I will add this to cl-typesetting.

Cheers,

Marc




From divanov at aha.ru  Tue Dec 28 18:28:28 2004
From: divanov at aha.ru (Dmitri Ivanov)
Date: Tue, 28 Dec 2004 21:28:28 +0300
Subject: [cl-pdf-devel] PNG images support code
References: <001001c4e6bd$974d00b0$a44d02c3@digo>
	<016c01c4e792$4be0ed50$0a02a8c0@marcxp>
Message-ID: <001701c4ed0b$5abc4e90$2d4d02c3@digo>

Hello Marc,

| Nice. Works for me in acrobat.
| I will have some time next week to clean and publish up-to-date
| versions of cl-pdf and cl-typesetting. I have started to add and test
| all the contribs I've got so far.
| The cl-pdf repository is already up-to-date (except for this new stuff
| and a new version of iterate).

The PNG support shoud be accompanied by changes like the following in typeset:

(defclass image-box (soft-box)
  ((file :accessor file :initform nil :initarg :file)
   (pdf-image :accessor pdf-image :initform nil :initarg :pdf-image)))

(defmethod stroke ((box image-box) x y)
  (let ((pdf-image (or (pdf-image box)
                       (setf (pdf-image box) (pdf:make-image (file box))))))
    (pdf:add-images-to-page pdf-image)
    (pdf:draw-image pdf-image x (+ (- y (dy box))(offset box))
                      (dx box)(dy box) 0 t)))

(defun image (&rest args &key inline &allow-other-keys)
  (if inline
      (add-box (apply 'make-instance 'image-box
                     :allow-other-keys t args))
      (let ((hbox (make-instance 'hbox
                    :boxes (list (make-hfill-glue)
                                 (apply 'make-instance 'image-box
                                   :allow-other-keys t args)
                                 (make-hfill-glue))
                    :adjustable-p t)))
 (compute-natural-box-size hbox)
 (add-box hbox))))
--
Sincerely,
Dmitri Ivanov
lisp.ystok.ru