+(defun stretched-image (imgs)
+ "Resize that image to 32x32 and convert it into a gif."
+ (let*
+ ((w (car imgs))
+ (h (cadr imgs))
+ (x (elt imgs 6))
+ (y (elt imgs 7))
+ (*spritesheet* uxul-world::*spritesheet*)
+ (image (uxul-world::sub-image x y w h (car *spritesheet*)
+ (cadr *spritesheet*)
+ (cadr *spritesheet*))))
+ (bmp-to-gif
+ (uxul-world::resize-bmp-blob image 32 32))))
+
+(defun annotated-image (img ann)
+ "Add a (lower-left) annotation."
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;FIXME
+img
+
+;; (lisp-magick:with-magick-wand (mywand)
+;; (lisp-magick::magick-read-image-blob mywand img)
+;; (lisp-magick:with-drawing-wand (dw)
+;; (lisp-magick:with-pixel-wand (pw :comp (255 255 255))
+;; (lisp-magick::draw-set-text-under-color dw pw))
+;; (lisp-magick:with-pixel-wand (pw :comp (255 0 0))
+;; (lisp-magick::draw-set-fill-color dw pw))
+;; (lisp-magick:draw-annotation dw (coerce 0 'double-float) (coerce 32 'double-float) ann)
+;; (lisp-magick:magick-draw-image mywand dw))
+;; (lisp-magick::magick-set-format mywand "gif")
+;; (lisp-magick::magick-get-image-blob mywand)))
+)
+
+(defun numbered-image (img num)
+ "Annotate the image with a number."
+ (annotated-image img (format nil "~d" num)))
+
+(defun prepare-images (&optional (care-about-initialization *leveleditor-images*))