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

Style improvements

Browse Source
This commit is contained in:
hasufell 2014-10-02 13:13:58 +02:00
parent 8f806ab42c
commit 80b5286095
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Diagram.hs
View File

@ -17,10 +17,11 @@ data DiagProp = MkProp {
diagFromVTable :: DiagProp -> VTable -> Diagram Cairo R2
diagFromVTable prop meshArr
= position (zip (map mkPoint . filter (inRange 0 500) $ meshArr)
(repeat dot)) # moveTo (p2(-250, -250))
`atop` square 500 # lwG 0.05 # bg white
where dot = (circle $ getThickness prop :: Diagram Cairo R2) # fc black
mkPoint (x,y) = p2 (x,y)
(repeat dot)) # moveTo (p2(-250, -250))
`atop` square 500 # lwG 0.05 # bg white
where dot = (circle $
getThickness prop :: Diagram Cairo R2) # fc black
mkPoint (x,y) = p2 (x,y)
-- |Create the Diagram from a String.
diagFromString :: DiagProp -> String -> Diagram Cairo R2