Add scaled-entity helper

Shirakumo · Mar 21, 2019 · a37d5a5 · a37d5a5
1 parent 0b94f1f
commit a37d5a5
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/helpers.lisp b/helpers.lisp
@@ -51,6 +51,14 @@
     (translate (pivot obj))
     (call-next-method)))
 
+(defclass scaled-entity (entity)
+  ((scaling :initarg :scaling :initform (vec 1 1 1) :accessor scaling)))
+
+(defmethod paint :around ((obj scaled-entity) target)
+  (with-pushed-matrix ()
+    (scale (scaling obj))
+    (call-next-method)))
+
 (define-subject clocked-subject (clock)
   ())