Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
24 lines (19 sloc) 762 Bytes
module Main where
import Control.Lens
import Data.Default
import Graphics.Rendering.Chart
import Graphics.Rendering.Chart.Gtk
import Graphics.Rendering.Chart.Plot.Histogram
import qualified Data.Vector as V
values = V.fromList [1,1,2,3,8,8,8,8,10] :: V.Vector Double
chart = layout
where hist = plot_hist_values .~ values
$ plot_hist_range .~ Just (0, 10)
$ plot_hist_bins .~ 10
$ plot_hist_drop_lines .~ True
$ defaultPlotHist
layout :: Layout Double Int
layout = layout_title .~ "Hello World"
$ layout_plots .~ [ histToPlot hist ]
$ def
main = renderableToWindow (toRenderable chart) 640 480