fix colors in pie chart

closes #39

Author: bvenn

Diff for: src/Plotly.NET/Chart.fs

@@ -1269,15 +1269,15 @@ type Chart =
             [<Optional;DefaultParameterValue(null)>]  ?Labels,
             [<Optional;DefaultParameterValue(null)>]  ?Name,
             [<Optional;DefaultParameterValue(null)>]  ?Showlegend,
-            [<Optional;DefaultParameterValue(null)>]  ?Color,
+            [<Optional;DefaultParameterValue(null)>]  ?Colors,
             [<Optional;DefaultParameterValue(null)>]  ?TextPosition,
             [<Optional;DefaultParameterValue(null)>]  ?TextFont,
             [<Optional;DefaultParameterValue(null)>]  ?Hoverinfo,
             [<Optional;DefaultParameterValue(null)>]  ?Textinfo,
             [<Optional;DefaultParameterValue(null)>]  ?Opacity) =         
         Trace.initPie (TraceStyle.Pie(Values=values,?Labels=Labels,?Textinfo=Textinfo))
         |> TraceStyle.TraceInfo(?Name=Name,?Showlegend=Showlegend,?Opacity=Opacity,?Hoverinfo=Hoverinfo)        
-        |> TraceStyle.Marker(?Color=Color)
+        |> TraceStyle.Marker(?Colors=Colors)
         |> TraceStyle.TextLabel(?Text=Labels,?Textposition=TextPosition,?Textfont=TextFont)
         |> GenericChart.ofTraceObject 
 
@@ -1286,22 +1286,22 @@ type Chart =
     static member Pie(data:seq<#IConvertible*#IConvertible>,
             [<Optional;DefaultParameterValue(null)>]  ?Name,
             [<Optional;DefaultParameterValue(null)>]  ?Showlegend,
-            [<Optional;DefaultParameterValue(null)>]  ?Color,
+            [<Optional;DefaultParameterValue(null)>]  ?Colors,
             [<Optional;DefaultParameterValue(null)>]  ?TextPosition,
             [<Optional;DefaultParameterValue(null)>]  ?TextFont,
             [<Optional;DefaultParameterValue(null)>]  ?Hoverinfo,
             [<Optional;DefaultParameterValue(null)>]  ?Textinfo,
             [<Optional;DefaultParameterValue(null)>]  ?Opacity) =         
         let values,labels = Seq.unzip data 
-        Chart.Pie(values,Labels=labels,?Name=Name,?Showlegend=Showlegend,?Color=Color,?TextPosition=TextPosition,?TextFont=TextFont,?Hoverinfo=Hoverinfo,?Textinfo=Textinfo,?Opacity=Opacity)
+        Chart.Pie(values,Labels=labels,?Name=Name,?Showlegend=Showlegend,?Colors=Colors,?TextPosition=TextPosition,?TextFont=TextFont,?Hoverinfo=Hoverinfo,?Textinfo=Textinfo,?Opacity=Opacity)
 
 
     /// Shows how proportions of data, shown as pie-shaped pieces, contribute to the data as a whole.
     static member Doughnut(values,
             [<Optional;DefaultParameterValue(null)>]  ?Labels,
             [<Optional;DefaultParameterValue(null)>]  ?Name,
             [<Optional;DefaultParameterValue(null)>]  ?Showlegend,
-            [<Optional;DefaultParameterValue(null)>]  ?Color,
+            [<Optional;DefaultParameterValue(null)>]  ?Colors,
             [<Optional;DefaultParameterValue(null)>]  ?Hole,
             [<Optional;DefaultParameterValue(null)>]  ?TextPosition,
             [<Optional;DefaultParameterValue(null)>]  ?TextFont,
@@ -1311,7 +1311,7 @@ type Chart =
         let hole' = if Hole.IsSome then Hole.Value else 0.4
         Trace.initPie (TraceStyle.Pie(Values=values,?Labels=Labels,?Textinfo=Textinfo,Hole=hole'))
         |> TraceStyle.TraceInfo(?Name=Name,?Showlegend=Showlegend,?Opacity=Opacity,?Hoverinfo=Hoverinfo)        
-        |> TraceStyle.Marker(?Color=Color)
+        |> TraceStyle.Marker(?Colors=Colors)
         |> TraceStyle.TextLabel(?Text=Labels,?Textposition=TextPosition,?Textfont=TextFont)
         |> GenericChart.ofTraceObject 
 
@@ -1320,15 +1320,15 @@ type Chart =
     static member Doughnut(data:seq<#IConvertible*#IConvertible>,
             [<Optional;DefaultParameterValue(null)>]  ?Name,
             [<Optional;DefaultParameterValue(null)>]  ?Showlegend,
-            [<Optional;DefaultParameterValue(null)>]  ?Color,
+            [<Optional;DefaultParameterValue(null)>]  ?Colors,
             [<Optional;DefaultParameterValue(null)>]  ?Hole,
             [<Optional;DefaultParameterValue(null)>]  ?TextPosition,
             [<Optional;DefaultParameterValue(null)>]  ?TextFont,
             [<Optional;DefaultParameterValue(null)>]  ?Hoverinfo,
             [<Optional;DefaultParameterValue(null)>]  ?Textinfo,
             [<Optional;DefaultParameterValue(null)>]  ?Opacity) =         
         let values,labels = Seq.unzip data 
-        Chart.Doughnut(values,Labels=labels,?Name=Name,?Showlegend=Showlegend,?Color=Color,?Hole=Hole,?TextPosition=TextPosition,?TextFont=TextFont,?Hoverinfo=Hoverinfo,?Textinfo=Textinfo,?Opacity=Opacity)
+        Chart.Doughnut(values,Labels=labels,?Name=Name,?Showlegend=Showlegend,?Colors=Colors,?Hole=Hole,?TextPosition=TextPosition,?TextFont=TextFont,?Hoverinfo=Hoverinfo,?Textinfo=Textinfo,?Opacity=Opacity)
 
 
     /// Uses points, line or both depending on the mode to represent data points in a polar chart

Diff for: src/Plotly.NET/Playground.fsx

@@ -35,7 +35,7 @@
 #load "Layout.fs"
 #load "Template.fs"
 #load "Config.fs"
-#r @"..\..\packages\Newtonsoft.Json\lib\netstandard2.0\Newtonsoft.Json.dll"
+#r "nuget: Newtonsoft.Json, 12.0.3"
 #load "GenericChart.fs"
 #load "Chart.fs"
 #load "ChartExtensions.fs"
@@ -493,3 +493,21 @@ generateDomainRanges 8 1
     TitleFont=Font.init(Size=20)
 )
 |> Chart.Show
+
+let values,labels = 
+    [
+    1,"v1"
+    2,"v2"
+    ]
+    |> Seq.unzip
+
+let cols =[|"black";"blue"|]
+
+let doughnut1 =
+    Chart.Pie(
+        values,
+        labels,
+        Colors=cols,
+        Textinfo=labels
+    )
+    |> Chart.Show