   ([min max] (.random *applet* (float min) (float max))))
 
 
-(defn random-seed [w] (.randomSeed *applet* (float w)))
+(defn random-seed
+  "Sets the seed value for random. By default, random produces
+  different results each time the program is run. Set the value
+  parameter to a constant to return the same pseudo-random numbers
+  each time the software is run."
+  [w]
+  (.randomSeed *applet* (float w)))
 
 (defn rect
   "Draws a rectangle to the screen. A rectangle is a four-sided shape


(defn emissive
  "Sets the emissive color of the material used for drawing shapes
   drawn to the screen. Used in combination with ambient, specular,
   and shininess in setting the material properties of shapes.

  If passed one arg - it is assumed to be an int (i.e. a color),
   multiple args are converted to floats."
  ([c] (if (int-like? c) (emissive-int c) (emissive-float c)))
  ([r g b] (emissive-float r g b)))


  ([rgb alpha] (.stroke *applet* (int rgb) (float alpha))))

(defn stroke
  "Sets the color used to draw lines and borders around shapes. This
  color is either specified in terms of the RGB or HSB color depending
  on the current color-mode (the default color space is RGB, with
  each value in the range from 0 to 255)."
  ([rgb] (if (int-like? rgb) (stroke-int rgb) (stroke-float rgb)))
  ([rgb alpha] (if (int-like? rgb) (stroke-int rgb alpha) (stroke-float rgb alpha)))
  ([x y z] (stroke-float x y z))
