ASE Home Page Products Download Purchase Support About ASE
ChartDirector Support
 Forum HomeForum Home   SearchSearch

Message ListMessage List     Post MessagePost Message

  Insert label in 3D Bubble chart ?
Posted by Thomas Jp on May-15-2013 22:02
| Reply | Monitor
Attachments:
Hello,

how to insert values in (all) bubble ?

3D Bubble Chart:
http://www.advsofteng.com/doc/cdrubydoc/threedbubble2.htm


dataX0 = [170, 300, 1000, 1700]
dataY0 = [16, 69, 16, 75]
dataZ0 = [52, 105, 88, 140]

dataX1 = [500, 1000, 1300]
dataY1 = [40, 58, 85]
dataZ1 = [140, 202, 84]

# Create a XYChart object of size 540 x 480 pixels
c = ChartDirector::XYChart.new(540, 480)

# Set the plotarea at (70, 65) and of size 400 x 350 pixels. Turn on both horizontal
# and vertical grid lines with light grey color (0xc0c0c0)
c.setPlotArea(70, 65, 400, 350, -1, -1, ChartDirector::Transparent, 0xc0c0c0, -1)

# Add a legend box at (70, 30) (top of the chart) with horizontal layout. Use 12 pts
# Times Bold Italic font. Set the background and border color to Transparent.
c.addLegend(70, 30, false, "timesbi.ttf", 12).setBackground(
    ChartDirector::Transparent)

# Add a title to the chart using 18 pts Times Bold Itatic font.
c.addTitle("Product Comparison Chart", "timesbi.ttf", 18)

# Add titles to the axes using 12 pts Arial Bold Italic font
c.yAxis().setTitle("Capacity (tons)", "arialbi.ttf", 12)
c.xAxis().setTitle("Range (miles)", "arialbi.ttf", 12)

# Set the axes line width to 3 pixels
c.xAxis().setWidth(3)
c.yAxis().setWidth(3)

# Add (dataX0, dataY0) as a scatter layer with red (ff3333) glass spheres, where the
# sphere size is modulated by dataZ0. This creates a bubble effect.
c.addScatterLayer(dataX0, dataY0, "Technology AAA", ChartDirector::GlassSphere2Shape,
    15, 0xff3333).setSymbolScale(dataZ0)

# Add (dataX1, dataY1) as a scatter layer with blue (0000ff) glass spheres, where the
# sphere size is modulated by dataZ1. This creates a bubble effect.
c.addScatterLayer(dataX1, dataY1, "Technology BBB", ChartDirector::GlassSphere2Shape,
    15, 0x0000ff).setSymbolScale(dataZ1)

# Output the chart
c.makeChart("threedbubble2.png")



Thanks

Exemple:
graph.jpg

  Re: Insert label in 3D Bubble chart ?
Posted by Peter Kwan on May-15-2013 23:26
| Reply | Monitor
Hi Thomas,

You may use Layer.setDataLabelStyle and Label.setDataLabelFormat. For example, you may modify the following code:

c.addScatterLayer(dataX0, dataY0, "Technology AAA", ChartDirector::GlassSphere2Shape, 15, 0xff3333).setSymbolScale(dataZ0)

to:

myLayer = c.addScatterLayer(dataX0, dataY0, "Technology AAA", ChartDirector::GlassSphere2Shape, 15, 0xff3333)
myLayer.setSymbolScale(dataZ0)
myLayer.setDataLabelFormat("{z}")
myLayer.setDataLabelStyle("arial.ttf", 15, 0xffffff).setAlignment(ChartDirector::Center)

Hope this can help.

Regards
Peter Kwan

  Re: Insert label in 3D Bubble chart ?
Posted by Thomas Jp on May-16-2013 00:08
| Reply | Monitor
possible in asp? (sorry , bad language)

<%@ language="vbscript" %>
<%
Set cd = CreateObject("ChartDirector.API")

' The XYZ points for the bubble chart
dataX0 = Array(170, 300, 1000, 1700)
dataY0 = Array(16, 69, 16, 75)
dataZ0 = Array(52, 105, 88, 140)

dataX1 = Array(500, 1000, 1300)
dataY1 = Array(40, 58, 85)
dataZ1 = Array(140, 202, 84)

' Create a XYChart object of size 540 x 480 pixels
Set c = cd.XYChart(540, 480)

' Set the plotarea at (70, 65) and of size 400 x 350 pixels. Turn on both horizontal
' and vertical grid lines with light grey color (0xc0c0c0)
Call c.setPlotArea(70, 65, 400, 350, -1, -1, cd.Transparent, &Hc0c0c0, -1)

' Add a legend box at (70, 30) (top of the chart) with horizontal layout. Use 12 pts
' Times Bold Italic font. Set the background and border color to Transparent.
Call c.addLegend(70, 30, False, "timesbi.ttf", 12).setBackground(cd.Transparent)

' Add a title to the chart using 18 pts Times Bold Itatic font.
Call c.addTitle("Product Comparison Chart", "timesbi.ttf", 18)

' Add titles to the axes using 12 pts Arial Bold Italic font
Call c.yAxis().setTitle("Capacity (tons)", "arialbi.ttf", 12)
Call c.xAxis().setTitle("Range (miles)", "arialbi.ttf", 12)

' Set the axes line width to 3 pixels
Call c.xAxis().setWidth(3)
Call c.yAxis().setWidth(3)

' Add (dataX0, dataY0) as a scatter layer with red (ff3333) glass spheres, where the
' sphere size is modulated by dataZ0. This creates a bubble effect.
Call c.addScatterLayer(dataX0, dataY0, "Technology AAA", cd.GlassSphere2Shape, 15, _
    &Hff3333).setSymbolScale(dataZ0)

' Add (dataX1, dataY1) as a scatter layer with blue (0000ff) glass spheres, where the
' sphere size is modulated by dataZ1. This creates a bubble effect.
Call c.addScatterLayer(dataX1, dataY1, "Technology BBB", cd.GlassSphere2Shape, 15, _
    &H0000ff).setSymbolScale(dataZ1)

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

  Re: Insert label in 3D Bubble chart ?
Posted by Peter Kwan on May-16-2013 00:29
| Reply | Monitor
Hi Thomas,

Yes. The API for all editions of ChartDirector are almost identical.

You may change:

Call c.addScatterLayer(dataX0, dataY0, "Technology AAA", cd.GlassSphere2Shape, 15, _
    &Hff3333).setSymbolScale(dataZ0)

to:

Set myLayer = c.addScatterLayer(dataX0, dataY0, "Technology AAA", cd.GlassSphere2Shape, 15, &Hff3333)
Call myLayer.setSymbolScale(dataZ0)
Call myLayer.setDataLabelFormat("{z}")
Call myLayer.setDataLabelStyle("arial.ttf", 15, &Hffffff).setAlignment(cd.Center)

Hope this can help.

Regards
Peter Kwan

  Re: Insert label in 3D Bubble chart ?
Posted by Thomas Jp on May-16-2013 00:43
| Reply | Monitor
thank you very much !!!!!

perfect :)