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

DIAGRAM: draw all points

Browse Source
This commit is contained in:
hasufell 2014-10-25 14:49:36 +02:00
parent ddff8b1fb2
commit c4ab68c76d
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Graphics/Diagram/Gtk.hs
View File

@ -38,7 +38,7 @@ diag p pts = case alg p of
where where
polys = polys =
mkDiag mkDiag
(mconcat [maybeDiag (ct p) coordPointsText, polyLines]) (mconcat [maybeDiag (ct p) coordPointsText, coordPoints, polyLines])
p (head pts) p (head pts)
`atop` `atop`
mkDiag mkDiag