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

Rm obsolete centerX/centerY

Browse Source
This commit is contained in:
hasufell 2014-10-05 21:33:22 +02:00
parent d69647dcd3
commit 6c728324fd
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Diagram.hs
View File

@ -32,8 +32,8 @@ diagFromVTable :: DiagProp -> VTable -> Diagram Cairo R2
diagFromVTable prop vt diagFromVTable prop vt
= position (zip (map mkPoint . filter (inRange (dX prop) (dY prop)) $ vt) = position (zip (map mkPoint . filter (inRange (dX prop) (dY prop)) $ vt)
(repeat dot)) # moveTo (p2(xOffset, yOffset)) (repeat dot)) # moveTo (p2(xOffset, yOffset))
`atop` hrule (xuD - xlD) # centerX # moveTo (p2(0, yOffset)) `atop` hrule (xuD - xlD) # moveTo (p2(0, yOffset))
`atop` vrule (yuD - ylD) # centerY # moveTo (p2(xOffset, 0)) `atop` vrule (yuD - ylD) # moveTo (p2(xOffset, 0))
`atop` emptyRect (xuD - xlD + 50) (yuD - ylD + 50) `atop` emptyRect (xuD - xlD + 50) (yuD - ylD + 50)
where dot = (circle $ where dot = (circle $
t prop :: Diagram Cairo R2) # fc black t prop :: Diagram Cairo R2) # fc black