zengl/Zengl_SRC/demos/Delphi/01 - Initialization/demo01.dpr

program demo01;

// RU: Ýòîò ôàéë ñîäåðæèò íåêîòîðûå íàñòðîéêè(íàïðèìåð èñïîëüçîâàòü ëè ñòàòè÷åñêóþ êîìïèëÿöèþ) è îïðåäåëåíèÿ ÎÑ ïîä êîòîðóþ ïðîèñõîäèò êîìïèëÿöèÿ.
// EN: This file contains some options(e.g. whether to use static compilation) and defines of OS for which is compilation going.
{$I zglCustomConfig.cfg}

{$I zgl_config.cfg}

{$R *.res}

uses
  // RU: Ïðè èñïîëüçîâàíèè ñòàòè÷åñêîé êîìïèëÿöèè íåîáõîäèìî ïîäêëþ÷àòü ìîäóëè ZenGL ñîäåðæàùèå íåîáõîäèìûé ôóíêöèîíàë.
  // EN: Using static compilation needs to use ZenGL units with needed functionality.
  zgl_screen,
  zgl_window,
  zgl_timers,
  zgl_utils,
  zgl_types,
  zgl_application
  ;

var
  DirApp  : UTF8String;
  DirHome : UTF8String;
  TimeStart: Byte;

procedure Init;
begin
  // RU: Òóò ìîæíî âûïîëíÿòü çàãðóçêó îñíîâíûõ ðåñóðñîâ.
  // EN: Here can be loading of main resources.
end;

procedure Draw;
begin
  // RU: Òóò "ðèñóåì" ÷òî óãîäíî :)
  // EN: Here "draw" anything :)
end;

procedure Update( dt : Double );
begin
  // RU: Ýòà ôóíêöèÿ íàçåìåíèìà äëÿ ðåàëèçàöèÿ ïëàâíîãî äâèæåíèÿ ÷åãî-ëèáî, ò.ê. òî÷íîñòü òàéìåðîâ îãðàíè÷åíà FPS.
  // EN: This function is the best way to implement smooth moving of something, because accuracy of timers are restricted by FPS.
end;

// RU: Ïðèìåð èñïîëüçîâàíèÿ òàéìåðà.
// EN: An example of using a timer.
procedure Timer;
begin
  // RU: Áóäåì â çàãîëîâêå ïîêàçûâàòü êîëè÷åñòâî êàäðîâ â ñåêóíäó.
  // EN: Caption will show the frames per second.
  wnd_SetCaption(utf8_Copy('01 - Initialization[ FPS: ' + u_IntToStr(zgl_Get(RENDER_FPS)) + ' ]'));
end;

procedure KeyMouseEvent;
begin
  // RU: Ôóíêöèÿ îáðàáîòêè êëàâèàòóðû, ìûøè, äæîéñòèêà è òà÷ïàäà. Âñå ñîáûòèÿ ñâÿçàííûå ñ íèìè î÷èùàþòñÿ ïîñëå å¸ îáðàáîòêè.
  //     Âñå ïîïûòêè îáðàáîòàòü êëàâèàòóðó, ìûøü è òà÷ïàä, ìîãóò ïðèâåñòè ê íåïðåäâèäåííûì ñèòóàöèÿì.
  // EN: Keyboard, mouse and touchpad handling function. All events associated with them are cleared after processing it.
  //     Any attempt to handle the keyboard, mouse, or touchpad in other functions may lead to unexpected situations.
end;

procedure Quit;
begin
 // RU: Ñîáûòèÿ êîòîðûå íàäî ïðîèçâåñòè ïî çàâåðøåíèþ ïðîãðàììû.
 // EN: Events to be performed at the end of the program.
end;

Begin
  // RU: Äëÿ çàãðóçêè/ñîçäàíèÿ êàêèõ-òî ñâîèõ íàñòðîåê/ïðîôèëåé/etc. ìîæíî ïîëó÷èòü ïóòü ê äîìàøåíåìó êàòàëîãó ïîëüçîâàòåëÿ, èëè ê èñïîëíÿåìîìó ôàéëó(íå ðàáîòàåò äëÿ GNU/Linux).
  // EN: For loading/creating your own options/profiles/etc. you can get path to user home directory, or to executable file(not works for GNU/Linux).
  DirApp  := utf8_Copy(PAnsiChar(zgl_Get(DIRECTORY_APPLICATION)));
  DirHome := utf8_Copy(PAnsiChar(zgl_Get(DIRECTORY_HOME)));

  // RU: Óñòàíàâëèâàåì èíòåðâàë íà îáðàáîòêó ñîáûòèé êëàâèàòóðû, ìûøè, òà÷ïàäà. È ðåãèñòðèðóåì ïðîöåäóðó.
  //     Âûçûâàòü zgl_SetEventInterval íå îáÿçàòåëüíî. Çíà÷åíèå 16 ñòîèò ïî óìîë÷àíèþ.
  // EN: We set the interval for processing keyboard, mouse, touchpad events. And we register the procedure.
  //     Calling zgl_SetEventInterval is optional. The default is 16.
  zgl_SetEventsInterval(16);
  zgl_Reg(SYS_EVENTS, @KeyMouseEvent);

  // RU: Ñîçäàåì òàéìåð ñ èíòåðâàëîì 1000ìñ.
  // EN: Create a timer with interval 1000ms.
  TimeStart := timer_Add(@Timer, 1000, t_Start);

  // RU: Ðåãèñòðèðóåì ïðîöåäóðó, ÷òî âûïîëíèòñÿ ñðàçó ïîñëå èíèöèàëèçàöèè ZenGL.
  // EN: Register the procedure, that will be executed after ZenGL initialization.
  zgl_Reg(SYS_LOAD, @Init);
  // RU: Ðåãèñòðèðóåì ïðîöåäóðó, ãäå áóäåò ïðîèñõîäèòü ðåíäåð.
  // EN: Register the render procedure.
  zgl_Reg(SYS_DRAW, @Draw);
  // RU: Ðåãèñòðèðóåì ïðîöåäóðó, êîòîðàÿ áóäåò ïðèíèìàòü ðàçíèöó âðåìåíè ìåæäó êàäðàìè.
  // EN: Register the procedure, that will get delta time between the frames.
  zgl_Reg(SYS_UPDATE, @Update);
  // RU: Ðåãèñòðèðóåì ïðîöåäóðó, êîòîðàÿ âûïîëíèòñÿ ïîñëå çàâåðøåíèÿ ðàáîòû ZenGL.
  // EN: Register the procedure, that will be executed after ZenGL shutdown.
  zgl_Reg(SYS_EXIT, @Quit);

  // RU: Óñòàíàâëèâàåì çàãîëîâîê îêíà.
  // EN: Set the caption of the window.
  wndCaption := utf8_Copy('01 - Initialization');
  // RU: Ðàçðåøàåì êóðñîð ìûøè, ïî óìîë÷àíèþ ñòîèò True.
  // EN: Allow to show the mouse cursor.
  appShowCursor := True;

  // RU: Óêàçûâàåì ïåðâîíà÷àëüíûå íàñòðîéêè. Ïî óìîë÷àíèþ èìåííî òàê âñ¸ è ñòîèò.
  // EN: Set screen options.
  zgl_SetParam(800, 600, false, false);

  {$ifdef GL_VERSION_3_0}
  // RU: Óñòàíàâëèâàåì êîíòåêñò OpenGL 3.3. Äëÿ ýòîãî íàäî îòêëþ÷èòü äåôàéí USE_MIN_OPENGL â GLdefine.cfg
  // EN: Setting context OpenGL 3.3. Disable "USE_MIN_OPENGL" in GLdefine.cfg  
  SetGLVersionAndFlags(3, 3);
  {$ENDIF}

  // RU: Èíèöèàëèçèðóåì ZenGL.
  // EN: Initialize ZenGL.
  zgl_Init();
End.