我正在尝试使用Diagrams后端(均来自Stackage(测试Chart,并使用此示例
import Graphics.Rendering.Chart.Easy
import Graphics.Rendering.Chart.Backend.Diagrams
signal :: [Double] -> [(Double,Double)]
signal xs = [ (x,(sin (x*3.14159/45) + 1) / 2 * (sin (x*3.14159/5))) | x <- xs ]
test :: IO ()
test = toFile def "example1_big.png" $ do
layout_title .= "Amplitude Modulation"
setColors [opaque blue, opaque red]
plot (line "am" [signal [0,(0.5)..400]])
plot (points "am points" (signal [0,7..400]))
来自wiki的示例1。
在Main.hs
文件中
main :: IO ()
main = test
该项目在没有任何错误的情况下构建和运行,并且实际上在项目目录中生成了一个example1_big.png
文件。但我无法使用feh
或任何其他图像查看器打开它。
这就是feh
所说的。
$ feh example1_big.png
feh WARNING: example1_big.png - No Imlib2 loader for that file format
feh: No loadable images specified.
See 'feh --help' or 'man feh' for detailed usage information
在上面使用mediainfo
表明它没有正确的格式信息。
$ mediainfo example1_big.png
General
Complete name : example1_big.png
File size : 149 KiB
环顾四周,我确实找到了这根线。本质上,他们建议使用正确定义的FileOptions
,而不是使用def
默认值。
这就是我所做的
svgFileOpt :: FileOptions
svgFileOpt = FileOptions (800, 600) SVG loadCommonFonts
signal :: [Double] -> [(Double, Double)]
signal xs =
[ (x, (sin (x * 3.14159 / 45) + 1) / 2 * (sin (x * 3.14159 / 5))) | x <- xs ]
plotDayVsDouble :: IO ()
plotDayVsDouble = toFile svgFileOpt "example1_big.png" $ do
layout_title .= "Amplitude Modulation"
setColors [opaque blue, opaque red]
plot (line "am" [signal [0, (0.5) .. 400]])
plot (points "am points" (signal [0, 7 .. 400]))
不幸的是,结果完全一样。我惊讶地发现mediainfo
甚至没有显示维度信息。
$ mediainfo example1_big.png
General
Complete name : example1_big.png
File size : 149 KiB
基本上,我尝试过的feh
和其他图像查看器不支持SVG Scalable Vector Graphics image
。
使用feh --magick-timeout 1
或imagemagick
的display
成功!