;; Pixelate effect - creates blocky pixels

(define-effect pixelate
  :params (
    (block_size :type int :default 8 :range [2 64])
  )
  (let* ((w (width frame))
         (h (height frame))
         (small-w (max 1 (floor (/ w block_size))))
         (small-h (max 1 (floor (/ h block_size))))
         (small (resize frame small-w small-h "area")))
    (resize small w h "nearest")))