hg.stevelosh.com > clojurecraft

src/clojurecraft/units.clj @ 8af375fc623f 

Moar.
author Steve Losh <steve@stevelosh.com>
date Mon, 27 Jun 2011 22:21:33 -0400
parents (none)
children 580584e8bfbd 
(ns clojurecraft.units)

(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]))