Skip to content

Instantly share code, notes, and snippets.

@angerman

angerman/renderer.clj

Created March 16, 2011 09:06
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save angerman/872217 to your computer and use it in GitHub Desktop.
Save angerman/872217 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
renderer.clj
(defmulti depth-comp (fn [a b] [(type a) (type b)]))
(defmethod depth-comp [::Point ::Edge] [p e]
(< (min-depth p) (min-depth e)))
(defmethod depth-comp [::Edge ::Point] [e p]
(< (min-depth p) (min-depth e)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment