outlined-ellipse
Categories: Image procedures
, Shape procedures
;;; (outlined-ellipse width height color line-width [description]) -> image?
;;; width : nonnegative-real?
;;; height : nonnegative-real?
;;; color : color?
;;; line-width : positive-integer?
;;; description : string?
;;; An ellipse of the specified width and height, outlined with a
;;; line of the specified color and width.
> (outlined-ellipse 50 20 "blue" 10)
> (outlined-ellipse 20 50 "red" 15)
> (check-true (ellipse? (outlined-ellipse 50 20 "blue" 10)))
> (check-= (image-width (outlined-ellipse 50 20 "blue" 10))
70
0.1)
> (check-= (image-height (outlined-ellipse 50 20 "blue" 10))
40
0.1)
> (check-equal? (image-color (outlined-ellipse 50 20 "blue" 10))
(color-name->rgb "blue"))
Forthcoming