Skip to content

Commit 21b25a3

Browse files
kMutagenekMutagene
committed
port tracepolar to dynobj v4
1 parent bd0a8a3 commit 21b25a3

File tree

1 file changed

+77
-85
lines changed

1 file changed

+77
-85
lines changed

‎src/Plotly.NET/Traces/TracePolar.fs

Lines changed: 77 additions & 85 deletions
Original file line numberDiff line numberDiff line change
@@ -34,11 +34,8 @@ type TracePolar(traceTypeName) =
3434
type TracePolarStyle() =
3535

3636
static member SetPolar([<Optional; DefaultParameterValue(null)>] ?PolarId: StyleParam.SubPlotId) =
37-
(fun (trace: TracePolar) ->
38-
39-
PolarId |> DynObj.setOptionalPropertyBy trace "subplot" StyleParam.SubPlotId.toString
40-
41-
trace)
37+
fun (trace: TracePolar) ->
38+
trace |> DynObj.withOptionalPropertyBy "subplot" PolarId StyleParam.SubPlotId.toString
4239

4340
/// <summary>
4441
/// Create a function that applies the styles of a polar scatter plot to a Trace object
@@ -134,52 +131,48 @@ type TracePolarStyle() =
134131
[<Optional; DefaultParameterValue(null)>] ?HoverOn: string,
135132
[<Optional; DefaultParameterValue(null)>] ?UIRevision: seq<#IConvertible>
136133
) =
137-
(fun (trace: ('T :> Trace)) ->
138-
139-
Name |> DynObj.setOptionalProperty trace "name"
140-
Visible |> DynObj.setOptionalPropertyBy trace "visible" StyleParam.Visible.convert
141-
ShowLegend |> DynObj.setOptionalProperty trace "showlegend"
142-
Legend |> DynObj.setOptionalPropertyBy trace "legend" StyleParam.SubPlotId.convert
143-
LegendRank |> DynObj.setOptionalProperty trace "legendrank"
144-
LegendGroup |> DynObj.setOptionalProperty trace "legendgroup"
145-
LegendGroupTitle |> DynObj.setOptionalProperty trace "legendgrouptitle"
146-
Opacity |> DynObj.setOptionalProperty trace "opacity"
147-
Mode |> DynObj.setOptionalPropertyBy trace "mode" StyleParam.Mode.convert
148-
Ids |> DynObj.setOptionalProperty trace "ids"
149-
R |> DynObj.setOptionalProperty trace "r"
150-
R0 |> DynObj.setOptionalProperty trace "r0"
151-
DR |> DynObj.setOptionalProperty trace "dr"
152-
Theta |> DynObj.setOptionalProperty trace "theta"
153-
Theta0 |> DynObj.setOptionalProperty trace "theta0"
154-
DTheta |> DynObj.setOptionalProperty trace "dtheta"
155-
ThetaUnit |> DynObj.setOptionalPropertyBy trace "thetaunit" StyleParam.AngularUnit.convert
156-
(Text, MultiText) |> DynObj.setOptionalSingleOrMultiProperty trace "text"
134+
fun (trace: ('T :> Trace)) ->
157135

158-
(TextPosition, MultiTextPosition)
159-
|> DynObj.setOptionalSingleOrMultiPropertyBy trace "textposition" StyleParam.TextPosition.convert
160-
161-
(TextTemplate, MultiTextTemplate) |> DynObj.setOptionalSingleOrMultiProperty trace "texttemplate"
162-
(HoverText, MultiHoverText) |> DynObj.setOptionalSingleOrMultiProperty trace "hovertext"
163-
HoverInfo |> DynObj.setOptionalPropertyBy trace "hoverinfo" StyleParam.HoverInfo.convert
164-
(HoverTemplate, MultiHoverTemplate) |> DynObj.setOptionalSingleOrMultiProperty trace "hovertemplate"
165-
Meta |> DynObj.setOptionalProperty trace "meta"
166-
CustomData |> DynObj.setOptionalProperty trace "customdata"
167-
Subplot |> DynObj.setOptionalPropertyBy trace "subplot" StyleParam.SubPlotId.convert
168-
Marker |> DynObj.setOptionalProperty trace "marker"
169-
Line |> DynObj.setOptionalProperty trace "line"
170-
TextFont |> DynObj.setOptionalProperty trace "textfont"
171-
SelectedPoints |> DynObj.setOptionalProperty trace "selectedpoints"
172-
Selected |> DynObj.setOptionalProperty trace "selected"
173-
Unselected |> DynObj.setOptionalProperty trace "unselected"
174-
ClipOnAxis |> DynObj.setOptionalProperty trace "cliponaxis"
175-
ConnectGaps |> DynObj.setOptionalProperty trace "connectgaps"
176-
Fill |> DynObj.setOptionalPropertyBy trace "fill" StyleParam.Fill.convert
177-
FillColor |> DynObj.setOptionalProperty trace "fillcolor"
178-
HoverLabel |> DynObj.setOptionalProperty trace "hoverlabel"
179-
HoverOn |> DynObj.setOptionalProperty trace "hoveron"
180-
UIRevision |> DynObj.setOptionalProperty trace "uirevision"
181-
182-
trace)
136+
trace
137+
|> DynObj.withOptionalProperty "name" Name
138+
|> DynObj.withOptionalPropertyBy "visible" Visible StyleParam.Visible.convert
139+
|> DynObj.withOptionalProperty "showlegend" ShowLegend
140+
|> DynObj.withOptionalPropertyBy "legend" Legend StyleParam.SubPlotId.convert
141+
|> DynObj.withOptionalProperty "legendrank" LegendRank
142+
|> DynObj.withOptionalProperty "legendgroup" LegendGroup
143+
|> DynObj.withOptionalProperty "legendgrouptitle" LegendGroupTitle
144+
|> DynObj.withOptionalProperty "opacity" Opacity
145+
|> DynObj.withOptionalPropertyBy "mode" Mode StyleParam.Mode.convert
146+
|> DynObj.withOptionalProperty "ids" Ids
147+
|> DynObj.withOptionalProperty "r" R
148+
|> DynObj.withOptionalProperty "r0" R0
149+
|> DynObj.withOptionalProperty "dr" DR
150+
|> DynObj.withOptionalProperty "theta" Theta
151+
|> DynObj.withOptionalProperty "theta0" Theta0
152+
|> DynObj.withOptionalProperty "dtheta" DTheta
153+
|> DynObj.withOptionalPropertyBy "thetaunit" ThetaUnit StyleParam.AngularUnit.convert
154+
|> DynObj.withOptionalSingleOrMultiProperty "text" (Text, MultiText)
155+
|> DynObj.withOptionalSingleOrMultiPropertyBy "textposition" (TextPosition, MultiTextPosition) StyleParam.TextPosition.convert
156+
|> DynObj.withOptionalSingleOrMultiProperty "texttemplate" (TextTemplate, MultiTextTemplate)
157+
|> DynObj.withOptionalSingleOrMultiProperty "hovertext" (HoverText, MultiHoverText)
158+
|> DynObj.withOptionalPropertyBy "hoverinfo" HoverInfo StyleParam.HoverInfo.convert
159+
|> DynObj.withOptionalSingleOrMultiProperty "hovertemplate" (HoverTemplate, MultiHoverTemplate)
160+
|> DynObj.withOptionalProperty "meta" Meta
161+
|> DynObj.withOptionalProperty "customdata" CustomData
162+
|> DynObj.withOptionalPropertyBy "subplot" Subplot StyleParam.SubPlotId.convert
163+
|> DynObj.withOptionalProperty "marker" Marker
164+
|> DynObj.withOptionalProperty "line" Line
165+
|> DynObj.withOptionalProperty "textfont" TextFont
166+
|> DynObj.withOptionalProperty "selectedpoints" SelectedPoints
167+
|> DynObj.withOptionalProperty "selected" Selected
168+
|> DynObj.withOptionalProperty "unselected" Unselected
169+
|> DynObj.withOptionalProperty "cliponaxis" ClipOnAxis
170+
|> DynObj.withOptionalProperty "connectgaps" ConnectGaps
171+
|> DynObj.withOptionalPropertyBy "fill" Fill StyleParam.Fill.convert
172+
|> DynObj.withOptionalProperty "fillcolor" FillColor
173+
|> DynObj.withOptionalProperty "hoverlabel" HoverLabel
174+
|> DynObj.withOptionalProperty "hoveron" HoverOn
175+
|> DynObj.withOptionalProperty "uirevision" UIRevision
183176

184177
/// <summary>
185178
/// Create a function that applies the styles of a polar bar plot to a Trace object
@@ -261,39 +254,38 @@ type TracePolarStyle() =
261254
[<Optional; DefaultParameterValue(null)>] ?HoverLabel: Hoverlabel,
262255
[<Optional; DefaultParameterValue(null)>] ?UIRevision: seq<#IConvertible>
263256
) =
264-
(fun (trace: ('T :> Trace)) ->
265-
266-
Name |> DynObj.setOptionalProperty trace "name"
267-
Visible |> DynObj.setOptionalPropertyBy trace "visible" StyleParam.Visible.convert
268-
ShowLegend |> DynObj.setOptionalProperty trace "showlegend"
269-
Legend |> DynObj.setOptionalPropertyBy trace "legend" StyleParam.SubPlotId.convert
270-
LegendRank |> DynObj.setOptionalProperty trace "legendrank"
271-
LegendGroup |> DynObj.setOptionalProperty trace "legendgroup"
272-
LegendGroupTitle |> DynObj.setOptionalProperty trace "legendgrouptitle"
273-
Opacity |> DynObj.setOptionalProperty trace "opacity"
274-
Ids |> DynObj.setOptionalProperty trace "ids"
275-
Base |> DynObj.setOptionalProperty trace "base"
276-
R |> DynObj.setOptionalProperty trace "r"
277-
R0 |> DynObj.setOptionalProperty trace "r0"
278-
DR |> DynObj.setOptionalProperty trace "dr"
279-
Theta |> DynObj.setOptionalProperty trace "theta"
280-
Theta0 |> DynObj.setOptionalProperty trace "theta0"
281-
DTheta |> DynObj.setOptionalProperty trace "dtheta"
282-
ThetaUnit |> DynObj.setOptionalPropertyBy trace "thetaunit" StyleParam.AngularUnit.convert
283-
(Width, MultiWidth) |> DynObj.setOptionalSingleOrMultiProperty trace "width"
284-
(Offset, MultiOffset) |> DynObj.setOptionalSingleOrMultiProperty trace "offset"
285-
(Text, MultiText) |> DynObj.setOptionalSingleOrMultiProperty trace "text"
286-
(HoverText, MultiHoverText) |> DynObj.setOptionalSingleOrMultiProperty trace "hovertext"
287-
HoverInfo |> DynObj.setOptionalPropertyBy trace "hoverinfo" StyleParam.HoverInfo.convert
288-
(HoverTemplate, MultiHoverTemplate) |> DynObj.setOptionalSingleOrMultiProperty trace "hovertemplate"
289-
Meta |> DynObj.setOptionalProperty trace "meta"
290-
CustomData |> DynObj.setOptionalProperty trace "customdata"
291-
Subplot |> DynObj.setOptionalPropertyBy trace "subplot" StyleParam.SubPlotId.convert
292-
Marker |> DynObj.setOptionalProperty trace "marker"
293-
SelectedPoints |> DynObj.setOptionalProperty trace "selectedpoints"
294-
Selected |> DynObj.setOptionalProperty trace "selected"
295-
Unselected |> DynObj.setOptionalProperty trace "unselected"
296-
HoverLabel |> DynObj.setOptionalProperty trace "hoverlabel"
297-
UIRevision |> DynObj.setOptionalProperty trace "uirevision"
257+
fun (trace: ('T :> Trace)) ->
298258

299-
trace)
259+
trace
260+
|> DynObj.withOptionalProperty "name" Name
261+
|> DynObj.withOptionalPropertyBy "visible" Visible StyleParam.Visible.convert
262+
|> DynObj.withOptionalProperty "showlegend" ShowLegend
263+
|> DynObj.withOptionalPropertyBy "legend" Legend StyleParam.SubPlotId.convert
264+
|> DynObj.withOptionalProperty "legendrank" LegendRank
265+
|> DynObj.withOptionalProperty "legendgroup" LegendGroup
266+
|> DynObj.withOptionalProperty "legendgrouptitle" LegendGroupTitle
267+
|> DynObj.withOptionalProperty "opacity" Opacity
268+
|> DynObj.withOptionalProperty "ids" Ids
269+
|> DynObj.withOptionalProperty "base" Base
270+
|> DynObj.withOptionalProperty "r" R
271+
|> DynObj.withOptionalProperty "r0" R0
272+
|> DynObj.withOptionalProperty "dr" DR
273+
|> DynObj.withOptionalProperty "theta" Theta
274+
|> DynObj.withOptionalProperty "theta0" Theta0
275+
|> DynObj.withOptionalProperty "dtheta" DTheta
276+
|> DynObj.withOptionalPropertyBy "thetaunit" ThetaUnit StyleParam.AngularUnit.convert
277+
|> DynObj.withOptionalSingleOrMultiProperty "width" (Width, MultiWidth)
278+
|> DynObj.withOptionalSingleOrMultiProperty "offset" (Offset, MultiOffset)
279+
|> DynObj.withOptionalSingleOrMultiProperty "text" (Text, MultiText)
280+
|> DynObj.withOptionalSingleOrMultiProperty "hovertext" (HoverText, MultiHoverText)
281+
|> DynObj.withOptionalPropertyBy "hoverinfo" HoverInfo StyleParam.HoverInfo.convert
282+
|> DynObj.withOptionalSingleOrMultiProperty "hovertemplate" (HoverTemplate, MultiHoverTemplate)
283+
|> DynObj.withOptionalProperty "meta" Meta
284+
|> DynObj.withOptionalProperty "customdata" CustomData
285+
|> DynObj.withOptionalPropertyBy "subplot" Subplot StyleParam.SubPlotId.convert
286+
|> DynObj.withOptionalProperty "marker" Marker
287+
|> DynObj.withOptionalProperty "selectedpoints" SelectedPoints
288+
|> DynObj.withOptionalProperty "selected" Selected
289+
|> DynObj.withOptionalProperty "unselected" Unselected
290+
|> DynObj.withOptionalProperty "hoverlabel" HoverLabel
291+
|> DynObj.withOptionalProperty "uirevision" UIRevision

0 commit comments

Comments
 (0)