Greetings, I hope you are well, I want to know how I could create a surface from a dem 4x4, the cell width is 5, this library adapts very well but I don't know how to do it, thanks, I'll give a similar example, thanks
+1000 tks Star-Dust
+1000 tks Star-Dust
example:
Case "Function 3D"
Dim ID As Int = 0
For z=-120 To 120 Step 10
For x=-120 To 120 Step 10
Dim NewPointList(2) As Point3D_Type
Dim y1 As Int =50 * CosD(z*2) * SinD(x*2)
Dim y2 As Int =50* CosD(z*2) * SinD(x*2+20)
NewPointList(0)=(P3D.CtP(X,y1,z))
NewPointList(1)=(P3D.CtP(X+10,y2,z))
P3D.AddPolygon(ID,NewPointList,xui.Color_White,xui.Color_Transparent)
ID=ID+1
Next
Next
For x=-120 To 120 Step 10
For z=-120 To 120 Step 10
Dim NewPointList(2) As Point3D_Type
Dim y1 As Int =50 * CosD(z*2) * SinD(x*2)
Dim y2 As Int =50* CosD(z*2+20) * SinD(x*2)
NewPointList(0)=(P3D.CtP(X,y1,z))
NewPointList(1)=(P3D.CtP(X,y2,z+10))
P3D.AddPolygon(ID,NewPointList,xui.Color_White,xui.Color_Transparent)
ID=ID+1
Next
Next
dem:
Dim dem(4, 4) As Double
dem(0, 0) = 100.0
dem(0, 1) = 50.0
dem(0, 2) = 70.0
dem(0, 3) = 10.0
dem(1, 0) = 10.0
dem(1, 1) = 10.0
dem(1, 2) = 10.0
dem(1, 3) = 10.0
dem(2, 0) = 10.0
dem(2, 1) = 220.0
dem(2, 2) = 10.0
dem(2, 3) = 10.0
dem(3, 0) = 10.0
dem(3, 1) = 10.0
dem(3, 2) = 10.0
dem(3, 3) = 10.0