-(display "Hello world!")
-(newline)
+(define-module (dungeon-master plugins default)
+ #:use-module ((dungeon-master) #:prefix dm:))
+
+(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)