Fix camera projection not being an object

Author: kMutagene

src/Plotly.NET/CommonAbstractions/StyleParams.fs

@@ -471,7 +471,7 @@ module StyleParam =
         member this.Convert() = this |> ConstraintOperation.convert
 
     [<RequireQualifiedAccess>]
-    type CameraProjection =
+    type CameraProjectionType =
         | Perspective
         | Orthographic
 
@@ -480,9 +480,9 @@ module StyleParam =
             | Perspective -> "perspective"
             | Orthographic -> "orthographic"
 
-        static member convert = CameraProjection.toString >> box
-        override this.ToString() = this |> CameraProjection.toString
-        member this.Convert() = this |> CameraProjection.convert
+        static member convert = CameraProjectionType.toString >> box
+        override this.ToString() = this |> CameraProjectionType.toString
+        member this.Convert() = this |> CameraProjectionType.convert
 
     [<RequireQualifiedAccess>]
     type ContourType =

src/Plotly.NET/Layout/ObjectAbstractions/3D/Camera.fs

@@ -85,14 +85,28 @@ type CameraUp() =
 
             cameraUp
 
+type CameraProjection() =
+    inherit DynamicObj()
+
+    static member init([<Optional; DefaultParameterValue(null)>] ?ProjectionType: StyleParam.CameraProjectionType) =
+        CameraProjection() |> CameraProjection.style (?ProjectionType = ProjectionType)
+
+    static member style([<Optional; DefaultParameterValue(null)>] ?ProjectionType: StyleParam.CameraProjectionType) =
+
+        fun (cameraProjection: CameraProjection) ->
+
+            ProjectionType |> DynObj.setValueOptBy cameraProjection "type" StyleParam.CameraProjectionType.convert
+
+            cameraProjection
+
 type Camera() =
     inherit DynamicObj()
 
     static member init
         (
             [<Optional; DefaultParameterValue(null)>] ?Center: CameraCenter,
             [<Optional; DefaultParameterValue(null)>] ?Eye: CameraEye,
-            [<Optional; DefaultParameterValue(null)>] ?Projection: StyleParam.CameraProjection,
+            [<Optional; DefaultParameterValue(null)>] ?Projection: CameraProjection,
             [<Optional; DefaultParameterValue(null)>] ?Up: CameraUp
         ) =
         Camera() |> Camera.style (?Center = Center, ?Eye = Eye, ?Projection = Projection, ?Up = Up)
@@ -101,15 +115,15 @@ type Camera() =
         (
             [<Optional; DefaultParameterValue(null)>] ?Center: CameraCenter,
             [<Optional; DefaultParameterValue(null)>] ?Eye: CameraEye,
-            [<Optional; DefaultParameterValue(null)>] ?Projection: StyleParam.CameraProjection,
+            [<Optional; DefaultParameterValue(null)>] ?Projection: CameraProjection,
             [<Optional; DefaultParameterValue(null)>] ?Up: CameraUp
         ) =
 
         fun (camera: Camera) ->
 
             Center |> DynObj.setValueOpt camera "center"
             Eye |> DynObj.setValueOpt camera "eye"
-            Projection |> DynObj.setValueOptBy camera "projection" StyleParam.CameraProjection.convert
+            Projection |> DynObj.setValueOpt camera "projection"
             Up |> DynObj.setValueOpt camera "up"
 
             camera