(defparameter *leveleditor-images* nil)
(defun stretched-image (img)
- "Call ImageMagick to resize that file to 32x32."
- (lisp-magick:with-magick-wand (mywand)
- (lisp-magick::magick-read-image-blob mywand img)
- (lisp-magick::magick-resize-image mywand 32 32 #x00000000 1d0)
- (lisp-magick::magick-set-format mywand "gif")
- (lisp-magick::magick-get-image-blob mywand)))
+ "Resize that file to 32x32 and convert it into a ppm."
+ ;; HAAAAAAAAAAAACK
+ (map '(vector (unsigned-byte 8)) #'char-code
+ (resized (resize-bmp-blob img 32 32))))
(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)))
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;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."
(defun prepare-images (&optional (care-about-initialization *leveleditor-images*))
(when (not care-about-initialization)
(setf *leveleditor-images* (make-hash-table))
+ (uxul-world::init-files)
(setf (gethash 'uxul-world::uxul *leveleditor-images*) (stretched-image uxul-world::|uxul_small1|))
(setf (gethash 'uxul-world::leaf *leveleditor-images*) (stretched-image uxul-world::|leaf|))
(setf (gethash 'uxul-world::nasobem *leveleditor-images*) (stretched-image uxul-world::|nasobem|))
((eq cval 'uxul-world::key)
(config-button-image cbtn key))
((eq cval 'uxul-world::anchor)
- (format t "fuck")
- (format t (cadr cval2))
- (write (gethash (cadr cval2) anchors))
(config-button-image cbtn (gethash (cadr cval2) anchors)))
((eq cval 'uxul-world::uxul)
(config-button-image cbtn uxul)))))