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
