TransWar File Browser

Path: C:\

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

' The data for the pie chart
data = Array(18, 45, 28)

' The labels for the pie chart
labels = Array("Marble", "Wood", "Granite")

' The icons for the sectors
texture = Array("marble3.png", "wood.png", "rock.png")

' Create a PieChart object of size 400 x 330 pixels, with a metallic green (88EE88)
' background, black border and 1 pixel 3D border effect
Set c = cd.PieChart(400, 330, cd.metalColor(&H88ee88), &H000000, 1)

' Set default directory for loading images from current script directory
Call c.setSearchPath(Server.MapPath("."))

' Set donut center at (200, 160), and outer/inner radii as 120/60 pixels
Call c.setDonutSize(200, 160, 120, 60)

' Add a title box using 15 pts Times Bold Italic font and metallic deep green
' (008000) background color
Call c.addTitle("Material Composition", "timesbi.ttf", 15).setBackground( _
    cd.metalColor(&H008000))

' Set the pie data and the pie labels
Call c.setData(data, labels)

' Set the colors of the sectors to the 3 texture patterns
Call c.setColor(cd.DataColor + 0, c.patternColor2(texture(0)))
Call c.setColor(cd.DataColor + 1, c.patternColor2(texture(1)))
Call c.setColor(cd.DataColor + 2, c.patternColor2(texture(2)))

' Draw the pie in 3D with a 3D depth of 30 pixels
Call c.set3D(30)

' Use 12 pts Arial Bold Italic as the sector label font
Call c.setLabelStyle("arialbi.ttf", 12)

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