diff options
Diffstat (limited to 'imbricate.ros')
| -rwxr-xr-x | imbricate.ros | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/imbricate.ros b/imbricate.ros index b25d9d1..7d419ca 100755 --- a/imbricate.ros +++ b/imbricate.ros @@ -134,7 +134,7 @@ exec ros -Q -- $0 "$@" (when (unfilled-over-rect grid x y width height) (return-from search-loop (list x y))))) (progn - (adjust-array grid (list (* 2 gw) (* 2 gh)) :initial-element nil) + (adjust-array grid (list (+ width gw) (+ height gh)) :initial-element nil) (search-loop))))) (search-loop))) @@ -147,6 +147,7 @@ exec ros -Q -- $0 "$@" (tilesheet (pack-images packlist)) (tile-index (packlist->tile-index packlist))) (imago:write-png tilesheet (format nil "~a.png" target)) - (write-tile-index tile-index (format nil "~a-index.lisp" target)))) + (write-tile-index tile-index (format nil "~a-index.lisp" target)) + (write-tile-index *bad-images* (format nil "~a.bad.txt" target)))) (format t "ALL DONE~%")) ;;; vim: set ft=lisp lisp: |