 
 ;;; }}}
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; =============================================================================
 ;; {{{ Web Audio
 (defprotocol IAudio
   (sq [_ ])

        (shit-v-line wl (vec2 y1 x) h))))

(def tile-offsets
  (doall
    (let [mul 16
        mul-vec (vec2 mul mul) ]
    (->>
      (for [x [0 1] y [0 1]] (vec2 x y))
      (mapv #(v2/mul mul-vec %))
      (into []))) 
    )
  )

(defn mk-tile-printer [rend]
  (reify

    (v2/sub desired-pos current-pos)
    (v2/div (vec2 12 12))
    (v2/add current-pos)))

;; }}}

;; =============================================================================
;; {{{ Main
