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

Draw two lines for both x and y-axis

Browse Source
This commit is contained in:
hasufell 2014-10-02 20:07:23 +02:00
parent c018304319
commit 0ab6a15d4e
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Diagram.hs
View File

@ -18,7 +18,9 @@ diagFromVTable :: DiagProp -> VTable -> Diagram Cairo R2
diagFromVTable prop vt diagFromVTable prop vt
= position (zip (map mkPoint . filter (inRange 0 500) $ vt) = position (zip (map mkPoint . filter (inRange 0 500) $ vt)
(repeat dot)) # moveTo (p2(-250, -250)) (repeat dot)) # moveTo (p2(-250, -250))
`atop` square 500 # lwG 0.00 # bg white `atop` hrule 500 # centerX # moveTo (p2(0, -250))
`atop` vrule 500 # centerY # moveTo (p2(-250, 0))
`atop` square 550 # lwG 0.00 # bg white
where dot = (circle $ where dot = (circle $
getThickness prop :: Diagram Cairo R2) # fc black getThickness prop :: Diagram Cairo R2) # fc black
mkPoint (x,y) = p2 (x,y) mkPoint (x,y) = p2 (x,y)