On Sun, 18 Mar 2007 19:20:52 -0400, "Andrei Stebakov" <lispercat(a)gmail.com> wrote:
> 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:
Ah, yes, there was a bug in there. Thanks for the report. The new
release should fix that.
> (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))))
Here's an easier version:
(defun get-bounding-rect (text font font-size)
(let ((rect (draw-freetype-string 0 0 text
:do-not-draw t
:font-name font
:line-spacing 1.05d0
:point-size font-size)))
(values (- (aref rect 2) (aref rect 0))
(- (aref rect 3) (aref rect 5))
(aref rect 0)
(aref rect 1)
rect)))
> I think it doesn't like my :line-spacing 1.05d0 parameter.
That wasn't really the problem (but it showed the symptoms).
> Also I am not sure that I can provide a string with #Newline.
You can't do it the way you did. There are basically two easy ways to
do it in portable Common Lisp. Number one:
(get-bounding-rect "Some
text" "arial" 50)
Number two:
(get-bounding-rect #.(format nil "Some~%text") "arial" 50)
Or use CL-INTERPOL:
(get-bounding-rect #?"Some\ntext" "arial" 50)
Cheers,
Edi.
