Implement arc rendering, works for increasing angle difference < 2pi

2021-02-20 08:16:24 +01:00
parent 2866535b52
commit 9ff7810a2d
9 changed files with 101 additions and 104 deletions
@@ -484,7 +484,7 @@ crGlareWidth wdth col alphay p cr =
    where l x = uncurry translate x
                $ rotate (pi*0.5 + argV (p -.- x))
                $ color (withAlpha alphay col) 
-                $ thickArc 0 180 (_crRad cr) wdth
+                $ thickArc 0 (pi/2) (_crRad cr) wdth
          cp = _crPos cr
          cid = _crID cr
          upp cid' w' = case w' ^? creatures . ix cid . crPos of