如何将命令行参数添加到图表动画中？

问题描述

使用“图像”图表，我可以将需要参数的函数（此处为 pDiag）传递给 mainWith 并将必要的参数附加到命令中，如下所示：
stack exec circle-diagram-exe -- -o circle.png -w 800 9

module DiagramsWithParameters where

import Diagrams.Prelude
import Diagrams.Backend.Cairo.CmdLine

--main = mainWith pDiag
main = mainWith pAnimation

pDiag :: Double -> Diagram B
pDiag d = circle d # fc gold

pAnimation :: Int -> [(Diagram B,Int)]
pAnimation r = replicate r ((circle 0.95 # fc gold),1)

但是我什至无法构建动画：

    • No instance for (Diagrams.Backend.CmdLine.ToResult
                         [(QDiagram B V2 Double Any,Int)])
        arising from a use of ‘mainWith’
    • In the expression: mainWith pAnimation
      In an equation for ‘main’: main = mainWith pAnimation
  |
7 | main = mainWith pAnimation
  |        ^^^^^^^^^^^^^^^^^^^

如何为我的动画支持命令行参数？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

haskell haskell haskell-diagrams