1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
-----------------------------------------------------------------------------
-- |
-- Module : Graphics.Rendering.Chart.Plot.Hidden
-- Copyright : (c) Tim Docker 2006, 2014
-- License : BSD-style (see chart/COPYRIGHT)
--
-- Plots that don't show, but occupy space so as to effect axis
-- scaling
--
{-# LANGUAGE TemplateHaskell #-}
module Graphics.Rendering.Chart.Plot.Hidden(
PlotHidden(..),
plot_hidden_x_values,
plot_hidden_y_values
) where
import Control.Lens
import Graphics.Rendering.Chart.Plot.Types
-- | Value defining some hidden x and y values. The values are
-- not displayed, but they still affect axis scaling.
data PlotHidden x y = PlotHidden {
_plot_hidden_x_values :: [x],
_plot_hidden_y_values :: [y]
}
instance ToPlot PlotHidden where
toPlot ph = Plot {
_plot_render = \_ -> return (),
_plot_legend = [],
_plot_all_points = (_plot_hidden_x_values ph, _plot_hidden_y_values ph)
}
$( makeLenses ''PlotHidden )
|
