ecGraph3D - Demo3
- Sparsely populated, custom font, custom z0 base color.
- Scroll down below the screenshot image to see the VB code that was used to
generate the graph.
The VB code used to generate the above graph...
Public Sub Demo3(ecGraph3D1 As ecGraph3D)
'Sparsely populated, custom font, custom z0 base color.
Const Rows = 8, Cols = 8
Dim zData(Rows, Cols) As Single
Dim i As Integer, j As Integer
With ecGraph3D1
Call .Reset 'always start with "Reset"
Call .AddText("Demo 3. Sparsely populated, custom font, custom z0 base color.", 2, 2, vbRed, "Arial|bold|11")
'set range and colors for the z-color table
Call .ClearColorBands
Call .AddColorBand(-4, ecMaroon, ecMaroon, "-4")
Call .AddColorBand(0, ecMaroon, ecPink, "0")
Call .AddColorBand(4, ecPink, ecMaroon, "4")
For i = 1 To Rows
For j = 1 To Cols
zData(i, j) = 2 * (Sin(i / 2) + Sin(j / 2) - Rnd)
If Rnd < 0.7 Then zData(i, j) = 0 'randomly set most of the values to zero
Next j
Next i
Call .AddDataArray(Rows, 1, 4, Cols, 1, 4, zData, 0, ecGray)
Call .Refresh 'always end with "Refresh"
End With
End Sub
Contents
(ecGraph3D.ocx) Variables
Events Properties Functions Subs
Copyright © 2008, Encore Consulting Pty Ltd