Add haddocks and/or cleanup

2021-04-04 16:26:06 +02:00
parent 1231939482
commit 3b417c4966
10 changed files with 174 additions and 116 deletions
@@ -176,7 +176,7 @@ drawFFShadow w ff
          fCol = color (_ffColor ff)
          col = _ffColor ff
          ypShift = yp -.- _cameraCenter w
-          youOnFF = circOnLine' x' y' ypShift (_crRad $ you w)
+          youOnFF = circOnSeg x' y' ypShift (_crRad $ you w)
          pane j = color (withAlpha 0.1 col) 
                    $ polygon
                    $ [ x