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/examples/2/out1.png
+++ b/examples/2/out1.png
--- a/examples/2/out10.png
+++ b/examples/2/out10.png
--- a/examples/2/out11.png
+++ b/examples/2/out11.png
--- a/examples/2/out12.png
+++ b/examples/2/out12.png
--- a/examples/2/out13.png
+++ b/examples/2/out13.png
--- a/examples/2/out14.png
+++ b/examples/2/out14.png
--- a/examples/2/out15.png
+++ b/examples/2/out15.png
--- a/examples/2/out16.png
+++ b/examples/2/out16.png
--- a/examples/2/out17.png
+++ b/examples/2/out17.png
--- a/examples/2/out2.png
+++ b/examples/2/out2.png
--- a/examples/2/out3.png
+++ b/examples/2/out3.png
--- a/examples/2/out4.png
+++ b/examples/2/out4.png
--- a/examples/2/out5.png
+++ b/examples/2/out5.png
--- a/examples/2/out6.png
+++ b/examples/2/out6.png
--- a/examples/2/out7.png
+++ b/examples/2/out7.png
--- a/examples/2/out8.png
+++ b/examples/2/out8.png
--- a/examples/2/out9.png
+++ b/examples/2/out9.png
--- 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))