This example demonstrates adding multiple classical 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.
Comparing to new style pointers, classical angular pointers are thicker in shape. This enables them to express various shapes. They are designed to be pivoted to the center by a small pointer cap (the circle at the center). The classical pointer cap can be configured using
AngularMeter.setCap.
This example demonstrates the 5 built-in classical angular pointer shapes, configured using
MeterPointer.setShape. ChartDirector also supports custom shapes configured using
MeterPointer.setShape2.
[Web Version (in ASP)] aspdemo\angularpointer.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 = 128 pixels, scale angle 0 to 360 degrees
Call m.setMeter(150, 150, 128, 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("Arial Italic", 16)
Call m.setTickLength(-13, -10, -7)
Call m.setLineWidth(0, 2, 1, 1)
' Add a semi-transparent blue (0x7f6666ff) pointer using the default shape
Call m.addPointer(25, &H7f6666ff, &H6666ff)
' Add a semi-transparent red (0x7fff6666) pointer using the arrow shape
Call m.addPointer(9, &H7fff6666, &Hff6666).setShape(cd.ArrowPointer2)
' Add a semi-transparent yellow (0x7fffff66) pointer using another arrow shape
Call m.addPointer(51, &H7fffff66, &Hffff66).setShape(cd.ArrowPointer)
' Add a semi-transparent green (0x7f66ff66) pointer using the line shape
Call m.addPointer(72, &H7f66ff66, &H66ff66).setShape(cd.LinePointer)
' Add a semi-transparent grey (0x7fcccccc) pointer using the pencil shape
Call m.addPointer(85, &H7fcccccc, &Hcccccc).setShape(cd.PencilPointer)
' Output the chart
Set viewer = cd.WebChartViewer(Request, "chart1")
Call viewer.setChart(m, cd.SVG)
%>
<!DOCTYPE html>
<html>
<head>
<title>Angular Meter Pointers (1)</title>
<!-- Include ChartDirector Javascript Library to support chart interactions -->
<script type="text/javascript" src="cdjcv.js"></script>
</head>
<body style="margin:5px 0px 0px 5px">
<div style="font:bold 18pt verdana;">
Angular Meter Pointers (1)
</div>
<hr style="border:solid 1px #000080; background:#000080" />
<div style="font:10pt verdana; margin-bottom:1.5em">
<a href="viewsource.asp?file=<%= Request("SCRIPT_NAME") %>">View Chart Source Code</a>
</div>
<!-- ****** Here is the chart image ****** -->
<%= viewer.renderHTML() %>
</body>
</html>
[Windows Version (in Visual Basic)] vbdemo\angularpointer.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 = 128 pixels, scale angle 0 to 360 degrees
Call m.setMeter(150, 150, 128, 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 semi-transparent blue (0x7f6666ff) pointer using the default shape
Call m.addPointer(25, &H7f6666ff, &H6666ff)
' Add a semi-transparent red (0x7fff6666) pointer using the arrow shape
Call m.addPointer(9, &H7fff6666, &Hff6666).setShape(cd.ArrowPointer2)
' Add a semi-transparent yellow (0x7fffff66) pointer using another arrow shape
Call m.addPointer(51, &H7fffff66, &Hffff66).setShape(cd.ArrowPointer)
' Add a semi-transparent green (0x7f66ff66) pointer using the line shape
Call m.addPointer(72, &H7f66ff66, &H66ff66).setShape(cd.LinePointer)
' Add a semi-transparent grey (0x7fcccccc) pointer using the pencil shape
Call m.addPointer(85, &H7fcccccc, &Hcccccc).setShape(cd.PencilPointer)
' Output the chart
Set viewer.Picture = m.makePicture()
End Sub
© 2021 Advanced Software Engineering Limited. All rights reserved.