                    :setup setup
                    :draw draw
                    :size [(* 2 width) (* 2 height)]))
-    #_(letfn [(draw  [] (doseq [[x y w h b] samples]
+    (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"
+                   :title "Ocean/Surf/Sand/Interior/Biomes"
                    :renderer :p2d
                    :setup setup
                    :draw draw

            [robinson.random :as rr]
            [robinson.noise :as rn]
            [robinson.world :as rw]
            #?@(: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
