Path: C:\
<%@ language="vbscript" %>
<%
Set cd = CreateObject("ChartDirector.API")
' Create an AugularMeter object of size 200 x 200 pixels
Set m = cd.AngularMeter(200, 200)
' Use white on black color palette for default text and line colors
Call m.setColors(cd.whiteOnBlackPalette)
' Set the meter center at (100, 100), with radius 85 pixels, and span from 0 to 360
' degress
Call m.setMeter(100, 100, 85, 0, 360)
' Meter scale is 0 - 100, with major tick every 10 units, minor tick every 5 units,
' and micro tick every 1 units
Call m.setScale(0, 100, 10, 5, 1)
' Set angular arc, major tick and minor tick line widths to 2 pixels.
Call m.setLineWidth(2, 2, 2)
' Add a blue (9999ff) ring between radii 88 - 90 as decoration
Call m.addRing(88, 90, &H9999ff)
' Set 0 - 60 as green (00AA00) zone, 60 - 80 as yellow (CCCC00) zone, and 80 - 100 as
' red (AA0000) zone
Call m.addZone(0, 60, &H00aa00)
Call m.addZone(60, 80, &Hcccc00)
Call m.addZone(80, 100, &Haa0000)
' Add a text label centered at (100, 70) with 12 pts Arial Bold font
Call m.addText(100, 70, "PSI", "arialbd.ttf", 12, cd.TextColor, cd.Center)
' Add a semi-transparent blue (806666FF) pointer using the default shape
Call m.addPointer(25, &H806666ff, &H6666ff)
' Add a semi-transparent red (80FF6666) pointer using the arrow shape
Call m.addPointer(9, &H80ff6666, &Hff6666).setShape(cd.ArrowPointer2)
' Add a semi-transparent yellow (80FFFF66) pointer using another arrow shape
Call m.addPointer(51, &H80ffff66, &Hffff66).setShape(cd.ArrowPointer)
' Add a semi-transparent green (8066FF66) pointer using the line shape
Call m.addPointer(72, &H8066ff66, &H66ff66).setShape(cd.LinePointer)
' Add a semi-transparent grey (80CCCCCC) pointer using the pencil shape
Call m.addPointer(85, &H80cccccc, &Hcccccc).setShape(cd.PencilPointer)
' Output the chart
Response.ContentType = "image/png"
Response.BinaryWrite m.makeChart2(cd.PNG)
Response.End
%>