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

[cl-gd-devel] problems for install cl-gd
by Nicolas Lamirault 22 Mar '06

22 Mar '06

hi, i use cl-gd in some of my projects. currently, i would like to install cl-gd-0.5.1 CL-USER> (asdf:oos 'asdf:load-op :cl-gd) [...] CL-USER> (asdf:oos 'asdf:load-op :cl-gd-test) [...] CL-USER> (cl-gd-test:TEST) Test 1 failed with the following error: Attempt to call an undefined alien function. Test 2 failed with the following error: Attempt to call an undefined alien function. Test 3 failed with the following error: Attempt to call an undefined alien function. Test 4 failed with the following error: Attempt to call an undefined alien function. Test 5 failed with the following error: File #P"/home/nicolas/.sbcl/site/cl-gd-0.5.1/test/one-pixel.png" could not be found Test 6 failed with the following error: File #P"/home/nicolas/.sbcl/site/cl-gd-0.5.1/test/one-pixel.png" could not be found Test 7 failed with the following error: Attempt to call an undefined alien function. Test 8 failed with the following error: Attempt to call an undefined alien function. Test 9 failed with the following error: Attempt to call an undefined alien function. Test 10 failed with the following error: Attempt to call an undefined alien function. Test 11 failed with the following error: Attempt to call an undefined alien function. Test 12 failed with the following error: Attempt to call an undefined alien function. Test 13 failed with the following error: Attempt to call an undefined alien function. Test 14 failed with the following error: Attempt to call an undefined alien function. Test 15 failed with the following error: Attempt to call an undefined alien function. Test 16 failed with the following error: Attempt to call an undefined alien function. Test 17 failed with the following error: Attempt to call an undefined alien function. Test 18 failed with the following error: Attempt to call an undefined alien function. Test 19 failed with the following error: Attempt to call an undefined alien function. Done. i use sbcl 0.9.9, UFFI 1.5.9 and cl-gd 0.5.1 somebody it already had this problem ? thanks for any help. -- Nicolas Lamirault

2 5

[cl-gd-devel] Typos on the cl-gd website.
by Yoni Rabkin Katzenell 09 Jan '06

09 Jan '06

In the "Contents" section, the hypertext links to the "make-tile" and "make-anti-aliased" both point to the same anchor in the page, which is "#make-tile". In the code example for "make-anti-aliased", the third argument to the `let' special form which is "red" is malformed such that the hypertext link to the `allocate-color' function is broken. -- "Cut your own wood and it will warm you twice"

2 1

[cl-gd-devel] just to share
by arry 23 Nov '05

23 Nov '05

I just want to share a problem with cl-gd or maybe gd itself i don't know... Has anybody tried to draw an ellipse which starts and ends at a precise angle? Well, I have and it turns out that the angles that i have specified are not drawn exact , they are either bigger or smaller and SOMETIMES theyy are correct! is this a problem with gd or cl-gd? example I draw an ellipse that passes through two points then I want this ellipse to start from exactly one of the two point aand end at the other one. I calculate the angles with tthe help of the function (atan) or (asin) using the coordinates of the center of the ellipse and the two given points... and the angles drawn don't match with the given points That's funny!!! ridiculous!!! There's always 1 or 2 maybe more degrees discrapency between the angles drawn and the given points Anybody encountered the same thing? __________________________________ Yahoo! FareChase: Search multiple travel sites in one click. http://farechase.yahoo.com

2 2

[cl-gd-devel] Antialiased lines, arcs ... don't work, even the test orig pic is wrong...
by arry 11 Nov '05

11 Nov '05

Hi I am using CL-GD for over a week now and found out that the antialiasing doesn't work at all... The test, I think was number 4, produces the same result as its orig picture in the orig folder, but the orig picture in the orig folder is also wrong - there's no antialiasing in it... And this orig pic comes from the package itself... The picture on the web though is correct here http://www.weitz.de/cl-gd/ the pic's name: is anti-aliased-lines.png I tested this with AlegroCL and CLISP both under windows... with the same results... Is this a bug? Thanks for the help arry __________________________________ Yahoo! Mail - PC Magazine Editors' Choice 2005 http://mail.yahoo.com

2 4

[cl-gd-devel] cl-gd on mac os x
by bryan d. o'connor 04 Oct '05

04 Oct '05

since i was unable to get cl-gd to work on mac os x with openmcl 1.0-rc1 or sbcl 0.9.5 and uffi-1.5.4, i decided to try it out with cffi-uffi-compat (cffi-luis branch). there were a few bugs exposed in cffi-uffi-compat, but Luis has been very quick to fix them. with the latest version, cl-gd now runs fine. only one test (test-017) fails, but the output visually appears similar. included below is a patch. it adds/changes: - how to compile the dylib for mac os x to docs and Makefile - adds .dylib to *shared-library-types* - changes the .asd file to use cffi-uffi-compat for openmcl. i didn't change it to use cffi-uffi-compat for sbcl since sbcl on x86 users might prefer uffi. something detailing this should probably be added to the docs. thanks, ...bryan

2 2

[cl-gd-devel] Re: New version 0.5.0
by Edi Weitz 26 Sep '05

26 Sep '05

On Mon, 26 Sep 2005 14:28:48 +0100, Luis Oliveira <luismbo(a)gmail.com> wrote: > CFFI's CLISP port is expected to *not* work out of the box on unix > systems as mentioned in CFFI's webpage (it requires a one-line > patch). A one-line patch to CFFI or to CLISP? > Thus, I wouldn't expect it to work on Cygwin. (Actually, I wouldn't > expect it to work out of the box on Linux either, what version of > CLISP are you using there?) See below for versions. Actually, it kind of worked on Cygwin as well - I just had to remove the .FAS files that I created with the native Win32 version. Cheers, Edi. edi@vmware:/tmp$ apt-show-versions -a -p clisp clisp 1:2.35-2 install ok installed clisp 1:2.33.2-10 stable clisp 1:2.33.2-10 testing clisp 1:2.35-2 unstable clisp/unstable uptodate 1:2.35-2 edi@vmware:/tmp$ clisp i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Copyright (c) Bruno Haible, Michael Stoll 1992, 1993 Copyright (c) Bruno Haible, Marcus Daniels 1994-1997 Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998 Copyright (c) Bruno Haible, Sam Steingold 1999-2000 Copyright (c) Sam Steingold, Bruno Haible 2001-2005 ;; Loading file /home/edi/.clisprc.lisp ... ;; Loaded file /home/edi/.clisprc.lisp [1]> (lisp-implementation-version) "() (built 3335623208) (memory 3336726251)" [2]> (asdf:oos 'asdf:load-op :cl-gd-test) ; loading system definition from /usr/local/lisp/Registry/cl-gd-test.asd into #<PACKAGE ASDF7287> ;; Loading file /usr/local/lisp/Registry/cl-gd-test.asd ... ; registering #<SYSTEM #:CL-GD-TEST #x20459C8E> as CL-GD-TEST ;; Loaded file /usr/local/lisp/Registry/cl-gd-test.asd ; loading system definition from /usr/local/lisp/Registry/cl-gd.asd into #<PACKAGE ASDF7601> ;; Loading file /usr/local/lisp/Registry/cl-gd.asd ... ; registering #<SYSTEM #:CL-GD #x20491E36> as CL-GD ;; Loaded file /usr/local/lisp/Registry/cl-gd.asd ; loading system definition from /usr/local/lisp/Registry/cffi-uffi-compat.asd into #<PACKAGE ASDF7602> ;; Loading file /usr/local/lisp/Registry/cffi-uffi-compat.asd ... ; registering #<SYSTEM CFFI-UFFI-COMPAT #x2044DB96> as CFFI-UFFI-COMPAT ;; Loaded file /usr/local/lisp/Registry/cffi-uffi-compat.asd ; loading system definition from /usr/local/lisp/Registry/cffi.asd into #<PACKAGE ASDF7603> ;; Loading file /usr/local/lisp/Registry/cffi.asd ... ; registering #<SYSTEM CFFI #x20455A0E> as CFFI ;; Loaded file /usr/local/lisp/Registry/cffi.asd ;; Loading file /usr/local/lisp/source/cffi-luis-050925-2059/src/utils.fas ... ;; Loaded file /usr/local/lisp/source/cffi-luis-050925-2059/src/utils.fas ;; Loading file /usr/local/lisp/source/cffi-luis-050925-2059/src/cffi-clisp.fas ... ;; Loaded file /usr/local/lisp/source/cffi-luis-050925-2059/src/cffi-clisp.fas ;; Loading file /usr/local/lisp/source/cffi-luis-050925-2059/src/package.fas ... ;; Loaded file /usr/local/lisp/source/cffi-luis-050925-2059/src/package.fas ;; Loading file /usr/local/lisp/source/cffi-luis-050925-2059/src/libraries.fas ... ;; Loaded file /usr/local/lisp/source/cffi-luis-050925-2059/src/libraries.fas ;; Loading file /usr/local/lisp/source/cffi-luis-050925-2059/src/early-types.fas ... ;; Loaded file /usr/local/lisp/source/cffi-luis-050925-2059/src/early-types.fas ;; Loading file /usr/local/lisp/source/cffi-luis-050925-2059/src/types.fas ... ;; Loaded file /usr/local/lisp/source/cffi-luis-050925-2059/src/types.fas ;; Loading file /usr/local/lisp/source/cffi-luis-050925-2059/src/enum.fas ... ;; Loaded file /usr/local/lisp/source/cffi-luis-050925-2059/src/enum.fas ;; Loading file /usr/local/lisp/source/cffi-luis-050925-2059/src/strings.fas ... ;; Loaded file /usr/local/lisp/source/cffi-luis-050925-2059/src/strings.fas ;; Loading file /usr/local/lisp/source/cffi-luis-050925-2059/src/functions.fas ... ;; Loaded file /usr/local/lisp/source/cffi-luis-050925-2059/src/functions.fas ;; Loading file /usr/local/lisp/source/cffi-luis-050925-2059/src/foreign-vars.fas ... ;; Loaded file /usr/local/lisp/source/cffi-luis-050925-2059/src/foreign-vars.fas ;; Loading file /usr/local/lisp/source/cffi-luis-050925-2059/src/objects.fas ... ;; Loaded file /usr/local/lisp/source/cffi-luis-050925-2059/src/objects.fas ;; Loading file /usr/local/lisp/source/cffi-luis-050925-2059/uffi-compat/uffi-compat.fas ... ;; Loaded file /usr/local/lisp/source/cffi-luis-050925-2059/uffi-compat/uffi-compat.fas ;; Loading file /usr/local/lisp/source/cl-gd/packages.fas ... ;; Loaded file /usr/local/lisp/source/cl-gd/packages.fas ;; Compiling file /usr/local/lisp/source/cl-gd/util.lisp ... ;; Wrote file /usr/local/lisp/source/cl-gd/util.fas ;; Loading file /usr/local/lisp/source/cl-gd/util.fas ... ;; Loaded file /usr/local/lisp/source/cl-gd/util.fas ;; Compiling file /usr/local/lisp/source/cl-gd/specials.lisp ... ;; Wrote file /usr/local/lisp/source/cl-gd/specials.fas ;; Loading file /usr/local/lisp/source/cl-gd/specials.fas ... ;; Loaded file /usr/local/lisp/source/cl-gd/specials.fas ;; Compiling file /usr/local/lisp/source/cl-gd/init.lisp ... ;; Wrote file /usr/local/lisp/source/cl-gd/init.fas ;; Loading file /usr/local/lisp/source/cl-gd/init.fas ... #P"/usr/local/lisp/source/cl-gd/cl-gd-glue.so" ;; Loaded file /usr/local/lisp/source/cl-gd/init.fas ;; Compiling file /usr/local/lisp/source/cl-gd/gd-uffi.lisp ... ;; Wrote file /usr/local/lisp/source/cl-gd/gd-uffi.fas ;; Loading file /usr/local/lisp/source/cl-gd/gd-uffi.fas ... ;; Loaded file /usr/local/lisp/source/cl-gd/gd-uffi.fas ;; Compiling file /usr/local/lisp/source/cl-gd/transform.lisp ... ;; Wrote file /usr/local/lisp/source/cl-gd/transform.fas ;; Loading file /usr/local/lisp/source/cl-gd/transform.fas ... ;; Loaded file /usr/local/lisp/source/cl-gd/transform.fas ;; Compiling file /usr/local/lisp/source/cl-gd/images.lisp ... ;; Wrote file /usr/local/lisp/source/cl-gd/images.fas ;; Compiling file /usr/local/lisp/source/cl-gd/colors-aux.lisp ... ;; Wrote file /usr/local/lisp/source/cl-gd/colors-aux.fas ;; Compiling file /usr/local/lisp/source/cl-gd/colors.lisp ... ;; Wrote file /usr/local/lisp/source/cl-gd/colors.fas ;; Loading file /usr/local/lisp/source/cl-gd/colors-aux.fas ... ;; Loaded file /usr/local/lisp/source/cl-gd/colors-aux.fas ;; Compiling file /usr/local/lisp/source/cl-gd/drawing.lisp ... ;; Wrote file /usr/local/lisp/source/cl-gd/drawing.fas ;; Compiling file /usr/local/lisp/source/cl-gd/strings.lisp ... ;; Wrote file /usr/local/lisp/source/cl-gd/strings.fas ;; Compiling file /usr/local/lisp/source/cl-gd/misc.lisp ... ;; Wrote file /usr/local/lisp/source/cl-gd/misc.fas ;; Loading file /usr/local/lisp/source/cl-gd/images.fas ... ;; Loaded file /usr/local/lisp/source/cl-gd/images.fas ;; Loading file /usr/local/lisp/source/cl-gd/colors.fas ... ;; Loaded file /usr/local/lisp/source/cl-gd/colors.fas ;; Loading file /usr/local/lisp/source/cl-gd/drawing.fas ... ;; Loaded file /usr/local/lisp/source/cl-gd/drawing.fas ;; Loading file /usr/local/lisp/source/cl-gd/strings.fas ... ;; Loaded file /usr/local/lisp/source/cl-gd/strings.fas ;; Loading file /usr/local/lisp/source/cl-gd/misc.fas ... ;; Loaded file /usr/local/lisp/source/cl-gd/misc.fas ;; Compiling file /usr/local/lisp/source/cl-gd/cl-gd-test.lisp ... ;; Wrote file /usr/local/lisp/source/cl-gd/cl-gd-test.fas ;; Loading file /usr/local/lisp/source/cl-gd/cl-gd-test.fas ... ;; Loaded file /usr/local/lisp/source/cl-gd/cl-gd-test.fas 0 errors, 0 warnings NIL [3]> (cl-gd-test:test) Test 1 succeeded. Test 2 succeeded. Test 3 succeeded. Test 4 succeeded. Test 5 succeeded. Test 6 succeeded. Test 7 succeeded. Test 8 succeeded. Test 9 succeeded. Test 10 succeeded. Test 11 failed with the following error: =: NIL is not a number Test 12 failed with the following error: FFI:FOREIGN-VARIABLE: NIL is not of type (OR FFI:FOREIGN-VARIABLE FFI:FOREIGN-ADDRESS) Test 13 succeeded. Test 14 succeeded. Test 15 succeeded. Test 16 failed with the following error: FFI:FOREIGN-VARIABLE: NIL is not of type (OR FFI:FOREIGN-VARIABLE FFI:FOREIGN-ADDRESS) Test 17 failed. Test 18 succeeded. Test 19 failed with the following error: FFI:FOREIGN-VARIABLE: NIL is not of type (OR FFI:FOREIGN-VARIABLE FFI:FOREIGN-ADDRESS) Done. NIL

2 2

[cl-gd-devel] CLISP support for CL-GD through CFFI
by Luis Oliveira 26 Sep '05

26 Sep '05

Hello, >From the mailing list archives I see that, earlier this year, Edi didn't wan't to integrate the Carlos Ungil's port to CLISP's FFI: Edi Weitz <edi(a)agharta.de> writes: > Thanks. I've made a new release which fixes the bugs you found and > adds a link to your CLISP port. I'm hesitant to add the port to the > CL-GD distribution itself because it adds a large amount of code that > I can't and won't maintain. I'd rather wait until CLISP is supported > by UFFI... :) Today I saw the thread on comp.lang.lisp from someone trying to use CLISP with CL-GD, looked at one of my todo items for CFFI ("test uffi-compat more") and decided to try CLISP/CL-GD/uffi-compat. Here's a patch: diff -u cl-gd-0.4.8.orig/cl-gd-test.lisp cl-gd-0.4.8.new/cl-gd-test.lisp --- cl-gd-0.4.8.orig/cl-gd-test.lisp Sun Sep 25 23:42:54 2005 +++ cl-gd-0.4.8.new/cl-gd-test.lisp Mon Sep 26 00:06:07 2005 @@ -39,8 +39,8 @@ (defparameter *test-directory* (merge-pathnames (make-pathname :directory '(:relative "test")) (make-pathname :name nil - :type :unspecific - :version :unspecific + :type nil + :version :newest :defaults cl-gd.system:*cl-gd-directory*)) "Where test files are put.") diff -u cl-gd-0.4.8.orig/cl-gd.asd cl-gd-0.4.8.new/cl-gd.asd --- cl-gd-0.4.8.orig/cl-gd.asd Sun Sep 25 23:42:54 2005 +++ cl-gd-0.4.8.new/cl-gd.asd Mon Sep 26 00:06:52 2005 @@ -53,4 +53,4 @@ (:file "drawing" :depends-on ("transform" "colors-aux")) (:file "strings" :depends-on ("transform" "colors-aux")) (:file "misc" :depends-on ("transform"))) - :depends-on (:uffi)) + :depends-on (#-clisp :uffi #+clisp :cffi-uffi-compat)) Common subdirectories: cl-gd-0.4.8.orig/doc and cl-gd-0.4.8.new/doc diff -u cl-gd-0.4.8.orig/specials.lisp cl-gd-0.4.8.new/specials.lisp --- cl-gd-0.4.8.orig/specials.lisp Sun Sep 25 23:42:54 2005 +++ cl-gd-0.4.8.new/specials.lisp Mon Sep 26 00:15:59 2005 @@ -121,16 +121,16 @@ (defconstant +gd-cmp-true-color+ 256 "One image is a true-color image, the other one is palette-based.") -(defvar *shared-library-directories* `(,(namestring (make-pathname :device :unspecific - :name nil - :type :unspecific - :version :unspecific - :defaults cl-gd.system:*cl-gd-directory*)) - "/usr/local/lib/" - "/usr/lib/" - "/usr/lib/cl-gd/" - "/cygwin/usr/local/lib/" - "/cygwin/usr/lib/") +(defvar *shared-library-directories* + `(,(namestring (make-pathname :name nil + :type nil + :version :newest + :defaults cl-gd.system:*cl-gd-directory*)) + "/usr/local/lib/" + "/usr/lib/" + "/usr/lib/cl-gd/" + "/cygwin/usr/local/lib/" + "/cygwin/usr/lib/") "A list of directories where UFFI tries to find cl-gd-glue.so") (defvar *shared-library-types* '("so" "dll") "The list of types a shared library can have. Used when looking for Common subdirectories: cl-gd-0.4.8.orig/test and cl-gd-0.4.8.new/test I tested with the latest CFFI, CLISP 2.35 and CL-GD 0.4.8 under Windows 2000 and it fails 3 or 4 tests. I see Carlos's CLISP port includes some changes to some CL-GD functions other than the FFI part so I assume those changes should be integrated too, but I guess he would know better regarding what needs fixing for proper CLISP support. The pathname changes might break other lisps, I haven't tested, sorry. I hope this helps integrate CLISP support into CL-GD. -- Luis Oliveira luismbo (@) gmail (.) com Equipa Portuguesa do Translation Project http://www.iro.umontreal.ca/translation/registry.cgi?team=pt

2 1

[cl-gd-devel] Lispworks on Mac
by Shark Fin Soup 10 Sep '05

10 Sep '05

With the following make file, I am receiving the following error when trying to run the test. The glue code created with this makefile has no problem running on SBCL. I am not sure what must be done to get this working on Lispworks? Makefile: cl-gd-glue.so: gcc -I/usr/local/include -I/sw/include -g -c -dynamiclib -o cl-gd-glue.o cl-gd-gl ue.c libtool -dynamic -lgd -lz -lpng -ljpeg -lfreetype -liconv - lm -lc -o cl-gd-glue.s o cl-gd-glue.o -L/usr/local/lib -L/sw/lib rm cl-gd-glue.o Lispworks Error: Error: Foreign function GD-IMAGE-CREATE trying to call to unresolved external function "gdImageCreate" Thank you, Dr. Atip Asvanund

2 1

[cl-gd-devel] Re: GIF support in CL-GD
by Edi Weitz 17 May '05

17 May '05

[Cc to mailing list] Hi! Sorry for the late reply - I was on vacation. On Thu, 12 May 2005 00:25:48 -0400, Yannick Gingras <ygingras(a)ygingras.net> wrote: > Hi, had to install CL-GD on a machine that didn't have the GIF > support. I incorporated a test in the Makefile of the wrapper code > to remove the dependency on GIF related functions if GIF support was > not detected on the host machine: > > http://adn.bioinfo.uqam.ca/~gingras_y/cl-gd-0.4.7-test.tar.bz2 > > It is probably too ugly to be realesed but I hope it can help you in > doing a version of CL-GD that would work on machines with and > without the GIF support. Thanks for this. As you already guessed I'm a bit reluctant to incorporate this into the release. This is mainly because the Makefile is a contributed file that I don't plan to maintain. With your addition the .asd system defition might be modified by make. I had a very simple "solution" up to version 0.4.1 of CL-GD where you had to manually add a keyword to *FEATURES* in order to build GIF support. I've removed this because I thought that GIF support should be available to all GD users by now. Maybe the easiest way to cope with old GD libs is to revert to the 0.4.1 situation but with GIF support being the default now? Cheers, Edi.

1 1

[cl-gd-devel] Adding get-pixel
by Alan Shields 07 May '05

07 May '05

Please find enclosed a patch which adds a lisp interface to get-pixel. I have attempted to conform to your style, I hope I have succeeded. Thank you for the great work, Alan Shields diff -u cl-gd-0.4.6-old/drawing.lisp cl-gd-0.4.6/drawing.lisp --- cl-gd-0.4.6-old/drawing.lisp 2005-03-09 08:17:56.000000000 -0600 +++ cl-gd-0.4.6/drawing.lisp 2005-05-06 17:29:49.000000000 -0500 @@ -39,6 +39,14 @@ (gd-image-set-pixel (img image) x y color))) (values x y)) +(defun get-pixel (x y &key (image *default-image*)) + "Gets the color associated with point \(X,Y)." + (check-type image image) + (with-transformed-alternative + ((x x-transformer) + (y y-transformer)) + (gd-image-get-pixel (img image) x y))) + (defgeneric set-pixels (points &key color image) (:documentation "Draws a list \(X1 Y1 X2 Y2 ...) or vector #\(X1 Y1 X2 Y2 ...) of pixels.")) diff -u cl-gd-0.4.6-old/packages.lisp cl-gd-0.4.6/packages.lisp --- cl-gd-0.4.6-old/packages.lisp 2005-03-09 03:11:30.000000000 -0600 +++ cl-gd-0.4.6/packages.lisp 2005-05-06 17:38:25.432847326 -0500 @@ -51,6 +51,7 @@ #:draw-line #:set-pixel #:set-pixels + #:get-pixel #:draw-rectangle #:draw-rectangle* #:draw-arc

2 1