<%@ language="vbscript" %> <% Set cd = CreateObject("ChartDirector.API") 'the tilt angle of the pie angle = CInt(Request("img")) * 90 + 45 'The data for the pie chart data = Array(25, 18, 15, 12, 8, 30, 35) 'Create a PieChart object of size 100 x 110 pixels Set c = cd.PieChart(100, 110) 'Set the center of the pie at (50, 55) and the radius to 36 pixels Call c.setPieSize(50, 55, 36) 'Set the depth, tilt angle and 3D mode of the 3D pie (-1 means auto depth, '"true" means the 3D effect is in shadow mode) Call c.set3D(-1, angle, True) 'Add a title showing the shadow angle Call c.addTitle("Shadow @ " & angle & " deg", "arial.ttf", 8) 'Set the pie data Call c.setData(data) 'Disable the sector labels by setting the color to Transparent Call c.setLabelStyle("", 8, cd.Transparent) 'output the chart Response.ContentType = "image/png" Response.BinaryWrite c.makeChart2(cd.PNG) Response.End %>