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

Style

Browse Source
This commit is contained in:
hasufell 2014-10-02 14:30:08 +02:00
parent 1ca38186e8
commit d39180a723
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Diagram.hs
View File

@ -15,8 +15,8 @@ data DiagProp = MkProp {
-- |Create the Diagram from the VTable. -- |Create the Diagram from the VTable.
diagFromVTable :: DiagProp -> VTable -> Diagram Cairo R2 diagFromVTable :: DiagProp -> VTable -> Diagram Cairo R2
diagFromVTable prop meshArr diagFromVTable prop vt
= position (zip (map mkPoint . filter (inRange 0 500) $ meshArr) = 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.05 # bg white `atop` square 500 # lwG 0.05 # bg white
where dot = (circle $ where dot = (circle $

2
Gtk.hs
View File

@ -41,7 +41,7 @@ makeGUI startFile = do
-- callbacks -- callbacks
_ <- onDestroy window mainQuit _ <- onDestroy window mainQuit
_ <- onClicked drawButton $ onClickedDrawButton fileButton _ <- onClicked drawButton $ onClickedDrawButton fileButton
da hscale da hscale
_ <- onClicked saveButton $ onClickedSaveButton fileButton _ <- onClicked saveButton $ onClickedSaveButton fileButton
_ <- onClicked quitButton mainQuit _ <- onClicked quitButton mainQuit