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

DIAGRAM: improve behavior for dimensions like (100,300) (100,300)

This commit is contained in:
hasufell 2014-10-11 13:49:53 +02:00
parent 6c66a7acb3
commit d81e932d00
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Graphics/Diagram/Plotter.hs
View File

@ -111,13 +111,13 @@ xAxis =
Diag labels
where
hRule p _ =
arrowAt (p2 (xmin p,0))
arrowAt (p2 (xmin p, if ymin p <= 0 then 0 else ymin p))
(r2 (w' p, 0))
segments p _ =
hcat' (with & sep .~ sqS p)
(replicate (floor . (/) (w' p) $ sqS p)
(vrule 10)) #
moveTo (p2 (xmin p,0))
moveTo (p2 (xmin p, if ymin p <= 0 then 0 else ymin p))
labels p _ =
position $
zip (mkPoint <$> xs)
@ -126,7 +126,8 @@ xAxis =
xs :: [Int]
xs = take (floor . (/) (w' p) $ sqS p)
(iterate (+(floor . sqS $ p)) (floor . xmin $ p))
mkPoint x = p2 (fromIntegral x, -15)
mkPoint x = p2 (fromIntegral x,
-15 + (if ymin p <= 0 then 0 else ymin p))
-- |Creates a Diagram that shows an YAxis which is bound
@ -138,14 +139,14 @@ yAxis =
Diag labels
where
vRule p _ =
arrowAt (p2 (0, ymin p))
arrowAt (p2 (if xmin p <= 0 then 0 else xmin p, ymin p))
(r2 (0, h' p))
segments p _ =
vcat' (with & sep .~ sqS p)
(replicate (floor . (/) (h' p) $ sqS p)
(hrule 10)) #
alignB #
moveTo (p2 (0, ymin p))
moveTo (p2 (if xmin p <= 0 then 0 else xmin p, ymin p))
labels p _ =
position $
zip (mkPoint <$> ys)
@ -154,7 +155,8 @@ yAxis =
ys :: [Int]
ys = take (floor . (/) (h' p) $ sqS p)
(iterate (+(floor . sqS $ p)) (floor . ymin $ p))
mkPoint y = p2 (-15, fromIntegral y)
mkPoint y = p2 (-15 + (if xmin p <= 0 then 0 else xmin p),
fromIntegral y)
-- |Creates a Diagram that shows a white rectangle which is a little
@ -168,7 +170,6 @@ whiteRectB = Diag rect'
where
-- |Create a white rectangle with the given width and height.
whiteRect :: Double -> Double -> Diagram Cairo R2
whiteRect x y = rect x y # lwG 0.00 # bg white