B4J Question Java3D on B4J Powerful Object Oriented 3D API, problem with JavaObject

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
 
    Private Universe As JavaObject
    Private Canvas3D As JavaObject
    Private Scene As JavaObject
    Private BranchGroup As JavaObject
    Private TransformGroup As JavaObject
    Private OrbitBehavior As JavaObject
  ' Private Trasform3D As JavaObject

    Private SwingNode As JavaObject  ' SWING NODE TO PUT A SWING CONTROL ON JFX FORM. ON THIS CODE WE USE A JPANEL COMPONENT
    Private jPanel As JavaObject
    Private BorderLayout As JavaObject

    Private ColorCube As JavaObject  ' Our colored cube
    Private Point3D As JavaObject

    Private Bounds As JavaObject
    'Private LightIsOff As Boolean = True
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.Show
 
    Log("sun.awt.noerasebackground [before] write it: " & GetSystemProperty("sun.awt.noerasebackground", "false"))
    SetSystemProperty("sun.awt.noerasebackground", "true") ' Use this if you have problems while resize the 3D view
    Log("sun.awt.noerasebackground [after]  write it: " & GetSystemProperty("sun.awt.noerasebackground", "false"))
 
    Point3D.InitializeNewInstance("javax.vecmath.Point3d", Array (2.0, 0.0, 0.0))
    Bounds = Bounds.InitializeNewInstance("javax.media.j3d.BoundingSphere", Array (Point3D, 1000.0))
 
    SwingNode.InitializeNewInstance("javafx.embed.swing.SwingNode", Null)  ' Create a SwingNode
 
    ' We use a temp universe here, because we need to get PreferredConfiguration while initialize Canvas3D, this get
    ' the current configuration to get best performances as default using the SimpleUniverse class.
    ' We cannot call a costructor passing a Null parameter or Java3D will create a new form to put the 3D view inside.
    ' We need to call a costructor passing a Canvas3D as argument, so Java3D use it as a normal 2D B4J Canvas and
    ' can be placed as any other control inside a form, resized etc ...
    Dim u As JavaObject
    u.InitializeStatic("com.sun.j3d.utils.universe.SimpleUniverse")
 
    Dim Config As JavaObject = u.RunMethod("getPreferredConfiguration", Null)
    Canvas3D = Canvas3D.InitializeNewInstance("javax.media.j3d.Canvas3D", Array (Config))
 
    BorderLayout.InitializeNewInstance("java.awt.BorderLayout", Null) ' Create a BorderLayout to put the JPanel
    Dim Alignment As Object = BorderLayout.GetField("CENTER")' Get the CENTER field
    jPanel.InitializeNewInstance("javax.swing.JPanel", Null)  ' Create a JPanel
    jPanel.RunMethod("setLayout", Array (BorderLayout))  ' Set a BorderLayout on JPanel
'    jPanel.RunMethod("setBounds", Array (10, 10, 300, 300)) ' Resize the JPanel ???
    jPanel.RunMethod("add", Array (Canvas3D, Alignment))  ' Put the Canvas3D inside a JPanel with CENTER alignment
 
    '''''''' Change the panel back color just to test if it show on the form (REMOVE IT AFTER TESTS)
    Dim jCol As JavaObject
    jCol = jCol.InitializeStatic("java.awt.Color")
    Dim color As Object = jCol.GetField("RED")
    jPanel.RunMethod("setBackground", Array(color))
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
    SwingNode.RunMethod("setContent", Array(jPanel)) ' Set JPanel as SwingNode content
 
    MainForm.RootPane.AddNode(SwingNode, 10, 10, 300, 300)  ' Finally we add the SwingNode to MainForm
 
    Scene.InitializeStatic("javax.media.j3d.BranchGroup")
    Scene = CreateSceneGraph  ' Create the scene graph containing all scene objects, in this case only a ColorCube
 
    Universe = Universe.InitializeNewInstance("com.sun.j3d.utils.universe.SimpleUniverse", Array (Canvas3D))
 
    Dim j1 As JavaObject = Universe.RunMethodJO("getViewingPlatform", Null)
    j1.RunMethod("setNominalViewingTransform", Null)
 
    Dim j2 As JavaObject = Universe.RunMethodJO("getViewer", Null)
    Dim j3 As JavaObject = j2.RunMethodJO("getView", Null)
    j3.RunMethod("setBackClipDistance", Array (100.0))
 
    Universe.RunMethod("addBranchGraph", Array(Scene))' Add the Scene to the Universe
 
    AddMouseOrbit
End Sub

'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
    Return True
End Sub

Sub MainForm_CloseRequest (EventData As Event)
    Log("MainForm_CloseRequest:    EventData: " & EventData)
    Universe.RunMethod("removeAllLocales", Null)
End Sub

Sub MainForm_Closed
    Log("MainForm_Closed")
End Sub

Sub MainForm_Resize (Width As Double, Height As Double)
    Dim W As Int = Width - 20
    Dim H As Int = Height - 40
    Log($"Form size: ${Width} X ${Height}    3D View bounds: 10, 10, ${W},${H}"$)
    Canvas3D.RunMethod("setBounds", Array (10, 10, W, H))
 
    Dim j1 As JavaObject
    Dim Rect As JavaObject = j1.InitializeNewInstance("java.awt.Rectangle",Null)
    Canvas3D.RunMethod("getBounds", Array(Rect))
    Dim rX As Int = Rect.RunMethod("getX", Null)
    Dim rY As Int = Rect.RunMethod("getY", Null)
    Dim rW As Int = Rect.RunMethod("getWidth", Null)
    Dim rH As Int = Rect.RunMethod("getHeight", Null)
    Log($"New bounds read from Canvas3D: ${rX}, ${rY}, ${rW}, ${rH}"$)
End Sub

Sub CreateSceneGraph As JavaObject
    Log("CreateSceneGraph")
 
    Dim objRoot As JavaObject = BranchGroup.InitializeNewInstance("javax.media.j3d.BranchGroup", Null)
    Dim tGroup As JavaObject = TransformGroup.InitializeNewInstance("javax.media.j3d.TransformGroup", Null)
 
    ColorCube.InitializeNewInstance("com.sun.j3d.utils.geometry.ColorCube", Array(0.30))
 
    tGroup.RunMethod("addChild", Array(ColorCube))
    objRoot.RunMethod("addChild", Array(tGroup))
    objRoot.RunMethod("compile", Null)
 
    Return objRoot
End Sub

Sub AddMouseOrbit 'As JavaObject
    Log("AddMouseOrbit")
 
    Dim tmp As JavaObject = OrbitBehavior.InitializeNewInstance("com.sun.j3d.utils.behaviors.vp.OrbitBehavior", Null)
    Dim Mode As Object = tmp.GetField("REVERSE_ALL")
 
    Dim Orbit As JavaObject = OrbitBehavior.InitializeNewInstance("com.sun.j3d.utils.behaviors.vp.OrbitBehavior", Array (Canvas3D, Mode))
    Orbit.RunMethod("setSchedulingBounds", Array(Bounds))
 
    Orbit.RunMethod("setRotFactors", Array(0.5, 0.5))
    Orbit.RunMethod("setTransFactors", Array(0.2, 0.2))
    Orbit.RunMethod("setZoomFactor", Array(0.2))
 
'    ' or separate for all axes ...
'    Orbit.RunMethod("setRotXFactor", Array(0.0))
'    Orbit.RunMethod("setRotYFactor", Array(0.05))
 
    Dim Center As JavaObject = Point3D.InitializeNewInstance("javax.vecmath.Point3d", Array(0.0, 0.0, 0.0))
    Orbit.RunMethod("setRotationCenter", Array(Center))
End Sub

Import com#sun#j3d#utils#universe#SimpleUniverse   ' We start from SimpleUniverse that create a default template

Import com#sun#j3d#utils#geometry#ColorCube  ' Import all geometies or just what you need

Import javax#media#j3d#*  ' Import all j3d classes, but you can import separately what you need
'Import javax#media#j3d#BranchGroup
'Import javax#media#j3d#Canvas3D
'Import javax#media#j3d#Alpha
'Import javax#media#j3d#RotationInterpolator
'Import javax#media#j3d#BoundingSphere
'Import javax#media#j3d#AmbientLight
'Import javax#media#j3d#DirectionalLight
'Import javax#media#j3d#Appearance
'Import javax#media#j3d#TransformGroup

'Import javax#vecmath#*  ' Import All vector and point mathematics
Import javax#vecmath#Point3d
Import com#sun#j3d#utils#behaviors#vp#OrbitBehavior

Dim Universe As SimpleUniverse
Dim Canvas As Canvas3D
Dim Bounds = New BoundingSphere(New Point3d(2.0,0.0,0.0), 1000.0)
'Dim LightIsOff As Boolean = True

Public Sub Form_Load()
   System.setProperty("sun.awt.noerasebackground", "true")  ' Use this if you have problems while resize the 3D view

'  ' Get the preferred graphics configuration for the default screen  '(This...)
'  Dim config As GraphicsConfiguration = SimpleUniverse.getPreferredConfiguration()
'  Canvas = New Canvas3D(config)  ' Create a Canvas3D using the preferred configuration
 
   ' Ceate an OpenGL 3D accelerated Canvas using the preferred graphics configuration for the default screen (... or this)
   Canvas = New Canvas3D(SimpleUniverse.getPreferredConfiguration)
 
   Me.add(Canvas)   ' Add the 3D canvas into the Form

   Dim Scene As BranchGroup = CreateSceneGraph()                 ' Create the root of the scene graph

   Universe = New SimpleUniverse(Canvas)                         ' Create a SimpleUniverse with the branch view
   Universe.getViewingPlatform().setNominalViewingTransform()    ' This will move the ViewPlatform back so the objects in the scene can be viewed
   Universe.getViewer().getView().setBackClipDistance(100.0)     ' Optional, set the render distance of objects
   Universe.addBranchGraph(Scene)
 
   AddMouseOrbit()
End Sub

Public Sub Form_Unload()
   Universe.removeAllLocales()
End Sub

Public Sub Form_Resize()
   Canvas.setBounds(10,10, Me.Width - 30, Me.Height - 60) ' We use a form Resize to set new Canvas size

   Dim rect As Rectangle = New Rectangle()
   Canvas.getBounds(rect)
   System.out.println(rect.getX & ", " & rect.getY & ", " & rect.getWidth & ", " & rect.getHeight)
End Sub

' Return a new scene graph as BranchGroup
Public Function CreateSceneGraph() As BranchGroup
 
   Dim objRoot As BranchGroup = New BranchGroup()                 ' Create the root of the branch graph
   Dim tGroup As TransformGroup = New TransformGroup()            ' Create a new Transform group
 
   tGroup.addChild(New ColorCube(0.30))  ' Add a new cube to the TransformGroup (ColorCube do not need Appearence
                                         ' to set it's material or color by dafault is preconfigured)
                        
   ' Here, if you add other primitives like a sphere, cone, cylinder etc. or your customs remember that these show White color,
   ' to apply a material or texture, you need to create an Appearance and pass to a constuctor or just using class methods like setAppearance.
   ' Remember even that you need to add one or more Lights to the scene or you can't see nothing (IMPORTANT).
   ' Java3D put any new object on the center of the scene, so you need to translate it.
 
   objRoot.addChild(tGroup)               ' Add the TransformGroup to the returning BranchGroup
 
   objRoot.compile                        ' Optional (but suggested), have Java 3D perform optimizations on this scene graph.

   CreateSceneGraph = objRoot
End Function

' Add OrbitBehavior
Private Sub AddMouseOrbit()
 
   Dim orbit As OrbitBehavior = New OrbitBehavior(Canvas, OrbitBehavior.REVERSE_ALL)
   orbit.setSchedulingBounds(Bounds)
 
     ' Mouse sensitivity by default 1.0 for all axis
      orbit.setRotFactors(0.5, 0.5)    ' Rotation sensitivity
      orbit.setTransFactors(0.2, 0.2)  ' Translate sensitivity
      orbit.setZoomFactor(0.2)         ' Zoom sensitivity
 
'      orbit.setRotXFactor(0)           ' Or separate for any axis
'      orbit.setRotYFactor(0.05)
'      orbit.setMinRadius(5)            ' Default 0.0

   orbit.setRotationCenter(New Point3d(0.0, 0.0, 0.0))   ' Optionally you can set the center of rotation for the camera, try to move it.
 
   Universe.getViewingPlatform().setViewPlatformBehavior(orbit)   ' Set it to the viewing platform
End Sub