Update all haddockRender output […]

Procedure:
  1. Run doctest, copy output
  2. Collect all »expected, but got« line pairs
  3. Create a shell script that does the replacements. I used sd. Script
      see below.
  4. Run the script, rerun doctest to check

First couple of lines of the script:
    sd --string-mode -- '-- docs/haddock/Draw/Plotting/example.svg'                         '-- Generated file: size 10KB, crc32: 0xd1cbdee'   src/**/*.hs
    sd --string-mode -- '-- docs/haddock/Geometry/Algorithms/Delaunay/delaunay_voronoi.svg' '-- Generated file: size 721KB, crc32: 0x23fb5b84' src/**/*.hs
    sd --string-mode -- '-- docs/haddock/Geometry/Algorithms/Delaunay/triangles.svg'        '-- Generated file: size 48KB, crc32: 0x34a3037f'  src/**/*.hs
    sd --string-mode -- '-- docs/haddock/Geometry/Algorithms/Delaunay/edges.svg'            '-- Generated file: size 96KB, crc32: 0xdce7fadb'  src/**/*.hs
    sd --string-mode -- '-- docs/haddock/Geometry/Algorithms/Delaunay/voronoi_corners.svg'  '-- Generated file: size 154KB, crc32: 0x20e77849' src/**/*.hs

Author: quchen

src/Draw.hs

@@ -146,7 +146,7 @@ data CoordinateSystem
         --                       def {_arrowDrawBody=False})
         --         stroke
         -- :}
-        -- docs/haddock/Draw/coordinate_system_cairo_standard.svg
+        -- Generated file: size 2KB, crc32: 0x22a87e3e
 
     | MathStandard_ZeroBottomLeft_XRight_YUp Double
         -- ^ __Right-handed coordinate system.__ Standard math coordinates, with
@@ -172,7 +172,7 @@ data CoordinateSystem
         --                       def {_arrowDrawBody=False})
         --         stroke
         -- :}
-        -- docs/haddock/Draw/coordinate_system_math_standard.svg
+        -- Generated file: size 3KB, crc32: 0xd33a20ee
 
     | MathStandard_ZeroCenter_XRight_YUp Double Double
         -- ^ __Right-handed coordinate system.__ Standard math coordinates, with
@@ -198,7 +198,7 @@ data CoordinateSystem
         --                       def {_arrowDrawBody=False})
         --         stroke
         -- :}
-        -- docs/haddock/Draw/coordinate_system_math_standard_centered.svg
+        -- Generated file: size 3KB, crc32: 0xe6e10f11
 
     deriving (Eq, Ord, Show)
 
@@ -336,7 +336,7 @@ lineToVec (Vec2 x y) = lineTo x y
 --     sketch (Bezier (Vec2 10 10) (Vec2 50 200) (Vec2 100 (-50)) (Vec2 140 90))
 --     stroke
 -- :}
--- docs/haddock/Draw/instance_Sketch_Bezier.svg
+-- Generated file: size 2KB, crc32: 0xe17dab02
 instance Sketch Bezier where
     sketch (Bezier start (Vec2 x1 y1) (Vec2 x2 y2) (Vec2 x3 y3)) = do
         moveToVec start
@@ -387,7 +387,7 @@ data Arrow = Arrow !Line !ArrowSpec
 --     sketch (Arrow (Line (Vec2 10 10) (Vec2 140 90)) def)
 --     stroke
 -- :}
--- docs/haddock/Draw/instance_Sketch_Arrow.svg
+-- Generated file: size 2KB, crc32: 0x2c724862
 instance Sketch Arrow where
     sketch (Arrow line ArrowSpec{..}) = do
         when _arrowDrawBody (sketch line)
@@ -448,7 +448,7 @@ instance Sketch a => Sketch (Maybe a) where
 --     sketch (Line (Vec2 10 10) (Vec2 140 90))
 --     stroke
 -- :}
--- docs/haddock/Draw/instance_Sketch_Line.svg
+-- Generated file: size 2KB, crc32: 0x9287e4a8
 instance Sketch Line where
     sketch (Line start end) = do
         moveToVec start
@@ -465,7 +465,7 @@ instance Sketch Line where
 --     sketch (Polyline [Vec2 10 10, Vec2 90 90, Vec2 120 10, Vec2 140 50])
 --     stroke
 -- :}
--- docs/haddock/Draw/instance_Sketch_Sequential_Vec2.svg
+-- Generated file: size 2KB, crc32: 0x5d5a0158
 instance Sketch Polyline where
     sketch (Polyline xs) = go xs
       where
@@ -484,7 +484,7 @@ instance Sketch Polyline where
 --     sketch (Polygon [Vec2 20 10, Vec2 10 80, Vec2 45 45, Vec2 60 90, Vec2 90 30])
 --     stroke
 -- :}
--- docs/haddock/Draw/instance_Sketch_Polygon.svg
+-- Generated file: size 2KB, crc32: 0x7f620554
 instance Sketch Polygon where
     sketch (Polygon []) = pure ()
     sketch (Polygon xs) = sketch (Polyline xs) >> closePath
@@ -498,7 +498,7 @@ instance Sketch Polygon where
 --     sketch (Circle (Vec2 50 50) 45)
 --     stroke
 -- :}
--- docs/haddock/Draw/instance_Sketch_Circle.svg
+-- Generated file: size 2KB, crc32: 0xebd35c6d
 instance Sketch Circle where
     sketch (Circle (Vec2 x y) r) = arc x y r 0 (2*pi)
 
@@ -513,7 +513,7 @@ instance Sketch Circle where
 --                         (toEllipse (Circle zero 45)))
 --     stroke
 -- :}
--- docs/haddock/Draw/instance_Sketch_Ellipse.svg
+-- Generated file: size 2KB, crc32: 0x25bae2ef
 --
 instance Sketch Ellipse where
     sketch (Ellipse t) = cairoScope $ do
@@ -540,7 +540,7 @@ data Cross = Cross
 --     sketch (Cross  (Vec2 60 20) 15) >> stroke
 --     sketch (Circle (Vec2 60 20) 15) >> stroke
 -- :}
--- docs/haddock/Draw/instance_Sketch_Cross.svg
+-- Generated file: size 2KB, crc32: 0xe2cb8567
 instance Sketch Cross where
     sketch (Cross center r) = do
         let lowerRight = G.transform (rotateAround center (deg 45)) (center +. Vec2 r 0)
@@ -562,7 +562,7 @@ instance Sketch Cross where
 --     setColor (mathematica97 1) >> sketch (G.translate (Vec2 110 50) <> G.rotate (deg 30)) >> stroke
 --     setColor (mathematica97 2) >> sketch (G.shear 0.5 0.2 <> G.translate (Vec2 140 0)) >> stroke
 -- :}
--- docs/haddock/Draw/instance_Sketch_Transformation.svg
+-- Generated file: size 4KB, crc32: 0x1f4ae5da
 instance Sketch Transformation where
     sketch t = do
         let grid = [Line (Vec2 0 y) (Vec2 100 y) | y <- map fromIntegral [0,20..100]]
@@ -601,7 +601,7 @@ arcSketchNegative (Vec2 x y) r angleStart angleEnd
 --     sketch (boundingBox geometry)
 --     stroke
 -- :}
--- docs/haddock/Draw/instance_Sketch_BoundingBox.svg
+-- Generated file: size 3KB, crc32: 0xfed2c044
 instance Sketch BoundingBox where
     sketch (BoundingBox (Vec2 xlo ylo) (Vec2 xhi yhi)) = do
         let w = xhi - xlo
@@ -644,7 +644,7 @@ instance Default CartesianParams where
 -- >>> :{
 -- haddockRender "Draw/cartesianCoordinateSystem.svg" 320 220 (cartesianCoordinateSystem def)
 -- :}
--- docs/haddock/Draw/cartesianCoordinateSystem.svg
+-- Generated file: size 21KB, crc32: 0xf43aac0c
 cartesianCoordinateSystem :: CartesianParams -> Render ()
 cartesianCoordinateSystem params@CartesianParams{..}  = grouped (paintWithAlpha _cartesianAlpha) $ do
     let vec2 x y = Vec2 (fromIntegral x) (fromIntegral y)
@@ -706,7 +706,7 @@ instance Default PolarParams where
 --     C.translate 50 50
 --     radialCoordinateSystem def
 -- :}
--- docs/haddock/Draw/radialCoordinateSystem.svg
+-- Generated file: size 26KB, crc32: 0x9b68b36
 radialCoordinateSystem :: PolarParams -> Render ()
 radialCoordinateSystem PolarParams{_polarCenter=center, _polarMaxRadius=maxR} = cairoScope $ do
     setLineWidth 1
@@ -771,7 +771,7 @@ withOperator op actions = do
 --     sketch line
 --     stroke
 -- :}
--- docs/haddock/Draw/cairoScope.svg
+-- Generated file: size 2KB, crc32: 0x2d7bee90
 --
 -- <<docs/haddock/Draw/cairoScope.svg>>
 cairoScope :: Render a -> Render a

src/Draw/Color.hs

@@ -50,7 +50,7 @@ class CairoColor color where
     --         sketch (Circle (Vec2 x 20) 10)
     --         C.fill
     -- :}
-    -- docs/haddock/Draw/Color/set_color.svg
+    -- Generated file: size 4KB, crc32: 0xe0e16234
     --
     -- <<docs/haddock/Draw/Color/set_color.svg>>
     setColor :: color -> C.Render ()

src/Draw/Plotting.hs

@@ -16,7 +16,7 @@
 --             for_ geometry $ \logoPart -> plot logoPart
 --     _plotPreview plotResult
 -- :}
--- docs/haddock/Draw/Plotting/example.svg
+-- Generated file: size 10KB, crc32: 0x1e175925
 module Draw.Plotting (
     -- * 'Plot' type
       Plot()

src/Draw/Text.hs

@@ -45,7 +45,7 @@ data HAlign = HLeft | HCenter | HRight deriving (Eq, Ord, Show)
 --     C.scale 3 3
 --     showTextAligned HCenter VCenter "Hello world!"
 -- :}
--- docs/haddock/Draw/Text/show_text_aligned.svg
+-- Generated file: size 8KB, crc32: 0xefcaecf4
 showTextAligned
     :: C.CairoString string
     => HAlign -- ^ Horizontal alignment
@@ -103,7 +103,7 @@ instance Default PlotTextOptions where
 --         glyphs = plotText opts "Hello world!"
 --     for_ glyphs $ \glyph -> sketch glyph >> stroke
 -- :}
--- docs/haddock/Draw/Text/plot_text.svg
+-- Generated file: size 7KB, crc32: 0xd253d9dd
 plotText :: PlotTextOptions -> String -> [Polyline]
 plotText options text = transform (translate (_textStartingPoint options) <> scaleToHeight <> halign <> valign) glyphs
   where

src/Geometry/Algorithms/Clipping.hs

@@ -35,7 +35,7 @@
 --         setColor (mathematica97 i)
 --         stroke
 -- :}
--- docs/haddock/Geometry/Algorithms/Clipping/complicated_intersection.svg
+-- Generated file: size 5KB, crc32: 0xd81cbd60
 module Geometry.Algorithms.Clipping (
       cutLineWithLine
     , CutLine(..)
@@ -85,7 +85,7 @@ import Geometry.Core
 --     sketch polygon
 --     stroke
 -- :}
--- docs/haddock/Geometry/Algorithms/Clipping/hatched_polygon.svg
+-- Generated file: size 2KB, crc32: 0x81dce6d7
 hatch
     :: Polygon
     -> Angle -- ^ Direction in which the lines will point. @'deg' 0@ is parallel to the x axis.

src/Geometry/Algorithms/Clipping/CohenSutherland.hs

@@ -46,7 +46,7 @@ import Util
 --         sketch (boundingBoxPolygon mask)
 --         C.stroke
 -- :}
--- docs/haddock/Geometry/Algorithms/Clipping/CohenSutherland/cohenSutherland.svg
+-- Generated file: size 22KB, crc32: 0xa5dc883f
 cohenSutherland :: BoundingBox -> Line -> Maybe Line
 cohenSutherland bb = \line -> let Line start end = line in loop line (outCode start) (outCode end)
   where

src/Geometry/Algorithms/Clipping/MargalitKnott.hs

@@ -320,7 +320,7 @@ margalitKnott op Regular (polygonA, polygonA_Type) (polygonB', polygonB_Type) =
 --         fill
 --     sketch (p1, p2) >> stroke
 -- :}
--- docs/haddock/Geometry/Algorithms/Clipping/MargalitKnott/union.svg
+-- Generated file: size 2KB, crc32: 0xcc4c9f5e
 unionPP :: Polygon -> Polygon -> [(Polygon, IslandOrHole)]
 unionPP = ppBinop Union
 
@@ -342,7 +342,7 @@ unionPP = ppBinop Union
 --         fill
 --     sketch (p1, p2) >> stroke
 -- :}
--- docs/haddock/Geometry/Algorithms/Clipping/MargalitKnott/intersection.svg
+-- Generated file: size 2KB, crc32: 0xdaf13db5
 intersectionPP :: Polygon -> Polygon -> [(Polygon, IslandOrHole)]
 intersectionPP = ppBinop Intersection
 
@@ -361,7 +361,7 @@ intersectionPP = ppBinop Intersection
 --         fill
 --     sketch (p1, p2) >> stroke
 -- :}
--- docs/haddock/Geometry/Algorithms/Clipping/MargalitKnott/difference.svg
+-- Generated file: size 2KB, crc32: 0x9388b325
 differencePP
     :: Polygon -- ^ A
     -> Polygon -- ^ B

src/Geometry/Algorithms/Clipping/SutherlandHodgman.hs

@@ -28,7 +28,7 @@ import Geometry.Core
 --     sketch subject >> setColor (mathematica97 1) >> stroke
 --     sketch scissors >> setColor (mathematica97 3) >> setDash [3,3] 0 >> stroke
 -- :}
--- docs/haddock/Geometry/Algorithms/Clipping/SutherlandHodgman/sutherland_hodgman.svg
+-- Generated file: size 2KB, crc32: 0x722cb97a
 sutherlandHodgman
     :: Polygon -- ^ Subject
     -> Polygon -- ^ __Convex__ scissors

src/Geometry/Algorithms/Delaunay.hs

@@ -50,7 +50,7 @@
 --         sketch edge
 --         stroke
 -- :}
--- docs/haddock/Geometry/Algorithms/Delaunay/delaunay_voronoi.svg
+-- Generated file: size 729KB, crc32: 0x640a6e45
 module Geometry.Algorithms.Delaunay (
     -- * Core
       delaunayTriangulation
@@ -142,7 +142,7 @@ delaunayTriangulation = Api.delaunayTriangulation . toVector
 --         sketch (growPolygon (-2) triangle)
 --         fill
 -- :}
--- docs/haddock/Geometry/Algorithms/Delaunay/triangles.svg
+-- Generated file: size 48KB, crc32: 0x960a4150
 delaunayTriangles :: Api.DelaunayTriangulation -> Vector Polygon
 delaunayTriangles = Api._triangles
 
@@ -167,7 +167,7 @@ delaunayTriangles = Api._triangles
 --         sketch edge
 --         stroke
 -- :}
--- docs/haddock/Geometry/Algorithms/Delaunay/edges.svg
+-- Generated file: size 97KB, crc32: 0xc283d1df
 delaunayEdges :: Api.DelaunayTriangulation -> Vector Line
 delaunayEdges = Api._edges
 
@@ -198,7 +198,7 @@ delaunayEdges = Api._edges
 --         sketch (Circle corner 2)
 --         fill
 -- :}
--- docs/haddock/Geometry/Algorithms/Delaunay/voronoi_corners.svg
+-- Generated file: size 155KB, crc32: 0xfd606083
 voronoiCorners :: Api.DelaunayTriangulation -> Vector Vec2
 voronoiCorners = Api._voronoiCorners
 
@@ -227,7 +227,7 @@ voronoiCorners = Api._voronoiCorners
 --         sketch edge
 --         stroke
 -- :}
--- docs/haddock/Geometry/Algorithms/Delaunay/voronoi_edges.svg
+-- Generated file: size 94KB, crc32: 0x8e95bd19
 voronoiEdges :: Api.DelaunayTriangulation -> Vector (Either Line Api.Ray)
 voronoiEdges = Api._voronoiEdges
 
@@ -258,7 +258,7 @@ voronoiEdges = Api._voronoiEdges
 --         sketch (growPolygon (-2) polygon)
 --         fill
 -- :}
--- docs/haddock/Geometry/Algorithms/Delaunay/voronoi_cells.svg
+-- Generated file: size 37KB, crc32: 0x8587a040
 voronoiCells :: Api.DelaunayTriangulation -> Vector Api.VoronoiPolygon
 voronoiCells = Api._voronoiCells
 
@@ -287,7 +287,7 @@ voronoiCells = Api._voronoiCells
 --         setColor (mathematica97 3)
 --         fill
 -- :}
--- docs/haddock/Geometry/Algorithms/Delaunay/convex_hull.svg
+-- Generated file: size 37KB, crc32: 0x461696a3
 delaunayHull :: Api.DelaunayTriangulation -> Vector Vec2
 delaunayHull = Api._convexHull
 
@@ -335,7 +335,7 @@ delaunayHull = Api._convexHull
 --             setColor (mathematica97 i)
 --             sketch (Line needle closest) >> stroke
 -- :}
--- docs/haddock/Geometry/Algorithms/Delaunay/find_triangle.svg
+-- Generated file: size 181KB, crc32: 0x6d8c142f
 findClosestInputPoint
     :: Api.DelaunayTriangulation
     -> Vec2 -- ^ Needle
@@ -380,7 +380,7 @@ findClosestInputPoint = Api._findClosestInputPoint
 --         sketch (growPolygon (-2) polygon)
 --         fill
 -- :}
--- docs/haddock/Geometry/Algorithms/Delaunay/lloyd_relaxation.svg
+-- Generated file: size 37KB, crc32: 0x7130f1e1
 lloydRelaxation
     :: (HasBoundingBox boundingBox, Sequential vector)
     => boundingBox

src/Geometry/Algorithms/Sampling.hs

@@ -48,7 +48,7 @@ import Geometry.Algorithms.Sampling.PoissonDisc
 --         sketch (Circle p 2)
 --         fill
 -- :}
--- docs/haddock/Geometry/Algorithms/Sampling/uniform.svg
+-- Generated file: size 263KB, crc32: 0x29e19f0e
 uniformlyDistributedPoints
     :: (PrimMonad m, HasBoundingBox boundingBox)
     => Gen (PrimState m) -- ^ RNG from mwc-random. 'create' yields the default (static) RNG.
@@ -81,7 +81,7 @@ uniformlyDistributedPoints gen bb count = V.replicateM count randomPoint
 --         sketch (Circle p 2)
 --         fill
 -- :}
--- docs/haddock/Geometry/Algorithms/Sampling/gaussian.svg
+-- Generated file: size 267KB, crc32: 0xdffc4138
 gaussianDistributedPoints
     :: (PrimMonad m, HasBoundingBox boundingBox)
     => Gen (PrimState m) -- ^ RNG from mwc-random. 'create' yields the default (static) RNG.
@@ -125,7 +125,7 @@ gaussianDistributedPoints gen container covariance count = V.replicateM count ra
 --         sketch (Circle p 2)
 --         fill
 -- :}
--- docs/haddock/Geometry/Algorithms/Sampling/rejection.svg
+-- Generated file: size 263KB, crc32: 0x38511a1
 rejection
     :: (PrimMonad m, HasBoundingBox boundingBox)
     => Gen (PrimState m) -- ^ RNG from mwc-random. 'create' yields the default (static) RNG.

src/Geometry/Algorithms/Sampling/PoissonDisc.hs

@@ -51,7 +51,7 @@ newtype CellSize = CellSize Double
 --         sketch (Circle p 2)
 --         fill
 -- :}
--- docs/haddock/Geometry/Algorithms/Sampling/PoissonDisc/poisson_disc.svg
+-- Generated file: size 115KB, crc32: 0x43236d3e
 poissonDisc
     :: (PrimMonad m, HasBoundingBox boundingBox)
     => Gen (PrimState m) -- ^ RNG from mwc-random. 'create' yields the default (static) RNG.
@@ -119,7 +119,7 @@ poissonDisc gen bb' radius k = do
 --                     paint color (i+1) child
 --     for_ (zip [flare, crest, flare] initialPoints) $ \(color, p0) -> paint color 0 p0
 -- :}
--- docs/haddock/Geometry/Algorithms/Sampling/PoissonDisc/poisson_disc_forest.svg
+-- Generated file: size 474KB, crc32: 0x28fe4a90
 poissonDiscForest
     :: (PrimMonad m, HasBoundingBox boundingBox)
     => Gen (PrimState m)       -- ^ RNG from mwc-random. 'create' yields the default (static) RNG.

src/Geometry/Algorithms/Triangulate.hs

@@ -44,7 +44,7 @@ import Util
 --         sketch polygon
 --         C.stroke
 -- :}
--- docs/haddock/Geometry/Algorithms/Triangulate/triangulate.svg
+-- Generated file: size 4KB, crc32: 0xf8dda52c
 triangulate :: Polygon -> [Polygon]
 triangulate polygon = case clipEar polygon of
     (ear, Nothing) -> [ear]

src/Geometry/Bezier.hs

@@ -188,7 +188,7 @@ bezierSubdivideT n bz = map (bezierT bz) points
 --         cairoScope (setColor (mathematica97 3) >> circle u)
 --         cairoScope (setColor (black `withOpacity` 0.2) >> connect e u)
 -- :}
--- docs/haddock/Geometry/Bezier/subdivide_s_t_comparison.svg
+-- Generated file: size 17KB, crc32: 0x7c147951
 bezierSubdivideS :: Int -> Bezier -> [Vec2]
 bezierSubdivideS n bz = map bezier distances
   where
@@ -301,7 +301,7 @@ s_to_t_lut_ode bz ds = LookupTable1 (sol_to_vec sol)
 --     C.setLineWidth 2
 --     for_ (bezierSmoothenLoop points) prettyBezier
 -- :}
--- docs/haddock/Geometry/Bezier/bezierSmoothen.svg
+-- Generated file: size 15KB, crc32: 0x9f26361e
 bezierSmoothen :: Sequential vector => vector Vec2 -> Vector Bezier
 bezierSmoothen vecSequence
     | V.head vec == V.last vec = bezierSmoothenLoop vec