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

Improve haddock comments

Browse Source
This commit is contained in:
hasufell 2014-10-08 19:23:40 +02:00
parent 85a00951ba
commit c0be077f15
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Diagram.hs
View File

@ -77,9 +77,8 @@ yuD :: DiagProp -> Double
yuD = snd . dY yuD = snd . dY
-- |Creates a Diagram that shows the coordinates from the points
-- |Creates a Diagram that shows the coordinates from the VTable -- as dots. The points and thickness of the dots can be controlled
-- as dots. The VTable and thickness of the dots can be controlled
-- via DiagProp. -- via DiagProp.
showCoordinates :: Diag showCoordinates :: Diag
showCoordinates = Diag f showCoordinates = Diag f
@ -132,7 +131,7 @@ showWhiteRectB = Diag f
h' = yuD p - ylD p h' = yuD p - ylD p
-- |Create the Diagram from the VTable. -- |Create the Diagram from the points.
diag :: DiagProp -> [PT] -> Diagram Cairo R2 diag :: DiagProp -> [PT] -> Diagram Cairo R2
diag p = case alg p of diag p = case alg p of
0 -> mkDiag 0 -> mkDiag