diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-06-27 17:15:41 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-06-27 17:15:41 -0500 |
| commit | 04ceb7275ea341bef2b44dbcaa462b9ae90dac6f (patch) | |
| tree | 25b4069b67bfbe5896f0fc4c12d8335834f30ecf | |
| parent | ce3b427a65824e5213b501eacbb2f4048c4af6d2 (diff) | |
[typo]
| -rw-r--r-- | wheelwork.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/wheelwork.lisp b/wheelwork.lisp index 5807f30..20c5d86 100644 --- a/wheelwork.lisp +++ b/wheelwork.lisp @@ -722,7 +722,7 @@ ASSET-ARGS is a plist to pass to make-instance for the given resource. (setf vao vao% elem-count count%)) (hq:with-plist (l r (top t) b) (cl-fond:compute-extent (font-object font) content) - (setf base-width ((- r l)) + (setf base-width (- r l) base-height (+ top b))))) (defmethod cleanup ((text text)) |