             [robinson.random :as rr]
             [robinson.noise :as rn]
             [robinson.world :as rw]
+            [robinson.worldgen :as rwg]
             #?@(:clj (
                 [quil.core :as q]
                 quil.applet))))

                   :setup setup
                   :draw draw
                   :size [(* 2 width) (* 2 height)]))
    (letfn [(draw  [] (doseq [[x y w h b] samples]
                        (q/fill (apply q/color (biome->color
                                                 (case b
                                                   :ocean :ocean

                   :setup setup
                   :draw draw
                   :size [(* 2 width) (* 2 height)]))
    (letfn [(draw  [] (doseq [[x y w h b] samples]
                        (q/fill (apply q/color (biome->color b)))
                        (q/rect x y w h)))
            (setup [] (q/frame-rate 1)
                      (q/no-stroke)
                      (q/background 0 0 0))]
      (quil.applet/applet
                   :title "Ocean/Surf/Sand/Interior/Biomes"
                   :renderer :p2d
                   :setup setup
                   :draw draw
