diff options
Diffstat (limited to 'src/core/affine.lisp')
-rw-r--r-- | src/core/affine.lisp | 8 |
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)))) |