- cl-gd-devel@lists.common-lisp.net - mailman3.common-lisp.net

[cl-gd-devel] Re: cl-gd: random access to pixels?
by Edi Weitz 06 May '05

06 May '05

[Cc to mailing list] Hi Cameron! On Fri, 6 May 2005 12:03:53 -0400 (EDT), "Cameron MacKinnon" <cmackin(a)clearspot.net> wrote: > I'm trying to use cl-gd to get random access to an image's pixels; > in my code, I won't be processing every pixel, so row and column > iterators that cover the whole image are no good to me. > > I tried using a clipping rectangle: > (cl-gd:with-clipping-rectangle* (mask :image old) > (cl-gd:do-rows (y old) > (cl-gd:do-pixels-in-row (x) > ... > ... but that didn't work; every pixel was processed. Yes, DO-ROWS doesn't observe clipping rectangles yet. It'd probably be a good idea to do that in the future. > There appears to be no function exposed in cl-gd to get the raw > value of an arbitrarily located pixel. Is this true? Yes. > Where would I start if I needed to hack in such functionality? > gdImageGetPixel? Depending on the type of the image you have to look into the PIXELS or T-PIXELS slot of the GD-IMAGE structure - see file gd-uffi.lisp. Probably the best way to proceed is to look how DO-ROWS is defined. Cheers, Edi. PS: I'll be on vacation next week so I won't be able to answer further questions at that time.

1 0

[cl-gd-devel] support for animated GIF?
by John Pick 28 Apr '05

28 Apr '05

GD 2.0.29 supports animated GIF. Any plans for CL-GD to support that?

2 1

[cl-gd-devel] cl-gd does not find cl-gd-glue.so
by Andreas Kaempf 11 Apr '05

11 Apr '05

I have been trying to get cl-gd working under sbcl on Gentoo Linux running on a dual Opteron system. When I try to compile or require cl- gd within sbcl, I keep getting this message: Could not open shared object #S(SB-ALIEN::SHARED-OBJECT :FILE "/usr/lib/cl-gd-glue.so" :SAP NIL): /usr/lib/cl-gd-glue.so: cannot open shared object file: No such file or directory The file /usr/lib/cl-gd-glue.so does indeed exist, and permissions are not the problem, since this happens as root. I have tried rebuilding several times. It works fine on my AMD XP laptop, so perhaps it's a problem with uffi or cl-gd on AMD64 systems? Any suggestions would be appreciated. Cheers, Andreas Kaempf London ----- Enter a new world ... http://www.realmofmusic.com

1 1

[cl-gd-devel] New version 0.4.6
by Edi Weitz 31 Mar '05

31 Mar '05

Changelog: Version 0.4.6 2005-03-31 Fixed typo in WITH-IMAGE* (thanks to Peter Barabas) Handle CMUCL search lists correctly (thanks to Hans Hübner) Added -lc option to linker call and included makefile (thanks to Hans Hübner) Download: <http://weitz.de/files/cl-gd.tar.gz> Cheers, Edi.

1 0

[cl-gd-devel] Re: CL-GD very minor typo
by Edi Weitz 20 Mar '05

20 Mar '05

Hi! On Sun, 20 Mar 2005 21:39:57 +0100, Peter BARABAS <z0d(a)artifact.hu> wrote: > I'd like to report a simple typo in the latest CL-GD. It's in > images.lisp: > > (defmacro with-image* ((width height &optional true-color) &body body) > "Creates an image with size WIDTH x HEIGHT and executes BODY with > the image bound to *DEFAULT-IMAGE*. If TRUE-COLOR is true, creates a > true color image. The image is guaranteed to be destroyed before this > macro exits." > `(with-image (*default-image* ,width, height ,true-color) > ,@body)) > > Note the placement of the comma before "height". Thanks. That's certainly a typo and will be fixed in the next release. > I know that the Lisp implementations are permissive (or the > HyperSpec?). I'm pretty sure this is legal Common Lisp although it was not what I intended... :) Cheers, Edi.

1 0

[cl-gd-devel] New version 0.4.5 (Was: cl-gd:make-stream-fn)
by Edi Weitz 16 Mar '05

16 Mar '05

[Cc to mailing list] On Tue, 15 Mar 2005 19:49:56 +0100, "Walter C. Pelissero" <walter(a)pelissero.de> wrote: > I'm trying your cl-gd with PAServe and stumbled in a minor glitch in > MAKE-STREAM-FN. The COND first checks for: > > (subtypep (stream-element-type stream) '(unsigned-byte 8)) > > and then > > (subtypep (stream-element-type stream) 'character) > > Which both fail miserably at least on CMUCL with *HTML-STREAM* as > STREAM. The reason is that: > > (stream-element-type *HTML-STREAM*) => '(OR CHARACTER (UNSIGNED-BYTE 8)) > > (subtypep '(or character (unsigned-byte 8)) 'character) => NIL T > > (subtypep '(or character (unsigned-byte 8)) '(unsigned-byte 8)) => NIL T > > Apparently changing the order of the operands, makes the COND work > as expected, although, as far as I understand, the semantic of > subtypep isn't respected. No, I think CMUCL is right. This was a thinko in my code. Thanks for the report, I've uploaded a new version which fixes this. Cheers, Edi.

1 0

[cl-gd-devel] clisp ffi
by Carlos Ungil 09 Mar '05

09 Mar '05

Hello, I've added support for clisp. It's only tested on Solaris, and not very much. The included test suite runs (almost) successfully, but I'm sure there will be bugs in the functionality not covered by these tests. Test 17 (ellipse filled in with tiles) fails, but it fails in the same way in SBCL so that might a problem with Solaris (or with my installation). Test 16 takes ages to complete, but I don't think I will optimize the code (as long as it is fast enough generating simple charts). I had no previous experience with clisp's FFI, so I'm sure there will be things that could have been done better, in particular about performance. The modified files can be found here http://ungil.com/cl-gd-0.4.2-clisp.tgz I've discovered as well some bugs, that I detail at the end of the message (only the first one is really relevant). Cheers, Carlos * [ colors-aux ] (defun resolve-c-color (color image) ......... ((or vector list) (setf (current-style image) (cdr color)) ;;; the first element of the list is dropped, that cdr shouldn't exist +styled+) ......... * [ gd-uffi ] (def-struct gd-image ......... (aal-x1 :int) (aal-y1 :int) (aal-x2 :int) (aal-y1 :int) ;;; this should be aal-y2, right? .......... * [ cl-gd-test ] (compare-files file) ;; the check is missing in test-012

2 3

[cl-gd-devel] Funky compile warnings with (with-thickness )
by Rusty Shackleford 24 Feb '05

24 Feb '05

I'm using (with-thickness (5) to draw some lines, and when I compile the code (in emacs slime with C-c C-k) I get a bunch of messages that look like: ; ==> ; (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN ; '#<SB-ALIEN-INTERNALS:ALIEN-RECORD-TYPE (STRUCT ; CL-GD::GD-IMAGE ; (CL-GD::PIXELS ; #) ; (CL-GD::SX ; #) ; (CL-GD::SY ; #) ; (CL-GD::COLORS-TOTAL ; #) ; (CL-GD::RED ..))>) ; ; note: unable to ; optimize ; because: ; could not optimize away %SAP-ALIEN: forced to do runtime ; allocation of alien-value structure ; compilation unit finished What the heck does this mean? Here's the code that causes the pain: ; This section draws the map. (require "cl-gd") (cl-gd:with-image* (*pngwidth* *pngheight*) (cl-gd:allocate-color 190 190 190) (let ((red (cl-gd:allocate-color 163 83 84)) (green (cl-gd:allocate-color 104 156 84)) (yellow (cl-gd:allocate-color 236 236 236)) (black (cl-gd:allocate-color 0 0 0))) ;; Draw all towns. (dolist (town *towns*) (cl-gd:draw-filled-circle (mapdim (getf town :lat) *pngwidth*) (mapdim (getf town :long) *pngheight*) 20 :color black) ;; Draw roads between neighboring towns. (cl-gd:with-thickness (5) (dolist (neighbor (getf town :neighbors)) (cl-gd:draw-line (mapdim (getf town :lat) *pngwidth*) (mapdim (getf town :long) *pngheight*) (mapdim (getf (town-lookup neighbor *towns*) :lat) *pngwidth*) (mapdim (getf (town-lookup neighbor *towns*) :long) *pngheight*) :color black)))) ;; Draw start town as green circle. (cl-gd:draw-filled-circle (mapdim (getf *start-town* :lat) *pngwidth*) (mapdim (getf *start-town* :long) *pngheight*) 15 :color green) ;; Fill in evaluation function's choices. (dolist (town *path*) (cl-gd:draw-filled-circle (mapdim (getf town :lat) *pngwidth*) (mapdim (getf town :long) *pngheight*) 15 :color yellow)) ;; Draw goal town as red circle. (cl-gd:draw-filled-circle (mapdim (getf *goal-town* :lat) *pngwidth*) (mapdim (getf *goal-town* :long) *pngheight*) 15 :color red)) (cl-gd:write-image-to-file "/var/www/website/draw1.png" :compression-level 6 :if-exists :supersede)) Thanks for the help.

2 1

[cl-gd-devel] Error could not find font
by Rusty Shackleford 16 Feb '05

16 Feb '05

Hi -- I'm new to lisp, so I apologize if this error is obvious. Anyway, I installed the cl-gd debian package, and tried to run the example program posted on the cl-gd website, but I keep getting this "could not find font" error. Here's the exact output of the program: #P"/usr/lib/cl-gd/cl-gd-glue.so" debugger invoked on a SIMPLE-ERROR in thread 8467: Error in FreeType library: Could not find/open font I have the libfreetype6-devel package installed. Do I need to do something with namespaces in my program? All help is welcome! -- Distributed OS wiki: http://en.wikibooks.org/wiki/ComputerScience:Distributed_Systems

2 1

[cl-gd-devel] New version 0.4.2
by Edi Weitz 26 Nov '04

26 Nov '04

Changelog entry: Version 0.4.2 2004-11-26 Build GIF support by default Added link to cl-gd-glue.dll for Windows and corresponding documentation Updated files in test/orig CL-GD is available from <http://weitz.de/files/cl-gd.tgz> Have fun, Edi.

1 0