   (concat
    [:color :blue]
    (->> combo2
-        (repeatedly 13)
+        (repeatedly 15)
         (apply concat))))
 
 (def canvas (js/document.getElementById "canvas"))
 
 (def ctx (.getContext canvas "2d"))
 
-(set! (.-width canvas) 3000)
-(set! (.-height canvas) 2000)
+(set! (.-width canvas) max-width)
+(set! (.-height canvas) max-height)
 
-(draw! (->canvas ctx) (flake/simple-flake 100))
+(draw! (->canvas ctx) (scenery))


(defn rand-flake
  [flake]
  (let [len (rand-range 300 600)
        star-len (+ (/ len 2) (rand-range 30 (/ len 3)))]
   (flake len star-len (rand-range 20 45))))

(defn goto-random
  [min-distance max-distance]
  (let [distance (rand-range min-distance max-distance)
        angle (rand-int 360)]
    [:pen :up
     :right angle
     :fwd distance
     :pen :down]))

(defn combo1

  (concat
   [:right (rand-int 360)]
   (rand-flake flake/flake)
   (goto-random)
   (flake/simple-flake (rand-range 50 200))
   (goto-random)
   (rand-flake flake/complex-flake)
   (goto-random)))

(defn simple-flakes
  []
