Class App Inherits Application

Const kEditClear = "&Löschen"

Const kFileQuit = "Beenden"

Const kFileQuitShortcut = ""

End Class

Class Window1 Inherits Window

EventHandler Sub Open() // The (x, y, z) coordinates of the scattered data dim dataX(-1) as double = array(0.5, 1.9, 4.9, 1.0, 8.9, 9.8, 5.9, 2.9, 6.8, 9.0, 0.0, 8.9, 1.9, 4.8, 2.4, 3.4, 7.9, 7.5, 4.8, 7.5, 9.5, 0.4, 8.9, 0.9, 5.4, 9.4, 2.9, 8.9, 0.9, 8.9, 10.0, 1.0, 6.8, 3.8, 9.0, 5.3, 6.4, 4.9, 4.5, 2.0, 5.4, 0.0, 10.0, 3.9, 5.4, 5.9, 5.8, 0.3, 4.4, 8.3) dim dataY(-1) as double = array(3.3, 3.0, 0.7, 1.0, 9.3, 4.5, 8.4, 0.1, 0.8, 0.1, 9.3, 1.8, 4.3, 1.3, 2.3, 5.4, 6.9, 9.0, 9.8, 7.5, 1.8, 1.4, 4.5, 7.8, 3.8, 4.0, 2.9, 2.4, 3.9, 2.9, 2.3, 9.3, 2.0, 3.4, 4.8, 2.3, 3.4, 2.3, 1.5, 7.8, 4.5, 0.9, 6.3, 2.4, 6.9, 2.8, 1.3, 2.9, 6.4, 6.3) dim dataZ(-1) as double = array(6.6, 12.5, 7.4, 6.2, 9.6, 13.6, 19.9, 2.2, 6.9, 3.4, 8.7, 8.4, 7.8, 8.0, 9.4, 11.9, 9.6, 15.7, 12.0, 13.3, 9.6, 6.4, 9.0, 6.9, 4.6, 9.7, 10.6, 9.2, 7.0, 6.9, 9.7, 8.6, 8.0, 13.6, 13.2, 5.9, 9.0, 3.2, 8.3, 9.7, 8.2, 6.1, 8.7, 5.6, 14.9, 9.8, 9.3, 5.1, 10.8, 9.8) // Create a SurfaceChart object of size 680 x 550 pixels. Set background to // brushed silver and border to grey (888888). Set the top-left and bottom-right // corners to rounded corners with 20 pixels radius. dim c as new CDSurfaceChartMBS(680, 550, CDSurfaceChartMBS.brushedSilverColor, &h888888) c.setRoundedFrame(&hffffff, 20, 0, 20, 0) // Add a title to the chart using 20 points Times New Roman Italic font. Set // top/bottom margin to 8 pixels. dim title as CDTextBoxMBS = c.addTitle("Surface Created Using Scattered Data Points", "timesi.ttf", 20) title.setMargin(0, 0, 8, 8) // Add a 2 pixel wide black (000000) separator line under the title call c.addLine(10, title.getHeight, c.getWidth - 10, title.getHeight, &h000000, 2) // Set the center of the plot region at (290, 235), and set width x depth x // height to 360 x 360 x 180 pixels c.setPlotRegion(290, 235, 360, 360, 180) // Set the elevation and rotation angles to 45 and -45 degrees c.setViewAngle(45, -45) // Set the perspective level to 30 c.setPerspective(30) // Set the data to use to plot the chart c.setData(dataX, dataY, dataZ) // Add a color axis (the legend) in which the top right corner is anchored at // (660, 80). Set the length to 200 pixels and the labels on the right side. dim cAxis as CDColorAxisMBS = c.setColorAxis(660, 80, c.kTopRight, 200, c.kRight) // Set the color axis title with 12 points Arial Bold font call cAxis.setTitle("Z Title Placeholder", "arialbd.ttf", 12) // Add a bounding box with light grey (eeeeee) background and grey (888888) // border. Set the top-left and bottom-right corners to rounded corners of 10 // pixels radius. cAxis.setBoundingBox(&heeeeee, &h888888) cAxis.setRoundedCorners(10, 0, 10, 0) // Set surface grid lines to semi-transparent black (cc000000) c.setSurfaceAxisGrid(&hcc000000) // Set contour lines to semi-transparent white (80ffffff) c.setContourColor(&h80ffffff) // Set the walls to black in color c.setWallColor(&h000000) // Set the xyz major wall grid lines to white (ffffff), and minor wall grid lines // to grey (888888) c.setWallGrid(&hffffff, &hffffff, &hffffff, &h888888, &h888888, &h888888) // Set the wall thickness to 0 c.setWallThickness(0, 0, 0) // Show only the xy wall, and hide the yz and zx walls. c.setWallVisibility(true, false, false) // Set the x, y and z axis titles using 12 points Arial Bold font call c.xAxis.setTitle("X Title"+EndOfLine.unix+"Placeholder", "arialbd.ttf", 12) call c.yAxis.setTitle("Y Title"+EndOfLine.unix+"Placeholder", "arialbd.ttf", 12) 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