TransWar File Browser

Path: C:\

<%@ language="vbscript" %>
<%
Set cd = CreateObject("ChartDirector.API")

' The value to display on the meter
value = 4.75

' Create an AugularMeter object of size 110 x 110 pixels, using silver background
' color with a black 2 pixel 3D depressed border.
Set m = cd.AngularMeter(110, 110, cd.silverColor(), &H000000, -2)

' Set meter appearance according to a parameter
If Request("img") = "0" Then
    ' Set the meter center at bottom left corner (15, 95), with radius 85 pixels.
    ' Meter spans from 90 - 0 degrees.
    Call m.setMeter(15, 95, 85, 90, 0)
    ' Add a label to the meter centered at (35, 75)
    Call m.addText(35, 75, "VDC", "arialbd.ttf", 12, cd.TextColor, cd.Center)
    ' Add a text box to show the value at top right corner (103, 7)
    Call m.addText(103, 7, m.formatValue(value, "2"), "arial.ttf", 8, &Hffffff, _
        cd.TopRight).setBackground(0, 0, -1)
ElseIf Request("img") = "1" Then
    ' Set the meter center at top left corner (15, 15), with radius 85 pixels. Meter
    ' spans from 90 - 180 degrees.
    Call m.setMeter(15, 15, 85, 90, 180)
    ' Add a label to the meter centered at (35, 35)
    Call m.addText(35, 35, "AMP", "arialbd.ttf", 12, cd.TextColor, cd.Center)
    ' Add a text box to show the value at bottom right corner (103, 103)
    Call m.addText(103, 103, m.formatValue(value, "2"), "arial.ttf", 8, &Hffffff, _
        cd.BottomRight).setBackground(0, 0, -1)
ElseIf Request("img") = "2" Then
    ' Set the meter center at top right corner (15, 95), with radius 85 pixels. Meter
    ' spans from 270 - 180 degrees.
    Call m.setMeter(95, 15, 85, 270, 180)
    ' Add a label to the meter centered at (75, 35)
    Call m.addText(75, 35, "KW", "arialbd.ttf", 12, cd.TextColor, cd.Center)
    ' Add a text box to show the value at bottom left corner (7, 103)
    Call m.addText(7, 103, m.formatValue(value, "2"), "arial.ttf", 8, &Hffffff, _
        cd.BottomLeft).setBackground(0, 0, -1)
Else
    ' Set the meter center at bottom right corner (95, 95), with radius 85 pixels.
    ' Meter spans from 270 - 360 degrees.
    Call m.setMeter(95, 95, 85, 270, 360)
    ' Add a label to the meter centered at (75, 75)
    Call m.addText(75, 75, "RPM", "arialbd.ttf", 12, cd.TextColor, cd.Center)
    ' Add a text box to show the value at top left corner (7, 7)
    Call m.addText(7, 7, m.formatValue(value, "2"), "arial.ttf", 8, &Hffffff, _
        cd.TopLeft).setBackground(0, 0, -1)
End If

' Meter scale is 0 - 10, with a major tick every 2 units, and minor tick every 1 unit
Call m.setScale(0, 10, 2, 1)

' Set 0 - 6 as green (99ff99) zone, 6 - 8 as yellow (ffff00) zone, and 8 - 10 as red
' (ff3333) zone
Call m.addZone(0, 6, &H99ff99, &H808080)
Call m.addZone(6, 8, &Hffff00, &H808080)
Call m.addZone(8, 10, &Hff3333, &H808080)

' Add a semi-transparent black (80000000) pointer at the specified value
Call m.addPointer(value, &H80000000)

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