FarPoint.Web.Chart.PieSeries series = new FarPoint.Web.Chart.PieSeries();
series.SeriesName = "Series 1";
series.TopBevel = new FarPoint.Web.Chart.CircleBevel(12.0F, 12.0F);
series.BottomBevel = new FarPoint.Web.Chart.CircleBevel(12.0F, 12.0F);
series.Values.Add(1.0);
series.Values.Add(2.0);
series.Values.Add(4.0);
series.Values.Add(8.0);
series.PieFills.AddRange(new Fill[] { null, null, new FarPoint.Web.Chart.SolidFill(Color.Aquamarine) });
FarPoint.Web.Chart.PieSeries series1 = new FarPoint.Web.Chart.PieSeries();
series1.SeriesName = "Series 2";
series1.TopBevel = new FarPoint.Web.Chart.CircleBevel(12.0F, 12.0F);
series1.BottomBevel = new FarPoint.Web.Chart.CircleBevel(12.0F, 12.0F);
series1.Values.Add(2.0);
series1.Values.Add(4.0);
series1.Values.Add(3.0);
series1.Values.Add(5.0);
series1.PieDetachments[0] = 0.5F;
FarPoint.Web.Chart.PiePlotArea plotArea = new FarPoint.Web.Chart.PiePlotArea();
plotArea.Location = new System.Drawing.PointF(0.2F, 0.2F);
plotArea.Size = new System.Drawing.SizeF(0.6F, 0.6F);
plotArea.HoleSize = 0.25F;
plotArea.Series.Add(series);
plotArea.Series.Add(series1);
FarPoint.Web.Chart.PositionalLight light0 = new FarPoint.Web.Chart.PositionalLight();
light0.AmbientColor = System.Drawing.Color.FromArgb(64, 64, 64);
light0.DiffuseColor = System.Drawing.Color.FromArgb(64, 64, 64);
light0.SpecularColor = System.Drawing.Color.FromArgb(128, 128, 128);
light0.PositionX = 0.0F;
light0.PositionY = 0.0F;
light0.PositionZ = 100.0F;
FarPoint.Web.Chart.DirectionalLight light1 = new FarPoint.Web.Chart.DirectionalLight();
light1.AmbientColor = System.Drawing.Color.FromArgb(64, 64, 64);
light1.DiffuseColor = System.Drawing.Color.FromArgb(64, 64, 64);
light1.SpecularColor = System.Drawing.Color.FromArgb(128, 128, 128);
light1.DirectionX = 1.0F;
light1.DirectionY = 0.0F;
light1.DirectionZ = 1.0F;
FarPoint.Web.Chart.ChartModel model = new FarPoint.Web.Chart.ChartModel();
model.PlotAreas.Add(plotArea);
model.PlotAreas[0].Lights.Clear();
model.PlotAreas[0].Lights.Add(light0);
model.PlotAreas[0].Lights.Add(light1);
FarPoint.Web.Spread.Chart.SpreadChart chart = new FarPoint.Web.Spread.Chart.SpreadChart();
chart.Model = model;
chart.ViewType = FarPoint.Web.Chart.ChartViewType.View3D;
FpSpread1.Sheets[0].Charts.Add(chart);
Dim series As New FarPoint.Web.Chart.PieSeries()
series.SeriesName = "Series 1"
series.TopBevel = New FarPoint.Web.Chart.CircleBevel(12.0F, 12.0F)
series.BottomBevel = New FarPoint.Web.Chart.CircleBevel(12.0F, 12.0F)
series.Values.Add(1.0)
series.Values.Add(2.0)
series.Values.Add(4.0)
series.Values.Add(8.0)
series.PieFills.AddRange(New FarPoint.Web.Chart.Fill() {Nothing, Nothing, New FarPoint.Web.Chart.SolidFill(System.Drawing.Color.Aquamarine)})
Dim series1 As New FarPoint.Web.Chart.PieSeries()
series1.SeriesName = "Series 2"
series1.TopBevel = New FarPoint.Web.Chart.CircleBevel(12.0F, 12.0F)
series1.BottomBevel = New FarPoint.Web.Chart.CircleBevel(12.0F, 12.0F)
series1.Values.Add(2.0)
series1.Values.Add(4.0)
series1.Values.Add(3.0)
series1.Values.Add(5.0)
series1.PieDetachments(0) = 0.5F
Dim plotArea As New FarPoint.Web.Chart.PiePlotArea()
plotArea.Location = New System.Drawing.PointF(0.2F, 0.2F)
plotArea.Size = New System.Drawing.SizeF(0.6F, 0.6F)
plotArea.HoleSize = 0.25F
plotArea.Series.Add(series)
plotArea.Series.Add(series1)
Dim light0 As New FarPoint.Web.Chart.PositionalLight()
light0.AmbientColor = System.Drawing.Color.FromArgb(64, 64, 64)
light0.DiffuseColor = System.Drawing.Color.FromArgb(64, 64, 64)
light0.SpecularColor = System.Drawing.Color.FromArgb(128, 128, 128)
light0.PositionX = 0.0F
light0.PositionY = 0.0F
light0.PositionZ = 100.0F
Dim light1 As New FarPoint.Web.Chart.DirectionalLight()
light1.AmbientColor = System.Drawing.Color.FromArgb(64, 64, 64)
light1.DiffuseColor = System.Drawing.Color.FromArgb(64, 64, 64)
light1.SpecularColor = System.Drawing.Color.FromArgb(128, 128, 128)
light1.DirectionX = 1.0F
light1.DirectionY = 0.0F
light1.DirectionZ = 1.0F
Dim model As New FarPoint.Web.Chart.ChartModel()
model.PlotAreas.Add(plotArea)
model.PlotAreas(0).Lights.Clear()
model.PlotAreas(0).Lights.Add(light0)
model.PlotAreas(0).Lights.Add(light1)
Dim chart As New FarPoint.Web.Spread.Chart.SpreadChart()
chart.Model = model
chart.ViewType = FarPoint.Web.Chart.ChartViewType.View3D
FpSpread1.Sheets(0).Charts.Add(chart)