haskell - Haskell 图 SVG 文件的边距

Question

我正在尝试这个图表示例:

funs          = map (flip (^)) [2..6]
visualize f   = stroke' (with & vertexNames .~ [[0 .. 6 :: Int]] )
                    (regPoly 7 1)
                  # lw none
                  # showLabels
                  # fontSize (Local 0.6)
             <> star (StarFun f) (regPoly 7 1)
                  # stroke # lw thick # lc red
example       = center . hcat' (with & sep .~ 0.5) $ map visualize funs

结果如下:

一切都按预期显示，一些数字(或更准确地说，这些数字的中心)位于图像边缘附近，因此最终它们看起来像是被剪掉了。

有办法解决这个问题吗？

Answer 1

问题是文本没有信封，因此不考虑其大小。您可以使用 frame 函数来解决您的问题，该函数向信封添加边框。

example = frame 2 . center . hcat' (with & sep .~ 5) $ map visualize funs