B4J Code Snippet Geometrize in B4J

#VirtualMachineArgs: -Dprism.order=d3d,es2,sw -Dprism.forceGPU=true -Dprism.vsync=false -Dprism.verbose=true --add-exports javafx.graphics/com.sun.prism=ALL-UNNAMED --add-exports javafx.graphics/com.sun.javafx.sg.prism=ALL-UNNAMED

#VirtualMachineArgs: -Dprism.order=es2,sw -Dprism.forceGPU=True -Dprism.vsync=False -Dprism.verbose=True

java -Dprism.order=es2,sw \
     -Dprism.forceGPU=True \
     -Dprism.vsync=False \
     -Dprism.verbose=True \
     -jar file.jar

Sub CheckGPU
    ' Check if arguments are loaded
    Dim jo As JavaObject
    jo.InitializeStatic("java.lang.System")
    Dim prismOrder As String = jo.RunMethod("getProperty", Array("prism.order", "NOT_SET"))
   
    Log($"Prism Order: ${prismOrder}"$)
   
    If prismOrder = "NOT_SET" Then
        Log("VM arguments NOT loaded!")
        Log("Fix: Put all args on ONE line")
    Else
        Log("VM arguments loaded correctly")
    End If
   
    ' Check actual pipeline at runtime
    Try
        Dim pipeline As JavaObject
        pipeline.InitializeStatic("com.sun.prism.GraphicsPipeline")
        Dim currentPipeline As Object = pipeline.RunMethod("getPipeline", Null)
        Log($"Active Pipeline: ${currentPipeline}"$)
       
        Dim pipelineName As String = currentPipeline
        If pipelineName.Contains("D3D") Then
            Log("Using Direct3D (GPU)")
        Else If pipelineName.Contains("ES2") Then
            Log("Using OpenGL ES2 (GPU)")
        Else
            Log("Using Software Rendering")
        End If
    Catch
        Log($"Pipeline detection error: ${LastException}"$)
    End Try
End Sub