cleaned up a little

shinu.lisp

@@ -1,26 +1,27 @@
+#!/usr/local/bin/sbcl --script
 (load "snek/src/load")
 
 (setf *random-state* (make-random-state t))
 
-(defvar *file* "out.png")
+(defvar *file* "out~a.png")
 (defvar *size* 1000)
 
 (defmacro rand () `(random 1.0))
 
-(defun rand-rgba ()
-  (list (rand) (rand) (rand) 1.0))
+(defun rand-rgba (opacity)
+  (list (rand) (rand) (rand) opacity))
 
 (defun main ()
   (let* ((mid (* *size* .5))
-         (repeat (random 100))
+         (repeat (random 25))
          (grains (random 10))
-         (itt    (random 5000))
-         (bg     (rand-rgba))
-         (active (rand-rgba))
+         (itt    (random 2000))
+         (bg     (rand-rgba 1.0))
+         (active (rand-rgba 0.6))
          (sand   (sandpaint* *size* :active active :bg bg)))
     (loop for i in (linspace 100 900 repeat)
           for j from 1 to repeat do
-      (format "~d/~d (~d)~%" j repeat (/ j repeat))
+      (format t "~a/~a (~a)~%" j repeat (/ j repeat))
       (let ((snk (snek*))
             (va (list 0 0))
             (vb (list 0 0))
@@ -40,8 +41,7 @@
               (join-verts v1 v2))
 
             (sandpaint-edges sand snk grains)
-            (sandpaint-verts sand snk)))))
-
-        (sandpaint-save sand *file*)))
+            (sandpaint-verts sand snk)
+            (sandpaint-save sand (format nil *file* j))))))))
 
 (main)