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

DIAGRAM: rm unnecessary square

Browse Source
This commit is contained in:
hasufell
2014-10-10 23:28:01 +02:00
parent eadbf76978
commit 60843e5879
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Graphics/Diagram/Plotter.hs
View File

@@ -118,8 +118,7 @@ xAxis =
labels p _ =
position $
zip (mkPoint <$> xs)
((\x -> (flip (<>) (square 1 # lw none) .
text . show $ x) # scale 10) <$> xs)
((\x -> (text . show $ x) # scale 10) <$> xs)
where
xs :: [Int]
xs = take (floor . (/) (xuD p - xlD p) $ (sqS p))
@@ -146,8 +145,7 @@ yAxis =
labels p _ =
position $
zip (mkPoint <$> ys)
((\x -> (flip (<>) (square 1 # lw none) .
text . show $ x) # scale 10) <$> ys)
((\x -> (text . show $ x) # scale 10) <$> ys)
where
ys :: [Int]
ys = take (floor . (/) (yuD p - ylD p) $ (sqS p))