added more examples

shinu.lisp

@@ -20,8 +20,8 @@
          (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
+          for j from (- repeat 5) to repeat do
-      (format t "~a/~a (~a)~%" j repeat (/ j repeat))
+      (format t "~a/~a (~a)~%" j repeat (* 1.0 (/ j repeat)))
       (let ((snk (snek*))
             (va (list 0 0))
             (vb (list 0 0))