suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tightened limit on radii; when too small, draw minimum instead of skipping

Browse Source 
svn: r6161
This commit is contained in:
Greg Cooper 2007-05-06 18:06:44 +00:00
parent e63ea001b1
commit 704faa0a4f
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/frtime/animation.ss
View File

@ -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)]