[refactor] factored out affine from unit; made container a unit;

1 files changed, 2 insertions, 1 deletions

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)