   []
   (.getWidth *applet*))
 
-(defmacro with-translation
-  "Berforms body with translation, restores current transformation on
+(defmacro
+  ^{:requires-bindings true
+    :processing-name nil
+    :category "Transform"
+    :subcategory "Utility Macros"}
+  with-translation
+  "Performs body with translation, restores current transformation on
   exit."
   [translation-vector & body]
   `(let [tr# ~translation-vector]

     ~@body
     (pop-matrix)))

(defmacro with-rotation
  "Performs body with rotation, restores current transformation on exit.
  Accepts a vector [angle] or [angle x-axis y-axis z-axis].


          (into {} (map (fn [[k v]] [(str k) v]) (sorted-category-map)))
          (sorted-category-map)))



(defn doc-cats
  "Print out a list of all the categories and subcategories,
  associated index nums and fn count (in parens)."
