<%@ language="vbscript" %> <% Set cd = CreateObject("ChartDirector.API") 'Data for the chart data = Array(9.4, 1.8, 2.1, 2.3, 3.5, 7.7, 8.8, 6.1, 5.0, 3.1, 6.0, 4.3, 5.1, _ 2.6, 1.5, 2.2, 5.1, 4.3, 4.0, 9.0, 1.7, 8.8, 9.9, 9.5) angles = Array(0, 15, 30, 45, 60, 75, 90, 105, 120, 135, 150, 165, 180, 195, _ 210, 225, 240, 255, 270, 285, 300, 315, 330, 345) 'Create a PolarChart object of size 460 x 460 pixels, with a silver background 'and a 1 pixel 3D border Set c = cd.PolarChart(460, 460, cd.silverColor(), &H0, 1) 'Add a title to the chart at the top left corner using 15pts Arial Bold Italic 'font. Use white text on deep blue background. Call c.addTitle("Polar Vector Chart Demonstration", "arialbi.ttf", 15, _ &Hffffff).setBackground(&H80) 'Set plot area center at (230, 240) with radius 180 pixels and white background Call c.setPlotArea(230, 240, 180, &Hffffff) 'Set the grid style to circular grid Call c.setGridStyle(False) 'Set angular axis as 0 - 360, with a spoke every 30 units Call c.angularAxis().setLinearScale(0, 360, 30) 'Add sectors to the chart as sector zones For i = 0 To UBound(data) Call c.angularAxis().addZone(angles(i), angles(i) + 15, 0, data(i), _ &H33ff33, &H8000) Next 'Add an Transparent invisible layer to ensure the axis is auto-scaled using the 'data Call c.addLineLayer(data, cd.Transparent) 'output the chart Response.ContentType = "image/png" Response.BinaryWrite c.makeChart2(cd.PNG) Response.End %>