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

DIAG: rm obsolete inlined function

Browse Source
This commit is contained in:
hasufell 2014-11-14 22:17:47 +01:00
parent da5b0a17f0
commit 4cc02c7dc1
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Graphics/Diagram/Plotter.hs
View File

@ -197,8 +197,6 @@ quadPathSquare = Diag f
# moveTo (p2 ((xmax + xmin) / 2,(ymax + ymin) / 2)) # lw thin # lc red) # moveTo (p2 ((xmax + xmin) / 2,(ymax + ymin) / 2)) # lw thin # lc red)
(getSquare (stringToQuads (pQt p)) (qt, [])) (getSquare (stringToQuads (pQt p)) (qt, []))
where where
quads :: [QuadOrOrient]
quads = stringToQuads (pQt p)
getSquare :: [QuadOrOrient] -> Zipper PT -> Square getSquare :: [QuadOrOrient] -> Zipper PT -> Square
getSquare [] z = getSquareByZipper (dX p, dY p) z getSquare [] z = getSquareByZipper (dX p, dY p) z
getSquare (q:qs) z = case q of getSquare (q:qs) z = case q of