Add carpet trace/chart and respective axis constructors

Author: kMutagene

src/Plotly.NET/ChartAPI/ChartCarpet.fs

@@ -0,0 +1,62 @@
+namespace Plotly.NET
+
+open Plotly.NET.LayoutObjects
+open Plotly.NET.TraceObjects
+
+open DynamicObj
+open System
+open System.IO
+
+open GenericChart
+open StyleParam
+open System.Runtime.InteropServices
+open System.Runtime.CompilerServices
+
+[<AutoOpen>]
+module ChartCarpet =
+
+    [<Extension>]
+    type Chart =
+
+        /// Shows how proportions of data, shown as pie-shaped pieces, contribute to the data.
+        [<Extension>]
+        static member Carpet
+            (
+                carpetId: string,
+                [<Optional;DefaultParameterValue(null)>] ?Name              : string,
+                [<Optional;DefaultParameterValue(null)>] ?ShowLegend        : bool,
+                [<Optional;DefaultParameterValue(null)>] ?Opacity           : float,  
+                [<Optional;DefaultParameterValue(null)>] ?X                 : seq<#IConvertible>,
+                [<Optional;DefaultParameterValue(null)>] ?MultiX            : seq<#seq<#IConvertible>>,
+                [<Optional;DefaultParameterValue(null)>] ?Y                 : seq<#IConvertible>,
+                [<Optional;DefaultParameterValue(null)>] ?MultiY            : seq<#seq<#IConvertible>>,
+                [<Optional;DefaultParameterValue(null)>] ?A                 : seq<#IConvertible>,
+                [<Optional;DefaultParameterValue(null)>] ?B                 : seq<#IConvertible>,
+                [<Optional;DefaultParameterValue(null)>] ?AAxis             : LinearAxis,
+                [<Optional;DefaultParameterValue(null)>] ?BAxis             : LinearAxis,
+                [<Optional;DefaultParameterValue(null)>] ?XAxis             : StyleParam.SubPlotId,
+                [<Optional;DefaultParameterValue(null)>] ?YAxis             : StyleParam.SubPlotId,
+                [<Optional;DefaultParameterValue(null)>] ?Color             : Color,
+                [<Optional;DefaultParameterValue(null)>] ?CheaterSlope      : float
+            ) =
+                TraceCarpet.initCarpet(
+                    TraceCarpetStyle.Carpet(
+                        Carpet          = StyleParam.SubPlotId.Carpet carpetId,
+                        ?Name           = Name        ,
+                        ?ShowLegend     = ShowLegend  ,
+                        ?Opacity        = Opacity     ,
+                        ?X              = X           ,
+                        ?MultiX         = MultiX      ,
+                        ?Y              = Y           ,
+                        ?MultiY         = MultiY      ,
+                        ?A              = A           ,
+                        ?B              = B           ,
+                        ?AAxis          = AAxis       ,
+                        ?BAxis          = BAxis       ,
+                        ?XAxis          = XAxis       ,
+                        ?YAxis          = YAxis       ,
+                        ?Color          = Color       ,
+                        ?CheaterSlope   = CheaterSlope
+                    )
+                )
+                |> GenericChart.ofTraceObject

src/Plotly.NET/CommonAbstractions/StyleParams.fs

@@ -136,6 +136,7 @@ module StyleParam =
         | Polar     of int
         | Ternary   of int
         | Scene     of int
+        | Carpet    of string
 
         static member toString = function
             | XAxis     id  -> if id < 2 then "xaxis" else sprintf "xaxis%i" id
@@ -146,6 +147,7 @@ module StyleParam =
             | Polar     id  -> if id < 2 then "polar" else sprintf "polar%i" id
             | Ternary   id  -> if id < 2 then "ternary" else sprintf "ternary%i" id
             | Scene     id  -> if id < 2 then "scene" else sprintf "scene%i" id
+            | Carpet    id  -> id
 
         static member convert = SubPlotId.toString >> box 
         override this.ToString() = this |> SubPlotId.toString
@@ -315,6 +317,19 @@ module StyleParam =
 //--------------------------
 
 
+    [<RequireQualifiedAccess>]
+    type CheaterType =
+        | Index      
+        | Value
+
+        static member toString = function
+            | Index -> "index" 
+            | Value -> "value" 
+
+        static member convert = CheaterType.toString >> box
+        override this.ToString() = this |> CheaterType.toString
+        member this.Convert() = this |> CheaterType.convert        
+
     [<RequireQualifiedAccess>]
     type ColorModel =
         | RGB      

src/Plotly.NET/InternalUtils.fs

@@ -17,3 +17,16 @@ module internal InternalUtils
                 multi |> DynObj.setValueOptBy dyn propName (Seq.map f)
             else
                 single |> DynObj.setValueOptBy dyn propName f
+
+        let setSingleOrAnyOpt (dyn:#DynamicObj) (propName:string) (single:'A option, any:'B option) =
+            if any.IsSome then
+                any |> DynObj.setValueOpt dyn propName
+            else
+                single |> DynObj.setValueOpt dyn propName
+
+        let setSingleOrAnyOptBy (dyn:#DynamicObj) (propName:string) (singleF:'A -> 'C) (anyF:'B -> 'D) (single:'A option, any:'B option) =
+            if any.IsSome then
+                any |> DynObj.setValueOptBy dyn propName anyF
+            else
+                single |> DynObj.setValueOptBy dyn propName singleF
+