Path: C:\
<%@ language="vbscript" %>
<%
Set cd = CreateObject("ChartDirector.API")
' The value to display on the meter
value = 27.48
' Create an AngularMeter object of size 200 x 115 pixels, with silver background
' color, black border, 2 pixel 3D border border and rounded corners
Set m = cd.AngularMeter(200, 115, cd.silverColor(), &H000000, 2)
Call m.setRoundedFrame()
' Set the meter center at (100, 100), with radius 85 pixels, and span from -90 to +90
' degress (semi-circle)
Call m.setMeter(100, 100, 85, -90, 90)
' Meter scale is 0 - 100, with major tick every 20 units, minor tick every 10 units,
' and micro tick every 5 units
Call m.setScale(0, 100, 20, 10, 5)
' Set 0 - 60 as green (66FF66) zone
Call m.addZone(0, 60, 0, 85, &H66ff66)
' Set 60 - 80 as yellow (FFFF33) zone
Call m.addZone(60, 80, 0, 85, &Hffff33)
' Set 80 - 100 as red (FF6666) zone
Call m.addZone(80, 100, 0, 85, &Hff6666)
' Add a text label centered at (100, 60) with 12 pts Arial Bold font
Call m.addText(100, 60, "PSI", "arialbd.ttf", 12, cd.TextColor, cd.Center)
' Add a text box at the top right corner of the meter showing the value formatted to
' 2 decimal places, using white text on a black background, and with 1 pixel 3D
' depressed border
Call m.addText(156, 8, m.formatValue(value, "2"), "arial.ttf", 8, &Hffffff _
).setBackground(&H000000, 0, -1)
' Add a semi-transparent blue (40666699) pointer with black border at the specified
' value
Call m.addPointer(value, &H40666699, &H000000)
' Output the chart
Response.ContentType = "image/png"
Response.BinaryWrite m.makeChart2(cd.PNG)
Response.End
%>