B4A Library ThreeD library (alpha 0.04)

hello,
i publish a 3D library to using at a b4a project (android 5.x+ phone or tablet)



currently it knows:
Camera
Light
Cube
Vector,Color,Texture
Entity,Mesh,Surface,Vertex
Line (at Surface)

01.02.2019 21:00
OpenGL.zip is my test project.

03.02.2019 19:00
ThreeD.zip is the lib to place unzipped in additional libraries folder.

base of the ThreeD library is a Project in Android Studio 3.3
(which was compiled with SimpleLibraryCompiler)

to do:
line order in grid because lighting
(anytime switch to GLES 3.0 or 3.1 but it is completely different)

note: my android emulator does not show alpha blending!

ThreeD

Author: Markus Rauch
Version: 0.04

• 
  
  • Functions:
    • clone As Object
      
    • compareTo (arg0 As E) As Int
      
    • equals (arg0 As Object) As Boolean
      
    • finalize
      
    • hashCode As Int
      
    • name As String
      
    • ordinal As Int
      
    • toString As String
      
    • valueOf (name As String) As com.rauch.threedimensional.Surface.ETyp
      
    • values As com.rauch.threedimensional.Surface.ETyp()
      
  • Properties:
    • DeclaringClass As Class [read only]
      
• Camera
  
  • Fields:
    • ID As String
      
    • Position As Vector
      
    • PositionLookAt As Vector
      
    • Rotate As Vector
      
    • Scale As Vector
      
  • Functions:
    • AddMesh (m As Mesh)
      
    • ClearMeshes
      
    • ListMeshes As java.util.List
      
• Color
  
  • Fields:
    • Alpha As Float
      
    • Blue As Float
      
    • Green As Float
      
    • Red As Float
      
  • Functions:
    • Set (Red As Float, Green As Float, Blue As Float, Alpha As Float)
      set the color red,green,blue,alpha
      all r g b a values from 0.0 to 1.0
      Red: 0.0 to 1.0
      Green: 0.0 to 1.0
      Blue: 0.0 to 1.0
      Alpha: 0.0 to 1.0 (1.0 = visible)
• Cube
  
  • Fields:
    • ID As String
      
    • Position As Vector
      
    • Rotate As Vector
      
    • Scale As Vector
      
  • Functions:
    • AddMesh (m As Mesh)
      
    • ClearMeshes
      
    • ListMeshes As java.util.List
      
    • Set (Position As Vector, Length As Float, Width As Float, Height As Float, Color1 As Color)
      create a cube
      Position:
      Length:
      Width:
      Height:
      Color1:
    • SetColor (Red As Float, Green As Float, Blue As Float, Alpha As Float)
      colorize the cube
      (a cube with texture should be white)
      Red:
      Green:
      Blue:
      Alpha:
    • SetColorFaces (Color1 As Color, Color2 As Color, Color3 As Color, Color4 As Color, Color5 As Color, Color6 As Color)
      colorize each face of the cube
      Color1:
      Color2:
      Color3:
      Color4:
      Color5:
      Color6:
    • SetTexture (Bitmap1 As android.graphics.Bitmap)
      give the cube an bitmap/texture for all faces
      Example:<code>Dim bmp As Bitmap = LoadBitmap(File.DirAssets,"wood.png")
      Cube1.SetTexture(bmp)</code>
      Bitmap1:
• Entity
  
  • Fields:
    • ID As String
      
    • Position As Vector
      
    • Rotate As Vector
      
    • Scale As Vector
      
  • Functions:
    • AddMesh (m As Mesh)
      
    • ClearMeshes
      
    • ListMeshes As java.util.List
      
• Light
  
  • Fields:
    • ID As String
      
    • Position As Vector
      
    • PositionLookAt As Vector
      
    • Rotate As Vector
      
    • Scale As Vector
      
  • Functions:
    • AddMesh (m As Mesh)
      
    • ClearMeshes
      
    • ListMeshes As java.util.List
      
    • SetPosition (Position As Vector)
      
    • SetPositionLookAt (PositionLookAt As Vector)
      
• Line
  
  • Fields:
    • Color1 As Color
      
    • ID As String
      
    • Position As Vector
      
    • Rotate As Vector
      
    • Scale As Vector
      
  • Functions:
    • AddMesh (m As Mesh)
      
    • ClearMeshes
      
    • GetP1 As Vector
      
    • GetP2 As Vector
      
    • ListMeshes As java.util.List
      
    • Set (P1 As Vector, P2 As Vector)
      
    • SetColor (Red As Float, Green As Float, Blue As Float, Alpha As Float)
      
    • SetColorObj (Color1 As Color)
      
    • SetP1 (X As Float, Y As Float, Z As Float)
      
    • SetP12 (X1 As Float, Y1 As Float, Z1 As Float, X2 As Float, Y2 As Float, Z2 As Float)
      
    • SetP2 (X As Float, Y As Float, Z As Float)
      
• Mesh
  
  • Fields:
    • ID As String
      
    • Position As Vector
      
    • Rotate As Vector
      
    • Scale As Vector
      
  • Functions:
    • AddMesh (m As Mesh)
      
    • AddSurface (s As Surface)
      
    • ClearMeshes
      
    • ClearSurfaces
      
    • ListMeshes As java.util.List
      
    • ListSurfaces As java.util.List
      
• Surface
  
  • Fields:
    • Color1 As Color
      
  • Functions:
    • AddLine (v1 As Vertex, v2 As Vertex)
      
    • AddQuad (v1 As Vertex, v2 As Vertex, v3 As Vertex, v4 As Vertex)
      (GL_TRIANGLE_STRIP)
      v1:
      v2:
      v3:
      v4:
    • AddTriangle (v1 As Vertex, v2 As Vertex, v3 As Vertex)
      
    • AddVertex (v As Vertex)
      
    • ClearVertices
      
    • ListVertices As java.util.List
      
    • SetColor (Red As Float, Green As Float, Blue As Float, Alpha As Float)
      colorize the surface
      (a surface with texture should be white)
      Red: 0 to 1
      Green: 0 to 1
      Blue: 0 to 1
      Alpha: 0 to 1 (1 visible)
    • SetTexture (Bitmap1 As android.graphics.Bitmap)
      give the surface an bitmap/texture
      Example:<code>Dim bmp As Bitmap = LoadBitmap(File.DirAssets,"wood.png")
      Surface1.SetTexture(bmp)</code>
      Bitmap1:
    • SetType (Type As com.rauch.threedimensional.Surface.ETyp)
      set the surface typ LINES,TRIANGLES,TRIANGLE_STRIP (default is TRIANGLES)
      Type:
    • SetTypeLineLoop
      
    • SetTypeLines
      
    • SetTypeLineStrip
      
    • SetTypeTriangles
      
    • SetTypeTriangleStrip
      
• ThreeDimensional
  
  • Fields:
    • CameraFar As Float
      
    • CameraFieldOfViewY As Float
      
    • CameraNear As Float
      
    • CullBackFace As Boolean
      
    • LineWidth As Float
      
  • Functions:
    • AddCube (Cube1 As Cube)
      use AddEntity
    • AddCube2 (x As Float, y As Float, z As Float, l As Float, w As Float, h As Float, r As Float, g As Float, b As Float, a As Float)
      use AddEntity
    • AddEntity (Entity1 As Entity)
      add a entity to your scene camera,light,cube,line,...
      (use in pause mode)
    • CreateCubeWireframe (Position As Vector, Length As Float, Height As Float, Width As Float, Color1 As Color) As Entity
      create a cube with lines
      Position: X,Y,Z
      Length: (X)
      Height: (Y)
      Width: (Z)
      Color1: Object
      Return type: @return:new Entity
    • CreateEntityAxis (Position As Vector, Length As Float, ColorX As Color, ColorY As Color, ColorZ As Color) As Entity
      create a 3d axis Entity with lines
      use returned Entity at AddEntity to add it into scene object list
      Position:
      Length:
      ColorX:
      ColorY:
      ColorZ:
      Return type: @return:new Entity
    • CreateEntityGridXZ (Size As Float, Step As Float, Color1 As Color) As Entity
      create a ground grid entity step ? unit
      use at AddEntity
      Size: X and Z = -Size to Size Step ?
      Step: Gap
      Color1:
      Return type: @return:new Entity
    • Init (Activity1 As Activity) As View
      define the 3d class and add the surface view to a activity
      also add pause and resume
      in pause mode or before it run you can set your scene
      Example:<code>
      Sub Process_Globals
      Dim Three As ThreeDimensional
      Sub Activity_Create(FirstTime As Boolean)
      Activity.AddView( Three.Init(GetActivity),0%x,0%y,100%x,100%y)
      Sub Activity_Resume
      Three.Resume
      Sub Activity_Pause(UserClosed As Boolean)
      Three.Pause
      Sub GetActivity As Object
      Dim R As Reflector
      Return R.GetActivity
      End Sub</code>
      Activity1:
      Return type: @return:View
    • Lerp (a As Float, b As Float, t As Float) As Float
      lerp interpolates from one value (a) to another (b) over a given range (t)
      a:
      b:
      t: is clamped between 0 and 1
      Return type: @return:
    • mm_to_m (mm As Float) As Float
      millimeter to meter
      mm:
      Return type: @return:m
    • Pause
      pause the renderer
    • Resume
      resume the renderer
    • Scene1
      test scene 1
    • Scene1New
      test scene 1 new
    • SceneDefault (camx As Float, camy As Float, camz As Float, centerx As Float, centery As Float, centerz As Float)
      scene with camera and light
      camera position and look at center point
      camx:
      camy:
      camz:
      centerx:
      centery:
      centerz:
    • SceneEmpty
      clear the scene list
      (use in pause mode)
    • SearchEntity (ID As String) As Object
      search in scene object list by id
      ID:
      Return type: @return:Entity Object
• Vector
  
  • Fields:
    • X As Float
      
    • Y As Float
      
    • Z As Float
      
  • Functions:
    • Add (V As Vector)
      Add a Vector to it
      V:
    • Direction (A As Vector, B As Vector) As Vector
      static function return a normalized direction vector from 2 positions
      A:
      B:
      Return type: @return:direction Vector
    • Set (X As Float, Y As Float, Z As Float)
      set the vector x,y,z
      X:
      Y:
      Z:
• Vertex
  
  • Fields:
    • Normal As Vector
      
    • Position As Vector
      
    • TextureUVW As Vector
      

 

[DonManfred]

Nice one. Thank you for sharing.

I suggest to use LibDoc for the Library documentation (and for posting it here)

 

[MarkusR]

some background knowledge:

https://developer.android.com/guide/topics/graphics/opengl.html

OpenGL ES 1.0 and 1.1 - This API specification is supported by Android 1.0 and higher.
OpenGL ES 2.0 - This API specification is supported by Android 2.2 (API level 8) and higher.
OpenGL ES 3.0 - This API specification is supported by Android 4.3 (API level 18) and higher.
OpenGL ES 3.1 - This API specification is supported by Android 5.0 (API level 21) and higher.

OpenGL ES 3.0/3.1 API Packages
android.opengl - This package provides the interface to the OpenGL ES 3.0/3.1 classes.
Version 3.0 is available starting with Android 4.3 (API level 18).
Version 3.1 is available starting with Android 5.0 (API level 21).
GLES30
GLES31
GLES31Ext (Android Extension Pack)

https://www.khronos.org/registry/OpenGL-Refpages/es3.1/

Learn how to develop mobile graphics using OpenGL ES 2
http://www.learnopengles.com/android-lesson-one-getting-started/

 

[MarkusR]

container packing planning visually business application at phone/tablet using device orientation to look easy from top or bottom. (wip)

 

[alienhunter]

Thank you ,
would be too much to ask to add 3D lines to this lib
AH

 

[MarkusR]

Thank you ,
would be too much to ask to add 3D lines to this lib
AH

each surface can have Lines. see AddLine

 

[alienhunter]

Thanks
i mean just a line without any surface in space (einfache 3D linie im Raum )
gruss Alfred/AH

 

[MarkusR]

Thanks
i mean just a line without any surface in space (einfache 3D linie im Raum )
gruss Alfred/AH

i made a note, i will try later this week

 

[mrbeny18]

Thank you for sharing , please add lines .

 

[alienhunter]

thank you very much
now i am pushing it , after i made some test this lib is working great , can we have basic objects , like sphere ,cylinder anything
that you might want to give us and you have time
thanks again AH

 

[MarkusR]

as i remember geometric shapes are not part of this used gl es version but can be done
with triangles. gl es is very different in compare with gl for pc.

 

[alienhunter]

Thank you Markus ,
here i have my line in space, you have this in your
code

Dim Entity1 As Entity
    Dim Mesh1 As Mesh
    Entity1.AddMesh(Mesh1)

    Dim Surface1 As Surface
    Surface1.SetTypeLines
    Surface1.Color1.Set(1,0,0,1)
    Mesh1.AddSurface(Surface1)
       
    Dim Vertex1 As Vertex
    Vertex1.Position.Set(-10,5,0)
    Dim Vertex2 As Vertex
    Vertex2.Position.Set( 10,10,10)
    Surface1.AddLine(Vertex1,Vertex2)
    Three.AddEntity(Entity1)

just have to get used to XYZ is different to what i am doing the whole day in the real CAD world

AH

 

[MarkusR]

just have to get used to XYZ is different to what i am doing the whole day in the real CAD world

yes, there is no norm about the axis name and sign.
typically -x left to x right y top to -y bottom z front to -z back

 

[MarkusR]

Line

i updated this ThreeD lib , it have now a Line Entity

Dim Line1 As Line
Line1.SetColor(1,0,0,1)
Line1.SetP12(-10,2,0,10,2,0)
Three.AddEntity(Line1)

 

[agraham]

A little bug? If you add that line code to the end of MyScene in your OpenGL example the line looks black until you rotate the scene with the bottom slider when it turns red for 180 degrees then turns black for the other 180 degrees even though the light source is co-located with the camera.

 

[MarkusR]

A little bug? If you add that line code to the end of MyScene in your OpenGL example the line looks black until you rotate the scene with the bottom slider when it turns red for 180 degrees then turns black for the other 180 degrees even though the light source is co-located with the camera.

thanks Andrew, i updated this lib,
i disabled the light because the line did not really have a surface normal.
(i tested it with a up vector as normal but this looked wrong in lightning.)

 

[alienhunter]

i updated this ThreeD lib , it have now a Line Entity

Dim Line1 As Line
Line1.SetColor(1,0,0,1)
Line1.SetP12(-10,2,0,10,2,0)
Three.AddEntity(Line1)

Thank you very much
(vielen Dank und Gruss aus Canada)
Alfred/AH

 

[alienhunter]

Markus
this is powerful stuff , this is real life cnc-code with lines thank you again



how would i control the clipping with large models when i zoom out

 

[MarkusR]

Markus
this is powerful stuff , this is real life cnc-code with lines thank you again

View attachment 77036

how would i control the clipping with large models when i zoom out
View attachment 77037

hi, it was clipped at 100 but i changed it to 1000 by default and u can use first Three.CameraFar = 1000
i used 1 unit = 1 meter

 

[alienhunter]

Hi Markus ,

should this code not draw a triangle , instead of a line ?
https://developer.android.com/guide/topics/graphics/opengl#java

Dim Entity1 As Entity
    Dim Mesh1 As Mesh
    Entity1.AddMesh(Mesh1)
    
    Dim Surface1 As Surface
    Surface1.SetTypeLines
    Surface1.Color1.Set(1,0,0,1)
    Dim vert1,vert2,vert3 As Vertex
    vert1.Position.Set(1,1,1)
    vert2.Position.Set(2,2,2)
    vert3.Position.Set(3,3,3)
    
    Surface1.AddTriangle(vert1,vert2,vert3)
    Mesh1.AddSurface(Surface1)
    Three.AddEntity(Entity1)

thanks AH