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

Clarify some String types

Browse Source
This commit is contained in:
hasufell 2014-10-10 00:23:58 +02:00
parent 12da4040dc
commit 8338ab109f
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Diagram.hs
View File

@ -21,6 +21,9 @@ import LinearAlgebra.Vector
import Parser.Meshparser import Parser.Meshparser
type MeshString = String
-- |Represents a Cairo Diagram. This allows us to create multiple -- |Represents a Cairo Diagram. This allows us to create multiple
-- diagrams with different algorithms but based on the same -- diagrams with different algorithms but based on the same
-- coordinates and common properties. -- coordinates and common properties.
@ -226,7 +229,7 @@ diag p = case alg p of
-- |Create the Diagram from a String which is supposed to be the contents -- |Create the Diagram from a String which is supposed to be the contents
-- of an obj file. -- of an obj file.
diagS :: DiagProp -> String -> Diagram Cairo R2 diagS :: DiagProp -> MeshString -> Diagram Cairo R2
diagS p mesh = diagS p mesh =
(diag p . (diag p .
meshToArr $ meshToArr $
@ -255,7 +258,7 @@ gifDiag p xs =
-- |Same as gifDiag, except that it takes a string containing the -- |Same as gifDiag, except that it takes a string containing the
-- mesh file content instead of the the points. -- mesh file content instead of the the points.
gifDiagS :: DiagProp -> String -> [(Diagram Cairo R2, GifDelay)] gifDiagS :: DiagProp -> MeshString -> [(Diagram Cairo R2, GifDelay)]
gifDiagS p = gifDiag p . meshToArr gifDiagS p = gifDiag p . meshToArr