9 lines
204 B
Common Lisp
9 lines
204 B
Common Lisp
;; Zoom effect - zooms in/out from center
|
|
(require-primitives "geometry")
|
|
|
|
(define-effect zoom
|
|
:params (
|
|
(amount :type int :default 1 :range [0.1 5])
|
|
)
|
|
(geometry:scale-img frame amount amount))
|