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

diff --git a/src/plugins/default/main.scm b/src/plugins/default/main.scm
index b95e41c..b668684 100644
--- a/src/plugins/default/main.scm
+++ b/src/plugins/default/main.scm
@@ -1,5 +1,27 @@
-(define (hello-world)
-  (display "Hello World!")
-  (newline))
+(define-module (dungeon-master plugins default)
+  #:use-module ((dungeon-master) #:prefix dm:))
 
-(register-generator "hello-world" hello-world)
+(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))
+  (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)