ChartDirector 6.0 (ASP/COM/VB Edition)

Texture Donut Chart




This example demonstrates wooden, rocky and marble texture effects by using pattern colors to load image patterns.

In ChartDirector, metallic and pattern colors are just like normal ARGB colors, and are represented as a 32-bit integer. They can be applied to anything that can be colored. In this example, metallic colors are applied to the background, while pattern colors are applied to the donut slices to create texture effects.

Source Code Listing

[Web Version (in ASP)] aspdemo\texturedonut.asp
<%@ language="vbscript" %>
<%
Set cd = CreateObject("ChartDirector.API")

' The data for the pie chart
data = Array(18, 45, 28)

' The labels for the pie chart
labels = Array("Marble", "Wood", "Granite")

' The icons for the sectors
texture = Array("marble3.png", "wood.png", "rock.png")

' Create a PieChart object of size 400 x 330 pixels, with a metallic green (88EE88) background,
' black border and 1 pixel 3D border effect
Set c = cd.PieChart(400, 330, cd.metalColor(&H88ee88), &H000000, 1)

' Set default directory for loading images from current script directory
Call c.setSearchPath(Server.MapPath("."))

' Set donut center at (200, 160), and outer/inner radii as 120/60 pixels
Call c.setDonutSize(200, 160, 120, 60)

' Add a title box using 15pt Times Bold Italic font and metallic deep green (008000) background
' color
Call c.addTitle("Material Composition", "timesbi.ttf", 15).setBackground(cd.metalColor(&H008000))

' Set the pie data and the pie labels
Call c.setData(data, labels)

' Set the colors of the sectors to the 3 texture patterns
Call c.setColor(cd.DataColor + 0, c.patternColor2(texture(0)))
Call c.setColor(cd.DataColor + 1, c.patternColor2(texture(1)))
Call c.setColor(cd.DataColor + 2, c.patternColor2(texture(2)))

' Draw the pie in 3D with a 3D depth of 30 pixels
Call c.set3D(30)

' Use 12pt Arial Bold Italic as the sector label font
Call c.setLabelStyle("arialbi.ttf", 12)

' Output the chart
Response.ContentType = "image/png"
Response.BinaryWrite c.makeChart2(cd.PNG)
Response.End
%>

[Windows Version (in Visual Basic)] vbdemo\texturedonut.cls
Public Sub createChart(viewer As Object, chartIndex As Integer)

    Dim cd As New ChartDirector.API

    ' The data for the pie chart
    Dim data()
    data = Array(18, 45, 28)

    ' The labels for the pie chart
    Dim labels()
    labels = Array("Marble", "Wood", "Granite")

    ' The icons for the sectors
    Dim texture()
    texture = Array("marble3.png", "wood.png", "rock.png")

    ' Create a PieChart object of size 400 x 330 pixels, with a metallic green (88EE88) background,
    ' black border and 1 pixel 3D border effect
    Dim c As PieChart
    Set c = cd.PieChart(400, 330, cd.metalColor(&H88ee88), &H000000, 1)

    ' Set donut center at (200, 160), and outer/inner radii as 120/60 pixels
    Call c.setDonutSize(200, 160, 120, 60)

    ' Add a title box using 15pt Times Bold Italic font and metallic deep green (008000) background
    ' color
    Call c.addTitle("Material Composition", "timesbi.ttf", 15).setBackground(cd.metalColor( _
        &H008000))

    ' Set the pie data and the pie labels
    Call c.setData(data, labels)

    ' Set the colors of the sectors to the 3 texture patterns
    Call c.setColor(cd.DataColor + 0, c.patternColor2(texture(0)))
    Call c.setColor(cd.DataColor + 1, c.patternColor2(texture(1)))
    Call c.setColor(cd.DataColor + 2, c.patternColor2(texture(2)))

    ' Draw the pie in 3D with a 3D depth of 30 pixels
    Call c.set3D(30)

    ' Use 12pt Arial Bold Italic as the sector label font
    Call c.setLabelStyle("arialbi.ttf", 12)

    ' Output the chart
    Set viewer.Picture = c.makePicture()

    'include tool tip for the chart
    viewer.ImageMap = c.getHTMLImageMap("clickable", "", "title='{label}: {value}kg ({percent}%)'")

End Sub