   (:use [turtle.core :only [draw!]]
         [turtle.renderer.canvas :only [->canvas]])
   (:require [cljs-flake.flake :as flake]))
+
+(def max-width 8000)
+(def max-height 6000)
 
 (defn- rand-range
   [min max]

  (concat
   [:color :blue]
   (->> combo2
        (repeatedly 13)
        (apply concat))))

(def canvas (js/document.getElementById "canvas"))

(def ctx (.getContext canvas "2d"))

(set! (.-width canvas) 3000)
(set! (.-height canvas) 2000)

(draw! (->canvas ctx) (flake/simple-flake 100))

  (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
  []
