17 lines
429 B
Common Lisp
17 lines
429 B
Common Lisp
;; Flip effect - flips image horizontally or vertically
|
|
(require-primitives "geometry")
|
|
|
|
(define-effect flip
|
|
:params (
|
|
(horizontal :type bool :default true)
|
|
(vertical :type bool :default false)
|
|
)
|
|
(let ((result frame))
|
|
(if horizontal
|
|
(set! result (geometry:flip-img result "horizontal"))
|
|
nil)
|
|
(if vertical
|
|
(set! result (geometry:flip-img result "vertical"))
|
|
nil)
|
|
result))
|