     ctx)
 
 (defn draw-point [ctx color x y scale]
-	(draw-rect ctx color x y scale scale))
+  (draw-rect ctx color x y scale scale))
 
 (defn draw-row [ctx color x y row size scale]
     (loop [counter 0]

            (recur (pick-rand-int 0 WORLD-SIZE) (pick-rand-int 0 WORLD-SIZE) (dec counter))))))


;;CANVAS
(def $world-canvas ($ :#world-canvas))


(def info-canvas (mo/get-context (.get $info-canvas 0) "2d"))

(defn draw-line [ctx startx starty finishx finishy]
  (do
    (mo/move-to ctx startx starty)
    (mo/line-to ctx finishx finishy)
    (mo/stroke ctx)))

(defn draw-rect [ctx [r g b] x y w h]
  (set! (. ctx -fillStyle) (str "rgb(" r "," g "," b ")"))
