Allow for interpolating colors from center to edge of ellipses

src/Picture.hs

@@ -9,8 +9,8 @@ module Picture
     , thickArc
     , thickCircle
     , circleSolid
+    , circleSolidCol
     , circle
-    , ellipseSolid
     , line
     , lineCol
     , text
@@ -119,14 +119,13 @@ makeArc rad (a,b) = zipWith rotateV as $ repeat (0,rad)
     where as = [a,a+step.. b]
           step = pi * 0.2
 
-ellipseSolid :: Point2 -> Point2 -> Float -> Picture
-{-# INLINE ellipseSolid #-}
-ellipseSolid = Ellipse 0
-
 circleSolid :: Float -> Picture
 {-# INLINE circleSolid #-}
---circleSolid rad = polygon $ makeArc rad (0,2*pi)
-circleSolid = Circle 0
+circleSolid = Circle 0 white white
+
+circleSolidCol :: Color -> Color -> Float -> Picture
+{-# INLINE circleSolidCol #-}
+circleSolidCol = Circle 0
 
 circle :: Float -> Picture
 {-# INLINE circle #-}