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

Set white background for the drawing area

Browse Source
This commit is contained in:
hasufell 2014-10-01 03:03:09 +02:00
parent b9aee774da
commit 8f1ab75fe7
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

@ -9,9 +9,9 @@ import Util
-- |Create the Diagram from the VTable.
diagFromVTable :: VTable -> Diagram Cairo R2
diagFromVTable meshArr
= square 500 # lwG 0.05
`atop` position (zip (map mkPoint . filterValidCoords 0 500 $ meshArr)
= position (zip (map mkPoint . filterValidCoords 0 500 $ meshArr)
(repeat dot)) # moveTo (p2(-250, -250))
`atop` square 500 # lwG 0.05 # bg white
where dot = (circle 2 :: Diagram Cairo R2) # fc black
mkPoint (x,y) = p2 (x,y)