From 058408f8d2f951fbc3f8d2c12880855b873abf14 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Tue, 16 Apr 2019 18:51:00 -0500
Subject: added some progress reporting

---
 imbricate.ros | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/imbricate.ros b/imbricate.ros
index c5eba0c..7ae5498 100755
--- a/imbricate.ros
+++ b/imbricate.ros
@@ -29,10 +29,13 @@ exec ros -Q -- $0 "$@"
       `(dolist (,matchform ,form) ,@body)))
 
 (defun images-under-dir (dir &key (type "png"))
+  (format t "~%Reading images from disk")
   (let ((images '()))
     (cl-fad:walk-directory
      dir
      (lambda (path)
+       (format t ".")
+       (force-output)
        (let-when (img (and (string= type (pathname-type path))
                            (safe-open-image path)))
                  (push (nconc (list :path path) (image-stats img)) images))))
@@ -77,9 +80,12 @@ exec ros -Q -- $0 "$@"
 
 (defun pack-images (packlist)
   "Creates an image and copies the contents of the packlist to that image"
+  (format t "~%Constructing tilesheet")
   (destructuring-bind (cw ch) (packlist-dimensions packlist)
     (let ((tilesheet (make-instance 'imago:rgb-image :width cw :height ch)))
       (dolist (spec packlist)
+        (format t ".")
+        (force-output)
         (let* ((img (to-rgb (getf spec :img))))
           (imago:copy tilesheet img
                       :dest-x (getf spec :x)
@@ -211,6 +217,7 @@ exec ros -Q -- $0 "$@"
 
 
 (defun build-packlist (tile-stats)
+  (format t "~%Creating Layout")
   (let ((tile-stats (sort tile-stats #'> :key #'image-area))
         (ck (make-corner-keeper))
         (packlist '()))
@@ -218,6 +225,8 @@ exec ros -Q -- $0 "$@"
       (let ((tw (getf stats :width))
             (th (getf stats :height)))
         (destructuring-bind (x y) (find-space-for ck tw th)
+          (format t ".")
+          (force-output)
           (add-rect ck (rect x y tw th))
           (push (nconc (list :x x :y y) stats) packlist))))
     packlist))
@@ -230,8 +239,10 @@ exec ros -Q -- $0 "$@"
              (packlist (build-packlist tile-stats))
              (tilesheet (pack-images packlist))
              (tile-index (packlist->tile-index packlist)))
+        (format t "~%Writing to disk...")
+        (force-output)
         (imago:write-png tilesheet (format nil "~a.png" 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~%"))
+  (format t "~%ALL DONE~%"))
 ;;; vim: set ft=lisp lisp:
-- 
cgit v1.2.3