ZenGL 3.25

00001-test/ZenTest001.lpi

@@ -1,70 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<CONFIG>
-  <ProjectOptions>
-    <Version Value="11"/>
-    <General>
-      <Flags>
-        <MainUnitHasCreateFormStatements Value="False"/>
-        <MainUnitHasTitleStatement Value="False"/>
-        <MainUnitHasScaledStatement Value="False"/>
-      </Flags>
-      <SessionStorage Value="InProjectDir"/>
-      <MainUnit Value="0"/>
-      <Title Value="ZenTest001"/>
-      <UseAppBundle Value="False"/>
-      <ResourceType Value="res"/>
-    </General>
-    <BuildModes Count="1">
-      <Item1 Name="Default" Default="True"/>
-    </BuildModes>
-    <PublishOptions>
-      <Version Value="2"/>
-      <UseFileFilters Value="True"/>
-    </PublishOptions>
-    <RunParams>
-      <FormatVersion Value="2"/>
-      <Modes Count="0"/>
-    </RunParams>
-    <Units Count="1">
-      <Unit0>
-        <Filename Value="ZenTest001.lpr"/>
-        <IsPartOfProject Value="True"/>
-      </Unit0>
-    </Units>
-  </ProjectOptions>
-  <CompilerOptions>
-    <Version Value="11"/>
-    <Target>
-      <Filename Value="ZenTest001"/>
-    </Target>
-    <SearchPaths>
-      <IncludeFiles Value="$(ProjOutDir);../../Zengl_SRC/headers"/>
-      <OtherUnitFiles Value="../../Zengl_SRC/src;../../Zengl_SRC/lib/zlib/x86_64-linux;../../Zengl_SRC/lib/zip/x86_64-linux;../../Zengl_SRC/lib/theora/x86_64-linux;../../Zengl_SRC/lib/ogg/x86_64-linux;../../Zengl_SRC/lib/jpeg/x86_64-linux;../../Lib"/>
-      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
-    </SearchPaths>
-    <CodeGeneration>
-      <SmartLinkUnit Value="True"/>
-      <SmallerCode Value="True"/>
-    </CodeGeneration>
-    <Linking>
-      <Debugging>
-        <StripSymbols Value="True"/>
-        <UseExternalDbgSyms Value="True"/>
-      </Debugging>
-      <LinkSmart Value="True"/>
-    </Linking>
-  </CompilerOptions>
-  <Debugging>
-    <Exceptions Count="3">
-      <Item1>
-        <Name Value="EAbort"/>
-      </Item1>
-      <Item2>
-        <Name Value="ECodetoolError"/>
-      </Item2>
-      <Item3>
-        <Name Value="EFOpenError"/>
-      </Item3>
-    </Exceptions>
-  </Debugging>
-</CONFIG>

00001-test/ZenTest001.lpr

@@ -1,344 +0,0 @@
-program ZenTest001;
-
-{$I zglCustomConfig.cfg}
-
-{$IFDEF WINDOWS}
-  {$R *.res}
-{$ENDIF}
-
-uses
-  zgl_window, zgl_screen, zgl_application, zgl_main,
-  gl,
-//  dglOpenGL,                                     // добавил чтоб проверить работоспособность
-  // это вообще недоработка, если мы используем фонт и через какие-то текстуры, то файлы для работы с этими текстурами должны грузится автоматически
-  zgl_textures_png,
-  zgl_timers, zgl_keyboard, zgl_primitives_2d, zgl_fx, zgl_utils, zgl_font, zgl_text,
-  zgl_opengl_all;
-
-const
-  MaxArray = 80;
-
-type
-  myPoint = record
-    X, Y, Z: Single;
-    count: GLshort;
-  end;
-
-var
-  dirRes    : UTF8String = 'data/';
-  fntMain   : zglPFont;
-  z: Double;
-// peremennye
-  mode: Integer;                               // rejim otobrajeniya
-  _type: Byte = 0;                             // sposob otobrajeniya
-  start: Boolean = false;
-
-  PointArr, ColorArr: array [0..100000, 0..2] of Single;
-
-  begin_mode: array[0..9] of Byte =            // massiv rejimov otobrajeniya
-                              (GL_POINTS, GL_LINES, GL_LINE_LOOP, GL_LINE_STRIP, GL_TRIANGLES, GL_TRIANGLE_FAN, GL_TRIANGLE_STRIP,
-                              GL_QUADS, GL_QUAD_STRIP, GL_POLYGON);
-  myPoints01: array[0..MaxArray - 1, 0..2] of Single = ((50, 150, 0), (100, 170, 0), (140, 140, 0), (130, 100, 0), (150, 50, 0), (100, 30, 0), (160, 60, 0), (100, 100, 0),//);
- { myPoints02: array[0..7, 0..1] of Single = (}(150, 150, 0), (200, 170, 0), (240, 140, 0), (230, 100, 0), (250, 50, 0), (200, 30, 0), (260, 60, 0), (200, 100, 0),//);
-{  myPoints03: array[0..15, 0..1] of Single = (}(250, 150, 0), (300, 170, 0), (340, 140, 0), (330, 100, 0), (350, 50, 0), (300, 30, 0), (360, 60, 0), (300, 100, 0),//);
-{  myPoints04: array[0..7, 0..1] of Single = (}(350, 150, 0), (400, 170, 0), (440, 140, 0), (430, 100, 0), (450, 50, 0), (400, 30, 0), (460, 60, 0), (400, 100, 0),//);
-{  myPoints05: array[0..15, 0..1] of Single = (}(450, 150, 0), (500, 170, 0), (540, 140, 0), (530, 100, 0), (550, 50, 0), (500, 30, 0), (560, 60, 0), (500, 100, 0),//);
-{  myPoints06: array[0..7, 0..1] of Single = (}(550, 150, 0), (600, 170, 0), (640, 140, 0), (630, 100, 0), (650, 50, 0), (600, 30, 0), (660, 60, 0), (600, 100, 0),//);
-{  myPoints07: array[0..15, 0..1] of Single = (}(650, 150, 0), (700, 170, 0), (740, 140, 0), (730, 100, 0), (750, 50, 0), (700, 30, 0), (760, 60, 0), (700, 100, 0),//);
-{  myPoints08: array[0..7, 0..1] of Single = (}(50, 250, 0), (100, 270, 0), (140, 240, 0), (130, 200, 0), (150, 150, 0), (100, 130, 0), (60, 160, 0), (100, 200, 0),//);
-{  myPoints09: array[0..15, 0..1] of Single = (}(50, 350, 0), (100, 370, 0), (140, 340, 0), (130, 300, 0), (150, 250, 0), (100, 230, 0), (60, 260, 0), (100, 300, 0),//);
-{  myPoints10: array[0..7, 0..1] of Single = (}(50, 450, 0), (100, 470, 0), (140, 440, 0), (130, 400, 0), (150, 350, 0), (100, 330, 0), (60, 360, 0), (100, 400, 0));
-
-  myColor01: array[0..MaxArray - 1, 0..2] of Single = ((1, 0, 0), (1, 0.5, 0), (1, 0.5, 0.5), (1, 1, 0), (0, 1, 0), (0, 1, 0.5), (0.5, 1, 0.5), (0, 1, 1),//);
-{  myColor02: array[0..7, 0..2] of Single = (}(0, 1, 0), (0.5, 1, 0), (0.5, 1, 0.5), (1, 1, 0), (1, 0, 0), (1, 0, 0.5), (1, 0.5, 0.5), (1, 0, 1),//);
-{  myColor03: array[0..15, 0..2] of Single = (}(1, 0, 0), (1, 0, 0.5), (1, 0.5, 0.5), (1, 0, 1), (0, 0, 1), (0, 0.5, 1), (0.5, 0.5, 1), (0, 1, 1),//);
-{  myColor04: array[0..7, 0..2] of Single = (}(0, 0, 1), (0, 0.5, 1), (0.5, 0.5, 1), (0, 1, 1), (0, 1, 0), (0.5, 1, 0), (0.5, 1, 0.5), (1, 1, 0), //);
-{  myColor05: array[0..15, 0..2] of Single = (}(0.5, 0, 0), (0.5, 0.5, 0), (0.5, 0.5, 0.5), (0.5, 1, 0), (0, 1, 0), (0, 1, 0.5), (0.5, 1, 0.5), (0, 1, 1),//);
-{  myColor06: array[0..7, 0..2] of Single = (}(0, 0.5, 0), (0.5, 0.5, 0), (0.5, 0.5, 0.5), (1, 0.5, 0), (0, 0.5, 0), (0, 0.5, 0.5), (0.5, 0.5, 0.5), (0, 0.5, 1),//);
-{  myColor07: array[0..15, 0..2] of Single = (}(1, 0, 0), (1, 0.5, 0), (1, 0.5, 0.5), (1, 1, 0), (0, 1, 0), (0, 1, 0.5), (0.5, 1, 0.5), (0, 1, 1),//);
-{  myColor08: array[0..7, 0..2] of Single = (}(1, 0, 0), (1, 0.5, 0), (1, 0.5, 0.5), (1, 1, 0), (0, 1, 0), (0, 1, 0.5), (0.5, 1, 0.5), (0, 1, 1), //);
-{  myColor09: array[0..15, 0..2] of Single = (}(1, 0, 0), (1, 0.5, 0), (1, 0.5, 0.5), (1, 1, 0), (0, 1, 0), (0, 1, 0.5), (0.5, 1, 0.5), (0, 1, 1),//);
-{  myColor10: array[0..7, 0..2] of Single = (}(1, 0, 0), (1, 0.5, 0), (1, 0.5, 0.5), (1, 1, 0), (0, 1, 0), (0, 1, 0.5), (0.5, 1, 0.5), (0, 1, 1));
-
-procedure MyInit;
-begin
-  fntMain := font_LoadFromFile(dirRes + 'font.zfi');
-  glClearColor(1, 1, 1, 1);
-  setTextScale(2);
-//  glNewList(1, GL_COMPILE);
-
-//  glEndList();
-
-end;
-
-procedure MyDraw;
-var
-  i, n, zz, countPoint: Integer;
-  s: String;
-  m: Double;
-  verr: array of GLshort;               // 65535 max
-  mass: array of myPoint;
-  yes: Boolean;
-begin
-//  if start then
-  m := timer_GetTicks;
-  if (_type and 1) > 0 Then
-  begin
-
-{    glPushClientAttrib(GL_CLIENT_ALL_ATTRIB_BITS);
-    glEnableClientState(GL_VERTEX_ARRAY);
-    glEnableClientState(GL_COLOR_ARRAY);      }
-
-{    SetLength(PointArr, 8000);
-    SetLength(ColorArr, 8000);}
-    SetLength(verr, 1000);
-    SetLength(mass, 1000);
-    i := 0;
-    countPoint := 0;                           // kol-vo raznyx tochek
-    for n := 0 to (MaxArray - 1) * 1000 do
-    begin
-{      if Length(PointArr) < n then
-        SetLength(PointArr, n + 1000);}
-{      PointArr[n, 0] := myPoints01[i, 0];           // x
-      ColorArr[n, 0] := myColor01[i, 0];            // y
-      PointArr[n, 1] := myPoints01[i, 1];           // x
-      ColorArr[n, 1] := myColor01[i, 1];            // y
-      PointArr[n, 2] := myPoints01[i, 2];           // x
-      ColorArr[n, 2] := myColor01[i, 2];            // y     }
-
-      if countPoint <> 0 then
-      begin
-        zz := 0;
-        yes := false;
-        while zz <= countPoint do
-        begin
-          if (mass[zz].X = myPoints01[i, 0]) and (mass[zz].Y = myPoints01[i, 1]) and (mass[zz].Z = myPoints01[i, 2]) then
-          begin
-            verr[n] := mass[zz].count;
-            yes := True;
-            break;
-          end;
-          inc(zz);
-        end;
-      end;
-      if not yes then
-      begin
-        mass[countPoint].X := myPoints01[i, 0];
-        mass[countPoint].Y := myPoints01[i, 1];
-        mass[countPoint].Z := myPoints01[i, 2];
-        mass[countPoint].count := countPoint;
-        verr[n] := countPoint;
-        PointArr[countPoint, 0] := myPoints01[i, 0];           // x
-        ColorArr[countPoint, 0] := myColor01[i, 0];            // y
-        PointArr[countPoint, 1] := myPoints01[i, 1];           // x
-        ColorArr[countPoint, 1] := myColor01[i, 1];            // y
-        PointArr[countPoint, 2] := myPoints01[i, 2];           // x
-        ColorArr[countPoint, 2] := myColor01[i, 2];
-        inc(countPoint);
-      end;
-
-      inc(i);
-      if i >= 80 then
-        i := 0;
-{      glVertexPointer(3, GL_FLOAT, 0, @myPoints01);
-
-      glColorPointer(3, GL_FLOAT, 0, @myColor01);
-      glDrawArrays(begin_mode[mode], 0, 80);      }
-
-{      glVertexPointer(2, GL_FLOAT, 0, @myPoints02);
-      glColorPointer(3, GL_FLOAT, 0, @myColor02);
-      glDrawArrays(begin_mode[mode], 0, 8);      }
-
-{      glVertexPointer(2, GL_FLOAT, 0, @myPoints03);
-      glColorPointer(3, GL_FLOAT, 0, @myColor03);
-      glDrawArrays(begin_mode[mode], 0, 16); }
-
-{      glVertexPointer(2, GL_FLOAT, 0, @myPoints04);
-      glColorPointer(3, GL_FLOAT, 0, @myColor04);
-      glDrawArrays(begin_mode[mode], 0, 8);}
-
-{      glVertexPointer(2, GL_FLOAT, 0, @myPoints05);
-      glColorPointer(3, GL_FLOAT, 0, @myColor05);
-      glDrawArrays(begin_mode[mode], 0, 16); }
-
-{      glVertexPointer(2, GL_FLOAT, 0, @myPoints06);
-      glColorPointer(3, GL_FLOAT, 0, @myColor06);
-      glDrawArrays(begin_mode[mode], 0, 8); }
-
-{      glVertexPointer(2, GL_FLOAT, 0, @myPoints07);
-      glColorPointer(3, GL_FLOAT, 0, @myColor07);
-      glDrawArrays(begin_mode[mode], 0, 16); }
-
-{      glVertexPointer(2, GL_FLOAT, 0, @myPoints08);
-      glColorPointer(3, GL_FLOAT, 0, @myColor08);
-      glDrawArrays(begin_mode[mode], 0, 8); }
-
-{      glVertexPointer(2, GL_FLOAT, 0, @myPoints09);
-      glColorPointer(3, GL_FLOAT, 0, @myColor09);
-      glDrawArrays(begin_mode[mode], 0, 16); }
-
-{      glVertexPointer(2, GL_FLOAT, 0, @myPoints10);
-      glColorPointer(3, GL_FLOAT, 0, @myColor10);
-      glDrawArrays(begin_mode[mode], 0, 8); }
-    end;
-{    glDisableClientState(GL_COLOR_ARRAY);
-    glDisableClientState(GL_VERTEX_ARRAY);
-    glPopClientAttrib();                   }
-//    z := timer_GetTicks - m;
-    start := false;
-    SetLength(verr, 0);
-    SetLength(mass, 0);
-  end
-  else begin
- //   m := timer_GetTicks;
-//      glEnable(GL_BLEND);
-      for n := 0 to 1 do
-      begin
-        glBegin(begin_mode[mode]);
-        for i := 0 to 79 do
-        begin
-          glColor3fv(myColor01[i]);
-          glVertex3fv(myPoints01[i]);
-        end;
-        glEnd;
-{        glBegin(begin_mode[mode]);
-        for i := 0 to 7 do
-        begin
-          glColor3fv(myColor02[i]);
-          glVertex2fv(myPoints02[i]);
-        end;
-        glEnd;}
-{        glBegin(begin_mode[mode]);
-        for i := 0 to 16 do
-        begin
-          glColor3fv(myColor03[i]);
-          glVertex2fv(myPoints03[i]);
-        end;
-        glEnd;}
- {       glBegin(begin_mode[mode]);
-        for i := 0 to 7 do
-        begin
-          glColor3fv(myColor04[i]);
-          glVertex2fv(myPoints04[i]);
-        end;
-        glEnd;}
-{        glBegin(begin_mode[mode]);
-        for i := 0 to 16 do
-        begin
-          glColor3fv(myColor05[i]);
-          glVertex2fv(myPoints05[i]);
-        end;
-        glEnd; }
-{        glBegin(begin_mode[mode]);
-        for i := 0 to 7 do
-        begin
-          glColor3fv(myColor06[i]);
-          glVertex2fv(myPoints06[i]);
-        end;
-        glEnd; }
- {       glBegin(begin_mode[mode]);
-        for i := 0 to 16 do
-        begin
-          glColor3fv(myColor07[i]);
-          glVertex2fv(myPoints07[i]);
-        end;
-        glEnd; }
-{        glBegin(begin_mode[mode]);
-        for i := 0 to 7 do
-        begin
-          glColor3fv(myColor08[i]);
-          glVertex2fv(myPoints08[i]);
-        end;
-        glEnd; }
-{        glBegin(begin_mode[mode]);
-        for i := 0 to 16 do
-        begin
-          glColor3fv(myColor09[i]);
-          glVertex2fv(myPoints09[i]);
-        end;
-        glEnd;
-}{        glBegin(begin_mode[mode]);
-        for i := 0 to 7 do
-        begin
-          glColor3fv(myColor10[i]);
-          glVertex2fv(myPoints10[i]);
-        end;
-        glEnd;}
-      end;
-//      glDisable(GL_BLEND);
-//    z := timer_GetTicks - m;
-//    start := false;
-  end;
-
-  if (_type and 1) > 0 Then
-  begin
-    glPushClientAttrib(GL_CLIENT_ALL_ATTRIB_BITS);
-    glEnableClientState(GL_VERTEX_ARRAY);
-    glEnableClientState(GL_COLOR_ARRAY);
-
-    glVertexPointer(3, GL_FLOAT, 0, @PointArr[0]);
-
-    glColorPointer(3, GL_FLOAT, 0, @ColorArr[0]);
- //   glDrawArrays(begin_mode[mode], 0, MaxArray * 1);
-
-    glDrawElements(begin_mode[mode], MaxArray * 1000 - 1, GL_UNSIGNED_SHORT, @verr);
-    glDisableClientState(GL_COLOR_ARRAY);
-    glDisableClientState(GL_VERTEX_ARRAY);
-    glPopClientAttrib();
-  end;
-
-  z := timer_GetTicks - m;
-  glColor4f(0, 0.5, 0, 1);
-  text_Draw(fntMain, 550, 300, utf8_Copy('FPS = ' + u_IntToStr(zgl_Get(RENDER_FPS))));
-  if mode = GL_POINTS then s := 'GL_POINTS';              //!!!!!!
-  if mode = GL_LINES then s := 'GL_LINES';                //!!!!!!
-  if mode = GL_LINE_LOOP then s := 'GL_LINE_LOOP';
-  if mode = GL_LINE_STRIP then s := 'GL_LINE_STRIP';
-  if mode = GL_TRIANGLES then s := 'GL_TRIANGLES';        //!!!!!!
-  if mode = GL_TRIANGLE_FAN then s := 'GL_TRIANGLE_FAN';
-  if mode = GL_TRIANGLE_STRIP then s := 'GL_TRIANGLE_STRIP';
-  if mode = GL_QUADS then s := 'GL_QUADS';
-  if mode = GL_QUAD_STRIP then s := 'GL_QUAD_STRIP';
-  if mode = GL_POLYGON then s := 'GL_POLYGON';
-  text_Draw(fntMain, 550, 330, utf8_Copy('mode: ' + s));
-  if _type = 0 then
-    s := 'vertex'
-  else
-    s := 'vertex pointer';
-  text_Draw(fntMain, 550, 360, utf8_Copy('type: ' + s));
-  text_Draw(fntMain, 550, 390, utf8_Copy('n = ' + u_IntToStr(round(z))));
-
-{  SetLength(PointArr, 0);
-  SetLength(ColorArr, 0);}
-end;
-
-procedure MyTimer;
-begin
-  if key_Press(K_ESCAPE) then winOn := false;
-
-  if key_Press(K_KP_ADD) then
-  begin
-    inc(mode);
-    if mode > 9 then mode := 0;
-  end;
-  if key_Press(K_KP_SUB) then
-  begin
-    dec(mode);
-    if mode < 0 then mode := 9;
-  end;
-  if key_Press(K_F1) then
-    _type := _type xor 1;
-
-//  if key_Press(K_SPACE) then start := true;
-
-  key_ClearState;
-end;
-
-begin
-  timer_Add(@MyTimer, 20);
-  zgl_Reg(SYS_LOAD, @MyInit);
-  zgl_Reg(SYS_DRAW, @MyDraw);
-
-  zgl_Init(8, 8);
-end.
-

00001-test/ZenTest001.lps

@@ -1,437 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<CONFIG>
-  <ProjectSession>
-    <Version Value="11"/>
-    <BuildModes Active="Default"/>
-    <Units Count="43">
-      <Unit0>
-        <Filename Value="ZenTest001.lpr"/>
-        <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
-        <TopLine Value="258"/>
-        <CursorPos X="44" Y="284"/>
-        <FoldState Value=" TLkI02422@"/>
-        <UsageCount Value="69"/>
-        <Loaded Value="True"/>
-      </Unit0>
-      <Unit1>
-        <Filename Value="../../Lib/zengl-src-0.3.14/demos/Lazarus/16 - Physics/demo16.lpr"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="142"/>
-        <CursorPos X="23" Y="12"/>
-        <UsageCount Value="6"/>
-      </Unit1>
-      <Unit2>
-        <Filename Value="../../Lib/zengl-src-0.3.14/headers/zglCustomConfig.cfg"/>
-        <EditorIndex Value="-1"/>
-        <UsageCount Value="6"/>
-        <DefaultSyntaxHighlighter Value="None"/>
-      </Unit2>
-      <Unit3>
-        <Filename Value="../../Lib/zengl-src-0.3.14/demos/Lazarus/02 - Resources/demo02.lpr"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="115"/>
-        <CursorPos X="7" Y="11"/>
-        <UsageCount Value="6"/>
-      </Unit3>
-      <Unit4>
-        <Filename Value="../../Lib/zengl-src-0.3.14/demos/Lazarus/01 - Initialization/demo01.lpr"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="44"/>
-        <CursorPos X="12" Y="52"/>
-        <UsageCount Value="6"/>
-      </Unit4>
-      <Unit5>
-        <Filename Value="../../Lib/zengl-src-0.3.14/demos/Lazarus/05 - Primitives/demo05.lpr"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="58"/>
-        <CursorPos X="29" Y="86"/>
-        <UsageCount Value="6"/>
-      </Unit5>
-      <Unit6>
-        <Filename Value="../../Lib/zengl-src-0.3.14/src/zgl_primitives_2d.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="217"/>
-        <CursorPos X="18" Y="124"/>
-        <UsageCount Value="10"/>
-      </Unit6>
-      <Unit7>
-        <Filename Value="../../Lib/zengl-src-0.3.14/src/zgl_main.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="622"/>
-        <CursorPos X="19" Y="639"/>
-        <UsageCount Value="7"/>
-      </Unit7>
-      <Unit8>
-        <Filename Value="../../Lib/zengl-src-0.3.14/src/zgl_application.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="112"/>
-        <CursorPos X="17" Y="129"/>
-        <UsageCount Value="10"/>
-      </Unit8>
-      <Unit9>
-        <Filename Value="../../Lib/zengl-src-0.3.14/src/zgl_render.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="104"/>
-        <CursorPos X="3" Y="106"/>
-        <UsageCount Value="10"/>
-      </Unit9>
-      <Unit10>
-        <Filename Value="../../Lib/zengl-src-0.3.14/src/zgl_screen.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="701"/>
-        <CursorPos X="11" Y="719"/>
-        <FoldState Value=" T3qU0C111~"/>
-        <UsageCount Value="10"/>
-      </Unit10>
-      <Unit11>
-        <Filename Value="../../Lib/zengl-src-0.3.14/src/zgl_render_2d.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="77"/>
-        <CursorPos X="13" Y="90"/>
-        <UsageCount Value="10"/>
-      </Unit11>
-      <Unit12>
-        <Filename Value="../../Lib/zengl-src-0.3.14/src/zgl_opengl_all.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="444"/>
-        <CursorPos X="17" Y="474"/>
-        <UsageCount Value="10"/>
-      </Unit12>
-      <Unit13>
-        <Filename Value="/usr/share/fpcsrc/3.0.4/packages/opengl/src/gl.pp"/>
-        <UnitName Value="GL"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="1281"/>
-        <CursorPos X="42" Y="1305"/>
-        <UsageCount Value="17"/>
-      </Unit13>
-      <Unit14>
-        <Filename Value="../../Lib/zengl-src-0.3.14/src/zgl_opengl.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="264"/>
-        <UsageCount Value="10"/>
-      </Unit14>
-      <Unit15>
-        <Filename Value="/usr/share/fpcsrc/3.0.4/packages/opengl/src/glu.pp"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="477"/>
-        <CursorPos X="51" Y="413"/>
-        <UsageCount Value="6"/>
-      </Unit15>
-      <Unit16>
-        <Filename Value="/usr/share/fpcsrc/3.0.4/packages/opengl/src/glx.pp"/>
-        <UnitName Value="GLX"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="32"/>
-        <CursorPos X="53" Y="40"/>
-        <UsageCount Value="6"/>
-      </Unit16>
-      <Unit17>
-        <Filename Value="../../Lib/zengl-src-0.3.14/src/zgl_keyboard.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="328"/>
-        <CursorPos Y="357"/>
-        <UsageCount Value="6"/>
-      </Unit17>
-      <Unit18>
-        <Filename Value="../../Lib/zengl-src-0.3.14/src/zgl_resources.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="30"/>
-        <CursorPos X="13" Y="174"/>
-        <UsageCount Value="7"/>
-      </Unit18>
-      <Unit19>
-        <Filename Value="../../Lib/zengl-src-0.3.14/src/zgl_window.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="412"/>
-        <CursorPos X="8" Y="431"/>
-        <UsageCount Value="7"/>
-      </Unit19>
-      <Unit20>
-        <Filename Value="../../Zengl_SRC/src/zgl_main.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="665"/>
-        <CursorPos X="31" Y="682"/>
-        <UsageCount Value="19"/>
-      </Unit20>
-      <Unit21>
-        <Filename Value="../../Zengl_SRC/demos/Lazarus/05 - Primitives/demo05.lpr"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="50"/>
-        <UsageCount Value="8"/>
-      </Unit21>
-      <Unit22>
-        <Filename Value="../../Zengl_SRC/src/zgl_screen.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="516"/>
-        <CursorPos X="51" Y="535"/>
-        <UsageCount Value="8"/>
-      </Unit22>
-      <Unit23>
-        <Filename Value="../../Zengl_SRC/src/zgl_application.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="247"/>
-        <CursorPos Y="271"/>
-        <UsageCount Value="13"/>
-      </Unit23>
-      <Unit24>
-        <Filename Value="../../Zengl_SRC/src/zgl_window.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="9"/>
-        <CursorPos X="43" Y="31"/>
-        <UsageCount Value="13"/>
-      </Unit24>
-      <Unit25>
-        <Filename Value="../../Zengl_SRC/src/zgl_render.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="53"/>
-        <CursorPos X="18" Y="72"/>
-        <UsageCount Value="8"/>
-      </Unit25>
-      <Unit26>
-        <Filename Value="../../Zengl_SRC/src/zgl_opengl.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="39"/>
-        <CursorPos X="92" Y="43"/>
-        <UsageCount Value="8"/>
-      </Unit26>
-      <Unit27>
-        <Filename Value="../../Zengl_SRC/src/zgl_opengl_all.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="353"/>
-        <CursorPos X="3" Y="378"/>
-        <UsageCount Value="17"/>
-      </Unit27>
-      <Unit28>
-        <Filename Value="../../Zengl_SRC/src/zgl_keyboard.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="126"/>
-        <CursorPos X="3" Y="164"/>
-        <UsageCount Value="8"/>
-      </Unit28>
-      <Unit29>
-        <Filename Value="../../Zengl_SRC/demos/Lazarus/08 - Sprite Engine/demo08.lpr"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="28"/>
-        <CursorPos X="69" Y="39"/>
-        <UsageCount Value="20"/>
-      </Unit29>
-      <Unit30>
-        <Filename Value="../../Zengl_SRC/src/zgl_text.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="249"/>
-        <CursorPos X="3" Y="262"/>
-        <UsageCount Value="17"/>
-      </Unit30>
-      <Unit31>
-        <Filename Value="../../Zengl_SRC/src/zgl_font.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="155"/>
-        <CursorPos X="17" Y="167"/>
-        <UsageCount Value="20"/>
-      </Unit31>
-      <Unit32>
-        <Filename Value="../../Zengl_SRC/src/zgl_file.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="60"/>
-        <CursorPos X="11" Y="78"/>
-        <UsageCount Value="16"/>
-      </Unit32>
-      <Unit33>
-        <Filename Value="../../Zengl_SRC/src/zgl_log.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="85"/>
-        <CursorPos X="46" Y="95"/>
-        <UsageCount Value="7"/>
-      </Unit33>
-      <Unit34>
-        <Filename Value="/usr/share/fpcsrc/3.0.4/rtl/unix/bunxovlh.inc"/>
-        <EditorIndex Value="-1"/>
-        <CursorPos X="11" Y="38"/>
-        <UsageCount Value="12"/>
-      </Unit34>
-      <Unit35>
-        <Filename Value="/usr/share/fpcsrc/3.0.4/rtl/unix/bunxovl.inc"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="149"/>
-        <CursorPos X="3" Y="153"/>
-        <UsageCount Value="12"/>
-      </Unit35>
-      <Unit36>
-        <Filename Value="../../Zengl_SRC/src/zgl_memory.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="93"/>
-        <CursorPos Y="125"/>
-        <UsageCount Value="15"/>
-      </Unit36>
-      <Unit37>
-        <Filename Value="../../Lib/dglOpenGL.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="11581"/>
-        <CursorPos X="21" Y="11613"/>
-        <UsageCount Value="10"/>
-      </Unit37>
-      <Unit38>
-        <Filename Value="../../Zengl_SRC/src/zgl_utils.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="175"/>
-        <CursorPos Y="198"/>
-        <UsageCount Value="17"/>
-      </Unit38>
-      <Unit39>
-        <Filename Value="../../Zengl_SRC/src/zgl_opengles_all.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="299"/>
-        <CursorPos X="48" Y="324"/>
-        <UsageCount Value="16"/>
-      </Unit39>
-      <Unit40>
-        <Filename Value="../../Zengl_SRC/src/zgl_primitives_2d.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="186"/>
-        <UsageCount Value="16"/>
-      </Unit40>
-      <Unit41>
-        <Filename Value="/usr/share/fpcsrc/3.0.4/packages/opengles/src/gles20.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="1704"/>
-        <CursorPos X="12" Y="1100"/>
-        <UsageCount Value="9"/>
-      </Unit41>
-      <Unit42>
-        <Filename Value="../../Zengl_SRC/src/zgl_timers.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="185"/>
-        <CursorPos X="26" Y="240"/>
-        <UsageCount Value="13"/>
-      </Unit42>
-    </Units>
-    <JumpHistory Count="30" HistoryIndex="29">
-      <Position1>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="115" TopLine="82"/>
-      </Position1>
-      <Position2>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="121" TopLine="82"/>
-      </Position2>
-      <Position3>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="113" TopLine="82"/>
-      </Position3>
-      <Position4>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="115" TopLine="82"/>
-      </Position4>
-      <Position5>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="121" TopLine="82"/>
-      </Position5>
-      <Position6>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="113" TopLine="82"/>
-      </Position6>
-      <Position7>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="115" TopLine="82"/>
-      </Position7>
-      <Position8>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="121" TopLine="82"/>
-      </Position8>
-      <Position9>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="113" TopLine="82"/>
-      </Position9>
-      <Position10>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="115" TopLine="82"/>
-      </Position10>
-      <Position11>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="121" TopLine="82"/>
-      </Position11>
-      <Position12>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="113" TopLine="82"/>
-      </Position12>
-      <Position13>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="115" TopLine="82"/>
-      </Position13>
-      <Position14>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="121" TopLine="82"/>
-      </Position14>
-      <Position15>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="113" TopLine="82"/>
-      </Position15>
-      <Position16>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="115" TopLine="82"/>
-      </Position16>
-      <Position17>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="121" TopLine="82"/>
-      </Position17>
-      <Position18>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="113" TopLine="82"/>
-      </Position18>
-      <Position19>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="115" TopLine="82"/>
-      </Position19>
-      <Position20>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="121" TopLine="82"/>
-      </Position20>
-      <Position21>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="113" TopLine="82"/>
-      </Position21>
-      <Position22>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="115" TopLine="82"/>
-      </Position22>
-      <Position23>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="121" TopLine="82"/>
-      </Position23>
-      <Position24>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="113" TopLine="82"/>
-      </Position24>
-      <Position25>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="115" TopLine="82"/>
-      </Position25>
-      <Position26>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="121" TopLine="82"/>
-      </Position26>
-      <Position27>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="113" TopLine="82"/>
-      </Position27>
-      <Position28>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="115" TopLine="82"/>
-      </Position28>
-      <Position29>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="121" TopLine="82"/>
-      </Position29>
-      <Position30>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="117" Column="8" TopLine="82"/>
-      </Position30>
-    </JumpHistory>
-    <RunParams>
-      <FormatVersion Value="2"/>
-      <Modes Count="0" ActiveMode=""/>
-    </RunParams>
-  </ProjectSession>
-</CONFIG>

00001-test/backup/ZenTest001.lpi

@@ -1,70 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<CONFIG>
-  <ProjectOptions>
-    <Version Value="11"/>
-    <General>
-      <Flags>
-        <MainUnitHasCreateFormStatements Value="False"/>
-        <MainUnitHasTitleStatement Value="False"/>
-        <MainUnitHasScaledStatement Value="False"/>
-      </Flags>
-      <SessionStorage Value="InProjectDir"/>
-      <MainUnit Value="0"/>
-      <Title Value="ZenTest001"/>
-      <UseAppBundle Value="False"/>
-      <ResourceType Value="res"/>
-    </General>
-    <BuildModes Count="1">
-      <Item1 Name="Default" Default="True"/>
-    </BuildModes>
-    <PublishOptions>
-      <Version Value="2"/>
-      <UseFileFilters Value="True"/>
-    </PublishOptions>
-    <RunParams>
-      <FormatVersion Value="2"/>
-      <Modes Count="0"/>
-    </RunParams>
-    <Units Count="1">
-      <Unit0>
-        <Filename Value="ZenTest001.lpr"/>
-        <IsPartOfProject Value="True"/>
-      </Unit0>
-    </Units>
-  </ProjectOptions>
-  <CompilerOptions>
-    <Version Value="11"/>
-    <Target>
-      <Filename Value="ZenTest001"/>
-    </Target>
-    <SearchPaths>
-      <IncludeFiles Value="$(ProjOutDir);../../Zengl_SRC/headers"/>
-      <OtherUnitFiles Value="../../Zengl_SRC/src;../../Zengl_SRC/lib/zlib/x86_64-linux;../../Zengl_SRC/lib/zip/x86_64-linux;../../Zengl_SRC/lib/theora/x86_64-linux;../../Zengl_SRC/lib/ogg/x86_64-linux;../../Zengl_SRC/lib/jpeg/x86_64-linux;../../Lib"/>
-      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
-    </SearchPaths>
-    <CodeGeneration>
-      <SmartLinkUnit Value="True"/>
-      <SmallerCode Value="True"/>
-    </CodeGeneration>
-    <Linking>
-      <Debugging>
-        <StripSymbols Value="True"/>
-        <UseExternalDbgSyms Value="True"/>
-      </Debugging>
-      <LinkSmart Value="True"/>
-    </Linking>
-  </CompilerOptions>
-  <Debugging>
-    <Exceptions Count="3">
-      <Item1>
-        <Name Value="EAbort"/>
-      </Item1>
-      <Item2>
-        <Name Value="ECodetoolError"/>
-      </Item2>
-      <Item3>
-        <Name Value="EFOpenError"/>
-      </Item3>
-    </Exceptions>
-  </Debugging>
-</CONFIG>

00001-test/backup/ZenTest001.lpr

@@ -1,344 +0,0 @@
-program ZenTest001;
-
-{$I zglCustomConfig.cfg}
-
-{$IFDEF WINDOWS}
-  {$R *.res}
-{$ENDIF}
-
-uses
-  zgl_window, zgl_screen, zgl_application, zgl_main,
-  gl,
-//  dglOpenGL,                                     // добавил чтоб проверить работоспособность
-  // это вообще недоработка, если мы используем фонт и через какие-то текстуры, то файлы для работы с этими текстурами должны грузится автоматически
-  zgl_textures_png,
-  zgl_timers, zgl_keyboard, zgl_primitives_2d, zgl_fx, zgl_utils, zgl_font, zgl_text,
-  zgl_opengl_all;
-
-const
-  MaxArray = 80;
-
-type
-  myPoint = record
-    X, Y, Z: Single;
-    count: GLshort;
-  end;
-
-var
-  dirRes    : UTF8String = 'data/';
-  fntMain   : zglPFont;
-  z: Double;
-// peremennye
-  mode: Integer;                               // rejim otobrajeniya
-  _type: Byte = 0;                             // sposob otobrajeniya
-  start: Boolean = false;
-
-  PointArr, ColorArr: array [0..100000, 0..2] of Single;
-
-  begin_mode: array[0..9] of Byte =            // massiv rejimov otobrajeniya
-                              (GL_POINTS, GL_LINES, GL_LINE_LOOP, GL_LINE_STRIP, GL_TRIANGLES, GL_TRIANGLE_FAN, GL_TRIANGLE_STRIP,
-                              GL_QUADS, GL_QUAD_STRIP, GL_POLYGON);
-  myPoints01: array[0..MaxArray - 1, 0..2] of Single = ((50, 150, 0), (100, 170, 0), (140, 140, 0), (130, 100, 0), (150, 50, 0), (100, 30, 0), (160, 60, 0), (100, 100, 0),//);
- { myPoints02: array[0..7, 0..1] of Single = (}(150, 150, 0), (200, 170, 0), (240, 140, 0), (230, 100, 0), (250, 50, 0), (200, 30, 0), (260, 60, 0), (200, 100, 0),//);
-{  myPoints03: array[0..15, 0..1] of Single = (}(250, 150, 0), (300, 170, 0), (340, 140, 0), (330, 100, 0), (350, 50, 0), (300, 30, 0), (360, 60, 0), (300, 100, 0),//);
-{  myPoints04: array[0..7, 0..1] of Single = (}(350, 150, 0), (400, 170, 0), (440, 140, 0), (430, 100, 0), (450, 50, 0), (400, 30, 0), (460, 60, 0), (400, 100, 0),//);
-{  myPoints05: array[0..15, 0..1] of Single = (}(450, 150, 0), (500, 170, 0), (540, 140, 0), (530, 100, 0), (550, 50, 0), (500, 30, 0), (560, 60, 0), (500, 100, 0),//);
-{  myPoints06: array[0..7, 0..1] of Single = (}(550, 150, 0), (600, 170, 0), (640, 140, 0), (630, 100, 0), (650, 50, 0), (600, 30, 0), (660, 60, 0), (600, 100, 0),//);
-{  myPoints07: array[0..15, 0..1] of Single = (}(650, 150, 0), (700, 170, 0), (740, 140, 0), (730, 100, 0), (750, 50, 0), (700, 30, 0), (760, 60, 0), (700, 100, 0),//);
-{  myPoints08: array[0..7, 0..1] of Single = (}(50, 250, 0), (100, 270, 0), (140, 240, 0), (130, 200, 0), (150, 150, 0), (100, 130, 0), (60, 160, 0), (100, 200, 0),//);
-{  myPoints09: array[0..15, 0..1] of Single = (}(50, 350, 0), (100, 370, 0), (140, 340, 0), (130, 300, 0), (150, 250, 0), (100, 230, 0), (60, 260, 0), (100, 300, 0),//);
-{  myPoints10: array[0..7, 0..1] of Single = (}(50, 450, 0), (100, 470, 0), (140, 440, 0), (130, 400, 0), (150, 350, 0), (100, 330, 0), (60, 360, 0), (100, 400, 0));
-
-  myColor01: array[0..MaxArray - 1, 0..2] of Single = ((1, 0, 0), (1, 0.5, 0), (1, 0.5, 0.5), (1, 1, 0), (0, 1, 0), (0, 1, 0.5), (0.5, 1, 0.5), (0, 1, 1),//);
-{  myColor02: array[0..7, 0..2] of Single = (}(0, 1, 0), (0.5, 1, 0), (0.5, 1, 0.5), (1, 1, 0), (1, 0, 0), (1, 0, 0.5), (1, 0.5, 0.5), (1, 0, 1),//);
-{  myColor03: array[0..15, 0..2] of Single = (}(1, 0, 0), (1, 0, 0.5), (1, 0.5, 0.5), (1, 0, 1), (0, 0, 1), (0, 0.5, 1), (0.5, 0.5, 1), (0, 1, 1),//);
-{  myColor04: array[0..7, 0..2] of Single = (}(0, 0, 1), (0, 0.5, 1), (0.5, 0.5, 1), (0, 1, 1), (0, 1, 0), (0.5, 1, 0), (0.5, 1, 0.5), (1, 1, 0), //);
-{  myColor05: array[0..15, 0..2] of Single = (}(0.5, 0, 0), (0.5, 0.5, 0), (0.5, 0.5, 0.5), (0.5, 1, 0), (0, 1, 0), (0, 1, 0.5), (0.5, 1, 0.5), (0, 1, 1),//);
-{  myColor06: array[0..7, 0..2] of Single = (}(0, 0.5, 0), (0.5, 0.5, 0), (0.5, 0.5, 0.5), (1, 0.5, 0), (0, 0.5, 0), (0, 0.5, 0.5), (0.5, 0.5, 0.5), (0, 0.5, 1),//);
-{  myColor07: array[0..15, 0..2] of Single = (}(1, 0, 0), (1, 0.5, 0), (1, 0.5, 0.5), (1, 1, 0), (0, 1, 0), (0, 1, 0.5), (0.5, 1, 0.5), (0, 1, 1),//);
-{  myColor08: array[0..7, 0..2] of Single = (}(1, 0, 0), (1, 0.5, 0), (1, 0.5, 0.5), (1, 1, 0), (0, 1, 0), (0, 1, 0.5), (0.5, 1, 0.5), (0, 1, 1), //);
-{  myColor09: array[0..15, 0..2] of Single = (}(1, 0, 0), (1, 0.5, 0), (1, 0.5, 0.5), (1, 1, 0), (0, 1, 0), (0, 1, 0.5), (0.5, 1, 0.5), (0, 1, 1),//);
-{  myColor10: array[0..7, 0..2] of Single = (}(1, 0, 0), (1, 0.5, 0), (1, 0.5, 0.5), (1, 1, 0), (0, 1, 0), (0, 1, 0.5), (0.5, 1, 0.5), (0, 1, 1));
-
-procedure MyInit;
-begin
-  fntMain := font_LoadFromFile(dirRes + 'font.zfi');
-  glClearColor(1, 1, 1, 1);
-  setTextScale(2);
-//  glNewList(1, GL_COMPILE);
-
-//  glEndList();
-
-end;
-
-procedure MyDraw;
-var
-  i, n, zz, countPoint: Integer;
-  s: String;
-  m: Double;
-  verr: array of GLshort;               // 65535 max
-  mass: array of myPoint;
-  yes: Boolean;
-begin
-//  if start then
-  m := timer_GetTicks;
-  if (_type and 1) > 0 Then
-  begin
-
-{    glPushClientAttrib(GL_CLIENT_ALL_ATTRIB_BITS);
-    glEnableClientState(GL_VERTEX_ARRAY);
-    glEnableClientState(GL_COLOR_ARRAY);      }
-
-{    SetLength(PointArr, 8000);
-    SetLength(ColorArr, 8000);}
-    SetLength(verr, 1000);
-    SetLength(mass, 1000);
-    i := 0;
-    countPoint := 0;                           // kol-vo raznyx tochek
-    for n := 0 to (MaxArray - 1) * 1 do
-    begin
-{      if Length(PointArr) < n then
-        SetLength(PointArr, n + 1000);}
-{      PointArr[n, 0] := myPoints01[i, 0];           // x
-      ColorArr[n, 0] := myColor01[i, 0];            // y
-      PointArr[n, 1] := myPoints01[i, 1];           // x
-      ColorArr[n, 1] := myColor01[i, 1];            // y
-      PointArr[n, 2] := myPoints01[i, 2];           // x
-      ColorArr[n, 2] := myColor01[i, 2];            // y     }
-
-      if countPoint <> 0 then
-      begin
-        zz := 0;
-        yes := false;
-        while zz <= countPoint do
-        begin
-          if (mass[zz].X = myPoints01[i, 0]) and (mass[zz].Y = myPoints01[i, 1]) and (mass[zz].Z = myPoints01[i, 2]) then
-          begin
-            verr[n] := mass[zz].count;
-            yes := True;
-            break;
-          end;
-          inc(zz);
-        end;
-      end;
-      if not yes then
-      begin
-        mass[countPoint].X := myPoints01[i, 0];
-        mass[countPoint].Y := myPoints01[i, 1];
-        mass[countPoint].Z := myPoints01[i, 2];
-        mass[countPoint].count := countPoint;
-        verr[n] := countPoint;
-        PointArr[countPoint, 0] := myPoints01[i, 0];           // x
-        ColorArr[countPoint, 0] := myColor01[i, 0];            // y
-        PointArr[countPoint, 1] := myPoints01[i, 1];           // x
-        ColorArr[countPoint, 1] := myColor01[i, 1];            // y
-        PointArr[countPoint, 2] := myPoints01[i, 2];           // x
-        ColorArr[countPoint, 2] := myColor01[i, 2];
-        inc(countPoint);
-      end;
-
-      inc(i);
-      if i >= 80 then
-        i := 0;
-{      glVertexPointer(3, GL_FLOAT, 0, @myPoints01);
-
-      glColorPointer(3, GL_FLOAT, 0, @myColor01);
-      glDrawArrays(begin_mode[mode], 0, 80);      }
-
-{      glVertexPointer(2, GL_FLOAT, 0, @myPoints02);
-      glColorPointer(3, GL_FLOAT, 0, @myColor02);
-      glDrawArrays(begin_mode[mode], 0, 8);      }
-
-{      glVertexPointer(2, GL_FLOAT, 0, @myPoints03);
-      glColorPointer(3, GL_FLOAT, 0, @myColor03);
-      glDrawArrays(begin_mode[mode], 0, 16); }
-
-{      glVertexPointer(2, GL_FLOAT, 0, @myPoints04);
-      glColorPointer(3, GL_FLOAT, 0, @myColor04);
-      glDrawArrays(begin_mode[mode], 0, 8);}
-
-{      glVertexPointer(2, GL_FLOAT, 0, @myPoints05);
-      glColorPointer(3, GL_FLOAT, 0, @myColor05);
-      glDrawArrays(begin_mode[mode], 0, 16); }
-
-{      glVertexPointer(2, GL_FLOAT, 0, @myPoints06);
-      glColorPointer(3, GL_FLOAT, 0, @myColor06);
-      glDrawArrays(begin_mode[mode], 0, 8); }
-
-{      glVertexPointer(2, GL_FLOAT, 0, @myPoints07);
-      glColorPointer(3, GL_FLOAT, 0, @myColor07);
-      glDrawArrays(begin_mode[mode], 0, 16); }
-
-{      glVertexPointer(2, GL_FLOAT, 0, @myPoints08);
-      glColorPointer(3, GL_FLOAT, 0, @myColor08);
-      glDrawArrays(begin_mode[mode], 0, 8); }
-
-{      glVertexPointer(2, GL_FLOAT, 0, @myPoints09);
-      glColorPointer(3, GL_FLOAT, 0, @myColor09);
-      glDrawArrays(begin_mode[mode], 0, 16); }
-
-{      glVertexPointer(2, GL_FLOAT, 0, @myPoints10);
-      glColorPointer(3, GL_FLOAT, 0, @myColor10);
-      glDrawArrays(begin_mode[mode], 0, 8); }
-    end;
-{    glDisableClientState(GL_COLOR_ARRAY);
-    glDisableClientState(GL_VERTEX_ARRAY);
-    glPopClientAttrib();                   }
-//    z := timer_GetTicks - m;
-    start := false;
-    SetLength(verr, 0);
-    SetLength(mass, 0);
-  end
-  else begin
- //   m := timer_GetTicks;
-//      glEnable(GL_BLEND);
-      for n := 0 to 1 do
-      begin
-        glBegin(begin_mode[mode]);
-        for i := 0 to 79 do
-        begin
-          glColor3fv(myColor01[i]);
-          glVertex3fv(myPoints01[i]);
-        end;
-        glEnd;
-{        glBegin(begin_mode[mode]);
-        for i := 0 to 7 do
-        begin
-          glColor3fv(myColor02[i]);
-          glVertex2fv(myPoints02[i]);
-        end;
-        glEnd;}
-{        glBegin(begin_mode[mode]);
-        for i := 0 to 16 do
-        begin
-          glColor3fv(myColor03[i]);
-          glVertex2fv(myPoints03[i]);
-        end;
-        glEnd;}
- {       glBegin(begin_mode[mode]);
-        for i := 0 to 7 do
-        begin
-          glColor3fv(myColor04[i]);
-          glVertex2fv(myPoints04[i]);
-        end;
-        glEnd;}
-{        glBegin(begin_mode[mode]);
-        for i := 0 to 16 do
-        begin
-          glColor3fv(myColor05[i]);
-          glVertex2fv(myPoints05[i]);
-        end;
-        glEnd; }
-{        glBegin(begin_mode[mode]);
-        for i := 0 to 7 do
-        begin
-          glColor3fv(myColor06[i]);
-          glVertex2fv(myPoints06[i]);
-        end;
-        glEnd; }
- {       glBegin(begin_mode[mode]);
-        for i := 0 to 16 do
-        begin
-          glColor3fv(myColor07[i]);
-          glVertex2fv(myPoints07[i]);
-        end;
-        glEnd; }
-{        glBegin(begin_mode[mode]);
-        for i := 0 to 7 do
-        begin
-          glColor3fv(myColor08[i]);
-          glVertex2fv(myPoints08[i]);
-        end;
-        glEnd; }
-{        glBegin(begin_mode[mode]);
-        for i := 0 to 16 do
-        begin
-          glColor3fv(myColor09[i]);
-          glVertex2fv(myPoints09[i]);
-        end;
-        glEnd;
-}{        glBegin(begin_mode[mode]);
-        for i := 0 to 7 do
-        begin
-          glColor3fv(myColor10[i]);
-          glVertex2fv(myPoints10[i]);
-        end;
-        glEnd;}
-      end;
-//      glDisable(GL_BLEND);
-//    z := timer_GetTicks - m;
-//    start := false;
-  end;
-
-  if (_type and 1) > 0 Then
-  begin
-    glPushClientAttrib(GL_CLIENT_ALL_ATTRIB_BITS);
-    glEnableClientState(GL_VERTEX_ARRAY);
-    glEnableClientState(GL_COLOR_ARRAY);
-
-    glVertexPointer(3, GL_FLOAT, 0, @PointArr[0]);
-
-    glColorPointer(3, GL_FLOAT, 0, @ColorArr[0]);
- //   glDrawArrays(begin_mode[mode], 0, MaxArray * 1);
-
-    glDrawElements(begin_mode[mode], MaxArray, GL_UNSIGNED_SHORT, @verr);
-    glDisableClientState(GL_COLOR_ARRAY);
-    glDisableClientState(GL_VERTEX_ARRAY);
-    glPopClientAttrib();
-  end;
-
-  z := timer_GetTicks - m;
-  glColor4f(0, 0.5, 0, 1);
-  text_Draw(fntMain, 550, 300, utf8_Copy('FPS = ' + u_IntToStr(zgl_Get(RENDER_FPS))));
-  if mode = GL_POINTS then s := 'GL_POINTS';              //!!!!!!
-  if mode = GL_LINES then s := 'GL_LINES';                //!!!!!!
-  if mode = GL_LINE_LOOP then s := 'GL_LINE_LOOP';
-  if mode = GL_LINE_STRIP then s := 'GL_LINE_STRIP';
-  if mode = GL_TRIANGLES then s := 'GL_TRIANGLES';        //!!!!!!
-  if mode = GL_TRIANGLE_FAN then s := 'GL_TRIANGLE_FAN';
-  if mode = GL_TRIANGLE_STRIP then s := 'GL_TRIANGLE_STRIP';
-  if mode = GL_QUADS then s := 'GL_QUADS';
-  if mode = GL_QUAD_STRIP then s := 'GL_QUAD_STRIP';
-  if mode = GL_POLYGON then s := 'GL_POLYGON';
-  text_Draw(fntMain, 550, 330, utf8_Copy('mode: ' + s));
-  if _type = 0 then
-    s := 'vertex'
-  else
-    s := 'vertex pointer';
-  text_Draw(fntMain, 550, 360, utf8_Copy('type: ' + s));
-  text_Draw(fntMain, 550, 390, utf8_Copy('n = ' + u_IntToStr(round(z))));
-
-{  SetLength(PointArr, 0);
-  SetLength(ColorArr, 0);}
-end;
-
-procedure MyTimer;
-begin
-  if key_Press(K_ESCAPE) then winOn := false;
-
-  if key_Press(K_KP_ADD) then
-  begin
-    inc(mode);
-    if mode > 9 then mode := 0;
-  end;
-  if key_Press(K_KP_SUB) then
-  begin
-    dec(mode);
-    if mode < 0 then mode := 9;
-  end;
-  if key_Press(K_F1) then
-    _type := _type xor 1;
-
-//  if key_Press(K_SPACE) then start := true;
-
-  key_ClearState;
-end;
-
-begin
-  timer_Add(@MyTimer, 20);
-  zgl_Reg(SYS_LOAD, @MyInit);
-  zgl_Reg(SYS_DRAW, @MyDraw);
-
-  zgl_Init(8, 8);
-end.
-

00001-test/backup/ZenTest001.lps

@@ -1,448 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<CONFIG>
-  <ProjectSession>
-    <Version Value="11"/>
-    <BuildModes Active="Default"/>
-    <Units Count="43">
-      <Unit0>
-        <Filename Value="ZenTest001.lpr"/>
-        <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
-        <TopLine Value="42"/>
-        <CursorPos X="73" Y="64"/>
-        <FoldState Value=" TLkI02422@"/>
-        <UsageCount Value="68"/>
-        <Loaded Value="True"/>
-      </Unit0>
-      <Unit1>
-        <Filename Value="../../Lib/zengl-src-0.3.14/demos/Lazarus/16 - Physics/demo16.lpr"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="142"/>
-        <CursorPos X="23" Y="12"/>
-        <UsageCount Value="6"/>
-      </Unit1>
-      <Unit2>
-        <Filename Value="../../Lib/zengl-src-0.3.14/headers/zglCustomConfig.cfg"/>
-        <EditorIndex Value="-1"/>
-        <UsageCount Value="6"/>
-        <DefaultSyntaxHighlighter Value="None"/>
-      </Unit2>
-      <Unit3>
-        <Filename Value="../../Lib/zengl-src-0.3.14/demos/Lazarus/02 - Resources/demo02.lpr"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="115"/>
-        <CursorPos X="7" Y="11"/>
-        <UsageCount Value="6"/>
-      </Unit3>
-      <Unit4>
-        <Filename Value="../../Lib/zengl-src-0.3.14/demos/Lazarus/01 - Initialization/demo01.lpr"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="44"/>
-        <CursorPos X="12" Y="52"/>
-        <UsageCount Value="6"/>
-      </Unit4>
-      <Unit5>
-        <Filename Value="../../Lib/zengl-src-0.3.14/demos/Lazarus/05 - Primitives/demo05.lpr"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="58"/>
-        <CursorPos X="29" Y="86"/>
-        <UsageCount Value="6"/>
-      </Unit5>
-      <Unit6>
-        <Filename Value="../../Lib/zengl-src-0.3.14/src/zgl_primitives_2d.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="217"/>
-        <CursorPos X="18" Y="124"/>
-        <UsageCount Value="10"/>
-      </Unit6>
-      <Unit7>
-        <Filename Value="../../Lib/zengl-src-0.3.14/src/zgl_main.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="622"/>
-        <CursorPos X="19" Y="639"/>
-        <UsageCount Value="7"/>
-      </Unit7>
-      <Unit8>
-        <Filename Value="../../Lib/zengl-src-0.3.14/src/zgl_application.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="112"/>
-        <CursorPos X="17" Y="129"/>
-        <UsageCount Value="10"/>
-      </Unit8>
-      <Unit9>
-        <Filename Value="../../Lib/zengl-src-0.3.14/src/zgl_render.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="104"/>
-        <CursorPos X="3" Y="106"/>
-        <UsageCount Value="10"/>
-      </Unit9>
-      <Unit10>
-        <Filename Value="../../Lib/zengl-src-0.3.14/src/zgl_screen.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="701"/>
-        <CursorPos X="11" Y="719"/>
-        <FoldState Value=" T3qU0C111~"/>
-        <UsageCount Value="10"/>
-      </Unit10>
-      <Unit11>
-        <Filename Value="../../Lib/zengl-src-0.3.14/src/zgl_render_2d.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="77"/>
-        <CursorPos X="13" Y="90"/>
-        <UsageCount Value="10"/>
-      </Unit11>
-      <Unit12>
-        <Filename Value="../../Lib/zengl-src-0.3.14/src/zgl_opengl_all.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="444"/>
-        <CursorPos X="17" Y="474"/>
-        <UsageCount Value="10"/>
-      </Unit12>
-      <Unit13>
-        <Filename Value="/usr/share/fpcsrc/3.0.4/packages/opengl/src/gl.pp"/>
-        <UnitName Value="GL"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="1281"/>
-        <CursorPos X="42" Y="1305"/>
-        <UsageCount Value="17"/>
-      </Unit13>
-      <Unit14>
-        <Filename Value="../../Lib/zengl-src-0.3.14/src/zgl_opengl.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="264"/>
-        <UsageCount Value="10"/>
-      </Unit14>
-      <Unit15>
-        <Filename Value="/usr/share/fpcsrc/3.0.4/packages/opengl/src/glu.pp"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="477"/>
-        <CursorPos X="51" Y="413"/>
-        <UsageCount Value="6"/>
-      </Unit15>
-      <Unit16>
-        <Filename Value="/usr/share/fpcsrc/3.0.4/packages/opengl/src/glx.pp"/>
-        <UnitName Value="GLX"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="32"/>
-        <CursorPos X="53" Y="40"/>
-        <UsageCount Value="6"/>
-      </Unit16>
-      <Unit17>
-        <Filename Value="../../Lib/zengl-src-0.3.14/src/zgl_keyboard.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="328"/>
-        <CursorPos Y="357"/>
-        <UsageCount Value="6"/>
-      </Unit17>
-      <Unit18>
-        <Filename Value="../../Lib/zengl-src-0.3.14/src/zgl_resources.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="30"/>
-        <CursorPos X="13" Y="174"/>
-        <UsageCount Value="7"/>
-      </Unit18>
-      <Unit19>
-        <Filename Value="../../Lib/zengl-src-0.3.14/src/zgl_window.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="412"/>
-        <CursorPos X="8" Y="431"/>
-        <UsageCount Value="7"/>
-      </Unit19>
-      <Unit20>
-        <Filename Value="../../Zengl_SRC/src/zgl_main.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="665"/>
-        <CursorPos X="31" Y="682"/>
-        <UsageCount Value="19"/>
-      </Unit20>
-      <Unit21>
-        <Filename Value="../../Zengl_SRC/demos/Lazarus/05 - Primitives/demo05.lpr"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="50"/>
-        <UsageCount Value="8"/>
-      </Unit21>
-      <Unit22>
-        <Filename Value="../../Zengl_SRC/src/zgl_screen.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="516"/>
-        <CursorPos X="51" Y="535"/>
-        <UsageCount Value="8"/>
-      </Unit22>
-      <Unit23>
-        <Filename Value="../../Zengl_SRC/src/zgl_application.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="247"/>
-        <CursorPos Y="271"/>
-        <UsageCount Value="13"/>
-      </Unit23>
-      <Unit24>
-        <Filename Value="../../Zengl_SRC/src/zgl_window.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="9"/>
-        <CursorPos X="43" Y="31"/>
-        <UsageCount Value="13"/>
-      </Unit24>
-      <Unit25>
-        <Filename Value="../../Zengl_SRC/src/zgl_render.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="53"/>
-        <CursorPos X="18" Y="72"/>
-        <UsageCount Value="8"/>
-      </Unit25>
-      <Unit26>
-        <Filename Value="../../Zengl_SRC/src/zgl_opengl.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="39"/>
-        <CursorPos X="92" Y="43"/>
-        <UsageCount Value="8"/>
-      </Unit26>
-      <Unit27>
-        <Filename Value="../../Zengl_SRC/src/zgl_opengl_all.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="353"/>
-        <CursorPos X="3" Y="378"/>
-        <UsageCount Value="17"/>
-      </Unit27>
-      <Unit28>
-        <Filename Value="../../Zengl_SRC/src/zgl_keyboard.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="126"/>
-        <CursorPos X="3" Y="164"/>
-        <UsageCount Value="8"/>
-      </Unit28>
-      <Unit29>
-        <Filename Value="../../Zengl_SRC/demos/Lazarus/08 - Sprite Engine/demo08.lpr"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="28"/>
-        <CursorPos X="69" Y="39"/>
-        <UsageCount Value="20"/>
-      </Unit29>
-      <Unit30>
-        <Filename Value="../../Zengl_SRC/src/zgl_text.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="249"/>
-        <CursorPos X="3" Y="262"/>
-        <UsageCount Value="17"/>
-      </Unit30>
-      <Unit31>
-        <Filename Value="../../Zengl_SRC/src/zgl_font.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="155"/>
-        <CursorPos X="17" Y="167"/>
-        <UsageCount Value="20"/>
-      </Unit31>
-      <Unit32>
-        <Filename Value="../../Zengl_SRC/src/zgl_file.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="60"/>
-        <CursorPos X="11" Y="78"/>
-        <UsageCount Value="16"/>
-      </Unit32>
-      <Unit33>
-        <Filename Value="../../Zengl_SRC/src/zgl_log.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="85"/>
-        <CursorPos X="46" Y="95"/>
-        <UsageCount Value="7"/>
-      </Unit33>
-      <Unit34>
-        <Filename Value="/usr/share/fpcsrc/3.0.4/rtl/unix/bunxovlh.inc"/>
-        <EditorIndex Value="-1"/>
-        <CursorPos X="11" Y="38"/>
-        <UsageCount Value="12"/>
-      </Unit34>
-      <Unit35>
-        <Filename Value="/usr/share/fpcsrc/3.0.4/rtl/unix/bunxovl.inc"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="149"/>
-        <CursorPos X="3" Y="153"/>
-        <UsageCount Value="12"/>
-      </Unit35>
-      <Unit36>
-        <Filename Value="../../Zengl_SRC/src/zgl_memory.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="93"/>
-        <CursorPos Y="125"/>
-        <UsageCount Value="15"/>
-      </Unit36>
-      <Unit37>
-        <Filename Value="../../Lib/dglOpenGL.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="11581"/>
-        <CursorPos X="21" Y="11613"/>
-        <UsageCount Value="10"/>
-      </Unit37>
-      <Unit38>
-        <Filename Value="../../Zengl_SRC/src/zgl_utils.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="175"/>
-        <CursorPos Y="198"/>
-        <UsageCount Value="17"/>
-      </Unit38>
-      <Unit39>
-        <Filename Value="../../Zengl_SRC/src/zgl_opengles_all.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="299"/>
-        <CursorPos X="48" Y="324"/>
-        <UsageCount Value="16"/>
-      </Unit39>
-      <Unit40>
-        <Filename Value="../../Zengl_SRC/src/zgl_primitives_2d.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="186"/>
-        <UsageCount Value="16"/>
-      </Unit40>
-      <Unit41>
-        <Filename Value="/usr/share/fpcsrc/3.0.4/packages/opengles/src/gles20.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="1704"/>
-        <CursorPos X="12" Y="1100"/>
-        <UsageCount Value="9"/>
-      </Unit41>
-      <Unit42>
-        <Filename Value="../../Zengl_SRC/src/zgl_timers.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="185"/>
-        <CursorPos X="26" Y="240"/>
-        <UsageCount Value="13"/>
-      </Unit42>
-    </Units>
-    <JumpHistory Count="30" HistoryIndex="29">
-      <Position1>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="115" TopLine="82"/>
-      </Position1>
-      <Position2>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="121" TopLine="82"/>
-      </Position2>
-      <Position3>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="113" TopLine="82"/>
-      </Position3>
-      <Position4>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="115" TopLine="82"/>
-      </Position4>
-      <Position5>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="121" TopLine="82"/>
-      </Position5>
-      <Position6>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="113" TopLine="82"/>
-      </Position6>
-      <Position7>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="115" TopLine="82"/>
-      </Position7>
-      <Position8>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="121" TopLine="82"/>
-      </Position8>
-      <Position9>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="113" TopLine="82"/>
-      </Position9>
-      <Position10>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="115" TopLine="82"/>
-      </Position10>
-      <Position11>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="121" TopLine="82"/>
-      </Position11>
-      <Position12>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="113" TopLine="82"/>
-      </Position12>
-      <Position13>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="115" TopLine="82"/>
-      </Position13>
-      <Position14>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="121" TopLine="82"/>
-      </Position14>
-      <Position15>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="113" TopLine="82"/>
-      </Position15>
-      <Position16>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="115" TopLine="82"/>
-      </Position16>
-      <Position17>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="121" TopLine="82"/>
-      </Position17>
-      <Position18>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="113" TopLine="82"/>
-      </Position18>
-      <Position19>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="115" TopLine="82"/>
-      </Position19>
-      <Position20>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="121" TopLine="82"/>
-      </Position20>
-      <Position21>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="113" TopLine="82"/>
-      </Position21>
-      <Position22>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="115" TopLine="82"/>
-      </Position22>
-      <Position23>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="121" TopLine="82"/>
-      </Position23>
-      <Position24>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="113" TopLine="82"/>
-      </Position24>
-      <Position25>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="115" TopLine="82"/>
-      </Position25>
-      <Position26>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="121" TopLine="82"/>
-      </Position26>
-      <Position27>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="113" TopLine="82"/>
-      </Position27>
-      <Position28>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="115" TopLine="82"/>
-      </Position28>
-      <Position29>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="121" TopLine="82"/>
-      </Position29>
-      <Position30>
-        <Filename Value="ZenTest001.lpr"/>
-        <Caret Line="117" Column="8" TopLine="82"/>
-      </Position30>
-    </JumpHistory>
-    <RunParams>
-      <FormatVersion Value="2"/>
-      <Modes Count="0" ActiveMode=""/>
-    </RunParams>
-  </ProjectSession>
-  <Debugging>
-    <BreakPoints Count="1">
-      <Item1>
-        <Kind Value="bpkSource"/>
-        <WatchScope Value="wpsLocal"/>
-        <WatchKind Value="wpkWrite"/>
-        <Source Value="ZenTest001.lpr"/>
-        <Line Value="117"/>
-      </Item1>
-    </BreakPoints>
-  </Debugging>
-</CONFIG>

00001-test/jni.pas

@@ -1,535 +0,0 @@
-unit jni;
-{$ifdef fpc}
- {$mode delphi}
- {$packrecords c}
-{$endif}
-
-interface
-
-(*
- * Manifest constants.
- *)
-const
-  JNI_FALSE = 0;
-  JNI_TRUE = 1;
-
-  JNI_VERSION_1_1 = $00010001;
-  JNI_VERSION_1_2 = $00010002;
-  JNI_VERSION_1_4 = $00010004;
-  JNI_VERSION_1_6 = $00010006;
-
-  JNI_OK = 0;           // no error
-  JNI_ERR = - 1;        // generic error
-  JNI_EDETACHED = - 2;  // thread detached from the VM
-  JNI_EVERSION = - 3;   // JNI version error
-
-  JNI_COMMIT = 1;       // copy content, do not free buffer
-  JNI_ABORT = 2;        // free buffer w/o copying back
-
-(*
- * Type definitions.
- *)
-type
-  va_list = pointer;
-
-  jboolean = byte;        // unsigned 8 bits
-  jbyte = shortint;       // signed 8 bits
-  jchar = word;           // unsigned 16 bits
-  jshort = smallint;      // signed 16 bits
-  jint = longint;         // signed 32 bits
-  jlong = int64;          // signed 64 bits
-  jfloat = single;        // 32-bit IEEE 754
-  jdouble = double;       // 64-bit IEEE 754
-
-  jsize = jint;            // "cardinal indices and sizes"
-
-  Pjboolean = ^jboolean;
-  Pjbyte = ^jbyte;
-  Pjchar = ^jchar;
-  Pjshort = ^jshort;
-  Pjint = ^jint;
-  Pjlong = ^jlong;
-  Pjfloat = ^jfloat;
-  Pjdouble = ^jdouble;
-
-  Pjsize = ^jsize;
-
-     // Reference type
-  jobject = pointer;
-  jclass = jobject;
-  jstring = jobject;
-  jarray = jobject;
-  jobjectArray = jarray;
-  jbooleanArray = jarray;
-  jbyteArray = jarray;
-  jcharArray = jarray;
-  jshortArray = jarray;
-  jintArray = jarray;
-  jlongArray = jarray;
-  jfloatArray = jarray;
-  jdoubleArray = jarray;
-  jthrowable = jobject;
-  jweak = jobject;
-  jref = jobject;
-
-  PPointer = ^pointer;
-  Pjobject = ^jobject;
-  Pjclass = ^jclass;
-  Pjstring = ^jstring;
-  Pjarray = ^jarray;
-  PjobjectArray = ^jobjectArray;
-  PjbooleanArray = ^jbooleanArray;
-  PjbyteArray = ^jbyteArray;
-  PjcharArray = ^jcharArray;
-  PjshortArray = ^jshortArray;
-  PjintArray = ^jintArray;
-  PjlongArray = ^jlongArray;
-  PjfloatArray = ^jfloatArray;
-  PjdoubleArray = ^jdoubleArray;
-  Pjthrowable = ^jthrowable;
-  Pjweak = ^jweak;
-  Pjref = ^jref;
-
-  _jfieldID = record // opaque structure
-  end;
-  jfieldID = ^_jfieldID;// field IDs
-  PjfieldID = ^jfieldID;
-
-  _jmethodID = record // opaque structure
-  end;
-  jmethodID = ^_jmethodID;// method IDs
-  PjmethodID = ^jmethodID;
-
-  PJNIInvokeInterface = ^JNIInvokeInterface;
-
-  Pjvalue = ^jvalue;
-  jvalue = {$ifdef packedrecords} packed{$endif} record
-    case integer of
-       0: (z: jboolean);
-       1: (b: jbyte);
-       2: (c: jchar);
-       3: (s: jshort);
-       4: (i: jint);
-       5: (j: jlong);
-       6: (f: jfloat);
-       7: (d: jdouble);
-       8: (l: jobject);
-    end;
-
-  jobjectRefType = (JNIInvalidRefType = 0, JNILocalRefType = 1, JNIGlobalRefType = 2, JNIWeakGlobalRefType = 3);
-
-  PJNINativeMethod = ^JNINativeMethod;
-  JNINativeMethod = {$ifdef packedrecords} packed{$endif} record
-    name: pchar;
-    signature: pchar;
-    fnPtr: pointer;
-  end;
-
-  PJNINativeInterface = ^JNINativeInterface;
-
-  _JNIEnv = {$ifdef packedrecords} packed{$endif} record
-    functions: PJNINativeInterface;
-  end;
-
-  _JavaVM = {$ifdef packedrecords} packed{$endif} record
-    functions:PJNIInvokeInterface;
-  end;
-
-  C_JNIEnv = ^JNINativeInterface;
-  JNIEnv = ^JNINativeInterface;
-  JavaVM = ^JNIInvokeInterface;
-
-  PPJNIEnv = ^PJNIEnv;
-  PJNIEnv = ^JNIEnv;
-
-  PPJavaVM = ^PJavaVM;
-  PJavaVM = ^JavaVM;
-
-  JNINativeInterface = {$ifdef packedrecords} packed{$endif} record
-  reserved0: pointer;
-  reserved1: pointer;
-  reserved2: pointer;
-  reserved3: pointer;
-
-  GetVersion: function(Env: PJNIEnv): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  DefineClass: function(Env: PJNIEnv; const Name: pchar; Loader: JObject; const Buf: PJByte; Len: JSize): JClass; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  FindClass: function(Env: PJNIEnv; const Name: pchar): JClass; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  // Reflection Support
-  FromReflectedMethod: function(Env: PJNIEnv; Method: JObject): JMethodID; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  FromReflectedField: function(Env: PJNIEnv; Field: JObject): JFieldID; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  ToReflectedMethod: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID; IsStatic: JBoolean): JObject; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  GetSuperclass: function(Env: PJNIEnv; Sub: JClass): JClass; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  IsAssignableFrom: function(Env: PJNIEnv; Sub: JClass; Sup: JClass): JBoolean; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  // Reflection Support
-  ToReflectedField: function(Env: PJNIEnv; AClass: JClass; FieldID: JFieldID; IsStatic: JBoolean): JObject; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  Throw: function(Env: PJNIEnv; Obj: JThrowable): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  ThrowNew: function(Env: PJNIEnv; AClass: JClass; const Msg: pchar): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  ExceptionOccurred: function(Env: PJNIEnv): JThrowable; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  ExceptionDescribe: procedure(Env: PJNIEnv); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  ExceptionClear: procedure(Env: PJNIEnv); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  FatalError: procedure(Env: PJNIEnv; const Msg: pchar); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  // Local Reference Management
-  PushLocalFrame: function(Env: PJNIEnv; Capacity: JInt): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  PopLocalFrame: function(Env: PJNIEnv; Result: JObject): JObject; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  NewGlobalRef: function(Env: PJNIEnv; LObj: JObject): JObject; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  DeleteGlobalRef: procedure(Env: PJNIEnv; GRef: JObject); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  DeleteLocalRef: procedure(Env: PJNIEnv; Obj: JObject); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  IsSameObject: function(Env: PJNIEnv; Obj1: JObject; Obj2: JObject): JBoolean; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  // Local Reference Management
-  NewLocalRef: function(Env: PJNIEnv; Ref: JObject): JObject; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  EnsureLocalCapacity: function(Env: PJNIEnv; Capacity: JInt): JObject; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  AllocObject: function(Env: PJNIEnv; AClass: JClass): JObject; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  NewObject: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID): JObject; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  NewObjectV: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID; Args: va_list): JObject; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  NewObjectA: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID; Args: PJValue): JObject; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  GetObjectClass: function(Env: PJNIEnv; Obj: JObject): JClass; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  IsInstanceOf: function(Env: PJNIEnv; Obj: JObject; AClass: JClass): JBoolean; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  GetMethodID: function(Env: PJNIEnv; AClass: JClass; const Name: pchar; const Sig: pchar): JMethodID; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallObjectMethod: function(Env: PJNIEnv; Obj: JObject; MethodID: JMethodID): JObject; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallObjectMethodV: function(Env: PJNIEnv; Obj: JObject; MethodID: JMethodID; Args: va_list): JObject; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallObjectMethodA: function(Env: PJNIEnv; Obj: JObject; MethodID: JMethodID; Args: PJValue): JObject; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallBooleanMethod: function(Env: PJNIEnv; Obj: JObject;MethodID:JMethodID): JBoolean; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallBooleanMethodV: function(Env: PJNIEnv; Obj: JObject;MethodID:JMethodID; Args: va_list): JBoolean; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallBooleanMethodA: function(Env: PJNIEnv; Obj: JObject;MethodID:JMethodID; Args: PJValue): JBoolean; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallByteMethod: function(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID): JByte; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallByteMethodV: function(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID; Args: va_list): JByte; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallByteMethodA: function(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID; Args: PJValue): JByte; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallCharMethod: function(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID): JChar; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallCharMethodV: function(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID; Args: va_list): JChar; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallCharMethodA: function(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID; Args: PJValue): JChar; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallShortMethod: function(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID): JShort; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallShortMethodV: function(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID; Args: va_list): JShort; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallShortMethodA: function(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID; Args: PJValue): JShort; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallIntMethod: function(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallIntMethodV: function(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID; Args: va_list): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallIntMethodA: function(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID; Args: PJValue): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallLongMethod: function(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID): JLong; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallLongMethodV: function(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID; Args: va_list): JLong; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallLongMethodA: function(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID; Args: PJValue): JLong; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallFloatMethod: function(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID): JFloat; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallFloatMethodV: function(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID; Args: va_list): JFloat; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallFloatMethodA: function(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID; Args: PJValue): JFloat; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallDoubleMethod: function(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID): JDouble; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallDoubleMethodV: function(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID; Args: va_list): JDouble; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallDoubleMethodA: function(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID; Args: PJValue): JDouble; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallVoidMethod: procedure(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallVoidMethodV: procedure(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID; Args: va_list); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallVoidMethodA: procedure(Env: PJNIEnv;Obj: JObject;MethodID:JMethodID; Args: PJValue); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallNonvirtualObjectMethod: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID): JObject; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallNonvirtualObjectMethodV: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID; Args: va_list): JObject; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallNonvirtualObjectMethodA: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID; Args: PJValue): JObject; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallNonvirtualBooleanMethod: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID): JBoolean; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallNonvirtualBooleanMethodV: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID; Args: va_list): JBoolean; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallNonvirtualBooleanMethodA: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID; Args: PJValue): JBoolean; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallNonvirtualByteMethod: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID): JByte; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallNonvirtualByteMethodV: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID; Args: va_list): JByte; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallNonvirtualByteMethodA: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID; Args: PJValue): JByte; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallNonvirtualCharMethod: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID): JChar; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallNonvirtualCharMethodV: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID; Args: va_list): JChar; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallNonvirtualCharMethodA: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID; Args: PJValue): JChar; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallNonvirtualShortMethod: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID): JShort; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallNonvirtualShortMethodV: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID; Args: va_list): JShort; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallNonvirtualShortMethodA: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID; Args: PJValue): JShort; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallNonvirtualIntMethod: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallNonvirtualIntMethodV: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID; Args: va_list): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallNonvirtualIntMethodA: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID; Args: PJValue): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallNonvirtualLongMethod: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID): JLong; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallNonvirtualLongMethodV: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID; Args: va_list): JLong; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallNonvirtualLongMethodA: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID; Args: PJValue): JLong; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallNonvirtualFloatMethod: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID): JFloat; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallNonvirtualFloatMethodV: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID; Args: va_list): JFloat; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallNonvirtualFloatMethodA: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID; Args: PJValue): JFloat; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallNonvirtualDoubleMethod: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID): JDouble; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallNonvirtualDoubleMethodV: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID; Args: va_list): JDouble; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallNonvirtualDoubleMethodA: function(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID; Args: PJValue): JDouble; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallNonvirtualVoidMethod: procedure(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallNonvirtualVoidMethodV: procedure(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID; Args: va_list); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallNonvirtualVoidMethodA: procedure(Env: PJNIEnv;Obj: JObject; AClass: JClass; MethodID: JMethodID; Args: PJValue); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  GetFieldID: function(Env: PJNIEnv; AClass: JClass; const Name: pchar; const Sig: pchar):JFieldID; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  GetObjectField: function(Env: PJNIEnv;Obj: JObject; FieldID: JFieldID): JObject; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetBooleanField: function(Env: PJNIEnv;Obj: JObject; FieldID: JFieldID): JBoolean; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetByteField: function(Env: PJNIEnv;Obj: JObject; FieldID: JFieldID): JByte; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetCharField: function(Env: PJNIEnv;Obj: JObject; FieldID: JFieldID): JChar; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetShortField: function(Env: PJNIEnv;Obj: JObject; FieldID: JFieldID): JShort; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetIntField: function(Env: PJNIEnv;Obj: JObject; FieldID: JFieldID): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetLongField: function(Env: PJNIEnv;Obj: JObject; FieldID: JFieldID): JLong; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetFloatField: function(Env: PJNIEnv;Obj: JObject; FieldID: JFieldID): JFloat; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetDoubleField: function(Env: PJNIEnv;Obj: JObject; FieldID: JFieldID): JDouble; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  SetObjectField: procedure(Env: PJNIEnv;Obj: JObject; FieldID: JFieldID; Val: JObject); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetBooleanField: procedure(Env: PJNIEnv;Obj: JObject; FieldID: JFieldID; Val: JBoolean); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetByteField: procedure(Env: PJNIEnv;Obj: JObject; FieldID: JFieldID; Val: JByte); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetCharField: procedure(Env: PJNIEnv;Obj: JObject; FieldID: JFieldID; Val: JChar); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetShortField: procedure(Env: PJNIEnv;Obj: JObject; FieldID: JFieldID; Val: JShort); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetIntField: procedure(Env: PJNIEnv;Obj: JObject; FieldID: JFieldID; Val: JInt); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetLongField: procedure(Env: PJNIEnv;Obj: JObject; FieldID: JFieldID; Val: JLong); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetFloatField: procedure(Env: PJNIEnv;Obj: JObject; FieldID: JFieldID; Val: JFloat); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetDoubleField: procedure(Env: PJNIEnv;Obj: JObject; FieldID: JFieldID; Val: JDouble); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  GetStaticMethodID: function(Env: PJNIEnv; AClass: JClass; const Name: pchar; const Sig: pchar):JMethodID; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallStaticObjectMethod: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID): JObject; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallStaticObjectMethodV: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID; Args: va_list): JObject; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallStaticObjectMethodA: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID; Args: PJValue): JObject; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallStaticBooleanMethod: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID): JBoolean; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallStaticBooleanMethodV: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID; Args: va_list): JBoolean; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallStaticBooleanMethodA: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID; Args: PJValue): JBoolean; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallStaticByteMethod: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID): JByte; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallStaticByteMethodV: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID; Args: va_list): JByte; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallStaticByteMethodA: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID; Args: PJValue): JByte; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallStaticCharMethod: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID): JChar; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallStaticCharMethodV: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID; Args: va_list): JChar; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallStaticCharMethodA: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID; Args: PJValue): JChar; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallStaticShortMethod: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID): JShort; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallStaticShortMethodV: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID; Args: va_list): JShort; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallStaticShortMethodA: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID; Args: PJValue): JShort; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallStaticIntMethod: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallStaticIntMethodV: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID; Args: va_list): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallStaticIntMethodA: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID; Args: PJValue): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallStaticLongMethod: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID): JLong; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallStaticLongMethodV: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID; Args: va_list): JLong; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallStaticLongMethodA: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID; Args: PJValue): JLong; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallStaticFloatMethod: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID): JFloat; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallStaticFloatMethodV: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID; Args: va_list): JFloat; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallStaticFloatMethodA: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID; Args: PJValue): JFloat; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallStaticDoubleMethod: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID): JDouble; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallStaticDoubleMethodV: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID; Args: va_list): JDouble; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallStaticDoubleMethodA: function(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID; Args: PJValue): JDouble; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  CallStaticVoidMethod: procedure(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallStaticVoidMethodV: procedure(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID; Args: va_list); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  CallStaticVoidMethodA: procedure(Env: PJNIEnv; AClass: JClass; MethodID: JMethodID; Args: PJValue); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  GetStaticFieldID: function(Env: PJNIEnv; AClass: JClass; const Name: pchar; const Sig: pchar):JFieldID; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetStaticObjectField: function(Env: PJNIEnv; AClass: JClass; FieldID: JFieldID): JObject; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetStaticBooleanField: function(Env: PJNIEnv; AClass: JClass; FieldID: JFieldID): JBoolean; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetStaticByteField: function(Env: PJNIEnv; AClass: JClass; FieldID: JFieldID): JByte; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetStaticCharField: function(Env: PJNIEnv; AClass: JClass; FieldID: JFieldID): JChar; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetStaticShortField: function(Env: PJNIEnv; AClass: JClass; FieldID: JFieldID): JShort; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetStaticIntField: function(Env: PJNIEnv; AClass: JClass; FieldID: JFieldID): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetStaticLongField: function(Env: PJNIEnv; AClass: JClass; FieldID: JFieldID): JLong; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetStaticFloatField: function(Env: PJNIEnv; AClass: JClass; FieldID: JFieldID): JFloat; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetStaticDoubleField: function(Env: PJNIEnv; AClass: JClass; FieldID: JFieldID): JDouble; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  SetStaticObjectField: procedure(Env: PJNIEnv; AClass: JClass; FieldID: JFieldID; Val: JObject); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetStaticBooleanField: procedure(Env: PJNIEnv; AClass: JClass; FieldID: JFieldID; Val: JBoolean); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetStaticByteField: procedure(Env: PJNIEnv; AClass: JClass; FieldID: JFieldID; Val: JByte); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetStaticCharField: procedure(Env: PJNIEnv; AClass: JClass; FieldID: JFieldID; Val: JChar); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetStaticShortField: procedure(Env: PJNIEnv; AClass: JClass; FieldID: JFieldID; Val: JShort); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetStaticIntField: procedure(Env: PJNIEnv; AClass: JClass; FieldID: JFieldID; Val: JInt); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetStaticLongField: procedure(Env: PJNIEnv; AClass: JClass; FieldID: JFieldID; Val: JLong); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetStaticFloatField: procedure(Env: PJNIEnv; AClass: JClass; FieldID: JFieldID; Val: JFloat); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetStaticDoubleField: procedure(Env: PJNIEnv; AClass: JClass; FieldID: JFieldID; Val: JDouble); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  NewString: function(Env: PJNIEnv; const Unicode: PJChar; Len: JSize): JString; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetStringLength: function(Env: PJNIEnv; Str: JString): JSize; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetStringChars: function(Env: PJNIEnv; Str: JString; var IsCopy: JBoolean): PJChar; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  ReleaseStringChars: procedure(Env: PJNIEnv; Str: JString; const Chars: PJChar); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  NewStringUTF: function(Env: PJNIEnv; const UTF: pchar): JString; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetStringUTFLength: function(Env: PJNIEnv; Str: JString): JSize; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetStringUTFChars: function(Env: PJNIEnv; Str: JString; IsCopy: PJBoolean): pchar; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  ReleaseStringUTFChars: procedure(Env: PJNIEnv; Str: JString; const Chars: pchar); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  GetArrayLength: function(Env: PJNIEnv; AArray:JArray): JSize; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  NewObjectArray: function(Env: PJNIEnv; Len: JSize; AClass: JClass; Init: JObject): JObjectArray; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetObjectArrayElement: function(Env: PJNIEnv; AArray: JObjectArray; Index: JSize): JObject; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetObjectArrayElement: procedure(Env: PJNIEnv; AArray: JObjectArray; Index: JSize; Val: JObject); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  NewBooleanArray: function(Env: PJNIEnv; Len: JSize): JBooleanArray; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  NewByteArray: function(Env: PJNIEnv; Len: JSize): JByteArray; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  NewCharArray: function(Env: PJNIEnv; Len: JSize): JCharArray; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  NewShortArray: function(Env: PJNIEnv; Len: JSize): JShortArray; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  NewIntArray: function(Env: PJNIEnv; Len: JSize): JIntArray; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  NewLongArray: function(Env: PJNIEnv; Len: JSize): JLongArray; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  NewFloatArray: function(Env: PJNIEnv; Len: JSize): JFloatArray; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  NewDoubleArray: function(Env: PJNIEnv; Len: JSize): JDoubleArray; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  GetBooleanArrayElements: function(Env: PJNIEnv; AArray: JBooleanArray; var IsCopy: JBoolean): PJBoolean; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetByteArrayElements: function(Env: PJNIEnv; AArray: JByteArray; var IsCopy: JBoolean): PJByte; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetCharArrayElements: function(Env: PJNIEnv; AArray: JCharArray; var IsCopy: JBoolean): PJChar; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetShortArrayElements: function(Env: PJNIEnv; AArray: JShortArray; var IsCopy: JBoolean): PJShort; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetIntArrayElements: function(Env: PJNIEnv; AArray: JIntArray; var IsCopy: JBoolean): PJInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetLongArrayElements: function(Env: PJNIEnv; AArray: JLongArray; var IsCopy: JBoolean): PJLong; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetFloatArrayElements: function(Env: PJNIEnv; AArray: JFloatArray; var IsCopy: JBoolean): PJFloat; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetDoubleArrayElements: function(Env: PJNIEnv; AArray: JDoubleArray; var IsCopy: JBoolean): PJDouble; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  ReleaseBooleanArrayElements: procedure(Env: PJNIEnv; AArray: JBooleanArray;Elems: PJBoolean; Mode: JInt); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  ReleaseByteArrayElements: procedure(Env: PJNIEnv; AArray: JByteArray;Elems: PJByte; Mode: JInt); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  ReleaseCharArrayElements: procedure(Env: PJNIEnv; AArray: JCharArray;Elems: PJChar; Mode: JInt); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  ReleaseShortArrayElements: procedure(Env: PJNIEnv; AArray: JShortArray;Elems: PJShort; Mode: JInt); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  ReleaseIntArrayElements: procedure(Env: PJNIEnv; AArray: JIntArray;Elems: PJInt; Mode: JInt); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  ReleaseLongArrayElements: procedure(Env: PJNIEnv; AArray: JLongArray;Elems: PJLong; Mode: JInt); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  ReleaseFloatArrayElements: procedure(Env: PJNIEnv; AArray: JFloatArray;Elems: PJFloat; Mode: JInt); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  ReleaseDoubleArrayElements: procedure(Env: PJNIEnv; AArray: JDoubleArray;Elems: PJDouble; Mode: JInt); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  GetBooleanArrayRegion: procedure(Env: PJNIEnv; AArray: JBooleanArray; Start: JSize; Len: JSize; Buf: PJBoolean); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetByteArrayRegion: procedure(Env: PJNIEnv; AArray: JByteArray; Start: JSize; Len: JSize; Buf: PJByte); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetCharArrayRegion: procedure(Env: PJNIEnv; AArray: JCharArray; Start: JSize; Len: JSize; Buf: PJChar); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetShortArrayRegion: procedure(Env: PJNIEnv; AArray: JShortArray; Start: JSize; Len: JSize; Buf: PJShort); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetIntArrayRegion: procedure(Env: PJNIEnv; AArray: JIntArray; Start: JSize; Len: JSize; Buf: PJInt); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetLongArrayRegion: procedure(Env: PJNIEnv; AArray: JLongArray; Start: JSize; Len: JSize; Buf: PJLong); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetFloatArrayRegion: procedure(Env: PJNIEnv; AArray: JFloatArray; Start: JSize; Len: JSize; Buf: PJFloat); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetDoubleArrayRegion: procedure(Env: PJNIEnv; AArray: JDoubleArray; Start: JSize; Len: JSize; Buf: PJDouble); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  SetBooleanArrayRegion: procedure(Env: PJNIEnv; AArray: JBooleanArray; Start: JSize; Len: JSize; Buf: PJBoolean); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetByteArrayRegion: procedure(Env: PJNIEnv; AArray: JByteArray; Start: JSize; Len: JSize; Buf: PJByte); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetCharArrayRegion: procedure(Env: PJNIEnv; AArray: JCharArray; Start: JSize; Len: JSize; Buf: PJChar); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetShortArrayRegion: procedure(Env: PJNIEnv; AArray: JShortArray; Start: JSize; Len: JSize; Buf: PJShort); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetIntArrayRegion: procedure(Env: PJNIEnv; AArray: JIntArray; Start: JSize; Len: JSize; Buf: PJInt); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetLongArrayRegion: procedure(Env: PJNIEnv; AArray: JLongArray; Start: JSize; Len: JSize; Buf: PJLong); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetFloatArrayRegion: procedure(Env: PJNIEnv; AArray: JFloatArray; Start: JSize; Len: JSize; Buf: PJFloat); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  SetDoubleArrayRegion: procedure(Env: PJNIEnv; AArray: JDoubleArray; Start: JSize; Len: JSize; Buf: PJDouble); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  RegisterNatives: function(Env: PJNIEnv; AClass: JClass; const Methods: PJNINativeMethod; NMethods: JInt): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  UnregisterNatives: function(Env: PJNIEnv; AClass: JClass): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  MonitorEnter: function(Env: PJNIEnv;Obj: JObject): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  MonitorExit: function(Env: PJNIEnv;Obj: JObject): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  GetJavaVM: function(Env: PJNIEnv; var VM: JavaVM): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  // String Operations
-  GetStringRegion: procedure(Env: PJNIEnv; Str: JString; Start: JSize; Len: JSize; Buf: PJChar); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetStringUTFRegion: procedure(Env: PJNIEnv; Str: JString; Start: JSize; Len: JSize; Buf: pchar); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  // Array Operations
-  GetPrimitiveArrayCritical: function(Env: PJNIEnv; AArray: JArray; var IsCopy: JBoolean): pointer; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  ReleasePrimitiveArrayCritical: procedure(Env: PJNIEnv; AArray: JArray; CArray: pointer; Mode: JInt); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  // String Operations
-  GetStringCritical: function(Env: PJNIEnv; Str: JString; var IsCopy: JBoolean): PJChar; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  ReleaseStringCritical: procedure(Env: PJNIEnv; Str: JString; CString: PJChar); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  // Weak Global References
-  NewWeakGlobalRef: function(Env: PJNIEnv; Obj: JObject): JWeak; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  DeleteWeakGlobalRef: procedure(Env: PJNIEnv; Ref: JWeak); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  // Exceptions
-  ExceptionCheck: function(Env: PJNIEnv): JBoolean; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  // J2SDK1_4
-  NewDirectByteBuffer: function(Env: PJNIEnv; Address: pointer; Capacity: JLong): JObject; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetDirectBufferAddress: function(Env: PJNIEnv; Buf: JObject): pointer; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetDirectBufferCapacity: function(Env: PJNIEnv; Buf: JObject): JLong; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-
-  // added in JNI 1.6
-  GetObjectRefType: function(Env: PJNIEnv; AObject: JObject): JObjectRefType; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-     end;
-
-  JNIInvokeInterface = {$ifdef packedrecords} packed{$endif} record
-  reserved0: pointer;
-  reserved1: pointer;
-  reserved2: pointer;
-
-  DestroyJavaVM: function(PVM: PJavaVM): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  AttachCurrentThread: function(PVM: PJavaVM; PEnv: PJNIEnv; Args: pointer): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  DetachCurrentThread: function(PVM: PJavaVM): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  GetEnv: function(PVM: PJavaVM; PEnv: Ppointer; Version: JInt): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-  AttachCurrentThreadAsDaemon: function(PVM: PJavaVM; PEnv: PJNIEnv; Args: pointer): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-     end;
-
-  JavaVMAttachArgs = {$ifdef packedrecords} packed{$endif} record
-  version: JInt;  // must be >= JNI_VERSION_1_2
-  name: pchar;    // NULL or name of thread as modified UTF-8 str
-  group: JObject; // global ref of a ThreadGroup object, or NULL
-     end;
-
-(**
- * JNI 1.2+ initialization.  (As of 1.6, the pre-1.2 structures are no
- * longer supported.)
- *)
-
-  PJavaVMOption = ^JavaVMOption;
-  JavaVMOption = {$ifdef packedrecords} packed{$endif} record
-    optionString: pchar;
-    extraInfo: pointer;
-  end;
-
-  JavaVMInitArgs = {$ifdef packedrecords} packed{$endif} record
-    version: JInt; // use JNI_VERSION_1_2 or later
-    nOptions: JInt;
-    options: PJavaVMOption;
-    ignoreUnrecognized: PJBoolean;
-  end;
-
-(*
- * VM initialization functions.
- *
- * Note these are the only symbols exported for JNI by the VM.
- *)
-{$ifdef jniexternals}
-function JNI_GetDefaultJavaVMInitArgs(p: pointer): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}external 'jni' name 'JNI_GetDefaultJavaVMInitArgs';
-function JNI_CreateJavaVM(vm:PPJavaVM; AEnv: PJNIEnv; p: pointer): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}external 'jni' name 'JNI_CreateJavaVM';
-function JNI_GetCreatedJavaVMs(vm: PPJavaVM; ASize: JSize; p: Pjsize): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}external 'jni' name 'JNI_GetCreatedJavaVMs';
-{$endif}
-
-(*
- * Prototypes for functions exported by loadable shared libs.  These are
- * called by JNI, not provided by JNI.
- *)
-
-const
-  curVM: PJavaVM = nil;
-  curEnv: PJNIEnv = nil;
-
-(*
-function JNI_OnLoad(vm: PJavaVM;reserved: pointer): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-procedure JNI_OnUnload(vm: PJavaVM;reserved: pointer); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-*)
-implementation
-
-function JNI_OnLoad(vm: PJavaVM; reserved: pointer): JInt; {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-begin
-  curVM := vm;
-  result := JNI_VERSION_1_6;
-end;
-
-procedure JNI_OnUnload(vm: PJavaVM; reserved: pointer); {$ifdef mswindows} stdcall; {$else} cdecl; {$endif}
-begin
-end;
-
-end.
-
-

00001-test/lib/arm-android/test.compiled

@@ -1,5 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<CONFIG>
-  <Compiler Value="/usr/local/codetyphon/fpc/fpc32/bin/i386-linux/ppcrossarm" Date="1587012487"/>
-  <Params Value=" -Tandroid -Parm -MObjFPC -Scghi -O1 -l -vewnhibq -Fi/home/mirrel/Programming/Lazarus/projects/00001-test/lib/arm-android -Fl/usr/local/codetyphon/binLibraries/android-4.0-api14-arm -Fu/home/mirrel/Programming/Lazarus/projects/00001-test/ -FU/home/mirrel/Programming/Lazarus/projects/00001-test/lib/arm-android/ -FE/home/mirrel/Programming/Lazarus/projects/00001-test/ -o/home/mirrel/Programming/Lazarus/projects/00001-test/libtest.so test.ppr"/>
-</CONFIG>

00001-test/lib/arm-linux/ZenTest001.compiled

@@ -1,6 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<CONFIG>
-  <Compiler Value="/usr/local/codetyphon/fpc/fpc64/bin/x86_64-linux/fpc" Date="1587014402"/>
-  <Params Value=" -Parm -MObjFPC -Scghi -CX -Os1 -g -gl -Xg -Xs -XX -l -vewnhibq -Fi/home/mirrel/Programming/Lazarus/projects/00001-test/lib/arm-linux -Fi/home/mirrel/Programming/Lazarus/Zengl_SRC/headers -Fu/home/mirrel/Programming/Lazarus/Zengl_SRC/src -Fu/home/mirrel/Programming/Lazarus/Zengl_SRC/lib/zlib/x86_64-linux -Fu/home/mirrel/Programming/Lazarus/Zengl_SRC/lib/zip/x86_64-linux -Fu/home/mirrel/Programming/Lazarus/Zengl_SRC/lib/theora/x86_64-linux -Fu/home/mirrel/Programming/Lazarus/Zengl_SRC/lib/ogg/x86_64-linux -Fu/home/mirrel/Programming/Lazarus/Zengl_SRC/lib/jpeg/x86_64-linux -Fu/home/mirrel/Programming/Lazarus/Lib -Fu/home/mirrel/Programming/Lazarus/projects/00001-test/ -FU/home/mirrel/Programming/Lazarus/projects/00001-test/lib/arm-linux/ -FE/home/mirrel/Programming/Lazarus/projects/00001-test/ -o/home/mirrel/Programming/Lazarus/projects/00001-test/ZenTest001 ZenTest001.lpr"/>
-  <Complete Value="False"/>
-</CONFIG>

00001-test/lib/arm-linux/test.compiled

@@ -1,6 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<CONFIG>
-  <Compiler Value="/usr/local/codetyphon/fpc/fpc32/bin/i386-linux/ppcrossarm" Date="1587012487"/>
-  <Params Value=" -Tlinux -Parm -MObjFPC -Scghi -O1 -l -vewnhibq -Fi/home/mirrel/Programming/Lazarus/projects/00001-test/lib/arm-linux -Fl/usr/local/codetyphon/binLibraries/android-4.0-api14-arm -Fu/home/mirrel/Programming/Lazarus/projects/00001-test/ -FU/home/mirrel/Programming/Lazarus/projects/00001-test/lib/arm-linux/ -FE/home/mirrel/Programming/Lazarus/projects/00001-test/ -o/home/mirrel/Programming/Lazarus/projects/00001-test/libtest.so test.ppr"/>
-  <Complete Value="False"/>
-</CONFIG>

00001-test/lib/x86_64-linux/ZenTest001.compiled

@@ -1,5 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<CONFIG>
-  <Compiler Value="/usr/bin/fpc" Date="1548372422"/>
-  <Params Value=" -MObjFPC -Scghi -CX -Cg -Os1 -g -gl -Xg -Xs -XX -l -vewnhibq -Fi/home/mirrel/Programming/Lazarus/projects/00001-test/lib/x86_64-linux -Fi/home/mirrel/Programming/Lazarus/Zengl_SRC/headers -Fu/home/mirrel/Programming/Lazarus/Zengl_SRC/src -Fu/home/mirrel/Programming/Lazarus/Zengl_SRC/lib/zlib/x86_64-linux -Fu/home/mirrel/Programming/Lazarus/Zengl_SRC/lib/zip/x86_64-linux -Fu/home/mirrel/Programming/Lazarus/Zengl_SRC/lib/theora/x86_64-linux -Fu/home/mirrel/Programming/Lazarus/Zengl_SRC/lib/ogg/x86_64-linux -Fu/home/mirrel/Programming/Lazarus/Zengl_SRC/lib/jpeg/x86_64-linux -Fu/home/mirrel/Programming/Lazarus/Lib -Fu/home/mirrel/Programming/Lazarus/projects/00001-test/ -FU/home/mirrel/Programming/Lazarus/projects/00001-test/lib/x86_64-linux/ -FE/home/mirrel/Programming/Lazarus/projects/00001-test/ -o/home/mirrel/Programming/Lazarus/projects/00001-test/ZenTest001 ZenTest001.lpr"/>
-</CONFIG>

00001-test/log.txt

@@ -1,25 +0,0 @@
-========================================
-=== ZenGL - test 0.3.14 (2020.02.29) ===
-========================================
-[00000001ms] Begin
-[00000390ms] XOpenIM - ok
-[00000391ms] XCreateIC - ok
-[00000391ms] Current mode: 1280 x 1024
-[00000391ms] GLX Extension - ok
-[00000391ms] glXChooseVisual: zDepth = 24; stencil = 8; fsaa = 8
-[00001121ms] GL_VERSION: 3.1 Mesa 18.3.6
-[00001121ms] GL_RENDERER: AMD TURKS (DRM 2.50.0 / 4.19.0-6-amd64, LLVM 7.0.1)
-[00001121ms] GL_MAX_TEXTURE_SIZE: 16384
-[00001121ms] GL_EXT_TEXTURE_COMPRESSION_S3TC: TRUE
-[00001121ms] GL_SGIS_GENERATE_MIPMAP: TRUE
-[00001121ms] GL_MAX_TEXTURE_UNITS_ARB: 8
-[00001121ms] GL_EXT_TEXTURE_FILTER_ANISOTROPIC: TRUE
-[00001121ms] GL_MAX_TEXTURE_MAX_ANISOTROPY_EXT: 16
-[00001121ms] GL_EXT_BLEND_FUNC_SEPARATE: TRUE
-[00001121ms] GL_MAX_RENDERBUFFER_SIZE: 16384
-[00001121ms] GL_EXT_FRAMEBUFFER_OBJECT: TRUE
-[00001122ms] GLX_PBUFFER: TRUE
-[00001122ms] Support WaitVSync: TRUE
-[00001122ms] Ogg: Initialized
-[00001178ms] Theora: Initialized
-[00001215ms] Texture loaded: "data/font-page0.png"