use smaller circles in circle mode

1 files changed, 1 insertions, 1 deletions

diff --git a/axis.hs b/axis.hs
index 05e9060..17e7ec9 100644
--- a/axis.hs
+++ b/axis.hs
@@ -39,7 +39,7 @@ _USE_HEXAGONS = True
 _drawHexircle f v x y s c =
   if _USE_HEXAGONS
   then _drawHexagonSDL f v x y s c
-  else (if f then SDL.Primitive.filledCircle else SDL.Primitive.circle) v x y (s * 7 `div` 8) c
+  else (if f then SDL.Primitive.filledCircle else SDL.Primitive.circle) v x y (s * 7 `div` 9) c
 
 drawHexircle  = _drawHexircle False
 drawFilledHexircle = _drawHexircle True