 
 (defn normal [nx ny nz] (.normal *applet* (float nx) (float ny) (float nz)))
 
-(defn no-smooth [] (.noSmooth *applet*))
+(defn no-smooth
+  "Draws all geometry with jagged (aliased) edges."
+  [] (.noSmooth *applet*))
 
 (defn no-stroke [] (.noStroke *applet*))
 

;; $$handleDraw
;; $$hex

(defn height [] (.getHeight *applet*))

(defn hint [which] (.hint *applet* (int which)))


;; $$str

(defn stroke-float
  "Sets the color used to draw lines and borders around shapes."
  ([gray] (.stroke *applet* (float gray)))
  ([gray alpha] (.stroke *applet* (float gray) (float alpha)))
  ([x y z] (.stroke *applet* (float x) (float y) (float z)))
  ([x y z a] (.stroke *applet* (float x) (float y) (float z) (float a))))

(defn stroke-int
  "Sets the color used to draw lines and borders around shapes."
  ([rgb] (.stroke *applet* (int rgb)))
  ([rgb alpha] (.stroke *applet* (int rgb) (float alpha))))

(def ^{:arglists (:arglists (meta #'stroke-float))
       :doc (:doc (meta #'stroke-float))}
  stroke stroke-float)

(defn stroke-cap [cap] (.strokeCap *applet* (int cap)))

(defn stroke-join [jn] (.strokeJoin *applet* (int jn)))

(defn stroke-weight
  "Sets the width of the stroke used for lines, points, and the border around
  shapes. All widths are set in units of pixels. "
  [weight]
  (.strokeWeight *applet* (float weight)))

;; $$subset

