RE: circle-segments

• To: clim@BBN.COM
• Subject: RE: circle-segments
• From: Jeff Morrill <jmorrill@BBN.COM>
• Date: Mon, 16 Dec 91 18:35:53 -0500
• Cc: jmorrill@BBN.COM

Here is some code that might help you folks with the NYI bug.
You probably don't want to use it verbatim, but it shows a
workaround for the problem.

jeff morrill
jmorrill@bbn.com

(defconstant 2pi (* 2 pi))

(defun DRAW-CIRCLE (u v radius &key (filled nil) (stream *standard-output*)
		    (alu %alu) (start-angle 0 start-p) (end-angle 2pi end-p)
		    &allow-other-keys)
  ;; 30 Sep 91.  CLIM 1.0 bug was detected for start-angle and end-angle.
  ;; Hence won't pass those keywords along unless supplied.
  #+clim (if (or start-p end-p)
	     (clim:draw-circle* stream u v radius :ink alu :filled filled
				:start-angle start-angle :end-angle end-angle)
	     (clim:draw-circle* stream u v radius :ink alu :filled filled))
  #-clim (graphics:draw-circle u v radius :stream stream :alu alu :filled filled
			       :start-angle start-angle :end-angle end-angle))


0,,

• Prev: RE: circle-segments
• Next: No circle-segments with CLIM?
• Index: CLIM Mailing list (5-Oct-90 to 31-Dec-91)
• Thread: CLIM Mailing list Index (5-Oct-90 to 31-Dec-91)