Hello Paul,
thank you for the report. Please note that the implementation using draw-glyphs is obsolete in favor of the ttf renderer. Currently works on improving the latter are pending, with additional features like the text directionality.
Best regards, Daniel
-- Daniel Kochmański ;; aka jackdaniel | Przemyśl, Poland TurtleWare - Daniel Kochmański | www.turtleware.eu
"Be the change that you wish to see in the world." - Mahatma Gandhi
On Wednesday, May 1st, 2024 at 3:38 PM, Paul Werkowski pw@snoopy.qozzy.com wrote:
The current implementation does not handle non-default :align keywords properly except when an +identity-transformation+ is in effect. This can be fixed simply by moving the transform-position form up before the (unlesss (and (eq align-x... ) stuff as shown below.
(multiple-value-bind (x y) (transform-position merged-transform x y) (unless (and (eq align-x :left) (eq align-y :baseline)) (setq x (- x (ecase align-x (:left 0) (:center (round text-width 2)) ; worst case (:right text-width)))) ; worst case (setq y (ecase align-y (:top (+ y baseline)) ; OK (:baseline y) ; OK (:center (+ y baseline (- (floor text-height 2)))) ; change (:bottom (+ y baseline (- text-height)))))) ; change (xlib:draw-glyphs mi gc (truncate (+ x 0.5)) (truncate (+ y 0.5)) string :start start :end end :translate #'translate :size 16))))))