Skip to content
Permalink
Browse files

Add scaled-entity helper

  • Loading branch information...
Shinmera committed Mar 21, 2019
1 parent 0b94f1f commit a37d5a52c84b676dd42d8dc7031ae0422e625ae6
Showing with 8 additions and 0 deletions.
  1. +8 −0 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)
())

0 comments on commit a37d5a5

Please sign in to comment.
You can’t perform that action at this time.