March 2007 - cl-gd-devel@lists.common-lisp.net

[cl-gd-devel] :convert-chars of draw-freetype-string
by Jong-won Choi 24 Apr '07

24 Apr '07

I don't know much about gd and cl-gd and currently I don't understand what :convert-chars does so I'm trying to understand it. When I tried utf-8 Korean string with test-020, it did not render characters correctly. But if I set ':convert-chars nil' all the characters rendered correctly. I guess maybe gd itself handles non-ascii characters correctly(if this is true, maybe the :convert-chars can be removed from the function) Please use Korean string "커먼리습" (utf-8 encoded) for "Common Lisp", install ttf-unfonts package(Ubuntu and Debian), and use "/usr/share/fonts/truetype/unfonts/UnBatang.ttf" to exercise it with test-020. Thanks Jong-won Choi

2 6

[cl-gd-devel] :do-not-draw of draw-freetype-string
by Jong-won Choi 05 Apr '07

05 Apr '07

When draw-freetype-string is called with ':do-not-draw t', I get: ----------------<START>--------------------- Condition: 0.05521739130434778 cannot be converted to foreign type (:SIGNED-INTEGER-TYPE 32). Call to CL-GD::GD-IMAGE-STRING-FT (offset 521) CL-GD::IM : #<Pointer to type (:STRUCT CL-GD::GD-IMAGE) = #x00000000> CL-GD::BRECT : #<Pointer to type :INT = #x081E2778> CL-GD::FG : 0 CL-GD::FONTNAME : "/opt/Korean/fonts/UnBatangBold.ttf" CL-GD::PTSIZE : 10.0 CL-GD::ANGLE : 1.5707963267948966 CL-GD::X : 0.05521739130434778 CL-GD::Y : 0.058695652173913 STRING : "Number of Outcome" ----------------<END>--------------------- I think there was no transformer for x and y coordinates, and finally gd-image-string-ft was called with the exactly same x and y arguments of draw-freetype-string. I do not have this problem with old cl-gd (0.4.8). Here is a diff output between 0.4.8 and 0.5.3(draw-freetype-string only): ----------------<START>--------------------- *************** *** 132,139 **** rendering during bounding rectangle calculation." (check-type string string) (check-type font-name (or pathname string)) ! (check-type color integer) ! (check-type image image) (with-transformed-alternative ((x x-transformer) (y y-transformer) --- 133,144 ---- rendering during bounding rectangle calculation." (check-type string string) (check-type font-name (or pathname string)) ! (cond (do-not-draw ! (setq color 0 ! image *null-image*)) ! (t ! (check-type color integer) ! (check-type image image))) (with-transformed-alternative ((x x-transformer) (y y-transformer) *************** *** 159,167 **** 'gd-ft-string-extra 'line-spacing) (coerce line-spacing 'double-float)) ! (gd-image-string-ft-ex (if do-not-draw ! *null-image* ! (img image)) c-bounding-rectangle (if anti-aliased color (- color)) c-font-name --- 164,170 ---- 'gd-ft-string-extra 'line-spacing) (coerce line-spacing 'double-float)) ! (gd-image-string-ft-ex (img image) c-bounding-rectangle (if anti-aliased color (- color)) c-font-name *************** *** 171,179 **** c-string strex))) (t ! (gd-image-string-ft (img (if do-not-draw ! *null-image* ! image)) c-bounding-rectangle (if anti-aliased color (- color)) c-font-name --- 174,180 ---- c-string strex))) (t ! (gd-image-string-ft (img image) c-bounding-rectangle (if anti-aliased color (- color)) c-font-name

2 5

[cl-gd-devel] iconv and cl-gd
by Jong-won Choi 30 Mar '07

30 Mar '07

Dear cl-gd developers I know what iconv does quite well. I tried 'grep iconv ...' to figure out how it is used in cl-gd, and found nothing. Is link option -liconv really necessary? I built the cl-gd-glue shared library without the option and didn't have a problem so far(my client want to avoid GPL and LGPL softwares if it is possible) Thanks Jong-won Choi

2 2

[cl-gd-devel] Error with draw-feetype-string
by Andrei Stebakov 24 Mar '07

24 Mar '07

I am not sure if it's hunchentoot or gd because when I specify "arial" for the functon, it works. When the same string comes from (session-value 'text) I got following error: Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER: "arial" is not of type (OR SIMPLE-BASE-STRING NULL (ALIEN:ALIEN (* (ALIEN:SIGNED 8)))) 0: (DEBUG:BACKTRACE 536870911 #<String-Output Stream>) 1: (HUNCHENTOOT:GET-BACKTRACE #<unused-arg>) 2: ("DEFUN PROCESS-REQUEST" #<TYPE-ERROR {58123B7D}>) 3: (SIGNAL #<TYPE-ERROR {58123B7D}>) 4: (ERROR TYPE-ERROR :FUNCTION-NAME CL-GD::GD-IMAGE-STRING-FT :DATUM "arial" :EXPECTED-TYPE (OR SIMPLE-BASE-STRING NULL (ALIEN:ALIEN (* (ALIEN:SIGNED 8))))) . . . 6: (KERNEL::INTERNAL-ERROR #.(SYSTEM:INT-SAP #x3FFFBF04) #<unused-arg>) 7: ("call_into_lisp+#x8C [#x805560C] /usr/bin/cmucl") 8: ("funcall2+#x2C [#x80553EE] /usr/bin/cmucl") 9: ("interrupt_internal_error+#xC3 [#x80506F1] /usr/bin/cmucl") 10: ("sigtrap_handler+#x187 [#x8055260] /usr/bin/cmucl") 11: (CL-GD::GD-IMAGE-STRING-FT #<Alien (* (ALIEN:STRUCT CL-GD::GD-IMAGE (CL-GD::PIXELS (* (* (ALIEN:UNSIGNED 8)))) (CL-GD::SX (ALIEN:SIGNED 32)) (CL-GD::SY (ALIEN:SIGNED 32)) (CL-GD::COLORS-TOTAL (ALIEN:SIGNED 32)) (CL-GD::RED (ARRAY (ALIEN:SIGNED 32) 256)) (CL-GD::GREEN (ARRAY (ALIEN:SIGNED 32) 256)) (CL-GD::BLUE (ARRAY (ALIEN:SIGNED 32) 256)) (OPEN (ARRAY (ALIEN:SIGNED 32) 256)) (CL-GD::TRANSPARENT (ALIEN:SIGNED 32)) (CL-GD::POLY-INTS (* (ALIEN:SIGNED 32))) (CL-GD::POLY-ALLOCATED (ALIEN:SIGNED 32)) (CL-GD::BRUSH (* (ALIEN:STRUCT CL-GD::GD-IMAGE))) (CL-GD::TILE (* (ALIEN:STRUCT CL-GD::GD-IMAGE))) (CL-GD::BRUSH-COLOR-MAP (ARRAY (ALIEN:SIGNED 32) 256)) (CL-GD::TILE-COLOR-MAP (ARRAY (ALIEN:SIGNED 32) 256)) (CL-GD::STYLE-LENGTH (ALIEN:SIGNED 32)) (CL-GD::STYLE-POS (ALIEN:SIGNED 32)) (CL-GD::STYLE (* (ALIEN:SIGNED 32))) (CL-GD::INTERFACE (ALIEN:SIGNED 32)) (CL-GD::THICK (ALIEN:SIGNED 32)) (CL-GD::ALPHA (ARRAY (ALIEN:SIGNED 32) 256)) (CL-GD::TRUE-COLOR (ALIEN:SIGNED 32)) (CL-GD::T-PIXELS (* (* (ALIEN:SIGNED 32)))) (CL-GD::ALPHA-BLENDING-FLAG (ALIEN:SIGNED 32)) (CL-GD::SAVE-ALPHA-FLAG (ALIEN:SIGNED 32)) (CL-GD::AA (ALIEN:SIGNED 32)) (CL-GD::AA-COLOR (ALIEN:SIGNED 32)) (CL-GD::AA-DO-NOT-BLEND (ALIEN:SIGNED 32)) (CL-GD::AA-OPACITY (* (* (ALIEN:UNSIGNED 8)))) (CL-GD::AA-POLYGON (ALIEN:SIGNED 32)) (CL-GD::AAL-X1 (ALIEN:SIGNED 32)) (CL-GD::AAL-Y1 (ALIEN:SIGNED 32)) (CL-GD::AAL-X2 (ALIEN:SIGNED 32)) (CL-GD::AAL-Y2 (ALIEN:SIGNED 32)) (CL-GD::AAL-BX-AX (ALIEN:SIGNED 32)) (CL-GD::AAL-BY-AY (ALIEN:SIGNED 32)) (CL-GD::AAL-LAB-2 (ALIEN:SIGNED 32)) (CL-GD::AAL-LAB SINGLE-FLOAT) (CL-GD::CX1 (ALIEN:SIGNED 32)) (CL-GD::CY1 (ALIEN:SIGNED 32)) (CL-GD::CX2 (ALIEN:SIGNED 32)) (CL-GD::CY2 (ALIEN:SIGNED 32)))) at #x00000000> #<Alien (* (ALIEN:SIGNED 32)) at #x0808D178> 0 "arial" 40.0d0 0.0d0 0 0 "555") 12: (CL-GD:DRAW-FREETYPE-STRING 0 0 "555" :ANTI-ALIASED T :POINT-SIZE 40 :ANGLE 0 :CONVERT-CHARS T :LINE-SPACING NIL :FONT-NAME "arial" :DO-NOT-DRAW T :COLOR 0 :IMAGE NIL)

2 4

[cl-gd-devel] Help with the multline text
by Andrei Stebakov 19 Mar '07

19 Mar '07

I am trying to use draw-freetype-string to output the multiline text. Here I go: (defun get-bounding-rect (text font font-size) (with-image* (0 0) (let ((rect (draw-freetype-string 0 0 text :do-not-draw t :font-name font :angle 0 :line-spacing 1.05d0 :color (find-color 0 0 255 :resolve t) :point-size font-size))) (values (- (aref rect 2) (aref rect 0)) (- (aref rect 3) (aref rect 5)) (aref rect 0) (aref rect 1) rect)))) When I call it (get-bounding-rect "Some #\Newline text" "arial" 50) I get an error: Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER: #S(CL-GD::IMAGE :IMG #<Alien (* #) at #x00000000>) is not of type (OR NULL SYSTEM:SYSTEM-AREA-POINTER (ALIEN:ALIEN (* #))) [Condition of type TYPE-ERROR] Restarts: 0: [ABORT] Return to SLIME's top level. 1: [ABORT] Return to Top-Level. Backtrace: 0: (CL-GD::GD-IMAGE-STRING-FT-EX #S(CL-GD::IMAGE :IMG #<Alien # at #x00000000>) #<Alien (* #) at #x0808DF88> 0 "arial" ...) 1: (DRAW-FREETYPE-STRING 0 0 "Some #Newline text" :ANTI-ALIASED ...) 2: (GET-BOUNDING-RECT "Some #Newline text" "arial" 50) 3: (GET-BOUNDING-RECT "Some #Newline text" "arial" 50) I think it doesn't like my :line-spacing 1.05d0 parameter. Also I am not sure that I can provide a string with #Newline. What's the proper way to do it? Thank you, Andrew

2 1

[cl-gd-devel] Drawing anti-aliased text with transparent background
by Andrei Stebakov 18 Mar '07

18 Mar '07

Here is what I've got: http://www.greenpixeldesign.com/cphandler/tmp-img/test.png I'd like to remove the black outline from the anti-aliased text (I need RGB true color image). I know I am missing some stupid thing, but I experimented with different backgrounds, just doesn't make it right. My current setup is gdlib 2.0.33 on debian, and here is the code; (defun create-text-image (text font font-size file-name) (multiple-value-bind (width height horizont-shift vertical-shift) (get-bounding-rect text font font-size) (with-image* (width height t) (let* ((white (allocate-color 255 255 255)) (black (allocate-color 0 0 0)) (red (allocate-color 255 0 0)) (green (allocate-color 0 255 0)) (blue (allocate-color 0 0 255))) (setf (transparent-color) black) (draw-freetype-string (- 0 horizont-shift) (- height vertical-shift) text :anti-aliased t :font-name font :angle 0 :point-size font-size :color (allocate-color 0 0 255)) ;;(true-color-to-palette) (write-image-to-file file-name :if-exists :supersede)))))

1 3

[cl-gd-devel] Error in function CREATE-IMAGE-FROM-FILE:
by Andrei Stebakov 15 Mar '07

15 Mar '07

I got the following error trying to draw text on an image. The test.png is a valid file, I can view it in browser. Here is the debug dump (I use CMUCL 19b, latest libgd and cl-gd, with-image macro works fine): Error in function CREATE-IMAGE-FROM-FILE: Could not create image from PNG file "/tmp/dir1/test.png" [Condition of type SIMPLE-ERROR] Restarts: 0: [ABORT] Return to SLIME's top level. 1: [ABORT] Return to Top-Level. Backtrace: 0: (CREATE-IMAGE-FROM-FILE "/tmp/dir1/test.png" NIL) 1: (CREATE-TEXT-IMAGE-ON-IMAGE #P"/tmp/dir1/test.png" "Hello!" "arial" 100 ...) 2: ("DEFSLIMEFUN INTERACTIVE-EVAL") Thank you, Andrew

2 4

[cl-gd-devel] Problems with (cl-gd-test:test)
by Andrei Stebakov 13 Mar '07

13 Mar '07

Hi, I've installed the libgd on my linux box (it's in /usr/local/lib/libgd.so). I've installed the bindings and now when I compile it it complained about not being able to find gdImageCreate and gdSmallFont. When I try to (cl-gd-test:test) (after (asdf:oos 'asdf:load-op :cl-gd-test)) it give me following output: Test 1 failed with the following error: Error in KERNEL::UNDEFINED-SYMBOL-ERROR-HANDLER: the function CL-GD::GD-IMAGE-CREATE is undefined. Test 2 failed with the following error: Error in KERNEL::UNDEFINED-SYMBOL-ERROR-HANDLER: the function CL-GD::GD-IMAGE-CREATE is undefined. Test 3 failed with the following error: Error in KERNEL::UNDEFINED-SYMBOL-ERROR-HANDLER: the function CL-GD::GD-IMAGE-CREATE is undefined. Test 4 failed with the following error: Error in KERNEL::UNDEFINED-SYMBOL-ERROR-HANDLER: the function CL-GD::GD-IMAGE-CREATE is undefined. Test 5 failed with the following error: Error in function CL-GD:CREATE-IMAGE-FROM-FILE: File #P"/home/andrews/systems/cl-gd-0.5.2/test/one-pixel.png" could not be found Test 6 failed with the following error: Error in function CL-GD:CREATE-IMAGE-FROM-FILE: File #P"/home/andrews/systems/cl-gd-0.5.2/test/one-pixel.png" could not be found Test 7 failed with the following error: Error in KERNEL::UNDEFINED-SYMBOL-ERROR-HANDLER: the function CL-GD::GD-IMAGE-CREATE is undefined. Test 8 failed with the following error: Error in KERNEL::UNDEFINED-SYMBOL-ERROR-HANDLER: the function CL-GD::GD-IMAGE-CREATE is undefined. Test 9 failed with the following error: Error in KERNEL::UNDEFINED-SYMBOL-ERROR-HANDLER: the function CL-GD::GD-IMAGE-CREATE is undefined. Test 10 failed with the following error: Error in KERNEL::UNDEFINED-SYMBOL-ERROR-HANDLER: the function CL-GD::GD-IMAGE-CREATE-FROM-JPEG-FILE is undefined. Test 11 failed with the following error: Error in KERNEL::UNDEFINED-SYMBOL-ERROR-HANDLER: the function CL-GD::GD-IMAGE-CREATE is undefined. Test 12 failed with the following error: Error in KERNEL::UNDEFINED-SYMBOL-ERROR-HANDLER: the function CL-GD::GD-IMAGE-CREATE is undefined. Test 13 failed with the following error: Error in KERNEL::UNDEFINED-SYMBOL-ERROR-HANDLER: the function CL-GD::GD-IMAGE-CREATE is undefined. Test 14 failed with the following error: Error in KERNEL::UNDEFINED-SYMBOL-ERROR-HANDLER: the function CL-GD::GD-IMAGE-CREATE is undefined. Test 15 failed with the following error: Error in KERNEL::UNDEFINED-SYMBOL-ERROR-HANDLER: the function CL-GD::GD-IMAGE-CREATE is undefined. Test 16 failed with the following error: Error in KERNEL::UNDEFINED-SYMBOL-ERROR-HANDLER: the function CL-GD::GD-IMAGE-CREATE-TRUE-COLOR is undefined. Test 17 failed with the following error: Error in KERNEL::UNDEFINED-SYMBOL-ERROR-HANDLER: the function CL-GD::GD-IMAGE-CREATE is undefined. Test 18 failed with the following error: Error in KERNEL::UNDEFINED-SYMBOL-ERROR-HANDLER: the function CL-GD::GD-IMAGE-CREATE is undefined. Test 19 failed with the following error: Error in KERNEL::UNDEFINED-SYMBOL-ERROR-HANDLER: the function CL-GD::GD-IMAGE-CREATE-TRUE-COLOR is undefined. Done. I checked the libgd.so, looks like the gdImageCreate and the rest of the functions are there. What could be causing the problem? Thank you, Andrew

2 3

[cl-gd-devel] Re: CL-GD on OS X
by Edi Weitz 11 Mar '07

11 Mar '07

On Sat, 10 Mar 2007 10:17:19 -0700, "Chhi'med Kunzang" <clkunzang(a)gmail.com> wrote: > I just joined the list, so sorry if this has been covered. It's probably more appropriate to continue this discussion on the CL-GD mailing list. I've put the list on Cc, but you'll have to subscribe to post something there. > Has anyone installed CL-GD on on OS X. I'm using Lispworks 5. I > compiled CL-GD-GLUE fine, and it seems to load, but I get a series > of errors when I run the test. > > I'm sure it's a stupid configuration problem, but maybe someone else > has worked through it before? I don't have a Mac, so I can't confirm that CL-GD runs on OS X, but I think that there's nothing specific in the code that prevents it from running there. > "_gdImageCreate". The underline shouldn't be there. The C function is called "gdImageCreate" (unless this is some name mangling convention on OS X that I'm not aware of). Where did you get the GD library from and where is it located?

1 0

[cl-gd-devel] controling brightness, intensity, contrast of an image.
by Paul Thirumalai 02 Mar '07

02 Mar '07

Hi I just wanted to know if there is a way to control/modify the contrast, brightness, intensity of an image using CL-GD. If there is some sample code that would be awesome. Thanks Paul

2 3