   :middleware [m/fun-mode]
   :features [:keep-on-top :present :no-start]
   :bgcolor 0)
-
-

            [quil.middleware :as m])
  (:import [wordcram WordCram]))

(defn setup []
  (q/color-mode :hsb)
  (q/background 0)
  (q/frame-rate 2)

  (let [wc (WordCram. (quil.applet/current-applet))]
    (-> wc
        ;;(.fromWebPage "https://twitter.com/WinCityMain")
        ;;(.fromTextString (into-array String ["Life In Lights Winchester"]))

        (.withColors (int-array [(q/color 220) (q/color 140) (q/color (q/random 255) 240 200)]))
        (.sizedByWeight 5 80)
        (.withFont"Copse")
        (.angledBetween (float -1.6) (float 1.6))))
  )

(defn setup []
  (q/color-mode :hsb)
  (q/background 0)
  (q/frame-rate 4)

  {:wordcram (initialize-wordcram (quil.applet/current-applet))}
)

(defn update-state [state] 
  (if (= 0 (mod (q/frame-count) 120))
    (do
      (q/background 0)
      {:wordcram (initialize-wordcram (quil.applet/current-applet))})
    state)
  )

(defn draw-state [state]
  (if (.hasMore (:wordcram state))
