ChartDirector 6.0 (ASP/COM/VB Edition)

Polar Spline Chart




This example demonstrates polar spline line and polar spline area.

The polar spline line is created using PolarChart.addSplineLineLayer. The polar spline area is created using PolarChart.addSplineAreaLayer.

Source Code Listing

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

' The data for the chart
data0 = Array(5.1, 2.6, 1.5, 2.2, 5.1, 4.3, 4.0, 9.0, 1.7, 8.8, 9.9, 9.5, 9.4, 1.8, 2.1, 2.3, 3.5, _
    7.7, 8.8, 6.1, 5.0, 3.1, 6.0, 4.3)
angles0 = Array(0, 15, 30, 45, 60, 75, 90, 105, 120, 135, 150, 165, 180, 195, 210, 225, 240, 255, _
    270, 285, 300, 315, 330, 345)

data1 = Array(8.1, 2.5, 5, 5.2, 6.5, 8.5, 9, 7.6, 8.7, 6.4, 5.5, 5.4, 3.0, 8.7, 7.1, 8.8, 7.9, _
    2.2, 5.0, 4.0, 1.5, 7.5, 8.3, 9.0)
angles1 = Array(0, 15, 30, 45, 60, 75, 90, 105, 120, 135, 150, 165, 180, 195, 210, 225, 240, 255, _
    270, 285, 300, 315, 330, 345)

' Create a PolarChart object of size 460 x 460 pixels
Set c = cd.PolarChart(460, 460)

' Add a title to the chart at the top left corner using 15pt Arial Bold Italic font
Call c.addTitle2(cd.TopLeft, "<*underline=2*>EM Field Strength", "arialbi.ttf", 15)

' Set center of plot area at (230, 240) with radius 180 pixels
Call c.setPlotArea(230, 240, 180)

' Set the grid style to circular grid
Call c.setGridStyle(False)

' Add a legend box at the top right corner of the chart using 9pt Arial Bold font
Call c.addLegend(459, 0, True, "arialbd.ttf", 9).setAlignment(cd.TopRight)

' Set angular axis as 0 - 360, with a spoke every 30 units
Call c.angularAxis().setLinearScale(0, 360, 30)

' Add a red (0xff9999) spline area layer to the chart using (data0, angles0)
Call c.addSplineAreaLayer(data0, &Hff9999, "Above 100MHz").setAngles(angles0)

' Add a blue (0xff) spline line layer to the chart using (data1, angle1)
Set layer1 = c.addSplineLineLayer(data1, &H0000ff, "Below 100MHz")
Call layer1.setAngles(angles1)

' Set the line width to 3 pixels
Call layer1.setLineWidth(3)

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

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

    Dim cd As New ChartDirector.API

    ' The data for the chart
    Dim data0()
    data0 = Array(5.1, 2.6, 1.5, 2.2, 5.1, 4.3, 4.0, 9.0, 1.7, 8.8, 9.9, 9.5, 9.4, 1.8, 2.1, 2.3, _
        3.5, 7.7, 8.8, 6.1, 5.0, 3.1, 6.0, 4.3)
    Dim angles0()
    angles0 = Array(0, 15, 30, 45, 60, 75, 90, 105, 120, 135, 150, 165, 180, 195, 210, 225, 240, _
        255, 270, 285, 300, 315, 330, 345)

    Dim data1()
    data1 = Array(8.1, 2.5, 5, 5.2, 6.5, 8.5, 9, 7.6, 8.7, 6.4, 5.5, 5.4, 3.0, 8.7, 7.1, 8.8, 7.9, _
        2.2, 5.0, 4.0, 1.5, 7.5, 8.3, 9.0)
    Dim angles1()
    angles1 = Array(0, 15, 30, 45, 60, 75, 90, 105, 120, 135, 150, 165, 180, 195, 210, 225, 240, _
        255, 270, 285, 300, 315, 330, 345)

    ' Create a PolarChart object of size 460 x 460 pixels
    Dim c As PolarChart
    Set c = cd.PolarChart(460, 460)

    ' Add a title to the chart at the top left corner using 15pt Arial Bold Italic font
    Call c.addTitle2(cd.TopLeft, "<*underline=2*>EM Field Strength", "arialbi.ttf", 15)

    ' Set center of plot area at (230, 240) with radius 180 pixels
    Call c.setPlotArea(230, 240, 180)

    ' Set the grid style to circular grid
    Call c.setGridStyle(False)

    ' Add a legend box at the top right corner of the chart using 9pt Arial Bold font
    Call c.addLegend(459, 0, True, "arialbd.ttf", 9).setAlignment(cd.TopRight)

    ' Set angular axis as 0 - 360, with a spoke every 30 units
    Call c.angularAxis().setLinearScale(0, 360, 30)

    ' Add a red (0xff9999) spline area layer to the chart using (data0, angles0)
    Call c.addSplineAreaLayer(data0, &Hff9999, "Above 100MHz").setAngles(angles0)

    ' Add a blue (0xff) spline line layer to the chart using (data1, angle1)
    Dim layer1 As PolarSplineLineLayer
    Set layer1 = c.addSplineLineLayer(data1, &H0000ff, "Below 100MHz")
    Call layer1.setAngles(angles1)

    ' Set the line width to 3 pixels
    Call layer1.setLineWidth(3)

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

    'include tool tip for the chart
    viewer.ImageMap = c.getHTMLImageMap("clickable", "", _
        "title='{dataSetName} EM field at {angle} deg: {value} Watt'")

End Sub