Path: C:\
<%@ language="vbscript" %>
<%
Set cd = CreateObject("ChartDirector.API")
' The data for the chart
data0 = Array(42, 49, cd.NoValue, 38, 64, 56, 29, 41, 44, 57)
data1 = Array(65, 75, 47, 34, 42, 49, 73, cd.NoValue, 90, 69, 66, 78)
data2 = Array(cd.NoValue, cd.NoValue, 25, 28, 38, 20, 22, cd.NoValue, 25, 33, 30, _
24)
labels = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", _
"Oct", "Nov", "Dec")
' Create a XYChart object of size 600 x 360 pixels. Set background color to brushed
' silver, with a 2 pixel 3D border. Use rounded corners.
Set c = cd.XYChart(600, 360, cd.brushedSilverColor(), cd.Transparent, 2)
Call c.setRoundedFrame()
' Add a title using 18 pts Times New Roman Bold Italic font. #Set top/bottom margins
' to 6 pixels.
Set title = c.addTitle("Product Line Global Revenue", "timesbi.ttf", 18)
Call title.setMargin2(0, 0, 6, 6)
' Add a separator line just under the title
Call c.addLine(10, title.getHeight(), c.getWidth() - 11, title.getHeight(), _
cd.LineColor)
' Add a legend box where the top-center is anchored to the horizontal center of the
' chart, just under the title. Use horizontal layout and 10 points Arial Bold font,
' and transparent background and border.
Set legendBox = c.addLegend(c.getWidth() / 2, title.getHeight(), False, _
"arialbd.ttf", 10)
Call legendBox.setAlignment(cd.TopCenter)
Call legendBox.setBackground(cd.Transparent, cd.Transparent)
' Tentatively set the plotarea at (70, 75) and of 460 x 240 pixels in size. Use
' transparent border and black (000000) grid lines
Call c.setPlotArea(70, 75, 460, 240, -1, -1, cd.Transparent, &H000000, -1)
' Set the x axis labels
Call c.xAxis().setLabels(labels)
' Show the same scale on the left and right y-axes
Call c.syncYAxis()
' Set y-axis tick density to 30 pixels. ChartDirector auto-scaling will use this as
' the guideline when putting ticks on the y-axis.
Call c.yAxis().setTickDensity(30)
' Set all axes to transparent
Call c.xAxis().setColors(cd.Transparent)
Call c.yAxis().setColors(cd.Transparent)
Call c.yAxis2().setColors(cd.Transparent)
' Set the x-axis margins to 15 pixels, so that the horizontal grid lines can extend
' beyond the leftmost and rightmost vertical grid lines
Call c.xAxis().setMargin(15, 15)
' Set axis label style to 8pts Arial Bold
Call c.xAxis().setLabelStyle("arialbd.ttf", 8)
Call c.yAxis().setLabelStyle("arialbd.ttf", 8)
Call c.yAxis2().setLabelStyle("arialbd.ttf", 8)
' Add axis title using 10pts Arial Bold Italic font
Call c.yAxis().setTitle("Revenue in USD millions", "arialbi.ttf", 10)
Call c.yAxis2().setTitle("Revenue in USD millions", "arialbi.ttf", 10)
' Add the first line. The missing data will be represented as gaps in the line (the
' default behaviour)
Set layer0 = c.addLineLayer2()
Call layer0.addDataSet(data0, &Hff0000, "Quantum Computer").setDataSymbol( _
cd.GlassSphere2Shape, 11)
Call layer0.setLineWidth(3)
' Add the second line. The missing data will be represented by using dash lines to
' bridge the gap
Set layer1 = c.addLineLayer2()
Call layer1.addDataSet(data1, &H00ff00, "Atom Synthesizer").setDataSymbol( _
cd.GlassSphere2Shape, 11)
Call layer1.setLineWidth(3)
Call layer1.setGapColor(c.dashLineColor(&H00ff00))
' Add the third line. The missing data will be ignored - just join the gap with the
' original line style.
Set layer2 = c.addLineLayer2()
Call layer2.addDataSet(data2, &Hff6600, "Proton Cannon").setDataSymbol( _
cd.GlassSphere2Shape, 11)
Call layer2.setLineWidth(3)
Call layer2.setGapColor(cd.SameAsMainColor)
' layout the legend so we can get the height of the legend box
Call c.layoutLegend()
' Adjust the plot area size, such that the bounding box (inclusive of axes) is 15
' pixels from the left edge, just under the legend box, 16 pixels from the right
' edge, and 25 pixels from the bottom edge.
Call c.packPlotArea(15, legendBox.getTopY() + legendBox.getHeight(), c.getWidth() - _
16, c.getHeight() - 25)
' Output the chart
Response.ContentType = "image/jpeg"
Response.BinaryWrite c.makeChart2(cd.JPG)
Response.End
%>