 (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

    (let [path (zutil/line-segment-fast-without-endpoints (get transform :from-xy) (get transform :to-xy))
          n    (int (/ @frame-count 1))]
      (when (< n (count path))
        (println "n" n "count path" (count path))
        (let [[vx vy] path #_(rv/world-xy->screen-xy state (nth path n))]
          (when (or true (get-in mask [vy vx]))
            (println "drawing * @ " vx vy)
            (zat/set-fx-char! terminal :fx vx vy \*)
            (zat/set-fx-fg! terminal :fx vx vy (zcolor/color->rgb :white))
            (zat/set-fx-bg! terminal :fx vx vy (zcolor/color->rgb :black))))))))

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