'' ----------------------------------------------------------------------------
'' Пример сделал Frank Dodd
'' Изменил Alec (WorldSim3D developer)

'' Подключаем главную библиотеку движка
#include "WorldSim3D.bi"

Type teColor
  As Integer red
  As Integer green
  As Integer blue
End Type

Type teRect
  as Integer x
  as Integer y
  as Integer w
  As Integer h
End Type

Type teFont
  Declare Sub DrawString(target As teRect, text As WString)
  Declare Sub LoadFromFile(path as zstring Ptr)
  As wFont font
End Type

Sub teFont.DrawString(target As teRect, text As WString)
  w2DFontDraw(font, text, target.x, target.y, target.x+target.w, target.y+target.h)
End Sub

Sub teFont.LoadFromFile(path as zstring Ptr)
  font = wGetFont(path)
End Sub

'' Глобальные переменные
Dim Shared gBG As teColor

Declare Sub Render()
Declare Sub Update()

Sub  WorldSim3DInit( w As Integer, h As Integer, text as WString)
' Запускаем интерфейс движка. Сцена будет отображаться через рендер OPENGL.
' Установим окно шириной и высотой 800 х 600 пикселей,
' число битов цвета, установленное для каждого пикселя ставим 32,
' режим отображения окна - оконный (в противоположность полноэкранному),
' тени отображаться не будут.
' Приложение будет реагировать на события от мыши и клавиатуры,
' синхронизация по вертикали (для сглаживания отображения) в режиме "включено" (по умолчанию отключено)

     wStart( wDT_OPENGL, w, h, wBITS_PER_PIXEL_32,_
           wWINDOWED, wNO_SHADOWS, wCAPTURE_EVENTS, wVERTICAL_SYNC_ON )
            
' Устанавливаем текст заголовка окна приложения
  wSetWindowCaption( text )
  gBG.red = 0
  gBG.green = 0
  gBG.blue = 0

End Sub

Sub SetBackGround(r As Integer, g As Integer, b As Integer)
  gBG.red = r
  gBG.green = g
  gBG.blue = b
End Sub

Sub StartLoop()
  '******************************************************************************
'----------------------- ГЛАВНЫЙ ЦИКЛ ВАШЕГО ПРОЕКТА --------------------------
' здесь главный цикл приложения, поэтому
' мы устанавливаем цикл с условием: пока движок работает (функция wRunning)
' внутри цикла постоянно выполняются определённые команды, в основном для отображения сцены
While wRunning
' начинаем работу сцены с цветом фона, например зелёный (который устанавливаем числами 0,125,0)
    wBeginScene(gBG.red, gBG.green, gBG.blue)
     
    Update()
     
  Render()
   
  ' заканчиваем отрисовку сцены и отображаем её
  wEndScene
   
  ' устанавливаем фреймрейт по умолчанию 60 кадров в секунду
    wSetFPS
        
    ' функция для закрытия окна через клавишу ESCAPE
    wCloseESC()
Wend
' -----------------------КОНЕЦ ГЛАВНОГО ЦИКЛА ВАШЕГО ПРОЕКТА ------------------
'******************************************************************************

' Останавливаем работу движка и высвобождаем ресурсы памяти
wStop
End Sub

#Include "TrueEngine.bas"

'' ----------------------------------------------------------------------------
'' Пример 01: Hello World
'' Этот простой пример открывает окно WorldSim3D, показывает текст Hello World
'' на экране и ожидает когда пользователь закроет приложение.
'' ----------------------------------------------------------------------------

'' Глобальные переменные
'  объявляем перемнную MyFont для работы со шрифтом в графическом формате
'  тип объявляемой перемнной - wTexture
Dim Shared MyFont As teFont
Dim Shared Target As teRect
Dim Shared Speed As Integer
Dim Shared Direction as Integer
Dim Shared Font As wFont

Sub Init()
  SetBackGround(0,125,0)
  ' загружаем нужный шрифт из папки ресурсов
  MyFont.LoadFromFile( "../Media/Fonts/myfont.bmp" )
  Target.x = 120
  Target.y = 80
  Target.w = 130
  Target.h = 16
  Speed = 1
  Direction = 1
   
End Sub

Sub Update()
  If Target.x > 250 AND Direction > 0 Then
   Speed *= -1
   Direction = -1
  ElseIf Target.x < 100 AND Direction < 0 then
   Speed *= -1
   Direction = 1
  EndIf   
    
  Target.x += Speed
   
End Sub

Sub Render()
   MyFont.DrawString(Target, "Hello everyone, I'm TrueEngine :-)")
End Sub

'-------------------------------------------------------------------------------
WorldSim3DInit(800, 600, "Example: Hello World")

Init()

StartLoop()