   specify the beginning control point and the last two parameters
   specify the ending control point. The middle parameters specify the
   start and stop of the curve. Longer curves can be created by putting
-  a series of curve fns together or using curve-vertex. An additional
-  fn called curve-tightness provides control for the visual quality of
-  the curve. The curve fn is an implementation of Catmull-Rom
+  a series of curve functions together or using [[curve-vertex]]. An additional
+  function called [[curve-tightness]] provides control for the visual quality
+  of the curve. The [[curve]] function is an implementation of Catmull-Rom
   splines."
   ([x1 y1 x2 y2 x3 y3 x4 y4]
    (.curve (current-graphics)

    :subcategory "Mouse"
    :added "1.0"}
  mouse-button
  "The value of the system variable mouseButton is either :left, :right,
  or :center depending on which button is pressed. nil if no button pressed"
  []
  (let [button-code   (.-mouseButton (ap/current-applet))]
    #?(:clj

    :subcategory "Setting"
    :added "1.0"}
  no-fill
  "Disables filling geometry. If both [[no-stroke]] and [[no-fill]] are called,
  nothing will be drawn to the screen."
  []
  (.noFill (current-graphics))
  (swap! (internal-state) assoc :current-fill nil))

