From 38fa069479128d49760d01bd1f434f4e880a5564 Mon Sep 17 00:00:00 2001 From: Boutade Date: Mon, 15 Apr 2019 14:59:18 -0500 Subject: changed speed at which grid search increases size --- imbricate.ros | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'imbricate.ros') 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: -- cgit v1.2.3