Public Function New()

Dim instance As New PositionalLight()

public PositionalLight()

FarPoint.Web.Chart.XYPointSeries series0 = new FarPoint.Web.Chart.XYPointSeries();
series0.SeriesName = "Series 0";
series0.XValues.Add(1.0);
series0.XValues.Add(2.0);
series0.XValues.Add(4.0);
series0.XValues.Add(8.0);
series0.YValues.Add(2.0);
series0.YValues.Add(4.0);
series0.YValues.Add(3.0);
series0.YValues.Add(5.0);

FarPoint.Web.Chart.XYPointSeries series1 = new FarPoint.Web.Chart.XYPointSeries();
series1.SeriesName = "Series 1";
series1.XValues.Add(1.0);
series1.XValues.Add(3.0);
series1.XValues.Add(5.0);
series1.XValues.Add(7.0);
series1.YValues.Add(1.0);
series1.YValues.Add(2.0);
series1.YValues.Add(4.0);
series1.YValues.Add(8.0);

FarPoint.Web.Chart.XYPlotArea plotArea = new FarPoint.Web.Chart.XYPlotArea();
plotArea.Location = new System.Drawing.PointF(0.2f, 0.2f);
plotArea.Size = new System.Drawing.SizeF(0.6f, 0.6f);
plotArea.Series.Add(series0);
plotArea.Series.Add(series1);

FarPoint.Web.Chart.PositionalLight light = new FarPoint.Web.Chart.PositionalLight();
light.AmbientColor = System.Drawing.Color.SeaGreen;
light.DiffuseColor = System.Drawing.Color.BlanchedAlmond;
light.SpecularColor = System.Drawing.Color.Aqua;
light.PositionX = 0;
light.PositionY = 10;
light.PositionZ = 5;

FarPoint.Web.Chart.ChartModel model = new FarPoint.Web.Chart.ChartModel();
model.PlotAreas.Add(plotArea);
model.PlotAreas[0].Lights.Add(light);
FarPoint.Web.Spread.Chart.SpreadChart chart = new FarPoint.Web.Spread.Chart.SpreadChart();
chart.Model = model;
FpSpread1.Sheets[0].Charts.Add(chart);

Dim series0 As New FarPoint.Web.Chart.XYPointSeries()
series0.SeriesName = "Series 0"
series0.XValues.Add(1.0)
series0.XValues.Add(2.0)
series0.XValues.Add(4.0)
series0.XValues.Add(8.0)
series0.YValues.Add(2.0)
series0.YValues.Add(4.0)
series0.YValues.Add(3.0)
series0.YValues.Add(5.0)

Dim series1 As New FarPoint.Web.Chart.XYPointSeries()
series1.SeriesName = "Series 1"
series1.XValues.Add(1.0)
series1.XValues.Add(3.0)
series1.XValues.Add(5.0)
series1.XValues.Add(7.0)
series1.YValues.Add(1.0)
series1.YValues.Add(2.0)
series1.YValues.Add(4.0)
series1.YValues.Add(8.0)

Dim plotArea As New FarPoint.Web.Chart.XYPlotArea()
plotArea.Location = New System.Drawing.PointF(0.2F, 0.2F)
plotArea.Size = New System.Drawing.SizeF(0.6F, 0.6F)
plotArea.series.Add(series0)
plotArea.series.Add(series1)

Dim light As New FarPoint.Web.Chart.PositionalLight()
light.AmbientColor = System.Drawing.Color.SeaGreen
light.DiffuseColor = System.Drawing.Color.BlanchedAlmond
light.SpecularColor = System.Drawing.Color.Aqua
light.PositionX = 0
light.PositionY = 10
light.PositionZ = 5

Dim model As New FarPoint.Web.Chart.ChartModel()
model.PlotAreas.Add(plotArea)
model.PlotAreas(0).Lights.Add(light)
Dim chart As New FarPoint.Web.Spread.Chart.SpreadChart()
chart.Model = model
FpSpread1.Sheets(0).Charts.Add(chart)