From 704faa0a4f4bf1b5b46634a59e5a1124a2b27463 Mon Sep 17 00:00:00 2001 From: Greg Cooper Date: Sun, 6 May 2007 18:06:44 +0000 Subject: [PATCH] tightened limit on radii; when too small, draw minimum instead of skipping svn: r6161 --- collects/frtime/animation.ss | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/collects/frtime/animation.ss b/collects/frtime/animation.ss index 57c835e2d7..8a29300e97 100644 --- a/collects/frtime/animation.ss +++ b/collects/frtime/animation.ss @@ -96,13 +96,12 @@ (match-lambda [(? undefined?) (void)] [($ ring center radius color) - (when (> radius 2) - ((draw-ellipse pixmap) - (make-posn (- (posn-x center) radius) - (- (posn-y center) radius)) - (* 2 radius) - (* 2 radius) - color))] + ((draw-ellipse pixmap) + (make-posn (- (posn-x center) radius) + (- (posn-y center) radius)) + (max 2 (* 2 radius)) + (max 2 (* 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)]