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
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 2 additions and 4 deletions
Show Stats 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 _ = labels p _ =
position $ position $
zip (mkPoint <$> xs) zip (mkPoint <$> xs)
((\x -> (flip (<>) (square 1 # lw none) . ((\x -> (text . show $ x) # scale 10) <$> xs)
text . show $ x) # scale 10) <$> xs)
where where
xs :: [Int] xs :: [Int]
xs = take (floor . (/) (xuD p - xlD p) $ (sqS p)) xs = take (floor . (/) (xuD p - xlD p) $ (sqS p))
@ -146,8 +145,7 @@ yAxis =
labels p _ = labels p _ =
position $ position $
zip (mkPoint <$> ys) zip (mkPoint <$> ys)
((\x -> (flip (<>) (square 1 # lw none) . ((\x -> (text . show $ x) # scale 10) <$> ys)
text . show $ x) # scale 10) <$> ys)
where where
ys :: [Int] ys :: [Int]
ys = take (floor . (/) (yuD p - ylD p) $ (sqS p)) ys = take (floor . (/) (yuD p - ylD p) $ (sqS p))