ChartDirector 6.0 (ASP/COM/VB Edition)

Angular Meter Pointers (2)




This example demonstrates adding multiple new style pointers of different styles to a meter.

For angular meters, classical pointers are added using BaseMeter.addPointer, while new style pointers are added using AngularMeter.addPointer2.

When compared to classical pointers, new style pointers are thinner. They are designed to be used with the new style meter cap (the circular object at the center), which is larger than the classical pointer cap, and is configurable using AngularMeter.setCap2. The base and tip of the new style pointer can move independently in the radial direction, which means the pointer can be detached from the center, and can even points from the outside inwards.

Source Code Listing

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

' Create an AngularMeter object of size 300 x 300 pixels with transparent background
Set m = cd.AngularMeter(300, 300, cd.Transparent)

' Set the default text and line colors to white (0xffffff)
Call m.setColor(cd.TextColor, &Hffffff)
Call m.setColor(cd.LineColor, &Hffffff)

' Center at (150, 150), scale radius = 125 pixels, scale angle 0 to 360 degrees
Call m.setMeter(150, 150, 125, 0, 360)

' Add a black (0x000000) circle with radius 148 pixels as background
Call m.addRing(0, 148, &H000000)

' Add a ring between radii 139 and 147 pixels using the silver color with a light grey (0xcccccc)
' edge as border
Call m.addRing(139, 147, cd.silverColor(), &Hcccccc)

' Meter scale is 0 - 100, with major/minor/micro ticks every 10/5/1 units
Call m.setScale(0, 100, 10, 5, 1)

' Set the scale label style to 16pt Arial Italic. Set the major/minor/micro tick lengths to 13/10/7
' pixels pointing inwards, and their widths to 2/1/1 pixels.
Call m.setLabelStyle("ariali.ttf", 16)
Call m.setTickLength(-13, -10, -7)
Call m.setLineWidth(0, 2, 1, 1)

' Add a default red (0xff0000) pointer
Call m.addPointer2(25, &Hff0000)

' Add a semi-transparent green (0x3f00ff00) line style pointer
Call m.addPointer2(9, &H3f00ff00, -1, cd.LinePointer2)

' Add a semi-transparent blue (0x7f66aaff) triangular pointer floating between 60% and 85% of the
' scale radius with the pointer width 5 times the default
Call m.addPointer2(52, &H7f66aaff, &H66aaff, cd.TriangularPointer2, 0.6, 0.85, 5)

' Add a semi-transparent yellow (0x7fffff66) triangular pointer floating between 80% and 90% of the
' scale radius with the pointer width 5 times the default
Call m.addPointer2(65, &H7fffff66, &Hffff66, cd.TriangularPointer2, 0.8, 0.9, 5)

' Add two red (0xff0000) triangular pointer at 72 and 94. The pointers float between 110% and 100%
' of the scale radius with widths 3 times the default
Call m.addPointer2(72, &Hff0000, -1, cd.TriangularPointer2, 1.1, 1.0, 3)
Call m.addPointer2(94, &Hff0000, -1, cd.TriangularPointer2, 1.1, 1.0, 3)

' Add a red (0xcc0000) zone spanning from 72 to 94, and between the radii 112 and 125
Call m.addZone(72, 94, 125, 112, &Hcc0000)

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

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

    Dim cd As New ChartDirector.API

    ' Create an AngularMeter object of size 300 x 300 pixels
    Dim m As AngularMeter
    Set m = cd.AngularMeter(300, 300)

    ' Set the default text and line colors to white (0xffffff)
    Call m.setColor(cd.TextColor, &Hffffff)
    Call m.setColor(cd.LineColor, &Hffffff)

    ' Center at (150, 150), scale radius = 125 pixels, scale angle 0 to 360 degrees
    Call m.setMeter(150, 150, 125, 0, 360)

    ' Add a black (0x000000) circle with radius 148 pixels as background
    Call m.addRing(0, 148, &H000000)

    ' Add a ring between radii 139 and 147 pixels using the silver color with a light grey
    ' (0xcccccc) edge as border
    Call m.addRing(139, 147, cd.silverColor(), &Hcccccc)

    ' Meter scale is 0 - 100, with major/minor/micro ticks every 10/5/1 units
    Call m.setScale(0, 100, 10, 5, 1)

    ' Set the scale label style to 16pt Arial Italic. Set the major/minor/micro tick lengths to
    ' 13/10/7 pixels pointing inwards, and their widths to 2/1/1 pixels.
    Call m.setLabelStyle("ariali.ttf", 16)
    Call m.setTickLength(-13, -10, -7)
    Call m.setLineWidth(0, 2, 1, 1)

    ' Add a default red (0xff0000) pointer
    Call m.addPointer2(25, &Hff0000)

    ' Add a semi-transparent green (0x3f00ff00) line style pointer
    Call m.addPointer2(9, &H3f00ff00, -1, cd.LinePointer2)

    ' Add a semi-transparent blue (0x7f66aaff) triangular pointer floating between 60% and 85% of
    ' the scale radius with the pointer width 5 times the default
    Call m.addPointer2(52, &H7f66aaff, &H66aaff, cd.TriangularPointer2, 0.6, 0.85, 5)

    ' Add a semi-transparent yellow (0x7fffff66) triangular pointer floating between 80% and 90% of
    ' the scale radius with the pointer width 5 times the default
    Call m.addPointer2(65, &H7fffff66, &Hffff66, cd.TriangularPointer2, 0.8, 0.9, 5)

    ' Add two red (0xff0000) triangular pointer at 72 and 94. The pointers float between 110% and
    ' 100% of the scale radius with widths 3 times the default
    Call m.addPointer2(72, &Hff0000, -1, cd.TriangularPointer2, 1.1, 1.0, 3)
    Call m.addPointer2(94, &Hff0000, -1, cd.TriangularPointer2, 1.1, 1.0, 3)

    ' Add a red (0xcc0000) zone spanning from 72 to 94, and between the radii 112 and 125
    Call m.addZone(72, 94, 125, 112, &Hcc0000)

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

End Sub