Hi Kassen, > The code below is my latest study in non-euclidean architecture.
I'm sure you've done this, but I had fun making lots of them:
(define (random-house)
(with-state
(rotate (vector (* (rndf) 360) (* (rndf) 360) 0))
(translate (vector 0 0 (- diam .1)))
(let ((x (* (rndf) 2))
(y (* (rndf) 2))
(h (* 5 (rndf))))
(build-block x y h)
(build-roof-duo x y .5 h (vector 1 0 0)))))
(for ((i (in-range 0 100)))
(random-house))
cheers,
dave
