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

DIAGRAM: improve style

Browse Source
This commit is contained in:
hasufell 2014-10-09 18:55:55 +02:00
parent e2f1c865f3
commit ccbe034ef1
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Diagram.hs
View File

@ -117,10 +117,10 @@ convexHullLines = Diag f
where where
f _ [] = mempty f _ [] = mempty
f p vt f p vt
= (strokeTrail . = (strokeTrail .
fromVertices . fromVertices .
flip (++) [head $ grahamGetCH vtf] . flip (++) [head $ grahamGetCH vtf] .
grahamGetCH $ grahamGetCH $
vtf vtf
) # moveTo (head $ grahamGetCH vtf) # lc red ) # moveTo (head $ grahamGetCH vtf) # lc red
where where
@ -210,7 +210,7 @@ gifDiag p xs = fmap (\x -> (x, 100)) .
fmap (\x -> x <> g) . fmap (\x -> x <> g) .
flip (++) flip (++)
[mkDiag (convexHullLines `mappend` [mkDiag (convexHullLines `mappend`
convexHullPoints) p xs] $ convexHullPoints) p xs] $
(convexHullLinesInterval p xs) (convexHullLinesInterval p xs)
where where
g = mconcat . g = mconcat .