From d19be73b552e524be83f91723bf21f6c7df19af5 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Tue, 16 Apr 2019 20:24:43 -0500
Subject: cleaned up code

---
 imbricate.ros | 22 +---------------------
 1 file changed, 1 insertion(+), 21 deletions(-)

diff --git a/imbricate.ros b/imbricate.ros
index 7ae5498..2693a3b 100755
--- a/imbricate.ros
+++ b/imbricate.ros
@@ -16,18 +16,6 @@ exec ros -Q -- $0 "$@"
   `(let ((,var ,test))
      (when ,var ,@body)))
 
-(defmacro let-if ((var test) then else)
-  `(let ((,var ,test))
-     (if ,var ,then ,else)))
-
-
-(defmacro match-dolist ((matchform form) &rest body)
-  (if (listp matchform)
-      (let ((tmpvar (gensym)))
-        `(dolist (,tmpvar ,form)
-           (destructuring-bind ,matchform ,tmpvar ,@body)))
-      `(dolist (,matchform ,form) ,@body)))
-
 (defun images-under-dir (dir &key (type "png"))
   (format t "~%Reading images from disk")
   (let ((images '()))
@@ -101,13 +89,11 @@ exec ros -Q -- $0 "$@"
                 pl))
           packlist))
 
-
 (defun write-tile-index (tile-index file-path)
   "saves tile-index to file-path as a standard lisp object"
   (with-open-file (out file-path :direction :output)
     (print tile-index out)))
 
-
 (defun rect (x y w h) (list x y w h))
 (defun rx (r) (first r))
 (defun ry (r) (second r))
@@ -117,12 +103,12 @@ exec ros -Q -- $0 "$@"
 (defun tr (r) (list (+ (rx r) (rw r)) (ry r)))
 (defun br (r) (list (+ (rx r) (rw r)) (+ (ry r) (rh r))))
 (defun bl (r) (list (rx r) (+ (ry r) (rh r))))
+
 (defun xy-bounds (r)
   "returns (left right top bottom)"
   (list (rx r) (+ (rx r) (rw r))
         (ry r) (+ (ry r) (rh r))))
 
-
 (defun inside-rect (r xy)
   (destructuring-bind (l r tp b) (xy-bounds r)
     (destructuring-bind (x y) xy
@@ -150,7 +136,6 @@ exec ros -Q -- $0 "$@"
             (<= top2 top1)
             (< top1 bottom2))))))
 
-
 (defun make-corner-keeper () (list 0 0 '() (make-hash-table :test 'equal) '()))
 (defun keeper-w (k) (first k))
 (defun keeper-h (k) (second k))
@@ -179,7 +164,6 @@ exec ros -Q -- $0 "$@"
   (setf (keeper-corners k)
         (remove c (keeper-corners k) :test #'equal)))
 
-
 (defun add-corner (k c)
   (unless (was-visited k c)
     (visit k c)
@@ -190,13 +174,11 @@ exec ros -Q -- $0 "$@"
   (push r (keeper-rects k))
   (add-corner k (tr r))
   (add-corner k (bl r))
-;;  (add-corner k (br r))
   (setf (keeper-w k) (max (first (br r))
                           (keeper-w k)))
   (setf (keeper-h k) (max (second (br r))
                           (keeper-h k))))
 
-
 (defun intersects-any-tile-p (k r)
   (dolist (r2 (keeper-rects k))
     (when (intersect-p r r2)
@@ -215,7 +197,6 @@ exec ros -Q -- $0 "$@"
       (list (keeper-w k) 0)
       (list 0 (keeper-h k))))
 
-
 (defun build-packlist (tile-stats)
   (format t "~%Creating Layout")
   (let ((tile-stats (sort tile-stats #'> :key #'image-area))
@@ -231,7 +212,6 @@ exec ros -Q -- $0 "$@"
           (push (nconc (list :x x :y y) stats) packlist))))
     packlist))
 
-
 (defun main (&rest argv)
   (declare (ignorable argv))
   (destructuring-bind (path target) argv
-- 
cgit v1.2.3