ChartDirector 7.0 (ASP/COM/VB Edition)

Contour Color Legend




This example demonstrates using a legend box to display the color legend, which is useful for irregularly spaced color scale or for long color labels.

Many of the examples in the documentation uses ColorAxis to both define and display the color scale. This is useful for evenly spaced contours, which are associated with the ticks and labels on the color axis. If the contours are highly uneven (such as at 0, 1, 2, 50, 195, 200), the labels are also unevenly spaced on the color axis, and some labels may become so close together that they overlap.

This example demonstrates an alternative method of using a LegendBox to display color legends. The color axis still defines the color scale, but it is not displayed

Source Code Listing

[Web Version (in ASP)] aspdemo\contourlegend.asp
<%@ language="vbscript" %> <% Set cd = CreateObject("ChartDirector.API") ' The x and y coordinates of the grid dataX = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10) dataY = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10) ' Use random numbers for the z values on the XY grid Set r = cd.RanSeries(999) dataZ = r.get2DSeries(UBound(dataX) + 1, UBound(dataY) + 1, -0.9, 1.15) ' Create a XYChart object of size 640 x 460 pixels Set c = cd.XYChart(640, 460) ' Set the plotarea at (30, 25) and of size 400 x 400 pixels. Use semi-transparent grey (0xdd000000) ' horizontal and vertical grid lines Call c.setPlotArea(50, 25, 400, 400, -1, -1, cd.Transparent, &Hdd000000, -1) ' Set the x and y axis stems to transparent and the label font to 12pt Arial Call c.xAxis().setColors(cd.Transparent) Call c.yAxis().setColors(cd.Transparent) Call c.xAxis().setLabelStyle("Arial", 12) Call c.yAxis().setLabelStyle("Arial", 12) ' Set the x-axis and y-axis scale Call c.xAxis().setLinearScale(0, 10, 1) Call c.yAxis().setLinearScale(0, 10, 1) ' Add a contour layer using the given data Set layer = c.addContourLayer(dataX, dataY, dataZ) ' Move the grid lines in front of the contour layer Call c.getPlotArea().moveGridBefore(layer) ' Define the color scale colorScale = Array(-0.8, &H0066ff, -0.5, &H66ccff, -0.3, &H66ffff, 0, &H88ff88, 0.4, &H00ff00, _ 0.7, &Hffff00, 0.9, &Hff6600, 1.0, &Hcc0000, 1.1) ' Apply the color scale, and specify the underflow and overflow colors for regions exceeding the ' color scale Call layer.colorAxis().setColorScale(colorScale, &H0000cc, &H000000) ' ' Instead of displaying the color axis, we use a legend box to display the colors. This is useful ' for colors that are unevenly spaced on the color axis. ' ' Add a legend box at (460, 25) with vertical layout, with 12pt Arial font, transparent background ' and border, icon size of 15 x 15 pixels, and line spacing of 8 pixels. Set b = c.addLegend(460, 25, True, "Arial", 12) Call b.setBackground(cd.Transparent, cd.Transparent) Call b.setKeySize(15, 15) Call b.setKeySpacing(0, 8) ' Add the legend box entries Call b.addKey("> 1.1 (Critical)", &H000000) Call b.addKey("1.0 to 1.1 (Alert)", &Hcc0000) Call b.addKey("0.9 to 1.0", &Hff6600) Call b.addKey("0.7 to 0.9", &Hffff00) Call b.addKey("0.4 to 0.7", &H00ff00) Call b.addKey("0.0 to 0.4", &H88ff88) Call b.addKey("-0.3 to 0.0", &H66ffff) Call b.addKey("-0.5 to -0.3", &H66ccff) Call b.addKey("-0.8 to -0.5", &H0066ff) Call b.addKey("< -0.8", &H0000cc) ' 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='<*cdml*>X: {x|2}<*br*>Y: {y|2}<*br*>Z: {z|2}'") ' Output Javascript chart model to support contour chart tooltips viewer.ChartModel = c.getJsChartModel() %> <!DOCTYPE html> <html> <head> <title>Contour Color Legend</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;"> Contour Color Legend </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\contourlegend.cls
Public Sub createChart(viewer As Object, chartIndex As Integer) Dim cd As New ChartDirector.API ' The x and y coordinates of the grid Dim dataX() dataX = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10) Dim dataY() dataY = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10) ' Use random numbers for the z values on the XY grid Dim r As RanSeries Set r = cd.RanSeries(999) Dim dataZ() dataZ = r.get2DSeries(UBound(dataX) + 1, UBound(dataY) + 1, -0.9, 1.15) ' Create a XYChart object of size 640 x 460 pixels Dim c As XYChart Set c = cd.XYChart(640, 460) ' Set the plotarea at (30, 25) and of size 400 x 400 pixels. Use semi-transparent grey ' (0xdd000000) horizontal and vertical grid lines Call c.setPlotArea(50, 25, 400, 400, -1, -1, cd.Transparent, &Hdd000000, -1) ' Set the x and y axis stems to transparent and the label font to 12pt Arial Call c.xAxis().setColors(cd.Transparent) Call c.yAxis().setColors(cd.Transparent) Call c.xAxis().setLabelStyle("arial.ttf", 12) Call c.yAxis().setLabelStyle("arial.ttf", 12) ' Set the x-axis and y-axis scale Call c.xAxis().setLinearScale(0, 10, 1) Call c.yAxis().setLinearScale(0, 10, 1) ' Add a contour layer using the given data Dim layer As ContourLayer Set layer = c.addContourLayer(dataX, dataY, dataZ) ' Move the grid lines in front of the contour layer Call c.getPlotArea().moveGridBefore(layer) ' Define the color scale Dim colorScale() colorScale = Array(-0.8, &H0066ff, -0.5, &H66ccff, -0.3, &H66ffff, 0, &H88ff88, 0.4, &H00ff00, _ 0.7, &Hffff00, 0.9, &Hff6600, 1.0, &Hcc0000, 1.1) ' Apply the color scale, and specify the underflow and overflow colors for regions exceeding the ' color scale Call layer.colorAxis().setColorScale(colorScale, &H0000cc, &H000000) ' ' Instead of displaying the color axis, we use a legend box to display the colors. This is ' useful for colors that are unevenly spaced on the color axis. ' ' Add a legend box at (460, 25) with vertical layout, with 12pt Arial font, transparent ' background and border, icon size of 15 x 15 pixels, and line spacing of 8 pixels. Dim b As LegendBox Set b = c.addLegend(460, 25, True, "arial.ttf", 12) Call b.setBackground(cd.Transparent, cd.Transparent) Call b.setKeySize(15, 15) Call b.setKeySpacing(0, 8) ' Add the legend box entries Call b.addKey("> 1.1 (Critical)", &H000000) Call b.addKey("1.0 to 1.1 (Alert)", &Hcc0000) Call b.addKey("0.9 to 1.0", &Hff6600) Call b.addKey("0.7 to 0.9", &Hffff00) Call b.addKey("0.4 to 0.7", &H00ff00) Call b.addKey("0.0 to 0.4", &H88ff88) Call b.addKey("-0.3 to 0.0", &H66ffff) Call b.addKey("-0.5 to -0.3", &H66ccff) Call b.addKey("-0.8 to -0.5", &H0066ff) Call b.addKey("< -0.8", &H0000cc) ' Output the chart Set viewer.Picture = c.makePicture() End Sub