Xojo Developer Conference
25/27th April 2018 in Denver.
MBS Xojo Conference
6/7th September 2018 in Munich, Germany.

Platforms to show: All Mac Windows Linux Cross-Platform

/ChartDirector/threedscatteraxis
Function:
Required plugins for this example: MBS ChartDirector Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /ChartDirector/threedscatteraxis
This example is the version from Fri, 2nd Aug 2012.
Project "threedscatteraxis.rbp"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
End Class
Class Window1 Inherits Window
EventHandler Sub Open() // The x coordinates for the 2 scatter groups dim dataX() as double datax.Append CDBaseChartMBS.chartTime(2011, 9, 1) datax.Append CDBaseChartMBS.chartTime(2011, 9, 2) datax.Append CDBaseChartMBS.chartTime(2011, 9, 3) datax.Append CDBaseChartMBS.chartTime(2011, 9, 4) datax.Append CDBaseChartMBS.chartTime(2011, 9, 5) datax.Append CDBaseChartMBS.chartTime(2011, 9, 6) datax.Append CDBaseChartMBS.chartTime(2011, 9, 7) datax.Append CDBaseChartMBS.chartTime(2011, 9, 8) datax.Append CDBaseChartMBS.chartTime(2011, 9, 9) datax.Append CDBaseChartMBS.chartTime(2011, 9, 10) datax.Append CDBaseChartMBS.chartTime(2011, 9, 11) // The y and z coordinates for the first scatter group dim dataY0() as double = array(0.4, 0.2, 0.5, 0.4, 0.7, 1.3, 1.1, 1.0, 0.6, 0.4, 0.5) dim dataZ0() as double = array(43.0, 38, 33, 23.4, 28, 36, 34, 47, 53, 45, 40) // The y and z coordinates for the second scatter group dim dataY1() as double = array(1.4, 1.0, 1.8, 1.9, 1.5, 1.0, 0.6, 0.7, 1.2, 1.7, 1.5) dim dataZ1() as double = array(46.0, 41, 33, 37, 28, 29, 34, 37, 41, 52, 50) // Instead of displaying numeric values, labels are used for the y-axis dim labelsY() as string = array("Low", "Medium", "High") // Create a ThreeDScatterChart object of size 760 x 520 pixels dim c as new CDThreeDScatterChartMBS(760, 520) // Add a title to the chart using 18 points Arial font call c.addTitle("3D Scatter Chart Axis Types", "arial.ttf", 18) // Set the center of the plot region at (385, 270), and set width x depth x // height to 480 x 240 x 240 pixels c.setPlotRegion(385, 270, 480, 240, 240) // Set the elevation and rotation angles to 30 and -10 degrees c.setViewAngle(30, -10) // Add a legend box at (380, 40) with horizontal layout. Use 9 pts Arial Bold // font. dim b as CDLegendBoxMBS = c.addLegend(380, 40, false, "arialbd.ttf", 9) b.setAlignment(c.kTopCenter) b.setRoundedCorners // Add a scatter group to the chart using 13 pixels red (ff0000) glass sphere // symbols, with dotted drop lines dim g0 as cdThreeDScatterGroupMBS = c.addScatterGroup(dataX, dataY0, dataZ0, "Alpha Series", c.kGlassSphere2Shape, 13, &hff0000) g0.setDropLine(c.dashLineColor(c.kSameAsMainColor, c.kDotLine)) // Add a scatter group to the chart using 13 pixels blue (00cc00) cross symbols, // with dotted drop lines dim g1 as CDThreeDScatterGroupMBS = c.addScatterGroup(dataX, dataY1, dataZ1, "Beta Series", c.Cross2Shape, 13, &h00cc00) g1.setDropLine(c.dashLineColor(c.kSameAsMainColor, c.kDotLine)) // Set x-axis tick density to 50 pixels. ChartDirector auto-scaling will use this // as the guideline when putting ticks on the x-axis. c.xAxis.setTickDensity(50) // Set the y-axis labels call c.yAxis.setLabels(labelsY) // Set label style to Arial bold for all axes call c.xAxis.setLabelStyle("arialbd.ttf") call c.yAxis.setLabelStyle("arialbd.ttf") call c.zAxis.setLabelStyle("arialbd.ttf") // Set the x, y and z axis titles using deep blue (000088) 15 points Arial font call c.xAxis.setTitle("Date/Time Axis", "ariali.ttf", 15, &c000088) call c.yAxis.setTitle("Label\nBased\nAxis", "ariali.ttf", 15, &c000088) call c.zAxis.setTitle("Numeric Axis", "ariali.ttf", 15, &c000088) // Output the chart Backdrop=c.makechartPicture End EventHandler
End Class
MenuBar MenuBar1
MenuItem FileMenu = "&Ablage"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Bearbeiten"
MenuItem EditUndo = "&Rückgängig"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "&Ausschneiden"
MenuItem EditCopy = "&Kopieren"
MenuItem EditPaste = "&Einfügen"
MenuItem EditClear = "#App.kEditClear"
MenuItem UntitledMenu0 = "-"
MenuItem EditSelectAll = "&Alles auswählen"
End MenuBar
End Project

Feedback, Comments & Corrections

The items on this page are in the following plugins: MBS ChartDirector Plugin.




Links
MBS FileMaker tutorial videos