Chart-tests-1.9.4: tests/Test15.hs

module Test15 where

import Graphics.Rendering.Chart
import Data.Colour
import Data.Colour.Names
import Control.Lens
import Data.Default.Class

import Utils

chart lo lp = layoutToRenderable layout
 where
  layout =
        layout_title .~ "Legend Test"
      $ layout_title_style . font_size .~ 10
      $ layout_x_axis . laxis_generate .~ autoIndexAxis alabels
      $ layout_y_axis . laxis_override .~ axisGridHide
      $ layout_left_axis_visibility . axis_show_ticks .~ False
      $ layout_plots .~ [ plotBars bars2 ]
      $ layout_legend ?~ lstyle
      $ def :: Layout PlotIndex Double

  bars2 = plot_bars_titles .~ ["A","B","C","D","E","F","G","H","I","J"]
      $ plot_bars_values .~ addIndexes [[2,3,4,2,1,5,6,4,8,1,3],
                                        [7,4,5,6,2,4,4,5,7,8,9]
                                       ]
      $ plot_bars_style .~ BarsClustered
      $ plot_bars_spacing .~ BarsFixGap 30 5
      $ plot_bars_item_styles .~ map mkstyle (cycle defaultColorSeq)
      $ def

  alabels = [ "X", "Y" ]

  lstyle = legend_orientation .~ lo
         $ legend_position .~ lp
         $ def

  btitle = ""
  mkstyle c = (solidFillStyle c, Nothing)

-- main = main' "test15" (chart (LORows 3))