Partially working ellipse shader

2021-03-10 03:29:10 +01:00
parent bfbd0b6fef
commit cddf7d1f8f
12 changed files with 229 additions and 172 deletions
@@ -10,6 +10,7 @@ module Picture
    , thickCircle
    , circleSolid
    , circle
+    , ellipseSolid
    , line
    , lineCol
    , text
@@ -118,6 +119,10 @@ 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)