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

Minor cleanup

Browse Source
This commit is contained in:
hasufell 2014-10-01 01:19:20 +02:00
parent 6c0a1c7572
commit f9f8b04ea9
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Main.hs
View File

@ -4,7 +4,6 @@ import Diagram
import Diagrams.Prelude import Diagrams.Prelude
import Diagrams.Backend.Cairo import Diagrams.Backend.Cairo
import Diagrams.Backend.Cairo.Internal import Diagrams.Backend.Cairo.Internal
import Diagrams.Backend.Gtk
import Graphics.UI.Gtk import Graphics.UI.Gtk
@ -22,7 +21,7 @@ main = do
dw <- widgetGetDrawWindow da dw <- widgetGetDrawWindow da
let (png, r) = renderDia Cairo let (png, r) = renderDia Cairo
(CairoOptions "jo.svg" (Width 600) SVG False) (CairoOptions "jo.svg" (Width 600) SVG False)
(diagFromString $ mesh) (diagFromString mesh)
png png
renderWithDrawable dw r renderWithDrawable dw r
return True return True

2
Util.hs
View File

@ -12,7 +12,7 @@ inRange (x, y) min' max'
-- |Filter the valid coordinates. -- |Filter the valid coordinates.
filterValidCoords :: Double -- ^ min filterValidCoords :: Double -- ^ min
-> Double -- ^ max -> Double -- ^ max
-> [(Double, Double)] -- ^ unfiltered -> [(Double, Double)] -- ^ unfiltered
-> [(Double, Double)] -- ^ filtered -> [(Double, Double)] -- ^ filtered