(let ((width (cairo:surface-width image))
(height (cairo:surface-height image)))
(cairo:scale cr (/ 1.0 width) (/ 1.0 height)))
(let ((width (cairo:surface-width image))
(height (cairo:surface-height image)))
(cairo:scale cr (/ 1.0 width) (/ 1.0 height)))