From eeb669f6b4efcd7b7720e4a5f6fb85676a0bed95 Mon Sep 17 00:00:00 2001
From: Yukari Hafner <shinmera@tymoon.eu>
Date: Mon, 9 Dec 2024 18:48:01 +0100
Subject: [PATCH] ?
---
renderers/opengl/renderer.lisp | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/renderers/opengl/renderer.lisp b/renderers/opengl/renderer.lisp
index b508167..d3b6c3f 100644
--- a/renderers/opengl/renderer.lisp
+++ b/renderers/opengl/renderer.lisp
@@ -555,7 +555,7 @@
(simple:translate renderer extent)
(setf (uniform shader "transform") (simple:transform-matrix renderer)))
(setf (uniform shader "size") extent)
- (let ((min (* 0.5 (min (alloy:pxw extent) (alloy:pxh extent)))))
+ (let ((min (* 0.5 (min (abs (alloy:pxw extent)) (abs (alloy:pxh extent))))))
(setf (uniform shader "corner_radius[0]") 0.0)
(setf (uniform shader "corner_radius[1]") (if round-p (min min (alloy:to-px (aref corner-radii 0))) 0.0))
(setf (uniform shader "corner_radius[2]") (if round-p (min min (alloy:to-px (aref corner-radii 1))) 0.0))