(require-extension format)
(require-extension leptonica)

(define pix (pix-read "moller52.png"))
(format #t "Picture has width: ~d, height: ~d, depth: ~d~&"
        (pix-get-width pix)
        (pix-get-height pix)
        (pix-get-depth pix))
(define new-pix (pix-copy #f pix))
(pix-set-height new-pix 200)
(pix-write "myfile.jpg" new-pix IFF-JFIF-JPEG)

(define scale-pix (pix-scale pix 0.5 2.0))
(define rot-pix (pix-rotate scale-pix 1.0 L-ROTATE-AREA-MAP L-BRING-IN-WHITE 0 0))

(pix-write "myfile-rotated.jpg" rot-pix IFF-JFIF-JPEG)
(pix-write "myfile-scaled.jpg" scale-pix IFF-JFIF-JPEG)