From fcad653bc3e731ed96a18fd821ad48ddc440ed1b Mon Sep 17 00:00:00 2001 From: colin Date: Sat, 5 Aug 2023 11:11:04 -0700 Subject: Bugfix; boneheaded --- src/interactive/canvas.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/interactive/canvas.lisp b/src/interactive/canvas.lisp index 977e3ec..9a3515f 100644 --- a/src/interactive/canvas.lisp +++ b/src/interactive/canvas.lisp @@ -8,7 +8,7 @@ (defmethod initialize-instance :after ((pixels pixels) &key) (with-slots (pixel-width pixel-height data) pixels - (setf data (make-array (* pixel-height pixel-height 4) + (setf data (make-array (* pixel-width pixel-height 4) :element-type 'unsigned-byte :initial-element 255)))) -- cgit v1.2.3