From e63ea001b1555541025f94f1c2cb2be89400dcf6 Mon Sep 17 00:00:00 2001 From: Greg Cooper Date: Sun, 6 May 2007 17:52:41 +0000 Subject: [PATCH] added check for rings with too-small radii svn: r6160 --- collects/frtime/animation.ss | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/collects/frtime/animation.ss b/collects/frtime/animation.ss index 83a9c84179..57c835e2d7 100644 --- a/collects/frtime/animation.ss +++ b/collects/frtime/animation.ss @@ -96,12 +96,13 @@ (match-lambda [(? undefined?) (void)] [($ ring center radius color) - ((draw-ellipse pixmap) - (make-posn (- (posn-x center) radius) - (- (posn-y center) radius)) - (* 2 radius) - (* 2 radius) - color)] + (when (> radius 2) + ((draw-ellipse pixmap) + (make-posn (- (posn-x center) radius) + (- (posn-y center) radius)) + (* 2 radius) + (* 2 radius) + color))] [($ solid-ellipse ul w h color) ((draw-solid-ellipse pixmap) ul w h color)] [($ graph-string pos text color) ((draw-string pixmap) pos text color)]