(index ("image-dimensions" 0) ("image-info" 0))
(def (sig (procedure "(image-dimensions input-port)" (id image-dimensions)) (procedure "(image-info input-port)" (id image-info))) (p "Procedures accepting an input port and returning a list of attributes. " (tt "image-dimensions") " returns a list of width and height, " (tt "image-info") " returns a list of the image type symbol, width, height and rotation angle in degrees.  The rotation is always set to zero for non-JPEG images; JPEG images with EXIF metadata may have a non-zero rotation.") (p "Used image type symbols:") (ul (li (tt "gif")) (li (tt "png")) (li (tt "tiff")) (li (tt "jpeg"))))
