Implement remote screen for launcher projectiles

src/Dodge/Data/Camera.hs

@@ -9,11 +9,17 @@ import Data.Aeson
 import Data.Aeson.TH
 import Geometry.Data
 
-data CamControl
-    = CamInGame
-    | CamFloat
+data CamInGameType
+    = CamOnPlayer
+    | CamOpticScope
+    | CamRemoteScope
   deriving (Eq,Show,Read,Enum,Bounded)
 
+data CamControl
+    = CamInGame { _cigType :: CamInGameType}
+    | CamFloat
+  deriving (Eq,Show,Read)
+
 data Camera = Camera
     { _camCenter :: Point2
     , _camRot :: Float
@@ -28,8 +34,10 @@ data Camera = Camera
     }
 
 makeLenses ''Camera
+makeLenses ''CamInGameType
 concat
     <$> mapM
         (deriveJSON defaultOptions)
-        [''CamControl 
+        [''CamInGameType
+        ,''CamControl 
         ,''Camera ]