- "Calculate an image of half of the size."
- (lisp-magick:with-magick-wand (mywand)
- (lisp-magick::magick-read-image-blob mywand img)
- (let
- ((w (lisp-magick::magick-get-image-width mywand))
- (h (lisp-magick::magick-get-image-height mywand)))
- (lisp-magick::magick-resize-image mywand
- (max 1 (floor (/ w a))) (max 1 (floor (/ h a))) ;; no ash here ...
- #x00000000 1d0)
- (lisp-magick::magick-set-format mywand "png")
- (lisp-magick::magick-get-image-blob mywand))))
+ "Calculate an image of half/eighth/quarter of the size."
+ (let ((w (bmp-width img))
+ (h (bmp-height img)))
+ (uxul-world::resize-bmp-blob img (max 1 (floor (/ w a))) (max 1 (floor (/ h a))))))