Const EVENT_WINDOW_CLOSE=$803

window=CreateWindow("Embedded Graphics3D",220,150,860,580,0,15)
CreateLabel "The D3D12 renderer is hosted by a native child canvas.",12,12,800,24,window
canvas=CreateCanvas(12,44,824,478,window)
SetGadgetLayout canvas,1,1,1,1

Graphics3DCanvas canvas
camera=CreateCamera()
CameraClsColor camera,8,16,32
PositionEntity camera,0,0,-5
light=CreateLight()
RotateEntity light,35,-40,0
cube=CreateCube()
EntityColor cube,70,155,235

running=True
While running
    eventID=WaitEvent(1)
    While eventID<>0
        If eventID=EVENT_WINDOW_CLOSE And EventSource()=window Then running=False
        eventID=PeekEvent()
    Wend

    CameraViewport camera,0,0,CanvasPixelWidth(canvas),CanvasPixelHeight(canvas)
    TurnEntity cube,.2,.35,0
    RenderWorld
    FlipCanvas canvas,1
Wend

EndGraphics
FreeGadget window
End