hasufell/cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

DIAG: add haddock comment

Browse Source
This commit is contained in:
hasufell 2014-12-07 20:30:51 +01:00
parent 34ba3bbfa2
commit c6ca5fa7da
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Graphics/Diagram/Plotter.hs
View File

@ -7,12 +7,14 @@ import Diagrams.Prelude hiding ((<>))
import Graphics.Diagram.Core import Graphics.Diagram.Core
-- |All x coordinates separated by the squareSize on DiagProp.
xAxisPoints :: DiagProp -> [Double] xAxisPoints :: DiagProp -> [Double]
xAxisPoints p = takeWhile (< diagXmax p) xAxisPoints p = takeWhile (< diagXmax p)
. iterate (+ squareSize p) . iterate (+ squareSize p)
$ diagXmin p $ diagXmin p
-- |All y coordinates separated by the squareSize on DiagProp.
yAxisPoints :: DiagProp -> [Double] yAxisPoints :: DiagProp -> [Double]
yAxisPoints p = takeWhile (< diagYmax p) yAxisPoints p = takeWhile (< diagYmax p)
. iterate (+ squareSize p) . iterate (+ squareSize p)