;****f* Examples/01_HelloWorld
;* NAME
;*  First HelloWorldExample
;* SOURCE
;; ----------------------------------------------------------------------------
;; Irrlicht Wrapper For Imperative Languages - Purebasic Examples
;; IrrlichtWrapper and FreeBasic-Example by Frank Dodd (2006)
;; Improved IrrlichtWrapper - Michael Taupitz (2007)
;; PureBasic-Examples by Michael Taupitz (neotoma) & Marius Eckardt (Thalius) 
;; ----------------------------------------------------------------------------
;; Example-01: Hello World - The GUI
;; This simple example opens an Irrlicht window And displays the text
;; Hello World on the screen And waits For the user To close the application
;; ----------------------------------------------------------------------------

; Be Keen
EnableExplicit

;; ////////////////////////////////////////////////////////////////////////////
;; Include the Irr3D-Requester
XIncludeFile "Irr3DRequester.pb"
;* seealso

;; ////////////////////////////////////////////////////////////////////////////
;; GDB debugger main() function

; -----------------------------------------------------------------------------
; start the irrlicht interface. The scene will be rendered using the Irrlicht,
; software renderer, the display will be a window 400 x 200 pixels in size, the
; display will not support shadows and we will not capture any keyboard and
; mouse events
;;;;* SOURCE
; -----------------------------------------------------------------------------
; To Start the Irrlicht-Device we use the Irr3DRequester, to make it mor comfortable
; for the Users, and also easier to test differnt resolutions and devices.
If Irr3DRequester()

  ; Set the title of the display
  IrrSetWindowCaption( "Example 01: Hello World - The GUI" )

  ; add a static text object to the graphical user interface, at the moment
  ; this is the only interface object we support. The text will be drawn inside
  ; the defined rectangle, the box will not have a border and the text will not
  ; be wrapped around if it runs off the end
  IrrGuiAddStaticText( "Hello World", 4,0,200,16, #IRR_GUI_NO_BORDER, #IRR_GUI_NO_WRAP )

  ; while the scene is still running
  While IrrRunning()
    ; begin the scene, erasing the canvas to white before rendering
    IrrBeginScene( 255,255,255 )

    ; draw the Graphical User Interface
    IrrDrawGUI()

    ; end drawing the scene and render it
    IrrEndScene()
  Wend

; -----------------------------------------------------------------------------
; Stop the irrlicht engine and release resources
  IrrStop()
  
EndIf

End
;/****

; jaPBe Version=3.7.2.629
; Build=0
; FirstLine=0
; CursorPosition=31
; ExecutableFormat=Windows
; DontSaveDeclare
; EOF