Inter-Line Coloring

[Web Version (in ASP)] aspdemo\linefill.asp

<%@ 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 15pt Arial Italic font.
Set title = c.addTitle("Inter-line Coloring", "Arial Italic", 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, "Arial Bold Italic", 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 12pt Arial Bold Italic font
Call c.yAxis().setTitle("Axis Title Placeholder", "Arial Bold Italic", 12)

' Add a title to the x axis using 12pt Arial Bold Italic font
Call c.xAxis().setTitle("Axis Title Placeholder", "Arial Bold Italic", 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", 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
Set viewer = cd.WebChartViewer(Request, "chart1")
Call viewer.setChart(c, cd.SVG)

' Include tool tip for the chart
viewer.ImageMap = c.getHTMLImageMap("", "", "title='{dataSetName} in {xLabel}: {value}'")
%>

<!DOCTYPE html>
<html>
<head>
    <title>Inter-Line Coloring</title>
    <!-- Include ChartDirector Javascript Library to support chart interactions -->
    <script type="text/javascript" src="cdjcv.js"></script>
</head>
<body style="margin:5px 0px 0px 5px">
    <div style="font:bold 18pt verdana;">
        Inter-Line Coloring
    </div>
    <hr style="border:solid 1px #000080; background:#000080" />
    <div style="font:10pt verdana; margin-bottom:1.5em">
        <a href="viewsource.asp?file=<%= Request("SCRIPT_NAME") %>">View Chart Source Code</a>
    </div>
    <!-- ****** Here is the chart image ****** -->
    <%= viewer.renderHTML() %>
</body>
</html>

[Windows Version (in Visual Basic)] vbdemo\linefill.cls

Public Sub createChart(viewer As Object, chartIndex As Integer)

    Dim cd As New ChartDirector.API

    ' The data for the line chart
    Dim data0()
    data0 = Array(70, 73, 80, 90, 95, 93, 82, 77, 82, 101, 111, 115)
    Dim data1()
    data1 = Array(90, 96, 89, 77, 82, 96, 109, 109, 99, 108, 96, 91)
    Dim data2()
    data2 = Array(58, 34, 25, 49, 64, 10, 16, 40, 25, 49, 40, 22)

    ' The labels for the line chart
    Dim labels()
    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
    Dim c As XYChart
    Set c = cd.XYChart(450, 450)

    ' Add a title to the chart using 15pt Arial Italic font.
    Dim title As ChartDirector.TextBox
    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.
    Dim legendBox As LegendBox
    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.
    Dim plotArea As PlotArea
    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 12pt Arial Bold Italic font
    Call c.yAxis().setTitle("Axis Title Placeholder", "arialbi.ttf", 12)

    ' Add a title to the x axis using 12pt 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
    Dim layer0 As SplineLayer
    Set layer0 = c.addSplineLayer(data0, &Hff0000, "Data Set 0")
    Call layer0.setLineWidth(2)

    ' Add a normal line to the chart
    Dim layer1 As LineLayer
    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
    Dim layer2 As LineLayer
    Set layer2 = c.addLineLayer(data2, &H0000ff, "Data Set 2")
    Call layer2.setLineWidth(2)

    ' Add a horizontal mark line to the chart at y = 40
    Dim mark As Mark
    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
    Set viewer.Picture = c.makePicture()

    'include tool tip for the chart
    viewer.ImageMap = c.getHTMLImageMap("clickable", "", _
        "title='{dataSetName} in {xLabel}: {value}'")

End Sub