X-Git-Url: http://uxul.de/gitweb/?p=uxul-world.git;a=blobdiff_plain;f=leveleditor.lisp;fp=leveleditor.lisp;h=192f79f8ade49f0601c3d9fa98a0d6c05875557b;hp=57000602e13c0b488588fd93f0efb28666e9dc68;hb=f05e44b099e5976411b3ef1f980ec616bd221425;hpb=8f6d2e9fa2cee1be6687044f2f4813630305682b

diff --git a/leveleditor.lisp b/leveleditor.lisp
index 5700060..192f79f 100755
--- a/leveleditor.lisp
+++ b/leveleditor.lisp
@@ -47,12 +47,20 @@
     (skippy:add-image image data-stream)
     (flexi-streams:with-output-to-sequence (out)
       (skippy:write-data-stream data-stream out))))
-      
 
 (defun stretched-image (imgs)
-  "Resize that image to 32x32 and convert it into a ppm."
-  (bmp-to-gif
-   (uxul-world::resize-bmp-blob imgs 32 32)))
+  "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."