diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,11 @@
# Revision history for granite
+## 0.7.0.0 -- 2026-05-24
+
+* `Color` is now a 24-bit RGB value, and categorical colour mappings are honoured for points.
+* Scatter plots now respect point colours.
+
+
## 0.5.0.0 -- 2026-05-13
A major refactor introducing a declarative, Grammar-of-Graphics-style
diff --git a/app/GenerateTutorial.hs b/app/GenerateTutorial.hs
deleted file mode 100644
--- a/app/GenerateTutorial.hs
+++ /dev/null
@@ -1,796 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-{- |
-Regenerate @docs/tutorial.md@ from @docs/base/tutorial.md@ by
-rendering each @\@ marker to an SVG under
-@docs/images/@ and inserting the image link after the code block.
--}
-module Main where
-
-import Control.Monad (forM_)
-import Data.List qualified as List
-import Data.Text (Text)
-import Data.Text qualified as Text
-import Data.Text.IO qualified as Text.IO
-import System.Directory (createDirectoryIfMissing)
-import System.FilePath (())
-
-import Granite.Color (Color (..))
-import Granite.Data.Frame
-import Granite.Render.Pipeline (renderChartSvg)
-import Granite.Spec
-
-baseFile, outputFile, imagesDir :: FilePath
-baseFile = "docs/base/tutorial.md"
-outputFile = "docs/tutorial.md"
-imagesDir = "docs/images"
-
-main :: IO ()
-main = do
- createDirectoryIfMissing True imagesDir
- src <- Text.IO.readFile baseFile
- let rendered = renderTutorial src
- Text.IO.writeFile outputFile rendered
- forM_ fixtures $ \(slug, chart) -> do
- let svgPath = imagesDir Text.unpack slug <> ".svg"
- Text.IO.writeFile svgPath (renderChartSvg chart)
- putStrLn $ "Wrote " <> outputFile
- putStrLn $ "Wrote " <> show (length fixtures) <> " SVGs under " <> imagesDir
-
-renderTutorial :: Text -> Text
-renderTutorial src = Text.unlines (go (Text.lines src))
- where
- go :: [Text] -> [Text]
- go [] = []
- go (line : rest) = case chartSlug line of
- Just slug ->
- let (block, afterBlock) = takeCodeBlock rest
- output = renderChartOutput slug
- in line : block <> output <> go afterBlock
- Nothing -> line : go rest
-
-chartSlug :: Text -> Maybe Text
-chartSlug ln =
- let stripped = Text.strip ln
- in case Text.stripPrefix "" (Text.strip rest) of
- Just slug -> Just (Text.strip slug)
- Nothing -> Nothing
- Nothing -> Nothing
-
-takeCodeBlock :: [Text] -> ([Text], [Text])
-takeCodeBlock = goOpen []
- where
- goOpen acc [] = (reverse acc, [])
- goOpen acc (ln : rest)
- | Text.isPrefixOf "```" (Text.stripStart ln) =
- goClose (ln : acc) rest
- | otherwise = goOpen (ln : acc) rest
-
- goClose acc [] = (reverse acc, [])
- goClose acc (ln : rest)
- | Text.isPrefixOf "```" (Text.stripStart ln) =
- (reverse (ln : acc), rest)
- | otherwise = goClose (ln : acc) rest
-
-renderChartOutput :: Text -> [Text]
-renderChartOutput slug = case lookup slug fixtures of
- Nothing ->
- [ ""
- , "> _(no fixture for chart slug `" <> slug <> "` — skipped)_"
- ]
- Just _chart ->
- let imgRel = "images/" <> slug <> ".svg"
- in [ ""
- , "![" <> slug <> "](" <> imgRel <> ")"
- ]
-
-fixtures :: [(Text, Chart)]
-fixtures =
- [ ("scatter", scatterChart)
- , ("line", lineChart)
- , ("bar", barChart)
- , ("bar-horizontal", barHorizontal)
- , ("bar-stacked", barStacked)
- , ("bar-grouped", barGrouped)
- , ("pie", pieChart)
- , ("area", areaChart)
- , ("histogram", histChart)
- , ("boxplot", boxChart)
- , ("errorbar", errorbarChart)
- , ("density", densityChart)
- , ("distplot", distplotChart)
- , ("heatmap", heatmapChart)
- , ("heatmap-annotated", heatmapAnnotated)
- , ("funnel", funnelChart)
- , ("waterfall", waterfallChart)
- , ("polar", polarChart)
- , ("facet", facetChart)
- , ("log-y", logYChart)
- , ("layer-bar-line", barLineChart)
- , ("layer-scatter-radius", scatterRadiusChart)
- , ("layer-scatter-fit", scatterFitChart)
- , ("layer-line-ribbon", lineRibbonChart)
- ]
-
-scatterChart :: Chart
-scatterChart =
- let xs = [0, 1, 2, 3, 4] :: [Double]
- ys = [0, 1, 4, 9, 16] :: [Double]
- df = fromColumns [("x", ColNum xs), ("y", ColNum ys)]
- layer =
- (defLayer GeomPoint)
- { layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "x")
- , aesY = Just (ColumnRef "y")
- }
- }
- in emptyChart
- { chartData = df
- , chartLayers = [layer]
- , chartTitle = Just "y = x^2"
- , chartSize = SizeChars 40 14
- }
-
-lineChart :: Chart
-lineChart =
- let xs = [0, 0.5 .. 6.0] :: [Double]
- ys = map sin xs
- df = fromColumns [("x", ColNum xs), ("y", ColNum ys)]
- layer =
- (defLayer GeomLine)
- { layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "x")
- , aesY = Just (ColumnRef "y")
- }
- }
- in emptyChart
- { chartData = df
- , chartLayers = [layer]
- , chartTitle = Just "sin(x)"
- , chartSize = SizeChars 50 14
- }
-
-barChart :: Chart
-barChart =
- let xs = ["A", "B", "C", "D"]
- ys = [12, 7, 18, 9] :: [Double]
- df = fromColumns [("x", ColCat xs), ("y", ColNum ys)]
- layer =
- (defLayer GeomBar)
- { layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "x")
- , aesY = Just (ColumnRef "y")
- }
- , layerStat = StatIdentity
- }
- in emptyChart
- { chartData = df
- , chartLayers = [layer]
- , chartTitle = Just "Bars"
- , chartSize = SizeChars 40 14
- }
-
-barHorizontal :: Chart
-barHorizontal =
- let xs = ["Alpha", "Bravo", "Charlie", "Delta", "Echo"]
- ys = [82, 67, 45, 33, 21] :: [Double]
- df = fromColumns [("item", ColCat xs), ("value", ColNum ys)]
- layer =
- (defLayer GeomBar)
- { layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "item")
- , aesY = Just (ColumnRef "value")
- }
- , layerStat = StatIdentity
- }
- in emptyChart
- { chartData = df
- , chartLayers = [layer]
- , chartCoord = CoordFlip
- , chartTitle = Just "Top 5 (horizontal)"
- , chartSize = SizeChars 60 16
- }
-
-barStackedFrame :: DataFrame
-barStackedFrame =
- let quarters = concat [replicate 3 q | q <- ["Q1", "Q2", "Q3", "Q4"]]
- products = take 12 (cycle ["Widgets", "Gadgets", "Gizmos"])
- sales = [12, 8, 4, 15, 10, 6, 18, 12, 8, 22, 14, 10] :: [Double]
- in fromColumns
- [ ("quarter", ColCat quarters)
- , ("product", ColCat products)
- , ("sales", ColNum sales)
- ]
-
-barStacked :: Chart
-barStacked =
- let layer =
- (defLayer GeomBar)
- { layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "quarter")
- , aesY = Just (ColumnRef "sales")
- , aesGroup = Just (ColumnRef "product")
- , aesFill = Just (ColumnRef "product")
- }
- , layerStat = StatIdentity
- , layerPosition = PosStack
- }
- in emptyChart
- { chartData = barStackedFrame
- , chartLayers = [layer]
- , chartTitle = Just "Sales by quarter (stacked)"
- , chartSize = SizeChars 60 16
- }
-
-barGrouped :: Chart
-barGrouped =
- barStacked
- { chartLayers =
- [ (List.head (chartLayers barStacked))
- { layerPosition = PosDodge 0.25
- }
- ]
- , chartTitle = Just "Sales by quarter (grouped)"
- }
-
-pieChart :: Chart
-pieChart =
- let df =
- fromColumns
- [ ("slice", ColCat ["A", "B", "C", "D"])
- , ("value", ColNum [40, 25, 20, 15])
- ]
- layer =
- (defLayer GeomArc)
- { layerMapping = emptyMapping{aesY = Just (ColumnRef "value")}
- }
- in emptyChart
- { chartData = df
- , chartLayers = [layer]
- , chartTitle = Just "Pie"
- , chartSize = SizeChars 30 16
- }
-
-areaChart :: Chart
-areaChart =
- let xs = [0 .. 12] :: [Double]
- ymax = [sin (x / 2) + 2 | x <- xs]
- zeros = replicate (length xs) 0 :: [Double]
- df =
- fromColumns
- [ ("x", ColNum xs)
- , ("ymin", ColNum zeros)
- , ("ymax", ColNum ymax)
- ]
- layer =
- (defLayer GeomRibbon)
- { layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "x")
- , aesYmin = Just (ColumnRef "ymin")
- , aesYmax = Just (ColumnRef "ymax")
- }
- }
- in emptyChart
- { chartData = df
- , chartLayers = [layer]
- , chartTitle = Just "Filled area"
- , chartSize = SizeChars 56 14
- }
-
-histChart :: Chart
-histChart =
- let raw = take 50 (cycle [1.0, 1.2, 1.8, 2.0, 2.3, 2.7, 3.1, 3.4, 3.8, 4.2])
- df = fromColumns [("x", ColNum raw)]
- layer =
- (defLayer GeomHistogram)
- { layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "x")
- , aesY = Just (ColumnRef "count")
- }
- , layerStat = StatBin (BinByCount 8)
- }
- in emptyChart
- { chartData = df
- , chartLayers = [layer]
- , chartTitle = Just "Histogram"
- , chartSize = SizeChars 44 14
- }
-
-boxChart :: Chart
-boxChart =
- let pts =
- [("A", v) | v <- [1, 2, 3, 4, 5, 6, 7, 8, 9 :: Double]]
- <> [("B", v) | v <- [3, 4, 5, 6, 7, 8, 9, 10, 11]]
- <> [("C", v) | v <- [5, 6, 7, 8, 9, 10, 11, 12, 13]]
- df =
- fromColumns
- [ ("g", ColCat [g | (g, _) <- pts])
- , ("y", ColNum [v | (_, v) <- pts])
- ]
- layer =
- (defLayer GeomBoxplot)
- { layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "g")
- , aesY = Just (ColumnRef "y")
- }
- , layerStat = StatBoxplot
- }
- in emptyChart
- { chartData = df
- , chartLayers = [layer]
- , chartTitle = Just "Boxplot"
- , chartSize = SizeChars 40 16
- }
-
-errorbarChart :: Chart
-errorbarChart =
- let xs = [1 .. 5] :: [Double]
- ys = [2.1, 3.5, 5.2, 4.7, 6.1] :: [Double]
- los = [1.5, 2.8, 4.6, 4.0, 5.3] :: [Double]
- his = [2.7, 4.2, 5.8, 5.4, 6.9] :: [Double]
- df =
- fromColumns
- [ ("x", ColNum xs)
- , ("y", ColNum ys)
- , ("lo", ColNum los)
- , ("hi", ColNum his)
- ]
- m =
- emptyMapping
- { aesX = Just (ColumnRef "x")
- , aesY = Just (ColumnRef "y")
- , aesYmin = Just (ColumnRef "lo")
- , aesYmax = Just (ColumnRef "hi")
- }
- bars = (defLayer GeomErrorbar){layerMapping = m, layerStat = StatIdentity}
- pts = (defLayer GeomPoint){layerMapping = m, layerStat = StatIdentity}
- in emptyChart
- { chartData = df
- , chartLayers = [bars, pts]
- , chartTitle = Just "Measurements +/- CI"
- , chartSize = SizeChars 56 14
- }
-
-densitySample :: [Double]
-densitySample =
- [ 1.0
- , 1.2
- , 1.3
- , 1.5
- , 1.7
- , 2.0
- , 2.1
- , 2.3
- , 2.5
- , 2.8
- , 3.0
- , 3.1
- , 3.3
- , 3.7
- , 3.9
- , 4.0
- ]
-
-densityChart :: Chart
-densityChart =
- let df = fromColumns [("x", ColNum densitySample)]
- layer =
- (defLayer GeomDensity)
- { layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "x")
- , aesY = Just (ColumnRef "density")
- }
- , layerStat = StatDensity
- }
- in emptyChart
- { chartData = df
- , chartLayers = [layer]
- , chartTitle = Just "Density (KDE)"
- , chartSize = SizeChars 56 14
- }
-
-distplotChart :: Chart
-distplotChart =
- let df = fromColumns [("x", ColNum densitySample)]
- hist =
- (defLayer GeomHistogram)
- { layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "x")
- , aesY = Just (ColumnRef "count")
- }
- , layerStat = StatBin (BinByCount 8)
- }
- kde =
- (defLayer GeomDensity)
- { layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "x")
- , aesY = Just (ColumnRef "density")
- }
- , layerStat = StatDensity
- }
- in emptyChart
- { chartData = df
- , chartLayers = [hist, kde]
- , chartTitle = Just "Distribution"
- , chartSize = SizeChars 56 16
- }
-
-heatmapCoords :: [(Double, Double, Double)]
-heatmapCoords =
- [ ( fromIntegral x
- , fromIntegral y
- , sin (fromIntegral x / 2) + cos (fromIntegral y / 2)
- )
- | x <- [0 .. 4 :: Int]
- , y <- [0 .. 4 :: Int]
- ]
-
-heatmapChart :: Chart
-heatmapChart =
- let df =
- fromColumns
- [ ("x", ColNum [x | (x, _, _) <- heatmapCoords])
- , ("y", ColNum [y | (_, y, _) <- heatmapCoords])
- , ("z", ColNum [z | (_, _, z) <- heatmapCoords])
- ]
- layer =
- (defLayer GeomTile)
- { layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "x")
- , aesY = Just (ColumnRef "y")
- , aesFill = Just (ColumnRef "z")
- }
- , layerStat = StatIdentity
- }
- in emptyChart
- { chartData = df
- , chartLayers = [layer]
- , chartTitle = Just "Heatmap"
- , chartSize = SizeChars 48 16
- }
-
-heatmapAnnotated :: Chart
-heatmapAnnotated =
- let labels = [Text.pack (show (round (z * 10) :: Int)) | (_, _, z) <- heatmapCoords]
- df =
- fromColumns
- [ ("x", ColNum [x | (x, _, _) <- heatmapCoords])
- , ("y", ColNum [y | (_, y, _) <- heatmapCoords])
- , ("z", ColNum [z | (_, _, z) <- heatmapCoords])
- , ("label", ColCat labels)
- ]
- tile =
- (defLayer GeomTile)
- { layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "x")
- , aesY = Just (ColumnRef "y")
- , aesFill = Just (ColumnRef "z")
- }
- , layerStat = StatIdentity
- }
- label =
- (defLayer GeomText)
- { layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "x")
- , aesY = Just (ColumnRef "y")
- , aesLabel = Just (ColumnRef "label")
- }
- , layerStat = StatIdentity
- }
- in emptyChart
- { chartData = df
- , chartLayers = [tile, label]
- , chartTitle = Just "Annotated heatmap"
- , chartSize = SizeChars 48 16
- }
-
-funnelChart :: Chart
-funnelChart =
- let xs = ["Visited", "Signed up", "Confirmed", "Active", "Paid"]
- ys = [1000, 720, 480, 220, 120] :: [Double]
- df = fromColumns [("stage", ColCat xs), ("count", ColNum ys)]
- layer =
- (defLayer GeomBar)
- { layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "stage")
- , aesY = Just (ColumnRef "count")
- }
- , layerStat = StatIdentity
- }
- in emptyChart
- { chartData = df
- , chartLayers = [layer]
- , chartCoord = CoordFlip
- , chartTitle = Just "Sales funnel"
- , chartSize = SizeChars 60 14
- }
-
-waterfallChart :: Chart
-waterfallChart =
- let xs = ["Start", "Q1", "Q2", "Q3", "Refund", "Net"]
- ystart = [0, 100, 130, 180, 175, 0] :: [Double]
- yend = [100, 130, 180, 175, 195, 195] :: [Double]
- df =
- fromColumns
- [ ("x", ColCat xs)
- , ("y", ColNum yend)
- , ("__ybase", ColNum ystart)
- ]
- layer =
- (defLayer GeomBar)
- { layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "x")
- , aesY = Just (ColumnRef "y")
- }
- , layerStat = StatIdentity
- }
- in emptyChart
- { chartData = df
- , chartLayers = [layer]
- , chartTitle = Just "Waterfall"
- , chartSize = SizeChars 60 14
- }
-
-polarChart :: Chart
-polarChart =
- let nSteps = 32 :: Int
- pts =
- [ (theta, abs (sin (2 * theta)))
- | i <- [0 .. nSteps]
- , let theta = (fromIntegral i / fromIntegral nSteps) * 2 * pi
- ]
- df =
- fromColumns
- [ ("theta", ColNum [t | (t, _) <- pts])
- , ("r", ColNum [r | (_, r) <- pts])
- ]
- layer =
- (defLayer GeomLine)
- { layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "theta")
- , aesY = Just (ColumnRef "r")
- }
- }
- in emptyChart
- { chartData = df
- , chartLayers = [layer]
- , chartCoord = CoordPolar ThetaX 0 PolarCCW
- , chartTitle = Just "r = |sin(2 theta)|"
- , chartSize = SizeChars 40 20
- }
-
-facetChart :: Chart
-facetChart =
- let df =
- fromColumns
- [ ("x", ColNum [0, 1, 2, 3, 0, 1, 2, 3, 0, 1, 2, 3])
- , ("y", ColNum [1, 4, 9, 16, 0, 2, 4, 6, 5, 4, 3, 2])
- , ("series", ColCat (replicate 4 "A" <> replicate 4 "B" <> replicate 4 "C"))
- ]
- layer =
- (defLayer GeomPoint)
- { layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "x")
- , aesY = Just (ColumnRef "y")
- }
- }
- in emptyChart
- { chartData = df
- , chartLayers = [layer]
- , chartFacet = FacetWrap (ColumnRef "series") (Just 3) Nothing ScalesFixed
- , chartTitle = Just "Faceted by series"
- , chartSize = SizeChars 70 18
- }
-
-logYChart :: Chart
-logYChart =
- let xs = [1 .. 6] :: [Double]
- ys = [3, 30, 80, 200, 700, 2100] :: [Double]
- df = fromColumns [("x", ColNum xs), ("y", ColNum ys)]
- layer =
- (defLayer GeomPoint)
- { layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "x")
- , aesY = Just (ColumnRef "y")
- }
- }
- in emptyChart
- { chartData = df
- , chartLayers = [layer]
- , chartScales = defScales{scaleY = SLog Base10 defScaleOpts}
- , chartTitle = Just "Log Y"
- , chartSize = SizeChars 50 14
- }
-
-barLineChart :: Chart
-barLineChart =
- let months = ["Jan", "Feb", "Mar", "Apr", "May", "Jun"]
- sales = [12, 18, 15, 24, 20, 28] :: [Double]
- movavg = [12, 15, 16.5, 19.5, 22, 24] :: [Double]
- df =
- fromColumns
- [ ("month", ColCat months)
- , ("sales", ColNum sales)
- , ("avg", ColNum movavg)
- ]
- bars =
- (defLayer GeomBar)
- { layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "month")
- , aesY = Just (ColumnRef "sales")
- }
- , layerStat = StatIdentity
- }
- trend =
- (defLayer GeomLine)
- { layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "month")
- , aesY = Just (ColumnRef "avg")
- }
- , layerAesDef =
- emptyAesDefaults
- { defColor = Just (NamedColor BrightRed)
- , defLineWidth = Just 2.5
- }
- }
- in emptyChart
- { chartData = df
- , chartLayers = [bars, trend]
- , chartTitle = Just "Monthly sales + trend"
- , chartSize = SizeChars 60 14
- }
-
-scatterRadiusChart :: Chart
-scatterRadiusChart =
- let pts =
- [ (0.2, 0.5)
- , (0.8, 1.2)
- , (-0.5, 0.3)
- , (1.1, -0.2)
- , (1.8, 0.7)
- , (-0.3, -0.6)
- , (2.2, 1.5)
- , (1.5, -1.1)
- , (0.1, 2.1)
- , (2.5, 0.3)
- , (-1.0, 1.0)
- , (0.7, -0.4)
- ] ::
- [(Double, Double)]
- points =
- fromColumns
- [ ("lon", ColNum [x | (x, _) <- pts])
- , ("lat", ColNum [y | (_, y) <- pts])
- ]
- poi =
- fromColumns
- [ ("lon", ColNum [0.5])
- , ("lat", ColNum [0.5])
- ]
- radius =
- (defLayer GeomPoint)
- { layerData = Just poi
- , layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "lon")
- , aesY = Just (ColumnRef "lat")
- }
- , layerAesDef =
- emptyAesDefaults
- { defColor = Just (NamedColor BrightCyan)
- , defSize = Just 60
- , defAlpha = Just 0.25
- }
- }
- scatter =
- (defLayer GeomPoint)
- { layerData = Just points
- , layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "lon")
- , aesY = Just (ColumnRef "lat")
- }
- }
- in emptyChart
- { chartLayers = [radius, scatter]
- , chartTitle = Just "Points near POI"
- , chartSize = SizeChars 50 18
- }
-
-scatterFitChart :: Chart
-scatterFitChart =
- let xs = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9] :: [Double]
- noise = [0.3, -0.5, 0.7, -0.2, 0.4, -0.6, 0.1, 0.3, -0.4, 0.5]
- ys = [2 * x + 1 + n | (x, n) <- zip xs noise]
- df = fromColumns [("x", ColNum xs), ("y", ColNum ys)]
- m =
- emptyMapping
- { aesX = Just (ColumnRef "x")
- , aesY = Just (ColumnRef "y")
- }
- points = (defLayer GeomPoint){layerMapping = m}
- fit =
- (defLayer GeomLine)
- { layerMapping = m
- , layerStat = StatSmooth SmoothLm
- , layerAesDef =
- emptyAesDefaults
- { defColor = Just (NamedColor BrightRed)
- , defLineWidth = Just 2
- }
- }
- in emptyChart
- { chartData = df
- , chartLayers = [points, fit]
- , chartTitle = Just "Scatter + OLS fit"
- , chartSize = SizeChars 50 14
- }
-
-lineRibbonChart :: Chart
-lineRibbonChart =
- let xs = [0, 0.5 .. 6.0] :: [Double]
- ys = map sin xs
- los = map (\x -> sin x - 0.3) xs
- his = map (\x -> sin x + 0.3) xs
- df =
- fromColumns
- [ ("x", ColNum xs)
- , ("y", ColNum ys)
- , ("lo", ColNum los)
- , ("hi", ColNum his)
- ]
- ribbon =
- (defLayer GeomRibbon)
- { layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "x")
- , aesYmin = Just (ColumnRef "lo")
- , aesYmax = Just (ColumnRef "hi")
- }
- , layerAesDef =
- emptyAesDefaults
- { defColor = Just (NamedColor BrightCyan)
- , defAlpha = Just 0.3
- }
- }
- line =
- (defLayer GeomLine)
- { layerMapping =
- emptyMapping
- { aesX = Just (ColumnRef "x")
- , aesY = Just (ColumnRef "y")
- }
- , layerAesDef =
- emptyAesDefaults
- { defColor = Just (NamedColor BrightBlue)
- , defLineWidth = Just 2
- }
- }
- in emptyChart
- { chartData = df
- , chartLayers = [ribbon, line]
- , chartTitle = Just "sin(x) +/- 0.3 band"
- , chartSize = SizeChars 56 14
- }
diff --git a/granite.cabal b/granite.cabal
--- a/granite.cabal
+++ b/granite.cabal
@@ -1,6 +1,6 @@
cabal-version: 3.0
name: granite
-version: 0.6.0.0
+version: 0.7.0.0
synopsis: Easy terminal plotting.
description: A terminal plotting library for quick and easy visualisation.
license: MIT
@@ -10,7 +10,8 @@
|| ==9.6.7
|| ==9.8.4
|| ==9.10.3
- || ==9.12.2
+ || ==9.12.4
+ || ==9.14.1
maintainer: mschavinda@gmail.com
copyright: (c) 2024-2025 Michael Chavinda
@@ -18,6 +19,8 @@
category: Graphics
build-type: Simple
extra-doc-files: CHANGELOG.md README.md
+extra-source-files: test/golden/*.txt
+ test/golden/*.svg
source-repository head
type: git
@@ -69,19 +72,7 @@
main-is: Main.hs
build-depends:
base >=4 && <5,
- granite ^>= 0.6,
- text >= 1 && < 3
- hs-source-dirs: app
- default-language: GHC2021
-
-executable granite-tutorial
- import: ghc-options
- main-is: GenerateTutorial.hs
- build-depends:
- base >=4 && <5,
- directory >= 1.3 && < 1.4,
- filepath >= 1.4 && < 1.6,
- granite ^>= 0.6,
+ granite ^>= 0.7,
text >= 1 && < 3
hs-source-dirs: app
default-language: GHC2021
@@ -106,7 +97,7 @@
build-depends:
base >= 4.14 && < 5
- , granite ^>= 0.6
+ , granite ^>= 0.7
, text >= 1.2 && < 3
, hspec >= 2.7 && < 2.12
, QuickCheck >= 2.14 && < 3
diff --git a/src/Granite/Color.hs b/src/Granite/Color.hs
--- a/src/Granite/Color.hs
+++ b/src/Granite/Color.hs
@@ -1,4 +1,5 @@
{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE Strict #-}
{- |
@@ -7,12 +8,44 @@
License : MIT
Maintainer : mschavinda@gmail.com
-Color primitives shared by both the terminal and SVG backends:
-the ANSI 16-color palette ('Color'), escape-code helpers, and the
-hex mapping used by the SVG backend.
+Color primitives shared by the terminal and SVG backends.
+
+'Color' is a 24-bit RGB value. The classic ANSI palette names ('Black',
+'BrightBlue', 'Default', …) are provided as bidirectional pattern synonyms
+that expand to fixed RGB triples, so they may be used both as expressions
+and in patterns exactly as before.
+
+The two backends deliberately diverge on how a colour is realised:
+
+ * the SVG backend renders the RGB exactly via 'colorHex';
+ * the terminal backend approximates via 'ansiCode', which maps an
+ arbitrary colour to the nearest of the 16 ANSI slots.
+
+Because 'Color' is now a plain RGB triple, its /derived/ 'Show' prints
+@Color r g b@ rather than the alias name.
-}
module Granite.Color (
- Color (..),
+ Color (
+ ..,
+ Black,
+ Red,
+ Green,
+ Yellow,
+ Blue,
+ Magenta,
+ Cyan,
+ White,
+ BrightBlack,
+ BrightRed,
+ BrightGreen,
+ BrightYellow,
+ BrightBlue,
+ BrightMagenta,
+ BrightCyan,
+ BrightWhite,
+ Default
+ ),
+ parseHex,
ansiCode,
ansiOn,
ansiOff,
@@ -22,30 +55,75 @@
pieColors,
) where
+import Data.Char (digitToInt, isHexDigit)
+import Data.List (minimumBy)
+import Data.Ord (comparing)
import Data.Text (Text)
import Data.Text qualified as Text
+import Data.Word (Word8)
+import Numeric (showHex)
--- | Supported ANSI colo(u)rs.
-data Color
- = Default
- | Black
- | Red
- | Green
- | Yellow
- | Blue
- | Magenta
- | Cyan
- | White
- | BrightBlack
- | BrightRed
- | BrightGreen
- | BrightYellow
- | BrightBlue
- | BrightMagenta
- | BrightCyan
- | BrightWhite
+-- | A 24-bit RGB colour.
+data Color = Color !Word8 !Word8 !Word8
deriving (Eq, Show, Read)
+-- The classic ANSI palette, as bidirectional pattern-synonym aliases over
+-- fixed RGB triples (the historical 'colorHex' values).
+
+pattern Black :: Color
+pattern Black = Color 0x2c 0x3e 0x50
+
+pattern Red :: Color
+pattern Red = Color 0xc0 0x39 0x2b
+
+pattern Green :: Color
+pattern Green = Color 0x27 0xae 0x60
+
+pattern Yellow :: Color
+pattern Yellow = Color 0xf3 0x9c 0x12
+
+pattern Blue :: Color
+pattern Blue = Color 0x29 0x80 0xb9
+
+pattern Magenta :: Color
+pattern Magenta = Color 0x8e 0x44 0xad
+
+pattern Cyan :: Color
+pattern Cyan = Color 0x16 0xa0 0x85
+
+pattern White :: Color
+pattern White = Color 0xec 0xf0 0xf1
+
+pattern BrightBlack :: Color
+pattern BrightBlack = Color 0x7f 0x8c 0x8d
+
+pattern BrightRed :: Color
+pattern BrightRed = Color 0xe7 0x4c 0x3c
+
+pattern BrightGreen :: Color
+pattern BrightGreen = Color 0x2e 0xcc 0x71
+
+pattern BrightYellow :: Color
+pattern BrightYellow = Color 0xf1 0xc4 0x0f
+
+pattern BrightBlue :: Color
+pattern BrightBlue = Color 0x34 0x98 0xdb
+
+pattern BrightMagenta :: Color
+pattern BrightMagenta = Color 0x9b 0x59 0xb6
+
+pattern BrightCyan :: Color
+pattern BrightCyan = Color 0x1a 0xbc 0x9c
+
+pattern BrightWhite :: Color
+pattern BrightWhite = Color 0xbd 0xc3 0xc7
+
+pattern Default :: Color
+pattern Default = Color 0x55 0x55 0x55
+
+{- | ANSI escape code for a colour. The 16 named slots (plus 'Default') return
+their canonical code; any other colour maps to the nearest ANSI slot.
+-}
ansiCode :: Color -> Int
ansiCode Black = 30
ansiCode Red = 31
@@ -64,10 +142,48 @@
ansiCode BrightCyan = 96
ansiCode BrightWhite = 97
ansiCode Default = 39
+ansiCode (Color r g b) = nearestAnsiCode r g b
+{- | Map an arbitrary RGB colour to the nearest of the 16 ANSI slots, using the
+canonical (VGA) ANSI palette as anchors — kept consistent with the terminal
+chrome quantisation in "Granite.Render.Chrome".
+-}
+nearestAnsiCode :: Word8 -> Word8 -> Word8 -> Int
+nearestAnsiCode r g b =
+ snd
+ (minimumBy (comparing fst) [(dist anchor, code) | (anchor, code) <- ansiAnchors])
+ where
+ ri = fromIntegral r :: Int
+ gi = fromIntegral g
+ bi = fromIntegral b
+ dist (ar, ag, ab) = sq (ar - ri) + sq (ag - gi) + sq (ab - bi)
+ sq x = x * x
+
+ansiAnchors :: [((Int, Int, Int), Int)]
+ansiAnchors =
+ [ ((0, 0, 0), 30)
+ , ((170, 0, 0), 31)
+ , ((0, 170, 0), 32)
+ , ((170, 85, 0), 33)
+ , ((0, 0, 170), 34)
+ , ((170, 0, 170), 35)
+ , ((0, 170, 170), 36)
+ , ((170, 170, 170), 37)
+ , ((85, 85, 85), 90)
+ , ((255, 85, 85), 91)
+ , ((85, 255, 85), 92)
+ , ((255, 255, 85), 93)
+ , ((85, 85, 255), 94)
+ , ((255, 85, 255), 95)
+ , ((85, 255, 255), 96)
+ , ((255, 255, 255), 97)
+ ]
+
+-- | Opening ANSI escape sequence selecting a colour (its nearest ANSI slot).
ansiOn :: Color -> Text
ansiOn c = "\ESC[" <> Text.pack (show (ansiCode c)) <> "m"
+-- | ANSI reset escape sequence.
ansiOff :: Text
ansiOff = "\ESC[0m"
@@ -75,25 +191,27 @@
paint :: Color -> Char -> Text
paint c ch = if ch == ' ' then " " else ansiOn c <> Text.singleton ch <> ansiOff
--- | Hex RGB approximation of the ANSI palette, used by the SVG backend.
+-- | Exact @#rrggbb@ rendering of a colour, used by the SVG backend.
colorHex :: Color -> Text
-colorHex Default = "#555555"
-colorHex Black = "#2c3e50"
-colorHex Red = "#c0392b"
-colorHex Green = "#27ae60"
-colorHex Yellow = "#f39c12"
-colorHex Blue = "#2980b9"
-colorHex Magenta = "#8e44ad"
-colorHex Cyan = "#16a085"
-colorHex White = "#ecf0f1"
-colorHex BrightBlack = "#7f8c8d"
-colorHex BrightRed = "#e74c3c"
-colorHex BrightGreen = "#2ecc71"
-colorHex BrightYellow = "#f1c40f"
-colorHex BrightBlue = "#3498db"
-colorHex BrightMagenta = "#9b59b6"
-colorHex BrightCyan = "#1abc9c"
-colorHex BrightWhite = "#bdc3c7"
+colorHex (Color r g b) = "#" <> hex2 r <> hex2 g <> hex2 b
+ where
+ hex2 :: Word8 -> Text
+ hex2 w =
+ let s = showHex w ""
+ in Text.pack (if length s < 2 then '0' : s else s)
+
+{- | Parse a @"#rrggbb"@ (or @"rrggbb"@) string into a 'Color'. Returns
+'Nothing' on malformed input.
+-}
+parseHex :: Text -> Maybe Color
+parseHex t =
+ case Text.unpack (Text.dropWhile (== '#') t) of
+ cs@[r1, r2, g1, g2, b1, b2]
+ | all isHexDigit cs ->
+ Just (Color (byte r1 r2) (byte g1 g2) (byte b1 b2))
+ _ -> Nothing
+ where
+ byte hi lo = fromIntegral (digitToInt hi * 16 + digitToInt lo)
-- | Default palette for layered charts (scatter, line, bars, …).
paletteColors :: [Color]
diff --git a/src/Granite/Render/Pipeline.hs b/src/Granite/Render/Pipeline.hs
--- a/src/Granite/Render/Pipeline.hs
+++ b/src/Granite/Render/Pipeline.hs
@@ -23,7 +23,7 @@
import Data.Text (Text)
import Data.Text qualified as Text
-import Granite.Color (Color (..))
+import Granite.Color (Color (..), parseHex)
import Granite.Data.Frame (
Column (..),
DataFrame (..),
@@ -146,12 +146,13 @@
hasTitle = case chartTitle chart of
Just t -> not (Text.null t)
Nothing -> False
- legendEntries = collectLegend (chartLayers chart) palette
+ colorMaps = map (layerColorMap palette (chartData chart)) (chartLayers chart)
+ legendEntries = collectLegend (chartLayers chart) palette colorMaps
hasRightLegend = not (null legendEntries)
box = computePlotBox (chartSize chart) theme hasTitle hasRightLegend False
panels = layoutPanels theme box chart
- panelMarks = concatMap (renderPanel theme palette coord) panels
+ panelMarks = concatMap (renderPanel theme palette coord colorMaps) panels
legend = legendMarks theme box legendEntries
title = titleMarks theme box (chartTitle chart)
@@ -168,12 +169,19 @@
, panelYScale :: TrainedScale
}
-renderPanel :: Theme -> [ColorSpec] -> Coord -> PanelSpec -> [Mark]
-renderPanel theme palette coord ps =
+renderPanel ::
+ Theme ->
+ [ColorSpec] ->
+ Coord ->
+ [Maybe [(Text, ColorSpec)]] ->
+ PanelSpec ->
+ [Mark]
+renderPanel theme palette coord colorMaps ps =
let proj = buildProjector coord (panelBox ps) (panelXScale ps) (panelYScale ps)
+ cmap i = if i < length colorMaps then colorMaps !! i else Nothing
layerMarks =
concat
- [ runLayer theme (panelBox ps) proj palette i (panelData ps) layer
+ [ runLayer theme (panelBox ps) proj palette (cmap i) i (panelData ps) layer
| (i, layer) <- zip [0 :: Int ..] (panelLayers ps)
]
axes = axesMarks theme (panelBox ps) coord (panelXScale ps) (panelYScale ps)
@@ -405,11 +413,12 @@
PlotBox ->
Projector ->
[ColorSpec] ->
+ Maybe [(Text, ColorSpec)] ->
Int ->
DataFrame ->
Layer ->
[Mark]
-runLayer theme box proj palette ix globalFrame layer =
+runLayer theme box proj palette colorMap ix globalFrame layer =
let frame0 = fromMaybe globalFrame (layerData layer)
framePostStat = applyStat (layerStat layer) (layerMapping layer) frame0
frame = applyPosition (layerPosition layer) (layerMapping layer) framePostStat
@@ -418,14 +427,21 @@
colorSpec = case defColor defaults of
Just c -> c
Nothing -> layerDefaultColor palette ix layer
- col = specToTerminal colorSpec
+ col = specToColor colorSpec
radius = case defSize defaults of
Just r -> r
Nothing -> pointSize theme layer
alpha = fromMaybe 1 (defAlpha defaults)
lineW = fromMaybe 2 (defLineWidth defaults)
+ -- Per-row point colours: a mapped categorical 'aesColor' (when
+ -- 'colorMap' is set for this layer) overrides the constant colour.
+ pointColors = case colorMap of
+ Just levelColors
+ | Just cats <- categoricalColorColumn frame m ->
+ map (\cat -> specToColor (fromMaybe colorSpec (lookup cat levelColors))) cats
+ _ -> repeat col
in case layerGeom layer of
- GeomPoint -> drawPoints proj frame m colorSpec radius alpha
+ GeomPoint -> drawPoints proj frame m pointColors radius alpha
GeomLine -> drawLine proj frame m colorSpec lineW
GeomBar -> drawBars proj frame m col
GeomCol -> drawBars proj frame m col
@@ -442,21 +458,21 @@
Projector ->
DataFrame ->
Mapping ->
- ColorSpec ->
+ [Color] ->
Double ->
Double ->
[Mark]
-drawPoints proj frame m col r alpha =
+drawPoints proj frame m cols r alpha =
case (resolveNumColumn frame (aesX m), resolveNumColumn frame (aesY m)) of
(Just xv, Just yv) ->
[ MCircle
(proj x y)
r
defaultStyle
- { styleFill = Just (specToTerminal col)
+ { styleFill = Just c
, styleFillOpacity = alpha
}
- | (x, y) <- zip xv yv
+ | ((x, y), c) <- zip (zip xv yv) cols
]
_ -> []
@@ -475,7 +491,7 @@
in [ MPolyline
pts
defaultStyle
- { styleStroke = Just (specToTerminal col)
+ { styleStroke = Just (specToColor col)
, styleStrokeWidth = lineW
}
]
@@ -680,8 +696,8 @@
s
e
defaultStyle
- { styleFill = Just (specToTerminal (colorAt i))
- , styleStroke = Just (specToTerminal (NamedColor BrightBlack))
+ { styleFill = Just (specToColor (colorAt i))
+ , styleStroke = Just (specToColor (NamedColor BrightBlack))
, styleStrokeWidth = 1
}
| (i, (s, e)) <- zip [0 :: Int ..] (zip starts ends)
@@ -877,21 +893,70 @@
pointSize :: Theme -> Layer -> Double
pointSize _ _ = 3
-collectLegend :: [Layer] -> [ColorSpec] -> [(Text, ColorSpec)]
-collectLegend layers palette =
- [ (legendName ix layer, palette !! (ix `mod` max 1 (length palette)))
- | (ix, layer) <- zip [0 :: Int ..] layers
- ]
+{- | Map the distinct values of a categorical column to palette colours, in
+first-seen order; shared by the renderer and 'collectLegend' so points and the
+legend agree.
+-}
+categoricalColorMap :: [ColorSpec] -> [Text] -> [(Text, ColorSpec)]
+categoricalColorMap palette levels =
+ [(lvl, colorAt i) | (i, lvl) <- zip [0 :: Int ..] levels]
where
+ colorAt i
+ | null palette = NamedColor BrightBlue
+ | otherwise = palette !! (i `mod` length palette)
+
+{- | The per-category colour map for a layer, when its 'aesColor' maps to a
+categorical ('ColCat') column. Computed once from the whole-chart layer frame so
+colours stay consistent across facets and the legend; 'Nothing' otherwise
+(numeric colour columns keep the single per-layer colour).
+-}
+layerColorMap :: [ColorSpec] -> DataFrame -> Layer -> Maybe [(Text, ColorSpec)]
+layerColorMap palette globalFrame layer
+ | GeomPoint <- layerGeom layer
+ , Just cats <-
+ categoricalColorColumn
+ (fromMaybe globalFrame (layerData layer))
+ (layerMapping layer) =
+ Just (categoricalColorMap palette (List.nub cats))
+ | otherwise = Nothing
+
+{- | The categorical ('ColCat') colour column's per-row values, if 'aesColor'
+maps to one.
+-}
+categoricalColorColumn :: DataFrame -> Mapping -> Maybe [Text]
+categoricalColorColumn frame m = case aesColor m of
+ Just (ColumnRef n) -> case lookupColumn n frame of
+ Just (ColCat xs) -> Just xs
+ _ -> Nothing
+ Nothing -> Nothing
+
+{- | Legend entries. A categorical-'aesColor' layer contributes one entry per
+category value (colours matching the points via 'layerColorMap'); 'GeomText'
+layers contribute none; any other layer keeps a single per-layer swatch.
+-}
+collectLegend ::
+ [Layer] -> [ColorSpec] -> [Maybe [(Text, ColorSpec)]] -> [(Text, ColorSpec)]
+collectLegend layers palette colorMaps =
+ concat
+ [ entriesFor ix layer cmap
+ | (ix, layer, cmap) <- zip3 [0 :: Int ..] layers (colorMaps ++ repeat Nothing)
+ ]
+ where
+ entriesFor ix layer cmap
+ | GeomText <- layerGeom layer = []
+ | Just levelColors <- cmap = levelColors
+ | otherwise =
+ [(legendName ix layer, palette !! (ix `mod` max 1 (length palette)))]
legendName ix layer =
case aesGroup (layerMapping layer) of
Just (ColumnRef n) -> n
Nothing -> "series " <> Text.pack (show ix)
-{- | Quantise 'ColorSpec' to the nearest renderable ANSI 'Color' for
-the terminal backend. SVG reads RGB / Hex directly.
+{- | Resolve a 'ColorSpec' to an exact RGB 'Color'. The SVG backend renders
+this exactly (via @colorHex@); the terminal backend quantises it to the nearest
+ANSI slot (via @ansiCode@).
-}
-specToTerminal :: ColorSpec -> Color
-specToTerminal (NamedColor c) = c
-specToTerminal (RGB{}) = BrightBlue
-specToTerminal (Hex _) = BrightBlue
+specToColor :: ColorSpec -> Color
+specToColor (NamedColor c) = c
+specToColor (RGB r g b) = Color r g b
+specToColor (Hex t) = fromMaybe Black (parseHex t)
diff --git a/test/GraniteSpec.hs b/test/GraniteSpec.hs
--- a/test/GraniteSpec.hs
+++ b/test/GraniteSpec.hs
@@ -339,6 +339,7 @@
ansiCode BrightCyan = 96
ansiCode BrightWhite = 97
ansiCode Default = 39
+ansiCode _ = 39
ansiOn :: Color -> Text
ansiOn c = "\ESC[" <> Text.pack (show (ansiCode c)) <> "m"
diff --git a/test/PipelineSpec.hs b/test/PipelineSpec.hs
--- a/test/PipelineSpec.hs
+++ b/test/PipelineSpec.hs
@@ -4,6 +4,7 @@
import Data.Text qualified as Text
+import Granite.Color qualified as Col
import Granite.Render.Pipeline
import Granite.Render.Scene (Scene (..))
import Granite.Spec
@@ -83,6 +84,72 @@
-- roughly 24 lines (22 plot rows + title + axis labels).
lineCount `shouldSatisfy` (>= 15)
lineCount `shouldSatisfy` (<= 40)
+
+ describe "colour" $ do
+ it "colorHex renders exact, zero-padded, lowercase hex" $ do
+ Col.colorHex Col.BrightBlue `shouldBe` "#3498db"
+ Col.colorHex Col.BrightYellow `shouldBe` "#f1c40f"
+ Col.colorHex (Col.Color 0 0 15) `shouldBe` "#00000f"
+
+ it "ansiCode keeps canonical codes for the named slots" $ do
+ Col.ansiCode Col.Black `shouldBe` 30
+ Col.ansiCode Col.BrightBlue `shouldBe` 94
+ Col.ansiCode Col.Default `shouldBe` 39
+
+ it "parseHex accepts valid hex and rejects junk" $ do
+ Col.parseHex "#ff0000" `shouldBe` Just (Col.Color 255 0 0)
+ Col.parseHex "1a2b3c" `shouldBe` Just (Col.Color 26 43 60)
+ Col.parseHex "nope" `shouldBe` Nothing
+
+ it "SVG renders a custom Hex defColor exactly (not quantised to blue)" $ do
+ let chart =
+ emptyChart
+ { chartSize = SizeChars 30 16
+ , chartData =
+ fromColumns [("x", ColNum [1, 2, 3]), ("y", ColNum [1, 2, 3])]
+ , chartLayers =
+ [ (defLayer GeomPoint)
+ { layerMapping =
+ emptyMapping
+ { aesX = Just (ColumnRef "x")
+ , aesY = Just (ColumnRef "y")
+ }
+ , layerAesDef = emptyAesDefaults{defColor = Just (Hex "#ff0000")}
+ }
+ ]
+ }
+ renderChartSvg chart `shouldSatisfy` Text.isInfixOf "#ff0000"
+
+ it "categorical aesColor colours points per category with a per-category legend" $ do
+ let chart =
+ emptyChart
+ { chartSize = SizeChars 40 20
+ , chartData =
+ fromColumns
+ [ ("x", ColNum [1, 2, 3])
+ , ("y", ColNum [1, 2, 3])
+ , ("g", ColCat ["a", "b", "c"])
+ ]
+ , chartLayers =
+ [ (defLayer GeomPoint)
+ { layerMapping =
+ emptyMapping
+ { aesX = Just (ColumnRef "x")
+ , aesY = Just (ColumnRef "y")
+ , aesColor = Just (ColumnRef "g")
+ }
+ }
+ ]
+ }
+ svg = renderChartSvg chart
+ -- three categories → the first three palette colours all appear
+ svg `shouldSatisfy` Text.isInfixOf "#3498db"
+ svg `shouldSatisfy` Text.isInfixOf "#9b59b6"
+ svg `shouldSatisfy` Text.isInfixOf "#1abc9c"
+ -- the legend is keyed by category value, not a generic "series 0"
+ svg `shouldSatisfy` Text.isInfixOf ">a"
+ svg `shouldSatisfy` Text.isInfixOf ">c"
+ svg `shouldNotSatisfy` Text.isInfixOf "series 0"
describe "Log-scale chart" $ do
let logChart =
diff --git a/test/golden/bar-basic.svg b/test/golden/bar-basic.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/bar-basic.svg
@@ -0,0 +1,20 @@
+
diff --git a/test/golden/bar-basic.txt b/test/golden/bar-basic.txt
new file mode 100644
--- /dev/null
+++ b/test/golden/bar-basic.txt
@@ -0,0 +1,14 @@
+
+ [90mBars [0m
+ [37m│ [0m[94m█████ ██ [0m
+ [37m│ [0m[94m█████ ██[0m[90mseries 0 [0m
+[90m15.0 [0m[37m│ [0m[94m█████ [0m
+ [37m│[0m[94m█████ █████ [0m
+[90m10.0 [0m[37m│[0m[94m█████ █████ [0m
+ [37m│[0m[94m█████ ██████████ [0m
+ [37m│[0m[94m█████████████████████ [0m
+ [90m5.0 [0m[37m│[0m[94m█████████████████████ [0m
+ [37m│[0m[94m█████████████████████ [0m
+ [37m│[0m[94m█████████████████████ [0m
+ [90m0.0 [0m[37m┼─────────────────────── [0m
+ [90m0.0 1.0 2.0 3.0 [0m
diff --git a/test/golden/box-basic.svg b/test/golden/box-basic.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/box-basic.svg
@@ -0,0 +1,25 @@
+
diff --git a/test/golden/box-basic.txt b/test/golden/box-basic.txt
new file mode 100644
--- /dev/null
+++ b/test/golden/box-basic.txt
@@ -0,0 +1,16 @@
+
+ [90mBoxplot [0m
+ [37m│ ⡀ [0m[94m██ [0m
+ [37m│ ⡇ [0m[94m██[0m[90mseries 0 [0m
+ [37m│ ⢠ [0m[94m⡤⠤⠤⠧⠤⠤⡄ [0m
+[90m10.0 [0m[37m│ ⢸ [0m[94m⡇ ⡇ [0m
+ [37m│ ⢰ [0m[94m⡖⠒⠚⠒⠒⢲ ⡗⠒⠒⠒⠒⠒⡇ [0m
+ [37m│ ⢸ [0m[94m⡇ ⢸ ⡇ ⡇ [0m
+ [37m│[0m[94m⢰⠒⠒⠚⠒⠒⢲ ⡗⠒⠒⠒⠒⢺ ⠓⠒⠒⡖⠒⠒⠃ [0m
+ [37m│[0m[94m⢸ ⢸ ⡇ ⢸ ⡇ [0m
+ [90m5.0 [0m[37m│[0m[94m⢸⠉⠉⠉⠉⠉⢹ ⠉⠉⢹⠉⠉⠉ ⠁ [0m
+ [37m│[0m[94m⢸⣀⣀⣀⣀⣀⣸ ⢸ [0m
+ [37m│ ⢸ [0m
+ [37m│ ⢸ [0m
+ [37m┼─────────────────────── [0m
+ [90m0.0 1.0 2.0 [0m
diff --git a/test/golden/empty.svg b/test/golden/empty.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/empty.svg
@@ -0,0 +1,11 @@
+
diff --git a/test/golden/facet-wrap.svg b/test/golden/facet-wrap.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/facet-wrap.svg
@@ -0,0 +1,51 @@
+
diff --git a/test/golden/facet-wrap.txt b/test/golden/facet-wrap.txt
new file mode 100644
--- /dev/null
+++ b/test/golden/facet-wrap.txt
@@ -0,0 +1,18 @@
+
+ [90mFaceted by series [0m
+ [94m██ [0m
+ [39mA B C [0m[94m██[0m[90mseries 0 [0m
+ [37m│ [0m[94m⣠⡀[0m[37m│ │ [0m
+ [90m15.0 [0m[37m│ [0m[90m15.0 [0m[37m│ [0m[90m15.0 [0m[37m│ [0m
+ [37m│ │ │ [0m
+ [37m│ │ │ [0m
+ [90m10.0 [0m[37m│ [0m[94m⢀ [0m[90m10.0 [0m[37m│ [0m[90m10.0 [0m[37m│ [0m
+ [37m│ [0m[94m⠙⠁ [0m[37m│ │ [0m
+ [37m│ │ [0m[94m⡀ [0m[37m│ [0m
+ [90m5.0 [0m[37m│ [0m[90m5.0 [0m[37m│ [0m[90m5.0 [0m[37m│[0m[94m⡀ [0m
+ [37m│ [0m[94m⠺⠂ [0m[37m│ [0m[94m⠐⠗ [0m[37m│ [0m[94m⠺⠂ ⢀ [0m
+ [37m│ │ [0m[94m⠠⡦ [0m[37m│ [0m[94m⠙⠁ ⢴⠄ [0m
+ [37m│[0m[94m⠂ [0m[37m│[0m[94m⡀ [0m[37m│ [0m
+ [90m0.0 [0m[37m┼────────────[0m[90m0.0[0m[37m─┼─────────────[0m[90m0.0[0m[37m─┼──────────────── [0m
+ [90m0.0 1.0 2.0 3.00.0 1.0 2.0 3.0.0 1.0 2.0 3.0 [0m
+
diff --git a/test/golden/hist-basic.svg b/test/golden/hist-basic.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/hist-basic.svg
@@ -0,0 +1,23 @@
+
diff --git a/test/golden/hist-basic.txt b/test/golden/hist-basic.txt
new file mode 100644
--- /dev/null
+++ b/test/golden/hist-basic.txt
@@ -0,0 +1,14 @@
+
+ [90mHistogram [0m
+[90m10.0 [0m[37m│[0m[94m████ ████ ███ ██ [0m
+ [37m│[0m[94m████ ████ ███ ██[0m[90mseries 0 [0m
+ [37m│[0m[94m████ ████ ███ [0m
+ [37m│[0m[94m████ ████ ███ [0m
+ [37m│[0m[94m████ ████ ███ [0m
+ [90m5.0 [0m[37m│[0m[94m████ ███████████████████ [0m
+ [37m│[0m[94m████ ███████████████████ [0m
+ [37m│[0m[94m████ ███████████████████ [0m
+ [37m│[0m[94m████ ███████████████████ [0m
+ [37m│[0m[94m█████████████████████████ [0m
+ [90m0.0 [0m[37m┼─────────────────────────── [0m
+ [90m1.0 2.0 3.0 4.0 [0m
diff --git a/test/golden/line-basic.svg b/test/golden/line-basic.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/line-basic.svg
@@ -0,0 +1,16 @@
+
diff --git a/test/golden/line-basic.txt b/test/golden/line-basic.txt
new file mode 100644
--- /dev/null
+++ b/test/golden/line-basic.txt
@@ -0,0 +1,20 @@
+
+ [90msin(x) [0m
+ [37m│ ⣀ [0m[94m██ [0m
+ [90m1.0 [0m[37m│ ⢀⠔⠊ ⠉⠒⠤⡀ [0m[94m██[0m[90msine [0m
+ [37m│ ⡰⠁ ⠑⡄ [0m
+ [37m│ ⡜ ⠈⢆ [0m
+ [37m│ ⢀⠎ ⠈⢆ [0m
+ [37m│ ⢀⠎ ⠈⡆ [0m
+ [37m│ ⡎ ⠘⡄ [0m
+ [37m│ ⡜ ⠘⡄ [0m
+ [90m0.0 [0m[37m│ ⠘ ⠘⡄ [0m
+ [37m│ ⠘⡄ [0m
+ [37m│ ⠘⡄ ⢀⠆ [0m
+ [37m│ ⠱⡀ ⢀⠎ [0m
+ [37m│ ⠱⡀ ⢀⠎ [0m
+ [37m│ ⠱⡀ ⢀⠎ [0m
+ [37m│ ⠑⢄⡀ ⡰⠁ [0m
+[90m-1.0 [0m[37m│ ⠈⠢⠤⠤⠤⠊ [0m
+ [37m┼─────────────────────────────────────────── [0m
+ [90m0.0 2.0 4.0 6.0 [0m
diff --git a/test/golden/line-coord-flip.svg b/test/golden/line-coord-flip.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/line-coord-flip.svg
@@ -0,0 +1,19 @@
+
diff --git a/test/golden/line-coord-flip.txt b/test/golden/line-coord-flip.txt
new file mode 100644
--- /dev/null
+++ b/test/golden/line-coord-flip.txt
@@ -0,0 +1,20 @@
+
+ [90mCoordFlip [0m
+ [37m│ ⢀ [0m[94m██ [0m
+ [90m0.0 [0m[37m│ ⠑⠢⡀ [0m[94m██[0m[90my=2x [0m
+ [37m│ ⠈⠒⢄ [0m
+ [37m│ ⠉⠢⡀ [0m
+ [90m1.0 [0m[37m│ ⠈⠑⢄ [0m
+ [37m│ ⠉⠢⡀ [0m
+ [37m│ ⠈⠑⢄⡀ [0m
+ [37m│ ⠈⠢⣀ [0m
+ [90m2.0 [0m[37m│ ⠑⠤⡀ [0m
+ [37m│ ⠈⠒⢄⡀ [0m
+ [37m│ ⠈⠒⢄ [0m
+ [37m│ ⠉⠢⢄ [0m
+ [90m3.0 [0m[37m│ ⠑⠢⡀ [0m
+ [37m│ ⠈⠒⢄ [0m
+ [37m│ ⠉⠢⡀ [0m
+ [90m4.0 [0m[37m│ ⠈⠑⠄ [0m
+ [37m┼─────────────────────────────────────────── [0m
+ [90m0.0 2.0 4.0 6.0 8.0 [0m
diff --git a/test/golden/line-reverse-y.svg b/test/golden/line-reverse-y.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/line-reverse-y.svg
@@ -0,0 +1,16 @@
+
diff --git a/test/golden/pie-basic.svg b/test/golden/pie-basic.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/pie-basic.svg
@@ -0,0 +1,18 @@
+
diff --git a/test/golden/plotly-area-filled.svg b/test/golden/plotly-area-filled.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/plotly-area-filled.svg
@@ -0,0 +1,16 @@
+
diff --git a/test/golden/plotly-area-filled.txt b/test/golden/plotly-area-filled.txt
new file mode 100644
--- /dev/null
+++ b/test/golden/plotly-area-filled.txt
@@ -0,0 +1,14 @@
+
+ [90mFilled area [0m
+ [90m3.0 [0m[37m│ [0m[94m⣀⡠⠤⢄⣀⡀ ██ [0m
+ [37m│ [0m[94m⡠⠔⠉ ⠈⠑⠤⡀ ██[0m[90mseries 0 [0m
+ [37m│ [0m[94m⡠⠊ ⠈⢢ [0m
+ [90m2.0 [0m[37m│ [0m[94m⡠⠊ ⠑⢄ [0m
+ [37m│ [0m[94m⡇ ⠑⢄ ⢀⡄ [0m
+ [37m│ [0m[94m⡇ ⠑⠤⡀ ⣀⠔⠁⡇ [0m
+ [90m1.0 [0m[37m│ [0m[94m⡇ ⠈⠒⠤⣀⣀⠤⠤⠒⠉ ⡇ [0m
+ [37m│ [0m[94m⡇ ⡇ [0m
+ [37m│ [0m[94m⡇ ⡇ [0m
+ [37m│ [0m[94m⣇⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⣀⡇ [0m
+ [90m0.0 [0m[37m┼─────────────────────────────────────── [0m
+ [90m0.0 5.0 10.0 [0m
diff --git a/test/golden/plotly-bar-grouped.svg b/test/golden/plotly-bar-grouped.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/plotly-bar-grouped.svg
@@ -0,0 +1,27 @@
+
diff --git a/test/golden/plotly-bar-grouped.txt b/test/golden/plotly-bar-grouped.txt
new file mode 100644
--- /dev/null
+++ b/test/golden/plotly-bar-grouped.txt
@@ -0,0 +1,16 @@
+
+ [90mSales by quarter (grouped) [0m
+ [37m│ [0m[94m███ ██ [0m
+[90m20.0 [0m[37m│ [0m[94m███ ██[0m[90mproduct [0m
+ [37m│ [0m[94m███ ███ [0m
+ [37m│ [0m[94m███ ███ [0m
+ [37m│ [0m[94m███ ███ ██████ [0m
+ [37m│ [0m[94m███ ███ █████ ██████ [0m
+[90m10.0 [0m[37m│ [0m[94m███ ██████ █████ ████████ [0m
+ [37m│ [0m[94m██████ ██████ ████████ ████████ [0m
+ [37m│ [0m[94m██████ █████████ ████████ ████████ [0m
+ [37m│ [0m[94m████████ █████████ ████████ ████████ [0m
+ [37m│ [0m[94m████████ █████████ ████████ ████████ [0m
+ [90m0.0 [0m[37m│ [0m[94m████████ █████████ ████████ ████████ [0m
+ [37m┼─────────────────────────────────────────── [0m
+ [90m0.0 1.0 2.0 3.0 [0m
diff --git a/test/golden/plotly-bar-horizontal.svg b/test/golden/plotly-bar-horizontal.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/plotly-bar-horizontal.svg
@@ -0,0 +1,21 @@
+
diff --git a/test/golden/plotly-bar-horizontal.txt b/test/golden/plotly-bar-horizontal.txt
new file mode 100644
--- /dev/null
+++ b/test/golden/plotly-bar-horizontal.txt
@@ -0,0 +1,16 @@
+
+ [90mTop 5 (horizontal) [0m
+ [37m│ [0m[94m███████████████████████████████████████ ██ [0m
+ [90m0.0 [0m[37m│ [0m[94m███████████████████████████████████████ ██[0m[90mseries 0 [0m
+ [37m│ [0m[94m███████████████████████████████████████ [0m
+ [37m│ [0m[94m████████████████████████████████ [0m
+ [37m│ [0m[94m████████████████████████████████ [0m
+ [37m│ [0m[94m██████████████████████ [0m
+ [90m2.0 [0m[37m│ [0m[94m██████████████████████ [0m
+ [37m│ [0m[94m██████████████████████ [0m
+ [37m│ [0m[94m████████████████ [0m
+ [37m│ [0m[94m████████████████ [0m
+ [37m│ [0m[94m███████████ [0m
+ [90m4.0 [0m[37m│ [0m[94m███████████ [0m
+ [37m┼─────────────────────────────────────────── [0m
+ [90m0.0 20.0 40.0 60.0 80.0 [0m
diff --git a/test/golden/plotly-bar-stacked.svg b/test/golden/plotly-bar-stacked.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/plotly-bar-stacked.svg
@@ -0,0 +1,27 @@
+
diff --git a/test/golden/plotly-bar-stacked.txt b/test/golden/plotly-bar-stacked.txt
new file mode 100644
--- /dev/null
+++ b/test/golden/plotly-bar-stacked.txt
@@ -0,0 +1,16 @@
+
+ [90mSales by quarter (stacked) [0m
+ [37m│ [0m[94m█████████ ██ [0m
+ [37m│ [0m[94m█████████ ██[0m[90mproduct [0m
+[90m40.0 [0m[37m│ [0m[94m█████████ █████████ [0m
+ [37m│ [0m[94m█████████ █████████ [0m
+ [37m│ [0m[94m█████████ █████████ █████████ [0m
+ [37m│ [0m[94m█████████ █████████ █████████ █████████ [0m
+ [37m│ [0m[94m█████████ █████████ █████████ █████████ [0m
+[90m20.0 [0m[37m│ [0m[94m█████████ █████████ █████████ █████████ [0m
+ [37m│ [0m[94m█████████ █████████ █████████ █████████ [0m
+ [37m│ [0m[94m█████████ █████████ █████████ █████████ [0m
+ [37m│ [0m[94m█████████ █████████ █████████ █████████ [0m
+ [90m0.0 [0m[37m│ [0m[94m█████████ █████████ █████████ █████████ [0m
+ [37m┼─────────────────────────────────────────── [0m
+ [90m0.0 1.0 2.0 3.0 [0m
diff --git a/test/golden/plotly-density.svg b/test/golden/plotly-density.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/plotly-density.svg
@@ -0,0 +1,17 @@
+
diff --git a/test/golden/plotly-density.txt b/test/golden/plotly-density.txt
new file mode 100644
--- /dev/null
+++ b/test/golden/plotly-density.txt
@@ -0,0 +1,14 @@
+
+ [90mDensity (KDE) [0m
+ [90m0.3 [0m[37m│ ⣀⡤⢤⣀⡀ [0m[94m██ [0m
+ [37m│ ⢀⠞⠁ ⠈⠙⠒⠢⢄⡀ [0m[94m██[0m[90mseries 0 [0m
+ [37m│ ⢠⠊ ⠈⢦ [0m
+ [90m0.2 [0m[37m│ ⢀⠎ ⠣⡀ [0m
+ [37m│ ⡜ ⠱⡀ [0m
+ [37m│ ⡰⠁ ⢱ [0m
+ [90m0.1 [0m[37m│ ⢰⠁ ⠱⡀ [0m
+ [37m│ ⢠⠃ ⢣ [0m
+ [37m│ ⡠⠃ ⠳⣀ [0m
+ [37m│ ⣀⣀⣠⠤⠚⠁ ⠈⠲⠤⣀⣀⡀ [0m
+ [90m0.0 [0m[37m┼─────────────────────────────────────── [0m
+ [90m0.0 2.0 4.0 6.0 [0m
diff --git a/test/golden/plotly-distplot.svg b/test/golden/plotly-distplot.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/plotly-distplot.svg
@@ -0,0 +1,27 @@
+
diff --git a/test/golden/plotly-distplot.txt b/test/golden/plotly-distplot.txt
new file mode 100644
--- /dev/null
+++ b/test/golden/plotly-distplot.txt
@@ -0,0 +1,16 @@
+
+ [90mDistribution [0m
+ [90m3.0 [0m[37m│ [0m[94m████ ███ ███ ███ ██ [0m
+ [37m│ [0m[94m████ ███ ███ ███ [0m[95m██[0m[90mseries 0 [0m
+ [37m│ [0m[94m████ ███ ███ ███ [0m[95m██[0m[90mseries 1 [0m
+ [37m│ [0m[94m████ ███ ███ ███ [0m
+ [90m2.0 [0m[37m│ [0m[94m████████ ███████ [0m
+ [37m│ [0m[94m████████ ███████ [0m
+ [37m│ [0m[94m████████ ███████ [0m
+ [37m│ [0m[94m████████ ███████ [0m
+ [90m1.0 [0m[37m│ [0m[94m████████████████ [0m
+ [37m│ [0m[94m████████████████ [0m
+ [37m│ [0m[94m████████████████ [0m
+ [90m0.0 [0m[37m│ ⣀⣀⣀⣀⡠⠤⠤⠒⠊[0m[94m████████████████⠒⠲⠤⠤⣄⣀⣀⣀⣀ [0m
+ [37m┼─────────────────────────────────────── [0m
+ [90m0.0 2.0 4.0 6.0 [0m
diff --git a/test/golden/plotly-error-bars.svg b/test/golden/plotly-error-bars.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/plotly-error-bars.svg
@@ -0,0 +1,35 @@
+
diff --git a/test/golden/plotly-error-bars.txt b/test/golden/plotly-error-bars.txt
new file mode 100644
--- /dev/null
+++ b/test/golden/plotly-error-bars.txt
@@ -0,0 +1,14 @@
+
+ [90mMeasurements ± CI [0m
+ [37m│ ⠤⢤⠤ [0m[94m██ [0m
+ [37m│ [0m[95m⢸ ██[0m[90mseries 0 [0m
+ [90m6.0 [0m[37m│ ⠠⢤⠤⠄ [0m[95m⢹⠁ ██[0m[90mseries 1 [0m
+ [37m│ [0m[95m⢼⠄ ⠒⡖⠂ ⠒⠚⠒ [0m
+ [37m│ ⠠⠼⠤⠄ [0m[95m⠐⡗ [0m
+ [90m4.0 [0m[37m│ ⠐⢲⠒ ⠤⠧⠄ [0m
+ [37m│ [0m[95m⢼⠄ [0m
+ [37m│ ⣀⣀⣀ ⠠⠼⠤ [0m
+ [37m│ [0m[95m⢀⣇ [0m
+ [90m2.0 [0m[37m│ ⣀[0m[95m⣇⣀ [0m
+ [37m┼─────────────────────────────────────── [0m
+ [90m2.0 4.0 [0m
diff --git a/test/golden/plotly-funnel.svg b/test/golden/plotly-funnel.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/plotly-funnel.svg
@@ -0,0 +1,19 @@
+
diff --git a/test/golden/plotly-funnel.txt b/test/golden/plotly-funnel.txt
new file mode 100644
--- /dev/null
+++ b/test/golden/plotly-funnel.txt
@@ -0,0 +1,14 @@
+
+ [90mSales funnel [0m
+ [37m│ [0m[94m███████████████████████████████████████ ██ [0m
+ [90m0.0 [0m[37m│ [0m[94m███████████████████████████████████████ ██[0m[90mseries 0 [0m
+ [37m│ [0m[94m███████████████████████████████████████ [0m
+ [37m│ [0m[94m█████████████████████████████ [0m
+ [37m│ [0m[94m███████████████████ [0m
+ [90m2.0 [0m[37m│ [0m[94m███████████████████ [0m
+ [37m│ [0m[94m█████████ [0m
+ [37m│ [0m[94m█████████ [0m
+ [37m│ [0m[94m█████ [0m
+ [90m4.0 [0m[37m│ [0m[94m█████ [0m
+ [37m┼─────────────────────────────────────────── [0m
+ [90m0.0 500.0 1000.0 [0m
diff --git a/test/golden/plotly-heatmap-annotated.svg b/test/golden/plotly-heatmap-annotated.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/plotly-heatmap-annotated.svg
@@ -0,0 +1,64 @@
+
diff --git a/test/golden/plotly-heatmap-annotated.txt b/test/golden/plotly-heatmap-annotated.txt
new file mode 100644
--- /dev/null
+++ b/test/golden/plotly-heatmap-annotated.txt
@@ -0,0 +1,16 @@
+
+ [90mAnnotated heatmap [0m
+ [37m│[0m[34m██████[0m[94m█████[0m[96m███████████████████ [0m[94m██ [0m
+ [90m4.0 [0m[37m│[0m[34m█[0m[95m-0.4[0m[34m█[0m[94m█[0m[95m0.1[0m[94m█[0m[96m██[0m[95m0.4[0m[96m███[0m[95m0.6[0m[96m███[0m[95m0.5[0m[96m██ [0m[94m██[0m[90mseries 0 [0m
+ [37m│[0m[34m██████[0m[94m█████[0m[96m███████████████████ [0m
+ [37m│[0m[94m██[0m[95m0.1[0m[94m█[0m[96m█[0m[95m0.6[0m[96m█[0m[92m██[0m[95m0.9[0m[92m███[0m[95m1.1[0m[92m███[0m[95m1.0[0m[92m██ [0m
+ [37m│[0m[94m██████[0m[96m█████[0m[92m███████████████████ [0m
+ [37m│[0m[96m██████[0m[92m█████[0m[93m███████████████████ [0m
+ [90m2.0 [0m[37m│[0m[96m██[0m[95m0.5[0m[96m█[0m[92m█[0m[95m1.0[0m[92m█[0m[93m██[0m[95m1.4[0m[93m███[0m[95m1.5[0m[93m███[0m[95m1.4[0m[93m██ [0m
+ [37m│[0m[96m██████[0m[92m█████[0m[93m███████████████████ [0m
+ [37m│[0m[92m██[0m[95m0.9[0m[92m█[0m[93m█[0m[95m1.4[0m[93m█[0m[91m██[0m[95m1.7[0m[91m███[0m[95m1.9[0m[91m███[0m[95m1.8[0m[91m██ [0m
+ [37m│[0m[92m██████[0m[93m█████[0m[91m███████████████████ [0m
+ [37m│[0m[92m██[0m[95m1.0[0m[92m█[0m[93m█[0m[95m1.5[0m[93m█[0m[91m██[0m[95m1.8[0m[91m███[0m[95m2.0[0m[91m███[0m[95m1.9[0m[91m██ [0m
+ [90m0.0 [0m[37m│[0m[92m██████[0m[93m█████[0m[91m███████████████████ [0m
+ [37m┼─────────────────────────────── [0m
+ [90m0.0 2.0 4.0 [0m
diff --git a/test/golden/plotly-heatmap.svg b/test/golden/plotly-heatmap.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/plotly-heatmap.svg
@@ -0,0 +1,39 @@
+
diff --git a/test/golden/plotly-heatmap.txt b/test/golden/plotly-heatmap.txt
new file mode 100644
--- /dev/null
+++ b/test/golden/plotly-heatmap.txt
@@ -0,0 +1,16 @@
+
+ [90mHeatmap [0m
+ [37m│[0m[34m██████[0m[94m█████[0m[96m███████████████████ [0m[94m██ [0m
+ [90m4.0 [0m[37m│[0m[34m██████[0m[94m█████[0m[96m███████████████████ [0m[94m██[0m[90mseries 0 [0m
+ [37m│[0m[34m██████[0m[94m█████[0m[96m███████████████████ [0m
+ [37m│[0m[94m██████[0m[96m█████[0m[92m███████████████████ [0m
+ [37m│[0m[94m██████[0m[96m█████[0m[92m███████████████████ [0m
+ [37m│[0m[96m██████[0m[92m█████[0m[93m███████████████████ [0m
+ [90m2.0 [0m[37m│[0m[96m██████[0m[92m█████[0m[93m███████████████████ [0m
+ [37m│[0m[96m██████[0m[92m█████[0m[93m███████████████████ [0m
+ [37m│[0m[92m██████[0m[93m█████[0m[91m███████████████████ [0m
+ [37m│[0m[92m██████[0m[93m█████[0m[91m███████████████████ [0m
+ [37m│[0m[92m██████[0m[93m█████[0m[91m███████████████████ [0m
+ [90m0.0 [0m[37m│[0m[92m██████[0m[93m█████[0m[91m███████████████████ [0m
+ [37m┼─────────────────────────────── [0m
+ [90m0.0 2.0 4.0 [0m
diff --git a/test/golden/plotly-waterfall.svg b/test/golden/plotly-waterfall.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/plotly-waterfall.svg
@@ -0,0 +1,20 @@
+
diff --git a/test/golden/plotly-waterfall.txt b/test/golden/plotly-waterfall.txt
new file mode 100644
--- /dev/null
+++ b/test/golden/plotly-waterfall.txt
@@ -0,0 +1,14 @@
+
+ [90mWaterfall [0m
+[90m00.0 [0m[37m│ [0m[94m████████████ ██ [0m
+ [37m│ [0m[94m██████ ██████ ████████████ ██[0m[90mseries 0 [0m
+ [37m│ [0m[94m██████ ██████ [0m
+ [37m│ [0m[94m████████████ ██████ [0m
+ [37m│ [0m[94m██████ ██████ [0m
+[90m00.0 [0m[37m│ [0m[94m██████ ██████ ██████ [0m
+ [37m│ [0m[94m██████ ██████ [0m
+ [37m│ [0m[94m██████ ██████ [0m
+ [37m│ [0m[94m██████ ██████ [0m
+ [37m│ [0m[94m██████ ██████ [0m
+ [90m0.0 [0m[37m┼─────────────────────────────────────────── [0m
+ [90m0.0 2.0 4.0 [0m
diff --git a/test/golden/polar-rose.svg b/test/golden/polar-rose.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/polar-rose.svg
@@ -0,0 +1,22 @@
+
diff --git a/test/golden/polar-rose.txt b/test/golden/polar-rose.txt
new file mode 100644
--- /dev/null
+++ b/test/golden/polar-rose.txt
@@ -0,0 +1,20 @@
+
+ [90mPolar rose [0m
+ [94m██ [0m
+ [90m2.0⣀⣤⠶⠶⠶⠶⠶⢦⣄⡀ [0m[94m██[0m[90mr = |sin([0m
+ ⢀⢔⢟⠉ ⡨⠽⢷⡢⡀
+ ⣠⡾⠕⠬⣆ ⢠⠊ ⢫⠺⣄
+ ⡰⡝ ⠈⢗⡄⣀⣀⣠⣃ ⡸ ⠱⣇
+ ⢠⡟⠱⡀ ⡜⢏⢢ ⡎ ⠉⢢ ⢠⠃ ⢫⡆
+ ⢀⡷⠁ ⠱⡀⢀⠎ ⠈⢎⣆⠇ ⡵⡁ ⢀⣀⠤[90m0.0 [0m
+ ⢸⡇ ⠈⡞⢄⡀ ⠈⢿⣀⡠⣔⡪⠤⢳⠉⠁ ⢸⡇
+ ⢸⡇ ⡇⢀⡨⠭⠕⣺[90m0.0 0.5 1.0 [0m
+ ⢸⡇ ⡠⠵⡁ ⢀⠔⡿⡀ ⠑⠢⣀⠎ ⢸⡇
+ ⢿⡀⢀⠎ ⠣⡠⠃⢰⠁⡇ ⢀⠜⢕⢄⡀ ⢠⡻
+ ⠘⡵⡎ ⢀⠎⠉⡢⢇⣀⣣⡠⠔⠉ ⡇⠈⢢⣷⠁
+ ⠘⣿⣀⡔⢁⡠⠜ ⢇ ⢸⢀⢮[90m6.0 [0m
+ [90m4.0⡭⡁ ⠈⠢⡀⢀⣀⡮⡞⠁ [0m
+ ⠈⠪⢦⡤⢄⣀⡀ ⣀⣀⠬⣕⠕⠉
+ ⠈⠉⠑⠚⠛⠒⠉⠉
+
+
diff --git a/test/golden/primitives.svg b/test/golden/primitives.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/primitives.svg
@@ -0,0 +1,8 @@
+
diff --git a/test/golden/primitives.txt b/test/golden/primitives.txt
new file mode 100644
--- /dev/null
+++ b/test/golden/primitives.txt
@@ -0,0 +1,8 @@
+ [94m████ [0m
+ [94m████ [0m[93mPrimitives [0m
+ [94m████ [0m[91m⢠⣦ [0m
+ [91m⠹⡿⠁ [0m[95m⢀⡇ [0m
+ ⣀[95m⣒⠮⠄ [0m
+ ⣀⠤⠔⠊⠉⠑⠒⠒⠢⠤⠤⠒⠒⠉⠉
+ ⠒⠉
+
diff --git a/test/golden/scatter-basic.svg b/test/golden/scatter-basic.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/scatter-basic.svg
@@ -0,0 +1,29 @@
+
diff --git a/test/golden/scatter-basic.txt b/test/golden/scatter-basic.txt
new file mode 100644
--- /dev/null
+++ b/test/golden/scatter-basic.txt
@@ -0,0 +1,20 @@
+
+ [90mRandom points [0m
+ [37m│ [0m[94m⢀⣄ ██ [0m
+ [37m│ [0m[95m⢀⣅ ██[0m[90mA [0m
+[90m15.0 [0m[37m│ [0m[95m⠁ ██[0m[90mB [0m
+ [37m│ [0m
+ [37m│ [0m
+ [37m│ [0m
+[90m10.0 [0m[37m│ [0m[95m⠺⠂ [0m
+ [37m│ [0m[94m⠺⠂ [0m
+ [37m│ [0m
+ [37m│ [0m[95m⢀ [0m
+ [37m│ [0m[95m⠙⠁ [0m
+ [90m5.0 [0m[37m│ [0m[94m⣠⡀ [0m
+ [37m│ [0m[95m⢀⣄ [0m[94m⠈ [0m
+ [37m│ [0m[95m⠁ [0m
+ [37m│ [0m[95m⢴⠄ [0m[94m⠠⡦ [0m
+ [90m0.0 [0m[37m│ [0m[94m⢴⠄ [0m
+ [37m┼─────────────────────────────────────────── [0m
+ [90m0.0 1.0 2.0 3.0 4.0 [0m
diff --git a/test/golden/scatter-log-y.svg b/test/golden/scatter-log-y.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/scatter-log-y.svg
@@ -0,0 +1,28 @@
+
diff --git a/test/golden/scatter-no-title.svg b/test/golden/scatter-no-title.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/scatter-no-title.svg
@@ -0,0 +1,28 @@
+
diff --git a/test/golden/scatter-responsive.svg b/test/golden/scatter-responsive.svg
new file mode 100644
--- /dev/null
+++ b/test/golden/scatter-responsive.svg
@@ -0,0 +1,29 @@
+