+(defun annotated-image (img ann)
+ "Add a (lower-left) annotation."
+ (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*))