Surface Axis Custom Ticks
Demonstrates using custom axis ticks with a 3D surface chart.
<%@ Page Language="C#" Description="dotnetCHARTING Component" %>
<%@ Register TagPrefix="dnc" Namespace="dotnetCHARTING" Assembly="dotnetCHARTING" %>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Drawing2D" %>
<%@ Import Namespace="dotnetCHARTING.Mapping" %>
<script runat="server">
void Page_Load(Object sender, EventArgs e)
{
// Demonstrates using custom axis ticks with a 3D surface chart.
Chart.Size = "650x450";
Chart.TempDirectory = "temp";
Chart.Debug = true;
Chart.Use3D = true;
Chart.Type = ChartType.Surface;
Chart.LegendBox.Visible = false;
Chart.DefaultSeries.Type = SeriesTypeSurface.Surface;
Chart.DefaultSeries.Background.Transparency = 30;
Chart.DefaultSeries.Line.Transparency = 60;
Chart.MarginTop = 30;
Chart.XAxis.Label.Text = "X Axis (Custom Ticks)";
Chart.XAxis.DefaultTick.Label.Font = new Font("Arial", 9, FontStyle.Bold);
Chart.XAxis.ExtraTicks.Add(new AxisTick(0, "Zero"));
Chart.XAxis.ExtraTicks.Add(new AxisTick(5, "5 <Chart:Image src='../../images/error.png'>"));
AxisTick at = new AxisTick(15, "15 (With Tooltip)");
at.Label.Hotspot.ToolTip = "Tooltip for axis tick";
Chart.XAxis.ExtraTicks.Add(at);
AxisTick at2 = new AxisTick(10, "10 highlight");
at2.GridLine.Width = 2;
at2.GridLine.Color = Color.Gray;
at2.GridLine.DashStyle = DashStyle.Dash;
Chart.XAxis.ExtraTicks.Add(at2);
SeriesCollection mySC = getRData();
Chart.SmartPalette = mySC[0].GetSmartPalette(ElementValue.ZValue, Color.Blue, Color.Aqua, Color.LightGreen, Color.Yellow, Color.Orange, Color.Crimson);
Annotation an = new Annotation(getSwatch(510, Chart.SmartPalette, 10, true));
an.ClearColors();
an.Position = new Point(20, 0);
an.DynamicSize = false;
Chart.Annotations.Add(an);
// Add the random data.
Chart.SeriesCollection.Add(mySC);
}
SeriesCollection getRData()
{
int size = 23;
double[][] zVals = new double[size][];
double[] xVals = new double[size];
double[] yVals = new double[size];
for (int i = 0; i < size; i++)
{
zVals[i] = new double[size];
for (int j = 0; j < size; j++)
{
double x = (double)(0 + i * .16);
double y = (double)(-2 + j * .16);
xVals[i] = 1 + x++ * 5;
yVals[j] = y;
zVals[i][j] = Math.Sin(x * 3.2) + Math.Cos(y * 2) + Math.Sin(x * 1.2) + Math.Sin(y * 1.2);
}
}
return new SeriesCollection(Series.FromSurfaceData("", xVals, yVals, zVals));
}
string getSwatch(int width, SmartPalette sp, int divisions, bool withValues)
{
// Get Maximum Value of the smart palette range
double max = (double)sp.GetScaleRange("*").ValueHigh;
double min = (double)sp.GetScaleRange("*").ValueLow;
string swatch = "", spacers = "";
double step = (max - min) / divisions;
// Width of each division.
int boxWidth = width / divisions;
// Generate swatch string for each division.
for (int i = 0; i <= divisions; i++)
{
spacers += "<Chart:Spacer size='" + boxWidth + "x1'>";
// Get the color of the current division.
string color = getHTMLColor(sp.GetValueColor("", min + (i * (step))));
if (withValues)
swatch += "<block hAlignment='Center' bgColor='" + color + "'>" + Math.Round((min + (i * (step))), 1);
else
swatch += "<block bgColor='" + color + "' fColor='" + color + "'>_";
}
//return the swatch string.
return spacers + "<row>" + swatch;
}
string getHTMLColor(Color c)
{
return "#" + c.R.ToString("X2") + c.G.ToString("X2") + c.B.ToString("X2");
}
</script>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>.netCHARTING Sample</title>
</head>
<style type="text/css">
div, p
{
font-family: Arial, Helvetica, sans-serif;
font-size: x-small;
}
</style>
<body>
<form id="form1" runat="server">
<div align="center">
<dnc:Chart ID="Chart" runat="server" />
</div>
</form>
</body>
</html>
<%@ Page Language="vb" Description="dotnetCHARTING Component" %>
<%@ Register TagPrefix="dnc" Namespace="dotnetCHARTING" Assembly="dotnetCHARTING" %>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Drawing2D" %>
<script runat="server">
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
' Demonstrates using custom axis ticks with a 3D surface chart.
Chart.Size = "650x450"
Chart.TempDirectory = "temp"
Chart.Debug = True
Chart.Use3D = True
Chart.Type = ChartType.Surface
Chart.LegendBox.Visible = False
Chart.DefaultSeries.Type = SeriesTypeSurface.Surface
Chart.DefaultSeries.Background.Transparency = 30
Chart.DefaultSeries.Line.Transparency = 60
Chart.MarginTop = 30
Chart.XAxis.Label.Text = "X Axis (Custom Ticks)"
Chart.XAxis.DefaultTick.Label.Font = New Font("Arial", 9, FontStyle.Bold)
Chart.XAxis.ExtraTicks.Add(New AxisTick(0, "Zero"))
Chart.XAxis.ExtraTicks.Add(New AxisTick(5, "5 <Chart:Image src='../../images/error.png'>"))
Dim at As AxisTick = New AxisTick(15, "15 (With Tooltip)")
at.Label.Hotspot.ToolTip = "Tooltip for axis tick"
Chart.XAxis.ExtraTicks.Add(at)
Dim at2 As AxisTick = New AxisTick(10, "10 highlight")
at2.GridLine.Width = 2
at2.GridLine.Color = Color.Gray
at2.GridLine.DashStyle = DashStyle.Dash
Chart.XAxis.ExtraTicks.Add(at2)
Dim mySC As SeriesCollection = getRData()
Chart.SmartPalette = mySC(0).GetSmartPalette(ElementValue.ZValue, Color.Blue, Color.Aqua, Color.LightGreen, Color.Yellow, Color.Orange, Color.Crimson)
Dim an As Annotation = New Annotation(getSwatch(510, Chart.SmartPalette, 10, True))
an.ClearColors()
an.Position = New Point(20, 0)
an.DynamicSize = False
Chart.Annotations.Add(an)
' Add the random data.
Chart.SeriesCollection.Add(mySC)
End Sub
Function getRData() As SeriesCollection
Dim size As Integer = 23
Dim zVals As Double()() = New Double(size - 1)(){}
Dim xVals As Double() = New Double(size - 1){}
Dim yVals As Double() = New Double(size - 1){}
For i As Integer = 0 To size - 1
zVals(i) = New Double(size - 1){}
For j As Integer = 0 To size - 1
Dim x As Double = CDbl(0 + i *.16)
Dim y As Double = CDbl(-2 + j *.16)
xVals(i) = 1 + x * 5
x = x + 1
yVals(j) = y
zVals(i)(j) = Math.Sin(x * 3.2) + Math.Cos(y * 2) + Math.Sin(x * 1.2) + Math.Sin(y * 1.2)
Next j
Next i
Return New SeriesCollection(Series.FromSurfaceData("", xVals, yVals, zVals))
End Function
Function getSwatch(ByVal width As Integer, ByVal sp As SmartPalette, ByVal divisions As Integer, ByVal withValues As Boolean) As String
' Get Maximum Value of the smart palette range
Dim max As Double = CDbl(sp.GetScaleRange("*").ValueHigh)
Dim min As Double = CDbl(sp.GetScaleRange("*").ValueLow)
Dim swatch As String = "", spacers As String = ""
Dim [step] As Double = (max - min) / divisions
' Width of each division.
Dim boxWidth As Integer = width / divisions
' Generate swatch string for each division.
For i As Integer = 0 To divisions
spacers &= "<Chart:Spacer size='" & boxWidth & "x1'>"
' Get the color of the current division.
Dim color As String = getHTMLColor(sp.GetValueColor("", min + (i * ([step]))))
If withValues Then
swatch &= "<block hAlignment='Center' bgColor='" & color & "'>" & Math.Round((min + (i * ([step]))), 1)
Else
swatch &= "<block bgColor='" & color & "' fColor='" & color & "'>_"
End If
Next i
'return the swatch string.
Return spacers & "<row>" & swatch
End Function
Function getHTMLColor(ByVal c As Color) As String
Return "#" & c.R.ToString("X2") + c.G.ToString("X2") + c.B.ToString("X2")
End Function
</script>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>.netCHARTING Sample</title>
</head>
<style type="text/css">
div, p
{
font-family: Arial, Helvetica, sans-serif;
font-size: x-small;
}
</style>
<body>
<form id="form1" runat="server">
<div align="center">
<dnc:Chart ID="Chart" runat="server" />
</div>
</form>
</body>
</html>
Previous