From e0fc8f0f7a8b4756226cfb5e1c7581e411420228 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 30 Jun 2022 07:35:16 -0500 Subject: [refactor] factored out affine from unit; made container a unit; --- src/interactive-units/bitmap.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/interactive-units/bitmap.lisp') diff --git a/src/interactive-units/bitmap.lisp b/src/interactive-units/bitmap.lisp index 95dfff5..cc4b4f7 100644 --- a/src/interactive-units/bitmap.lisp +++ b/src/interactive-units/bitmap.lisp @@ -2,7 +2,7 @@ (in-package #:wheelwork) -(defclass/std bitmap (unit interactive) +(defclass/std bitmap (affine interactive) ((texture :ri :std (error "A bitmap requires a texture.")) (vao shader :with :r :static))) @@ -57,6 +57,7 @@ (gl:delete-program shader)) (setf vao nil shader nil))) + (defmethod render ((bitmap bitmap)) (with-slots (texture vao shader) bitmap (gl:active-texture 0) -- cgit v1.2.3