   [leading]
   (.textLeading (current-graphics) (float leading)))
 
-#+clj
 (defn
   ^{:requires-bindings true
     :processing-name "textMode()"

  []
  (.textDescent (current-graphics)))

#+clj
(defn
  ^{:requires-bindings true
    :processing-name "textFont()"

  (let [mode (resolve-constant-key mode texture-wrap-modes)]
    (.textureWrap (current-graphics) mode)))

(defn
  ^{:requires-bindings true
    :processing-name "textWidth()"
