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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
-----------------------------------------------------------------------------
-- |
-- Module : Graphics.Rendering.Chart.Axis.Int
-- Copyright : (c) Tim Docker 2010, 2014
-- License : BSD-style (see chart/COPYRIGHT)
--
-- Calculate and render integer indexed axes
module Graphics.Rendering.Chart.Axis.Int(
defaultIntAxis,
scaledIntAxis,
autoScaledIntAxis
) where
import Data.List(genericLength)
import Graphics.Rendering.Chart.Geometry
import Graphics.Rendering.Chart.Axis.Types
import Graphics.Rendering.Chart.Axis.Floating
instance PlotValue Int where
toValue = fromIntegral
fromValue = round
autoAxis = autoScaledIntAxis defaultIntAxis
instance PlotValue Integer where
toValue = fromIntegral
fromValue = round
autoAxis = autoScaledIntAxis defaultIntAxis
defaultIntAxis :: (Show a) => LinearAxisParams a
defaultIntAxis = LinearAxisParams {
_la_labelf = show,
_la_nLabels = 5,
_la_nTicks = 10
}
autoScaledIntAxis :: (Integral i, PlotValue i) =>
LinearAxisParams i -> AxisFn i
autoScaledIntAxis lap ps = scaledIntAxis lap rs ps
where
rs = (minimum ps,maximum ps)
scaledIntAxis :: (Integral i, PlotValue i) =>
LinearAxisParams i -> (i,i) -> AxisFn i
scaledIntAxis lap (minI,maxI) ps =
makeAxis (_la_labelf lap) (labelvs,tickvs,gridvs)
where
range [] = (0,1)
range _ | minI == maxI = (fromIntegral $ minI-1, fromIntegral $ minI+1)
| otherwise = (fromIntegral minI, fromIntegral maxI)
-- labelvs :: [i]
labelvs = stepsInt (fromIntegral $ _la_nLabels lap) r
tickvs = stepsInt (fromIntegral $ _la_nTicks lap)
( fromIntegral $ minimum labelvs
, fromIntegral $ maximum labelvs )
gridvs = labelvs
r = range ps
stepsInt :: Integral a => a -> Range -> [a]
stepsInt nSteps range = bestSize (goodness alt0) alt0 alts
where
bestSize n a (a':as) = let n' = goodness a' in
if n' < n then bestSize n' a' as else a
bestSize _ _ [] = []
goodness vs = abs (genericLength vs - nSteps)
(alt0:alts) = map (\n -> steps n range) sampleSteps
sampleSteps = [1,2,5] ++ sampleSteps1
sampleSteps1 = [10,20,25,50] ++ map (*10) sampleSteps1
steps size (minV,maxV) = takeWhile (<b) [a,a+size..] ++ [b]
where
a = (floor (minV / fromIntegral size)) * size
b = (ceiling (maxV / fromIntegral size)) * size
|
