   ([^String s x y z] (.text (current-graphics) s (float x) (float y) (float z)))
   ([^String s x1 y1 x2 y2] (.text (current-graphics) s (float x1) (float y1) (float x2) (float y2))))
 
-#+clj
 (defn
   ^{:requires-bindings true
     :processing-name "textAlign()"

  [leading]
  (.textLeading (current-graphics) (float leading)))

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

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

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