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

DIAG: improve readability

This commit is contained in:
hasufell 2014-12-03 21:20:46 +01:00
parent 9fca3ccaa9
commit f1f3f20a26
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 12 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
Graphics/Diagram/Plotter.hs
View File

@ -327,10 +327,8 @@ xAxis =
(replicate (floor . (/) (diagWidth p) $ squareSize p)
(vrule 10))
# moveTo (p2 (diagXmin p, if diagYmin p <= 0 then 0 else diagYmin p))
labels p _ =
position $
zip (mkPoint <$> xs)
((\x -> (text . show $ x) # scale 10) <$> xs)
labels p _ = position . zip (mkPoint <$> xs)
$ ((\x -> (text . show $ x) # scale 10) <$> xs)
where
xs :: [Int]
xs = take (floor . (/) (diagWidth p) $ squareSize p)
@ -347,19 +345,15 @@ yAxis =
<> Diag segments
<> Diag labels
where
vRule p _ =
arrowAt (p2 (if diagXmin p <= 0 then 0 else diagXmin p, diagYmin p))
(r2 (0, diagHeight p))
segments p _ =
vcat' (with & sep .~ squareSize p)
(replicate (floor . (/) (diagHeight p) $ squareSize p)
(hrule 10))
vRule p _ = arrowAt (p2 (if diagXmin p <= 0 then 0 else diagXmin p, diagYmin p))
(r2 (0, diagHeight p))
segments p _ = vcat' (with & sep .~ squareSize p)
(replicate (floor . (/) (diagHeight p) $ squareSize p)
(hrule 10))
# alignB
# moveTo (p2 (if diagXmin p <= 0 then 0 else diagXmin p, diagYmin p))
labels p _ =
position $
zip (mkPoint <$> ys)
((\x -> (text . show $ x) # scale 10) <$> ys)
labels p _ = position . zip (mkPoint <$> ys)
$ ((\x -> (text . show $ x) # scale 10) <$> ys)
where
ys :: [Int]
ys = take (floor . (/) (diagHeight p) $ squareSize p)
@ -373,10 +367,9 @@ yAxis =
whiteRectB :: Diag
whiteRectB = Diag rect'
where
rect' p _ =
whiteRect (diagWidth p + (diagWidth p / 10))
(diagHeight p + (diagHeight p / 10))
# moveTo (p2 (diagWidthOffset p, diagHeightOffset p))
rect' p _ = whiteRect (diagWidth p + (diagWidth p / 10))
(diagHeight p + (diagHeight p / 10))
# moveTo (p2 (diagWidthOffset p, diagHeightOffset p))
where