initial release

README.md

@@ -0,0 +1,4 @@
+# shinu
+
+Playing around with [snek](https://github.com/inconvergent/snek).
+Not much going on here yet.

shinu.lisp

@@ -8,17 +8,19 @@
 (defmacro rand () `(random 1.0))
 
 (defun rand-rgba ()
-  (list (rand) (rand) (rand) (rand)))
+  (list (rand) (rand) (rand) 1.0))
 
 (defun main ()
-  (let ((mid (* *size* .5))
-        (repeat (random 100))
-        (grains (random 10))
-        (itt    (random 5000))
-        (sand   (sandpaint* *size* :active (rand-rgba) :bg (rand-rgba))))
+  (let* ((mid (* *size* .5))
+         (repeat (random 100))
+         (grains (random 10))
+         (itt    (random 5000))
+         (bg     (rand-rgba))
+         (active (rand-rgba))
+         (sand   (sandpaint* *size* :active active :bg bg)))
     (loop for i in (linspace 100 900 repeat)
           for j from 1 to repeat do
-      (print j)
+      (format "~d/~d (~d)~%" j repeat (/ j repeat))
       (let ((snk (snek*))
             (va (list 0 0))
             (vb (list 0 0))