;; Pixelate effect - creates blocky pixels
;; @param block_size int [2, 64] default 8

(define-effect pixelate
  ((block_size 8))
  (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")))