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

Style

Browse Source
This commit is contained in:
hasufell 2014-10-05 15:50:52 +02:00
parent 884a8a3121
commit ae019e86ed
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Diagram.hs
View File

@ -35,6 +35,7 @@ diagFromVTable prop vt
t prop :: Diagram Cairo R2) # fc black t prop :: Diagram Cairo R2) # fc black
mkPoint (x,y) = p2 (x,y) mkPoint (x,y) = p2 (x,y)
-- |Create the Diagram from a String. -- |Create the Diagram from a String.
diagFromString :: DiagProp -> String -> Diagram Cairo R2 diagFromString :: DiagProp -> String -> Diagram Cairo R2
diagFromString prop mesh diagFromString prop mesh

2
Meshparser.hs
View File

@ -10,7 +10,7 @@ type VTable = [(Double, Double)]
-- an array of float tuples. -- an array of float tuples.
meshToArr :: String -- ^ the string to convert meshToArr :: String -- ^ the string to convert
-> VTable -- ^ the resulting vertice table -> VTable -- ^ the resulting vertice table
meshToArr xs = fmap (\(Just (x, _)) -> x) . meshToArr xs = fmap (\(Just (x, _)) -> x) .
filter (/= Nothing) . filter (/= Nothing) .
fmap (runParser parseVertice) . fmap (runParser parseVertice) .
lines $ lines $