Path: C:\
<%@ language="vbscript" %>
<%
Set cd = CreateObject("ChartDirector.API")
' The data for the line chart
data0 = Array(70, 73, 80, 90, 95, 93, 82, 77, 82, 101, 111, 115)
data1 = Array(90, 96, 89, 77, 82, 96, 109, 109, 99, 108, 96, 91)
data2 = Array(58, 34, 25, 49, 64, 10, 16, 40, 25, 49, 40, 22)
' The labels for the line chart
labels = Array("2008-01", "2008-02", "2008-03", "2008-04", "2008-05", "2008-06", _
"2008-07", "2008-08", "2008-09", "2008-10", "2008-11", "2008-12")
' Create a XYChart object of size 450 x 450 pixels
Set c = cd.XYChart(450, 450)
' Add a title to the chart using 15 pts Arial Italic font.
Set title = c.addTitle("Inter-line Coloring", "ariali.ttf", 15)
' 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. Use line style legend key.
Set legendBox = c.addLegend(c.getWidth() / 2, title.getHeight(), False, _
"arialbi.ttf", 10)
Call legendBox.setBackground(cd.Transparent, cd.Transparent)
Call legendBox.setAlignment(cd.TopCenter)
Call legendBox.setLineStyleKey()
' Tentatively set the plotarea at (70, 65) and of (chart_width - 100) x (chart_height
' - 110) in size. Use light grey (c0c0c0) border and horizontal and vertical grid
' lines.
Set plotArea = c.setPlotArea(70, 65, c.getWidth() - 100, c.getHeight() - 110, -1, _
-1, &Hc0c0c0, &Hc0c0c0, -1)
' Add a title to the y axis using 12 pts Arial Bold Italic font
Call c.yAxis().setTitle("Axis Title Placeholder", "arialbi.ttf", 12)
' Add a title to the x axis using 12 pts Arial Bold Italic font
Call c.xAxis().setTitle("Axis Title Placeholder", "arialbi.ttf", 12)
' Set the axes line width to 3 pixels
Call c.xAxis().setWidth(3)
Call c.yAxis().setWidth(3)
' Set the labels on the x axis.
Call c.xAxis().setLabels(labels)
' Use 8 points Arial rotated by 90 degrees as the x-axis label font
Call c.xAxis().setLabelStyle("arial.ttf", 8, cd.TextColor, 90)
' Add a spline curve to the chart
Set layer0 = c.addSplineLayer(data0, &Hff0000, "Data Set 0")
Call layer0.setLineWidth(2)
' Add a normal line to the chart
Set layer1 = c.addLineLayer(data1, &H008800, "Data Set 1")
Call layer1.setLineWidth(2)
' Color the region between the above spline curve and normal line. Use the
' semi-transparent red (80ff000000) if the spline curve is higher than the normal
' line, otherwise use semi-transparent green (80008800)
Call c.addInterLineLayer(layer0.getLine(), layer1.getLine(), &H80ff0000, &H80008800)
' Add another normal line to the chart
Set layer2 = c.addLineLayer(data2, &H0000ff, "Data Set 2")
Call layer2.setLineWidth(2)
' Add a horizontal mark line to the chart at y = 40
Set mark = c.yAxis().addMark(40, -1, "Threshold")
Call mark.setLineWidth(2)
' Set the mark line to purple (880088) dash line. Use white (ffffff) for the mark
' label.
Call mark.setMarkColor(c.dashLineColor(&H880088), &Hffffff)
' Put the mark label at the left side of the mark, with a purple (880088) background.
Call mark.setAlignment(cd.Left)
Call mark.setBackground(&H880088)
' Color the region between the above normal line and mark line. Use the
' semi-transparent blue (800000ff) if the normal line is higher than the mark line,
' otherwise use semi-transparent purple (80880088)
Call c.addInterLineLayer(layer2.getLine(), mark.getLine(), &H800000ff, &H80880088)
' Layout the legend box, so we can get its height
Call c.layoutLegend()
' Adjust the plot area size, such that the bounding box (inclusive of axes) is 10
' pixels from the left edge, just under the legend box, 25 pixels from the right
' edge, and 10 pixels from the bottom edge.
Call c.packPlotArea(10, legendBox.getTopY() + legendBox.getHeight(), c.getWidth() - _
25, c.getHeight() - 10)
' After determining the exact plot area position, we may adjust the legend box and
' the title positions so that they are centered relative to the plot area (instead of
' the chart)
Call legendBox.setPos(plotArea.getLeftX() + (plotArea.getWidth() - _
legendBox.getWidth()) / 2, legendBox.getTopY())
Call title.setPos(plotArea.getLeftX() + (plotArea.getWidth() - title.getWidth()) / _
2, title.getTopY())
' Output the chart
Response.ContentType = "image/png"
Response.BinaryWrite c.makeChart2(cd.PNG)
Response.End
%>