 (defn blink [terminal state blinks]
   ;(prinln (format "drawing %d blinks" (count blinks)))
   (doseq [blink blinks]
-    (println @frame-count (mod @frame-count 15))
+    #_(println @frame-count (mod @frame-count 15))
     (when (< (mod @frame-count 15) 7)
       (let [[vx vy] (get blink :xy)]
-          (println "drawing * @ " vx vy)
+          #_(println "drawing * @ " vx vy)
           (zat/set-fx-char! terminal :fx vx vy \space)))))
 
 (defrecord BlinkEffect

            opts            (atom (nil-grid terminal))
            effects         (atom (mapv (fn [effect-gen-fn] (effect-gen-fn terminal opts)) effects-gen-fns))
            filters         (atom filters)
            _ (println "making atat pool")
            schedule-pool   (atat/mk-pool)]
        (log/info "overriding terminal")
        (log/info "effects" @effects "filters" @filters)
        (let [animated-terminal (->WrappedAnimatedTerminal terminal
                                                           started
                                                           opts

    (zat/clear-fx! terminal)
    (doseq [effect @effects]
      (zaat/apply-effect! effect terminal))
    #_(log/info "done applying effects")
    (zat/refresh! terminal))
  (clear! [this]
    (reset! opts (nil-grid terminal))
