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

added check for rings with too-small radii

Browse Source 
svn: r6160
This commit is contained in:
Greg Cooper 2007-05-06 17:52:41 +00:00
parent 7537babe99
commit e63ea001b1
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/frtime/animation.ss
View File

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