(in-package png-pixels)

(png-pixels::%start-sdl2)

(defvar *sfc*)
(setq *sfc* (make-instance 'png-pixels::surface :path "empty.png"))

(png-pixels::%load *sfc*)

(loop for x below 512 do
 (loop for y below 512 do
  (setf (png-pixels::%pixel *sfc* x y) 
       (list (random 256)(random 256)(random 256) (1- 256)))))

(setf (png-pixels::path *sfc*) "noisy.png")

(png-pixels::%save *sfc*)

(png-pixels::%free *sfc*)

(png-pixels::%stop-sdl2)