1 files changed, 19 insertions, 0 deletions
diff --git a/src/CPUPlayer.hs b/src/CPUPlayer.hs
new file mode 100644
index 0000000..0276de3
--- /dev/null
+++ b/src/CPUPlayer.hs
@@ -0,0 +1,19 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+
+module CPUPlayer ( CPUPlayer(..)
+                 ) where
+
+
+import Data.Fixed
+import Data.Ratio ((%))
+import Data.Typeable
+
+import GLDriver
+import Player
+
+
+data CPUPlayer = CPUPlayer Micro
+                 deriving (Typeable, Show)
+
+instance Player CPUPlayer where
+    playerUpdate (CPUPlayer angle) _ = (CPUPlayer (if (angle+0.1) > 180 then angle-359.9 else angle+0.1), Just angle, True, Just (-angle), False)