From sedachv at cpsc.ucalgary.ca  Sun Oct 17 00:49:03 2004
From: sedachv at cpsc.ucalgary.ca (sedachv at cpsc.ucalgary.ca)
Date: Sat, 16 Oct 2004 18:49:03 -0600 (MDT)
Subject: [imago-devel] Zlib and file-png.
Message-ID: <33757.68.146.202.45.1097974143.squirrel@68.146.202.45>

Hello,

Which version of zlib does file-png use? Neither the pure CL nor Marc
Battyani's from CL-PNG have the same interface. It would also be good to
include it in the CVS.

Vladimir




From matthieu.villeneuve at free.fr  Sun Oct 17 18:15:44 2004
From: matthieu.villeneuve at free.fr (matthieu.villeneuve at free.fr)
Date: Sun, 17 Oct 2004 20:15:44 +0200
Subject: [imago-devel] Zlib and file-png.
In-Reply-To: <33757.68.146.202.45.1097974143.squirrel@68.146.202.45>
References: <33757.68.146.202.45.1097974143.squirrel@68.146.202.45>
Message-ID: <1098036944.4172b6d03709c@imp3-q.free.fr>

Hello,

Quoting sedachv at cpsc.ucalgary.ca:
> Which version of zlib does file-png use? Neither the pure CL nor Marc
> Battyani's from CL-PNG have the same interface. It would also be good to
> include it in the CVS.

IMAGO uses the ZLIB project also hosted on common-lisp.net:
http://common-lisp.net/project/zlib/
This will be in a README file in the project, as soon as I have time
to write it.

I prefer having the ZLIB code in a separate project, so that bug fixes
do not have to be done twice, and echoing changes in the interface to
IMAGO would be very quick (if any are done).


--
Matthieu Villeneuve



From sedachv at cpsc.ucalgary.ca  Mon Oct 18 02:55:53 2004
From: sedachv at cpsc.ucalgary.ca (Vladimir Sedach)
Date: Sun, 17 Oct 2004 20:55:53 -0600
Subject: [imago-devel] IMAGO images <-> SDL surfaces
Message-ID: <20041018025553.GA38818@csb.cpsc.ucalgary.ca>

Hello,

I've written a bit of code to shuffle between IMAGO images and SDL
surfaces. It should be fast enough to do manipulations on small
sprites in real-time on a reasonably fast machine. It only works on
RGB(A) images, since I found the overhead for extracting/packing
channels is too high. Blitting versions forthcoming when I need them
and figure out a good interface for specifying rectangles (for some
reason SDL's don't seem all that good to me).

(large-ish) screenshot:
http://members.shaw.ca/vsedach/imago_sdl_screen.png

Vladimir

PS - I think my version of with-surface-lock is more correct than the
one that comes with cl-sdl right now (sdl:with-locked-surface).

Here are the goodies:

(declaim (optimize (speed 3) (safety 0)))

(defmacro with-surface-lock (surface &body body)
  (let ((surf (gensym "surface-lock-")))
    `(let ((,surf ,surface))
       (when (/= 0 (sdl:lock-surface ,surf))
         (error "Couldn't lock SDL surface ~A" ,surf))
       (unwind-protect (progn , at body) (sdl:unlock-surface ,surf)))))

(defun convert-to-image (surface)
  "Given a 24 or 32-bit depth SDL surface, returns an IMAGO RGB image
of the same width and height and RGB pixel contents."
  (assert (or (= 24 (sdl:pixel-format-bits-per-pixel (sdl:surface-format
surface)))
              (= 32 (sdl:pixel-format-bits-per-pixel (sdl:surface-format
surface)))))
  (let* ((width (sdl:surface-w surface)) (height (sdl:surface-h surface))
         (image (make-instance 'imago:rgb-image :width width :height height))
         (image-array (imago:image-pixels image)))
    ;; Note that on 32 bit machines, width and height are 32 bit ints
    (declare (type fixnum width height) (type (simple-array (unsigned-byte
32) (* *)) image-array))
    (with-surface-lock surface
      (dotimes (y height)
        (declare (type fixnum y))
        (dotimes (x width)
          (declare (type fixnum x))
          (setf (aref image-array y x) (sdl:get-pixel surface x y)))))
    image))

(defmethod convert-to-surface ((image imago:rgb-image) &optional (depth 24))
  "Given an IMAGO RGB image, returns an SDL surface of <depth> bit color
depth and the same width and height."
  (let* ((width (imago:image-width image)) (height (imago:image-height
image))
         (image-array (imago:image-pixels image))
         (surface (sdl:create-rgb-surface sdl:+swsurface+ width height depth 0 0
0 0)))
    (declare (type fixnum width height) (type (simple-array (unsigned-byte
32) (* *)) image-array))
    (with-surface-lock surface
      (dotimes (y height)
        (declare (type fixnum y))
        (dotimes (x width)
          (declare (type fixnum x))
          (sdl:faster-draw-pixel surface x y (aref image-array y x)))))
    surface))



From matthieu.villeneuve at free.fr  Mon Oct 18 10:50:00 2004
From: matthieu.villeneuve at free.fr (matthieu.villeneuve at free.fr)
Date: Mon, 18 Oct 2004 12:50:00 +0200
Subject: [imago-devel] IMAGO images <-> SDL surfaces
In-Reply-To: <20041018025553.GA38818@csb.cpsc.ucalgary.ca>
References: <20041018025553.GA38818@csb.cpsc.ucalgary.ca>
Message-ID: <1098096600.41739fd8d2747@imp3-q.free.fr>

Hello,

Selon Vladimir Sedach <sedachv at cpsc.ucalgary.ca>:
> I've written a bit of code to shuffle between IMAGO images and SDL
> surfaces. It should be fast enough to do manipulations on small
> sprites in real-time on a reasonably fast machine.

Nice!

> (defun convert-to-image (surface)
>   "Given a 24 or 32-bit depth SDL surface, returns an IMAGO RGB image
> of the same width and height and RGB pixel contents."
>   (assert (or (= 24 (sdl:pixel-format-bits-per-pixel
>                      (sdl:surface-format surface)))
>               (= 32 (sdl:pixel-format-bits-per-pixel
>                      (sdl:surface-format surface)))))
>   (let* ((width (sdl:surface-w surface)) (height (sdl:surface-h surface))
>          (image (make-instance 'imago:rgb-image :width width :height height))
>          (image-array (imago:image-pixels image)))
>     ;; Note that on 32 bit machines, width and height are 32 bit ints
>     (declare (type fixnum width height)
>              (type (simple-array (unsigned-byte 32) (* *)) image-array))
>     (with-surface-lock surface
>       (dotimes (y height)
>         (declare (type fixnum y))
>         (dotimes (x width)
>           (declare (type fixnum x))
>           (setf (aref image-array y x) (sdl:get-pixel surface x y)))))
>     image))

A little note: using the IMAGO:DO-IMAGE-PIXELS macro could make the
code a little bit more abstract as well as more efficient. Here is
what the body of that function would look like:

(defun convert-to-image (surface)
  (let ((image (make-instance 'imago:rgb-image
                              :width (sdl:surface-w surface)
                              :height (sdl:surface-h surface))))
    (with-surface-lock surface
      (imago:do-image-pixels (image pixel x y)
        (setf pixel (sdl:get-pixel surface x y)))))
    image))


--
Matthieu Villeneuve