Implementing city generation
authorJavier Sancho <jsf@jsancho.org>
Thu, 4 Apr 2019 16:09:13 +0000 (18:09 +0200)
committerJavier Sancho <jsf@jsancho.org>
Thu, 4 Apr 2019 16:09:13 +0000 (18:09 +0200)
src/plugins/default/main.scm

index 866628b8146affe027db2864a2bde4c1f0017692..b668684f71a95d7ba0d127908fcea3c5dbdc9f92 100644 (file)
@@ -4,10 +4,24 @@
 (define (random-bool)
   (= (random 2) 1))
 
+(define pi 3.141592654)
+
 (define (city-map-generator patches)
   "City generator from https://github.com/watabou/TownGeneratorOS/blob/master/Source/com/watabou/towngenerator/building/Model.hx"
+  (set! *random-state* (random-state-from-platform))
   (when (= patches -1) (set! patches 15))
-  (display "lalala")(newline))
-  ;(build))
+  (build-patches patches))
+
+(define (build-patches patches)
+  (define* (get-points n #:optional (l '()))
+    (cond ((> n 0)
+           (get-points (- n 1) (cons n l)))
+          (else
+           l)))
+
+  (let ((sa (* (random:exp) 2 pi))
+        (points (get-points (* 8 patches))))
+    (display points)
+    (newline)))
 
 (dm:register-generator "city-map-generator" city-map-generator)