src/clojurecraft/units.clj @ 6f54b979c6b5

(ns clojurecraft.units
  (:use [clojurecraft.util])
  )

(defn to-pixels [n type]
  (case type
    :pixels [n :pixels]
    :meters [(* 32 n) :meters]))

(defn to-meters [n type]
  (case type
    :meters [n :meters]
    :pixels [(/ n 32) :pixels]))