fix forgotten term in trig equation

1 files changed, 4 insertions, 2 deletions

diff --git a/axis.hs b/axis.hs
index e6720ad..29ecec8 100644
--- a/axis.hs
+++ b/axis.hs
@@ -111,7 +111,7 @@ inMajorC pclass = not (pclass == 1 || pclass == 3 || pclass == 6 || pclass == 8
 pitchToColor p =
   case p `mod` 12 of
     2 -> (SDL.Color 0xD0 0xD0 0xFF) -- D
-    8 -> _CGA !! 1 -- G#
+    8 -> (SDL.Color 0x55 0x55 0x88) -- G#
     x | inMajorC x -> (SDL.Color 0xE0 0xE0 0xE0) -- _CGA !! 7
     _ -> _CGA !! 8
 
@@ -146,7 +146,9 @@ drawKey' idx videoSurface font axis_key_locations axis_key_size fillColor border
   Control.Monad.when (len /= 0) $ do
     forM_ [0 .. len - 1] $ \i -> do
       let (x', y') = if len == 1 then (0, 0)
-                     else (d * cos(pi/3 * fromIntegral(i)), d * sin(pi/3 * fromIntegral(i)))
+                     else (d * cos(2*pi/lenf * ifi), d * sin(2*pi/lenf * ifi))
+          ifi = fromIntegral i
+          lenf = fromIntegral len
           d = (fromIntegral axis_key_size) / 4 :: Float
           r' = (fromIntegral axis_key_size) / 2 :: Float
           x'' = (round x') + (fromIntegral x)