Platforms to show: All Mac Windows Linux Cross-Platform
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/multiradar
This example is the version from Sun, 17th Mar 2012.
Project "multiradar.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
End Class
Class PicWindow Inherits Window
EventHandler Sub Open()
// The data for the chart
dim data0(-1) as double = array(90, 60, 85, 75, 55.0)
dim data1(-1) as double = array(60, 80, 70, 80, 85.0)
// The labels for the chart
dim labels(-1) as string = array("Speed", "Reliability", "Comfort", "Safety", "Efficiency")
// Create a PolarChart object of size 480 x 380 pixels. Set background color to
// gold, with 1 pixel 3D border effect
dim c as new CDPolarChartMBS(480, 380, CDPolarChartMBS.goldColor, &h000000, 1)
// Add a title to the chart using 15 pts Times Bold Italic font. The title text
// is white (ffffff) on a deep blue (000080) background
dim t as CDTextBoxMBS=c.addTitle("Space Travel Vehicles Compared", "timesbi.ttf", 15, &hffffff)
t.setBackground(&h000080)
// Set plot area center at (240, 210), with 150 pixels radius, and a white
// (ffffff) background.
c.setPlotArea(240, 210, 150, &hffffff)
// Add a legend box at top right corner (470, 35) using 10 pts Arial Bold font.
// Set the background to silver, with 1 pixel 3D border effect.
dim b as CDLegendBoxMBS
b = c.addLegend(470, 35, true, "arialbd.ttf", 10)
b.setAlignment(CDPolarChartMBS.kTopRight)
b.setBackground(CDPolarChartMBS.silverColor, CDPolarChartMBS.kTransparent, 1)
// Add an area layer to the chart using semi-transparent blue (&h806666cc). Add a
// blue (&h6666cc) line layer using the same data with 3 pixel line width to
// highlight the border of the area.
call c.addAreaLayer(data0, &h806666CC,"Model Saturn")
call c.addLineLayer(data0, &h6666cc).setLineWidth(3)
// Add an area layer to the chart using semi-transparent red (&h80cc6666). Add a
// red (&hcc6666) line layer using the same data with 3 pixel line width to
// highlight the border of the area.
call c.addAreaLayer(data1, &h80CC6666,"Model Jupiter")
call c.addLineLayer(data1, &hcc6666).setLineWidth(3)
// Set the labels to the angular axis as spokes.
call c.angularAxis.setLabels(labels)
// 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
The items on this page are in the following plugins: MBS ChartDirector Plugin.