;; 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))