OberonCore

GL  type    CP type synonym   actual CP type
------------------------------------------------------------------------
boolean   Boolean   SHORTCHAR
byte   Byte   BYTE
ubyte   Ubyte   SHORTCHAR
...

(* Включаю массив вершин *)
GL.EnableClientState(GL.GL_VERTEX_ARRAY);
      
(* Указываю заполненный массив *)
GL.VertexPointer(2, GL.GL_INT, 0, vertices[0]);

(* Вызываю вершину 1 *)
GL.Begin(GL.GL_POINTS);
    GL.ArrayElement(1);
GL.End;

MODULE  OglOpenGL32 ["OPENGL32.dll"];
...
TYPE
...
   Address* = INTEGER;
...
PROCEDURE  VertexPointer* ["glVertexPointer"] (size: Int; type: Enum; stride: Sizei;  pointer: Address);
...

MODULE Demo1;

IMPORT SYSTEM, WinApi, WinGL;

VAR
   instance: WinApi.HINSTANCE;
   pfd: WinApi.PIXELFORMATDESCRIPTOR;
   DC: WinApi.HDC;
   
   result: INTEGER;
   bres: WinApi.BOOL;
BEGIN
   instance := WinApi.GetModuleHandle(NIL);
   DC := WinApi.GetDC(WinApi.CreateWindowEx(BITS(0),
                                                   "EDIT",
                                                   NIL,
                                                  WinApi.WS_POPUP+WinApi.WS_VISIBLE,
   0, 0, 640, 480, 0, 0, 0, 0));
   result:=WinApi.ShowCursor(0);
   pfd.dwFlags := WinApi.PFD_DRAW_TO_WINDOW + WinApi.PFD_SUPPORT_OPENGL + WinApi.PFD_DOUBLEBUFFER;
   bres:=WinApi.SetPixelFormat(DC,WinApi.ChoosePixelFormat(DC,pfd),pfd);
   bres:=WinApi.wglMakeCurrent(DC, WinApi.wglCreateContext(DC));
   
   WHILE WinApi.GetAsyncKeyState(27) = 0 DO
      WinGL.glBegin(WinGL.GL_QUADS);
         WinGL.glColor3f(1,0,0); WinGL.glVertex2f(-0.4, -0.4);
         WinGL.glColor3f(0,1,0); WinGL.glVertex2f( 0.4, -0.4);
         WinGL.glColor3f(0,0,1); WinGL.glVertex2f( 0.4,  0.4);
         WinGL.glColor3f(1,0,1); WinGL.glVertex2f(-0.4,  0.4);
      WinGL.glEnd();
      bres:=WinApi.SwapBuffers(DC);
   END;
   
END Demo1.

 DevCompiler.Compile
 DevLinker.LinkExe 'Projects\Demo1\Demo1.exe' := Demo1 1 'Projects\Demo1\demo1.ico' ~