 (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

  (alter-group-pos! [_ group-id pos-fn] (zat/alter-group-pos! terminal group-id pos-fn))
  (alter-group-font! [_ group-id font-fn] (zat/alter-group-font! terminal group-id font-fn))
  (put-chars! [this layer-id characters]
    (println "put-chars!" layer-id characters)
    (swap! opts
           (fn [opts]
             (reduce (fn [opts [y y-characters]]

    (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))
