Commit c7be504b authored by Frédéric Jolliton's avatar Frédéric Jolliton
Browse files

Fix lang-o (reversed -> reverted)

parent 3cdc5c7d
...@@ -73,12 +73,12 @@ ...@@ -73,12 +73,12 @@
(defun make-string-path (font-loader text (defun make-string-path (font-loader text
&key (position (make-point 0 0)) (size 12) &key (position (make-point 0 0)) (size 12)
(halign :left) (valign :baseline) (inversed t) (kerning t)) (halign :left) (valign :baseline) (inverted t) (kerning t))
(let* ((em (units/em font-loader)) (let* ((em (units/em font-loader))
(scale (/ size em)) (scale (/ size em))
(scale-x scale) (scale-x scale)
(scale-y scale)) (scale-y scale))
(when inversed (when inverted
(setf scale-y (- scale-y))) (setf scale-y (- scale-y)))
(let ((bb (string-bounding-box text font-loader :kerning kerning))) (let ((bb (string-bounding-box text font-loader :kerning kerning)))
(setf position (p- position (setf position (p- position
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment