Dumb

Shirakumo · May 22, 2024 · 4f69068 · 4f69068
1 parent 7f4c0be
commit 4f69068
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/renderers/opengl/renderer.lisp b/renderers/opengl/renderer.lisp
@@ -532,8 +532,8 @@
 
 (defmethod render-direct ((shape simple:filled-rectangle) renderer color)
   (let* ((corner-radii (simple:corner-radii shape))
-         (round-p (loop for radius in corner-radii
-                        thereis (/= 0 (alloy:to-px 0))))
+         (round-p (loop for radius across corner-radii
+                        thereis (/= 0 (alloy:to-px radius))))
          (extent (alloy:ensure-extent (simple:bounds shape))))
     (flet ((prepare (shader)
              (bind shader)

diff --git a/renderers/simple/defaults.lisp b/renderers/simple/defaults.lisp
@@ -98,7 +98,7 @@
   (setf (feather-radius shape) (alloy:px 0)))
 
 (defmethod (setf feather-radius) ((value real) (shape filled-shape))
-  (setf (feather-radius shape) (alloy:px vvalue)))
+  (setf (feather-radius shape) (alloy:un value)))
 
 (defclass outlined-shape (patterned-shape)
   ((line-width :initarg :line-width :initform (alloy:un 1) :accessor line-width)
@@ -108,7 +108,7 @@
 
 (defclass rectangle (shape)
   ((bounds :initarg :bounds :initform (arg! :bounds) :accessor bounds)
-   (corner-radii :initform (make-array 4 :element-type T :initial-value (alloy:px 0)) :reader corner-radii)))
+   (corner-radii :initform (make-array 4 :initial-element (alloy:px 0)) :reader corner-radii)))
 
 (defmethod shared-initialize :after ((rectangle rectangle) slots &key (corner-radii NIL corner-radii-p))
   (when corner-radii-p
@@ -142,7 +142,7 @@
   (fill (corner-radii rectangle) value))
 
 (defmethod (setf corner-radii) ((value real) (rectangle rectangle))
-  (fill (corner-radii rectangle) (alloy:px value)))
+  (fill (corner-radii rectangle) (alloy:un value)))
 
 (defmethod (setf corner-radii) ((null null) (rectangle rectangle))
   (fill (corner-radii rectangle) (alloy:px 0)))