     (set! (.-fillStyle ctx) points-color)
     (doseq [{:keys [latitude longitude]} classifications]
       (let [x (lat->canvas-y latitude canvas)
-            y (long->screen-x longitude canvas)]
+            y (long->canvas-x longitude canvas)]
         (.beginPath ctx)
         (.arc ctx y x radius (* 2 pi) false)
         (.fill ctx)))))

     (> adj-lat 180) 0
     :else (- height (* adj-lat(/ height 180))))))

(defn long->screen-x
  [long canvas]
  (let [adj-long (+ (* 1 long) 180)
        width (parse-int (.-width canvas))]

      (.beginPath ctx)
      (doseq [pt shape]
        (let [lat (lat->canvas-y (parse-int (:lat pt)) canvas)
              long (long->canvas-x (parse-int (:lon pt)) canvas)]
          (.lineTo ctx long lat)))
      (.fill ctx)
      (.stroke ctx))))
