added more examples

2017-03-18 14:46:37 +01:00
parent a5cb28f2e4
commit 41c52e75a2
18 changed files with 2 additions and 2 deletions
--- a/shinu.lisp
+++ b/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
-      (format t "~a/~a (~a)~%" j repeat (/ j repeat))
+          for j from (- repeat 5) to repeat do
+      (format t "~a/~a (~a)~%" j repeat (* 1.0 (/ j repeat)))
      (let ((snk (snek*))
            (va (list 0 0))
            (vb (list 0 0))