uh3_InitEngine3D(0,0)


window = OpenWindow(#PB_Any,0,0,1024,768,"Urho3D - Scene loading in embeded window !")
gadget = ContainerGadget(#PB_Any,10,10,800,748, #PB_Container_Double)
CloseGadgetList()
button = ButtonGadget(#PB_Any,820,10,194,32,"Exit")

uh3_EmbedScreen(GadgetID(gadget))

Global scene      = uh3_CreateScene()
Global octree     = uh3_CreateSceneComponent(scene, #UH3_SCENECOMPONENT_OCTREE)

uh3_LoadSceneFromFile(scene,"./Data/Scenes/TreeScene.json",#UH3_SCENEFORMAT_JSON)


Global cameranode = uh3_CreateNode(scene, "Camera",#UH3_NODELOCAL)
Global camera     = uh3_CreateNodeComponent(cameranode, #UH3_NODECOMPONENT_CAMERA)
uh3_SetNodeWorldPosition(cameranode,0,5,-10)
uh3_NodeLookAt(cameranode,0,0,10,0,1,0,#UH3_WORLD)

Global viewport   = uh3_CreateViewport(scene, cameranode,0)
uh3_SetViewportBackgroundColor(viewport, RGB(173, 191, 191))

Procedure Exit()
  uh3_EngineExit()
  End
EndProcedure

BindGadgetEvent(button,@Exit())

While #True

  Repeat
    event = WindowEvent()
    If event = #PB_Event_CloseWindow
      uh3_EngineExit()
      End
    EndIf


  Until event = 0


  uh3_EngineRenderFrame()


Wend