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

Improve style

This commit is contained in:
hasufell 2014-10-13 19:53:33 +02:00
parent edde93ec77
commit 7a7bfaa1be
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Graphics/Diagram/Gif.hs
View File

@ -14,8 +14,7 @@ import Parser.Meshparser
-- |Return a list of tuples used by 'gifMain' to generate an animated gif.
gifDiag :: DiagProp -> [PT] -> [(Diagram Cairo R2, GifDelay)]
gifDiag p xs =
fmap (\x -> (x, 100)) .
fmap (\x -> x <> nonChDiag) .
fmap ((\x -> (x, 100)) . (<> nonChDiag)) .
flip (++)
[mkDiag (convexHullPointsText `mappend`
convexHullPoints)