Add Chart.withTernary and fluid equivalent

Author: kMutagene

src/Plotly.NET/CSharpLayer/GenericChartExtensions.fs

@@ -659,3 +659,8 @@ module GenericChartExtensions =
         member this.WithScene(scene:Scene, [<Optional;DefaultParameterValue(null)>] ?Id) =
             this |> Chart.withScene(scene,?Id=Id)
 
+        /// Sets the scene object with the given id on the chart layout
+        [<CompiledName("WithTernary")>]
+        member this.WithTernary(ternary:Ternary, [<Optional;DefaultParameterValue(null)>] ?Id) =
+            this |> Chart.withTernary(ternary,?Id=Id)
+

src/Plotly.NET/ChartAPI/Chart.fs

@@ -1420,3 +1420,14 @@ type Chart =
                 |> Layout.updateSceneById(id,scene)
             GenericChart.setLayout layout ch
         )
+
+    /// Sets the scene with the given id on the chart layout
+    [<CompiledName("WithTernary")>]
+    static member withTernary(ternary:Ternary, [<Optional;DefaultParameterValue(null)>] ?Id) =
+        (fun (ch:GenericChart) ->
+            let layout =
+                let id = defaultArg Id (StyleParam.SubPlotId.Ternary 1)
+                GenericChart.getLayout ch 
+                |> Layout.updateTernaryById(id,ternary)
+            GenericChart.setLayout layout ch
+        )

src/Plotly.NET/Layout/Layout.fs

@@ -460,6 +460,30 @@ type Layout() =
                 layout
             )
 
+    static member tryGetTernaryById (id:StyleParam.SubPlotId) =
+        (fun (layout:Layout) -> 
+            layout.TryGetTypedValue<Ternary>(StyleParam.SubPlotId.toString id)
+        )
+
+    /// Updates the style of current polar object with given Id. 
+    /// If there does not exist a polar object with the given id, sets it with the given polar object
+    static member updateTernaryById
+        (   
+           id       : StyleParam.SubPlotId,
+           ternary  : Ternary
+        ) =
+            (fun (layout:Layout) -> 
+
+                let ternary' = 
+                    match layout |> Layout.tryGetTernaryById(id) with
+                    | Some a  -> DynObj.combine (unbox a) ternary
+                    | None    -> ternary :> DynamicObj
+                
+                ternary' |> DynObj.setValue layout (StyleParam.SubPlotId.toString id)
+
+                layout
+            )
+
     static member SetLayoutGrid 
         (
             grid: LayoutGrid

src/Plotly.NET/Playground.fsx

@@ -57,6 +57,10 @@
 #load "RadialAxis.fs"
 #load "Polar.fs"
 
+#I "Layout/ObjectAbstractions/Ternary"
+
+#load "Ternary.fs"
+
 #load "Layout/Layout.fs"
 
 #I "Traces/ObjectAbstractions"
@@ -167,6 +171,13 @@ Chart.LineTernary(
     ShowMarkers = true,
     Dash = StyleParam.DrawingStyle.DashDot
 )
+|> Chart.withTernary(
+    Ternary.init(
+        AAxis = LinearAxis.init(Color = Color.fromKeyword ColorKeyword.DarkOrchid),
+        BAxis = LinearAxis.init(Color = Color.fromKeyword ColorKeyword.DarkMagenta),
+        CAxis = LinearAxis.init(Color = Color.fromKeyword ColorKeyword.DarkCyan)
+    )
+)
 |> Chart.show
 
 let doughnutChart =
@@ -407,6 +418,23 @@ let gridNew (nRows: int) (nCols: int) =
                     |> TraceDomainStyle.SetDomain newDomain
                     :> Trace
                 )
+
+            | TraceIDLocal.Ternary ->
+
+                let ternary = 
+                    layout.TryGetTypedValue<Ternary> "ternary" |> Option.defaultValue (Ternary.init())
+                    |> Ternary.style(Domain = Domain.init(Row = rowIndex - 1, Column = colIndex - 1))
+
+                let ternaryAnchor = StyleParam.SubPlotId.Ternary (i+1)
+
+                gChart
+                |> GenericChart.mapTrace(fun t ->
+                    t 
+                    :?> TraceTernary
+                    |> TraceTernaryStyle.SetTernary ternaryAnchor
+                    :> Trace
+                )
+                |> Chart.withTernary(ternary,ternaryAnchor)
         )
         |> Chart.combine
         |> Chart.withLayoutGrid (
@@ -458,7 +486,7 @@ gridNew 3 3 [
     ]
     |> Chart.combine
     Chart.PointPolar([1,2])
-    Chart.PointGeo([1,2])
+    Chart.PointTernary([1,2,3])
     Chart.PointMapbox([1,2]) |> Chart.withMapbox(Mapbox.init(Style = StyleParam.MapboxStyle.OpenStreetMap))
     Chart.Sunburst(
         ["A";"B";"C";"D";"E"],