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

Fix y-axis

This commit is contained in:
hasufell 2014-10-08 19:29:51 +02:00
parent c0be077f15
commit 0677a26040
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Diagram.hs
View File

@ -117,7 +117,7 @@ showXAxis = Diag f
showYAxis :: Diag
showYAxis = Diag f
where
f p _ = strokeTrail . fromVertices $ [p2 (0, ylD p), p2 (0, yuD p)] # moveTo (p2 (0, ylD p))
f p _ = (strokeTrail . fromVertices $ [p2 (0, ylD p), p2 (0, yuD p)]) # moveTo (p2 (0, ylD p))
-- |Creates a Diagram that shows a white rectangle which is a little