More scenes

Author: Jordy Moos

src/elm/Actor/Actor.elm

@@ -99,6 +99,7 @@ import Data.Config exposing (Config)
 import Data.Coordinate exposing (Coordinate)
 import Data.Direction exposing (Direction)
 import Data.Position exposing (Position)
+import Data.Rotation as Rotation
 import Dict exposing (Dict)
 import GameState.PlayingLevel.Msg as PlayingMsg
 
@@ -274,7 +275,9 @@ type alias AframeRendererData =
 
 
 type alias AframeCamera =
-    { offsets : PositionOffsets }
+    { rotation : Rotation.Rotation
+    , offsets : PositionOffsets
+    }
 
 
 type alias Level =

src/elm/Actor/Decoder.elm

@@ -81,6 +81,7 @@ import Data.Config exposing (Config)
 import Data.Coordinate exposing (Coordinate)
 import Data.Direction as Direction exposing (Direction)
 import Data.Position exposing (Position)
+import Data.Rotation exposing (Rotation)
 import Dict exposing (Dict)
 import GameState.PlayingLevel.Animation.CurrentTick as CurrentTickAnimation
 import GameState.PlayingLevel.Animation.PseudoRandomTraversal as PseudoRandomTraversalAnimation
@@ -150,19 +151,36 @@ aframeRendererDecoder =
 aframeCameraDecoder : Decoder AframeCamera
 aframeCameraDecoder =
     Decode.succeed AframeCamera
+        |> JDP.optional "rotation" rotationDecoder defaultAframeCamera.rotation
         |> JDP.optional "offsets" positionOffsetsDecoder defaultAframeCamera.offsets
 
 
+rotationDecoder : Decoder Rotation
+rotationDecoder =
+    Decode.succeed Rotation
+        |> JDP.optional "x" Decode.float 0.0
+        |> JDP.optional "y" Decode.float 0.0
+        |> JDP.optional "z" Decode.float 0.0
+
+
 defaultAframeCamera : AframeCamera
 defaultAframeCamera =
-    { offsets = emptyPositionOffsets
+    { rotation = defaultRotation
+    , offsets = emptyPositionOffsets
+    }
+
+
+defaultRotation : Rotation
+defaultRotation =
+    { x = 0.0
+    , y = 0.0
+    , z = 0.0
     }
 
 
 defaultBackgrounds : List RenderComponentData
 defaultBackgrounds =
-    [
-    ]
+    []
 
 
 configDecoder : Decoder Config

src/elm/Data/Rotation.elm

@@ -0,0 +1,28 @@
+module Data.Rotation exposing
+    ( Rotation
+    , getPitch
+    , getRoll
+    , getYaw
+    )
+
+
+type alias Rotation =
+    { x : Float
+    , y : Float
+    , z : Float
+    }
+
+
+getPitch : Rotation -> Float
+getPitch rotation =
+    rotation.x
+
+
+getYaw : Rotation -> Float
+getYaw rotation =
+    rotation.y
+
+
+getRoll : Rotation -> Float
+getRoll rotation =
+    rotation.z

src/elm/Renderer/Aframe/LevelRenderer.elm

@@ -94,16 +94,25 @@ drawCamera aframeRenderData level viewPositionCoordinate viewPixelOffset acc =
             toFloat viewPositionCoordinate.y + (toFloat level.config.height / 2.0) - yOffset
 
         cameraNode =
-            node "a-camera"
+            node "a-entity"
                 [ attribute "position" <|
                     String.join " "
                         [ String.fromFloat x
                         , String.fromFloat (y * -1)
                         , String.fromFloat computedOffsets.z
                         ]
-                , attribute "wasd-controls" "enabled: false;"
+                , attribute "rotation" <|
+                    String.join " "
+                        [ String.fromFloat aframeRenderData.camera.rotation.x
+                        , String.fromFloat aframeRenderData.camera.rotation.y
+                        , String.fromFloat aframeRenderData.camera.rotation.z
+                        ]
+                ]
+                [ node "a-camera"
+                    [ attribute "wasd-controls" "enabled: false;"
+                    ]
+                    []
                 ]
-                []
     in
     addToDrawAcc 0 cameraNode acc