;; extensions to mcl-color-draw.lisp, Lee Spector, October 1997

(defun draw-color-oval (x y xsize ysize red green blue)
  "Paints a color oval in the drawing window. Red, green, and blue
should each be integers in the range 0-65535."
  (with-focused-view *draw-window*
    (with-fore-color (make-color red green blue)
      (fast-paint-oval x y (+ x xsize) (+ y ysize)))))

(defun fast-paint-oval (left &optional top right bot)
  "A version of PAINT-OVAL that does not focus the view --  should only
be called within a WITH-FOCUSED-VIEW."
  (ccl::with-rectangle-arg (r left top right bot) (#_PaintOval r)))

;; example
#|
(init-draw-window "color ovals" 200 400)
(draw-color-oval 0 0 20 20 65535 0 0)
(draw-color-oval 40 30 50 50 0 65535 0)
(draw-color-oval 20 90 150 150 0 0 65535)
(draw-color-oval 10 250 180 100 0 65535 65535)
|#