> (top-to-bottom (left-to-right (let ((zero (haar (make-image 256 256)))) (image-set! (list-ref ((iterate car 6) zero) 0) 1 1 1000) (inverse-haar zero)) (let ((zero (haar (make-image 256 256)))) (image-set! (list-ref ((iterate car 6) zero) 1) 1 1 1000) (inverse-haar zero))) (left-to-right (let ((zero (haar (make-image 256 256)))) (image-set! (list-ref ((iterate car 6) zero) 2) 1 1 1000) (inverse-haar zero)) (let ((zero (haar (make-image 256 256)))) (image-set! (list-ref ((iterate car 6) zero) 3) 1 1 1000) (inverse-haar zero)))) #<image: rows = 512 cols = 512> > > (top-to-bottom (left-to-right (let ((zero (daubechies4 (make-image 256 256)))) (image-set! (list-ref ((iterate car 5) zero) 0) 3 3 1000) (inverse-daubechies4 zero)) (let ((zero (daubechies4 (make-image 256 256)))) (image-set! (list-ref ((iterate car 5) zero) 1) 3 3 1000) (inverse-daubechies4 zero))) (left-to-right (let ((zero (daubechies4 (make-image 256 256)))) (image-set! (list-ref ((iterate car 5) zero) 2) 3 3 1000) (inverse-daubechies4 zero)) (let ((zero (daubechies4 (make-image 256 256)))) (image-set! (list-ref ((iterate car 5) zero) 3) 3 3 1000) (inverse-daubechies4 zero)))) #<image: rows = 512 cols = 512> >