         (shit-h-line wl (vec2 x y1) w)
         (shit-v-line wl (vec2 x  y) h)
         (shit-v-line wl (vec2 y1 x) h)
-
-        ))
-  )
-
+        )))
 
 
 (defn mk-level-spr [sprs rman id w-b h-b ]

  (decide kb-handler js-key-table))

(def combo-vec
  {#{:left :up}    (vec2 -1 -1)
   #{:left :down}  (vec2 -1  1)
   #{:right :up}   (vec2  1 -1)
   #{:right :down} (vec2  1  1)
   #{:up}          (vec2  0 -1)
   #{:down}        (vec2  0  1)
   #{:left}        (vec2 -1  0)
   #{:right}       (vec2  1  0)})

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; {{{ Game obect

(def system (mk-system "game" "game-canvas"))

(def pogue-game

        (let [{x :x y :y} (->
                            (v2/mul add (vec2 i i))
                            (v2/add pos)) ]
          (recur (tmp/set-tile tmap x y block)
                 (dec i)))
        tmap))))

(defn shit-h-line [tmap bl p len] (shit-line tmap bl p v2/right len))
(defn shit-v-line [tmap bl p len] (shit-line tmap bl p v2/down len))


(defn shit-box [tmap bl {:keys [x y] :as pos}  {w :x h :y}]
