[add] button unit and [example]; [modify] scale-by is now defun

1 files changed, 4 insertions, 4 deletions

diff --git a/src/core/affine.lisp b/src/core/affine.lisp
index 4585a81..7c87d16 100644
--- a/src/core/affine.lisp
+++ b/src/core/affine.lisp
@@ -17,10 +17,10 @@
 
 
 
-(defmethod scale-by ((affine affine) amount)
-  (with-slots (scale-x scale-y) affine
-    (setf scale-x (* amount scale-x)
-          scale-y (* amount scale-y))))
+(defun scale-by (affine amount)
+  (with-accessors ((sx scale-x) (sy scale-y)) affine
+    (setf sx (* amount sx)
+          sy (* amount sy))))
 
 (defun set-width-preserve-aspect (affine new-width)
   (scale-by affine (/ new-width (width affine))))