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


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