render: font: Use set-vec2! where convenient.
authorDavid Thompson <dthompson2@worcester.edu>
Thu, 13 Dec 2018 13:18:06 +0000 (08:18 -0500)
committerDavid Thompson <dthompson2@worcester.edu>
Thu, 13 Dec 2018 13:18:32 +0000 (08:18 -0500)
* chickadee/render/font.scm (draw-text*): Use new set-vec2! procedure.

chickadee/render/font.scm

index e1958a2..8ecd219 100644 (file)
@@ -327,8 +327,7 @@ extension must be either .xml or .fnt."
                        (+ (vec2-x cursor)
                           (vec2-x
                            (font-char-advance char))))))
-      (set-vec2-x! cursor 0.0)
-      (set-vec2-y! cursor 0.0)
+      (set-vec2! cursor 0.0 0.0)
       (string-for-each render-char text start end))))
 
 (define %default-scale (vec2 1.0 1.0))