hellerve/shinu
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

it tweets

Browse Source
This commit is contained in:
Veit Heller
2017-03-18 16:19:48 +01:00
parent 41c52e75a2
commit 63071086e9
11 changed files with 26 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
shinu.lisp
View File

@@ -3,8 +3,8 @@
(setf *random-state* (make-random-state t))
(defvar *file* "out~a.png")
(defvar *size* 1000)
(defvar *file* "死ぬ.png")
(defvar *size* (+ 500 (random 2000)))
(defmacro rand () `(random 1.0))
@@ -13,20 +13,20 @@
(defun main ()
(let* ((mid (* *size* .5))
(repeat (random 25))
(repeat (random 10))
(offset (random 100))
(grains (random 10))
(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 (- repeat 5) to repeat do
(format t "~a/~a (~a)~%" j repeat (* 1.0 (/ j repeat)))
(loop for i in (linspace 100 (- *size* 100) repeat)
for j from offset to (+ offset repeat) do
(let ((snk (snek*))
(va (list 0 0))
(vb (list 0 0))
(p1 (list 100 i))
(p2 (list 900 i)))
(p1 (list (random 100) i))
(p2 (list (random (- *size* 100)) i)))
(loop for k from 1 to itt do
(let ((v1 (insert-vert (l-on-line k itt p1 p2) into snk))
@@ -41,7 +41,8 @@
(join-verts v1 v2))
(sandpaint-edges sand snk grains)
(sandpaint-verts sand snk)
(sandpaint-save sand (format nil *file* j))))))))
(sandpaint-verts sand snk)))))
(sandpaint-save sand *file*)))
(main)