ChartDirector 6.0 (ASP/COM/VB Edition)

Scattered Data Surface Chart




This example demonstrates using scattered data for the surface chart. It also demonstrates hiding the plot region walls and changing their thickness and colors.

In previous surface chart examples, the data are gridded, which means the (x, y) coordinates of the data points lie on a rectangular grid. ChartDirector also supports scattered data points, which means the data points can be at arbitrary positions. ChartDirector automatically detects if the data passed to the surface chart using SurfaceChart.setData are gridded or scattered.

In this example, 2 of the 3 plot region walls are hidden using ThreeDChart.setWallVisibility. For the visible wall, its color is set to black using ThreeDChart.setWallColor, its thickness is set to 0 using ThreeDChart.setWallThickness, and its major and minor grid lines are set to white and grey using ThreeDChart.setWallGrid.

Source Code Listing

[Web Version (in ASP)] aspdemo\scattersurface.asp
<%@ language="vbscript" %>
<%
Set cd = CreateObject("ChartDirector.API")

' The (x, y, z) coordinates of the scattered data
dataX = Array(0.5, 1.9, 4.9, 1.0, 8.9, 9.8, 5.9, 2.9, 6.8, 9.0, 0.0, 8.9, 1.9, 4.8, 2.4, 3.4, 7.9, _
    7.5, 4.8, 7.5, 9.5, 0.4, 8.9, 0.9, 5.4, 9.4, 2.9, 8.9, 0.9, 8.9, 10.0, 1.0, 6.8, 3.8, 9.0, _
    5.3, 6.4, 4.9, 4.5, 2.0, 5.4, 0.0, 10.0, 3.9, 5.4, 5.9, 5.8, 0.3, 4.4, 8.3)
dataY = Array(3.3, 3.0, 0.7, 1.0, 9.3, 4.5, 8.4, 0.1, 0.8, 0.1, 9.3, 1.8, 4.3, 1.3, 2.3, 5.4, 6.9, _
    9.0, 9.8, 7.5, 1.8, 1.4, 4.5, 7.8, 3.8, 4.0, 2.9, 2.4, 3.9, 2.9, 2.3, 9.3, 2.0, 3.4, 4.8, 2.3, _
    3.4, 2.3, 1.5, 7.8, 4.5, 0.9, 6.3, 2.4, 6.9, 2.8, 1.3, 2.9, 6.4, 6.3)
dataZ = Array(6.6, 12.5, 7.4, 6.2, 9.6, 13.6, 19.9, 2.2, 6.9, 3.4, 8.7, 8.4, 7.8, 8.0, 9.4, 11.9, _
    9.6, 15.7, 12.0, 13.3, 9.6, 6.4, 9.0, 6.9, 4.6, 9.7, 10.6, 9.2, 7.0, 6.9, 9.7, 8.6, 8.0, 13.6, _
    13.2, 5.9, 9.0, 3.2, 8.3, 9.7, 8.2, 6.1, 8.7, 5.6, 14.9, 9.8, 9.3, 5.1, 10.8, 9.8)

' Create a SurfaceChart object of size 680 x 550 pixels. Set background to brushed silver and border
' to grey (888888). Set the top-left and bottom-right corners to rounded corners with 20 pixels
' radius.
Set c = cd.SurfaceChart(680, 550, cd.brushedSilverColor(), &H888888)
Call c.setRoundedFrame(&Hffffff, 20, 0, 20, 0)

' Add a title to the chart using 20 points Times New Roman Italic font. Set top/bottom margin to 8
' pixels.
Set title = c.addTitle("Surface Created Using Scattered Data Points", "timesi.ttf", 20)
Call title.setMargin2(0, 0, 8, 8)

' Add a 2 pixel wide black (000000) separator line under the title
Call c.addLine(10, title.getHeight(), c.getWidth() - 10, title.getHeight(), &H000000, 2)

' Set the center of the plot region at (290, 235), and set width x depth x height to 360 x 360 x 180
' pixels
Call c.setPlotRegion(290, 235, 360, 360, 180)

' Set the elevation and rotation angles to 45 and -45 degrees
Call c.setViewAngle(45, -45)

' Set the perspective level to 30
Call c.setPerspective(30)

' Set the data to use to plot the chart
Call c.setData(dataX, dataY, dataZ)

' Add a color axis (the legend) in which the top right corner is anchored at (660, 80). Set the
' length to 200 pixels and the labels on the right side.
Set cAxis = c.setColorAxis(660, 80, cd.TopRight, 200, cd.Right)

' Set the color axis title with 12 points Arial Bold font
Call cAxis.setTitle("Z Title Placeholder", "arialbd.ttf", 12)

' Add a bounding box with light grey (eeeeee) background and grey (888888) border. Set the top-left
' and bottom-right corners to rounded corners of  10 pixels radius.
Call cAxis.setBoundingBox(&Heeeeee, &H888888)
Call cAxis.setRoundedCorners(10, 0, 10, 0)

' Set surface grid lines to semi-transparent black (cc000000)
Call c.setSurfaceAxisGrid(&Hcc000000)

' Set contour lines to semi-transparent white (80ffffff)
Call c.setContourColor(&H80ffffff)

' Set the walls to black in color
Call c.setWallColor(&H000000)

' Set the xyz major wall grid lines to white (ffffff), and minor wall grid lines to grey (888888)
Call c.setWallGrid(&Hffffff, &Hffffff, &Hffffff, &H888888, &H888888, &H888888)

' Set the wall thickness to 0
Call c.setWallThickness(0, 0, 0)

' Show only the xy wall, and hide the yz and zx walls.
Call c.setWallVisibility(True, False, False)

' Set the x, y and z axis titles using 12 points Arial Bold font
Call c.xAxis().setTitle("X Title<*br*>Placeholder", "arialbd.ttf", 12)
Call c.yAxis().setTitle("Y Title<*br*>Placeholder", "arialbd.ttf", 12)

' Output the chart
Response.ContentType = "image/jpeg"
Response.BinaryWrite c.makeChart2(cd.JPG)
Response.End
%>

[Windows Version (in Visual Basic)] vbdemo\scattersurface.cls
Public Sub createChart(viewer As Object, chartIndex As Integer)

    Dim cd As New ChartDirector.API

    ' The (x, y, z) coordinates of the scattered data
    Dim dataX()
    dataX = Array(0.5, 1.9, 4.9, 1.0, 8.9, 9.8, 5.9, 2.9, 6.8, 9.0, 0.0, 8.9, 1.9, 4.8, 2.4, 3.4, _
        7.9, 7.5, 4.8, 7.5, 9.5, 0.4, 8.9, 0.9, 5.4, 9.4, 2.9, 8.9, 0.9, 8.9, 10.0, 1.0, 6.8, 3.8, _
        9.0, 5.3, 6.4, 4.9, 4.5, 2.0, 5.4, 0.0, 10.0, 3.9, 5.4, 5.9, 5.8, 0.3, 4.4, 8.3)
    Dim dataY()
    dataY = Array(3.3, 3.0, 0.7, 1.0, 9.3, 4.5, 8.4, 0.1, 0.8, 0.1, 9.3, 1.8, 4.3, 1.3, 2.3, 5.4, _
        6.9, 9.0, 9.8, 7.5, 1.8, 1.4, 4.5, 7.8, 3.8, 4.0, 2.9, 2.4, 3.9, 2.9, 2.3, 9.3, 2.0, 3.4, _
        4.8, 2.3, 3.4, 2.3, 1.5, 7.8, 4.5, 0.9, 6.3, 2.4, 6.9, 2.8, 1.3, 2.9, 6.4, 6.3)
    Dim dataZ()
    dataZ = Array(6.6, 12.5, 7.4, 6.2, 9.6, 13.6, 19.9, 2.2, 6.9, 3.4, 8.7, 8.4, 7.8, 8.0, 9.4, _
        11.9, 9.6, 15.7, 12.0, 13.3, 9.6, 6.4, 9.0, 6.9, 4.6, 9.7, 10.6, 9.2, 7.0, 6.9, 9.7, 8.6, _
        8.0, 13.6, 13.2, 5.9, 9.0, 3.2, 8.3, 9.7, 8.2, 6.1, 8.7, 5.6, 14.9, 9.8, 9.3, 5.1, 10.8, _
        9.8)

    ' Create a SurfaceChart object of size 680 x 550 pixels. Set background to brushed silver and
    ' border to grey (888888). Set the top-left and bottom-right corners to rounded corners with 20
    ' pixels radius.
    Dim c As SurfaceChart
    Set c = cd.SurfaceChart(680, 550, cd.brushedSilverColor(), &H888888)
    Call c.setRoundedFrame(&Hffffff, 20, 0, 20, 0)

    ' Add a title to the chart using 20 points Times New Roman Italic font. Set top/bottom margin to
    ' 8 pixels.
    Dim title As ChartDirector.TextBox
    Set title = c.addTitle("Surface Created Using Scattered Data Points", "timesi.ttf", 20)
    Call title.setMargin2(0, 0, 8, 8)

    ' Add a 2 pixel wide black (000000) separator line under the title
    Call c.addLine(10, title.getHeight(), c.getWidth() - 10, title.getHeight(), &H000000, 2)

    ' Set the center of the plot region at (290, 235), and set width x depth x height to 360 x 360 x
    ' 180 pixels
    Call c.setPlotRegion(290, 235, 360, 360, 180)

    ' Set the elevation and rotation angles to 45 and -45 degrees
    Call c.setViewAngle(45, -45)

    ' Set the perspective level to 30
    Call c.setPerspective(30)

    ' Set the data to use to plot the chart
    Call c.setData(dataX, dataY, dataZ)

    ' Add a color axis (the legend) in which the top right corner is anchored at (660, 80). Set the
    ' length to 200 pixels and the labels on the right side.
    Dim cAxis As ColorAxis
    Set cAxis = c.setColorAxis(660, 80, cd.TopRight, 200, cd.Right)

    ' Set the color axis title with 12 points Arial Bold font
    Call cAxis.setTitle("Z Title Placeholder", "arialbd.ttf", 12)

    ' Add a bounding box with light grey (eeeeee) background and grey (888888) border. Set the
    ' top-left and bottom-right corners to rounded corners of  10 pixels radius.
    Call cAxis.setBoundingBox(&Heeeeee, &H888888)
    Call cAxis.setRoundedCorners(10, 0, 10, 0)

    ' Set surface grid lines to semi-transparent black (cc000000)
    Call c.setSurfaceAxisGrid(&Hcc000000)

    ' Set contour lines to semi-transparent white (80ffffff)
    Call c.setContourColor(&H80ffffff)

    ' Set the walls to black in color
    Call c.setWallColor(&H000000)

    ' Set the xyz major wall grid lines to white (ffffff), and minor wall grid lines to grey
    ' (888888)
    Call c.setWallGrid(&Hffffff, &Hffffff, &Hffffff, &H888888, &H888888, &H888888)

    ' Set the wall thickness to 0
    Call c.setWallThickness(0, 0, 0)

    ' Show only the xy wall, and hide the yz and zx walls.
    Call c.setWallVisibility(True, False, False)

    ' Set the x, y and z axis titles using 12 points Arial Bold font
    Call c.xAxis().setTitle("X Title<*br*>Placeholder", "arialbd.ttf", 12)
    Call c.yAxis().setTitle("Y Title<*br*>Placeholder", "arialbd.ttf", 12)

    ' Output the chart
    Set viewer.Picture = c.makePicture()

End Sub