diff options
| -rw-r--r-- | src/interactive/canvas.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
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)))) |