X-Git-Url: https://git.jsancho.org/?p=dungeon-master.git;a=blobdiff_plain;f=src%2Fplugins%2Fdefault%2Fmain.scm;h=7a64459f52d2908cfd6c4141e9ecdd46497001c1;hp=b668684f71a95d7ba0d127908fcea3c5dbdc9f92;hb=a0dc340fdea79bf41b3ee1ecb110f1a7d43507ee;hpb=6457538252f2ecb52022dfd0d56d5862245f822e

diff --git a/src/plugins/default/main.scm b/src/plugins/default/main.scm
index b668684..7a64459 100644
--- a/src/plugins/default/main.scm
+++ b/src/plugins/default/main.scm
@@ -13,14 +13,21 @@
   (build-patches patches))
 
 (define (build-patches patches)
-  (define* (get-points n #:optional (l '()))
+  (define* (get-points n seed #:optional (l '()))
     (cond ((> n 0)
-           (get-points (- n 1) (cons n l)))
+           (let* ((a (+ seed (* (sqrt n) 5)))
+                  (r (if (= n 0)
+                         0
+                         (+ 10 (* n (+ 2 (random:exp))))))
+                  (point (list
+                          (* (cos a) r)
+                          (* (sin a) r))))
+             (get-points (- n 1) seed (cons point l))))
           (else
            l)))
 
-  (let ((sa (* (random:exp) 2 pi))
-        (points (get-points (* 8 patches))))
+  (let* ((sa (* (random:exp) 2 pi))
+         (points (get-points (* 8 patches) sa)))
     (display points)
     (newline)))