1:
2:
3:
4:
5:
6:

  for X:= 0 to 142 do
    for Y:= 0 to 4*48-1 do
      begin
        OpenGL.SwitchColor(X/200,Y/200,0,1);
        OpenGL.Paint2DPixel(X,Y);
      end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TOpenGL.SwitchColor(R,G,B,Alpha: single);
begin
  glColor4f(R,G,B,Alpha);
end;

procedure TOpenGL.Paint2DPixel(X: Integer; Y: Integer);
begin
 glBegin(GL_POINTS);
 glVertex2i(x, VRenderTo.ClientHeight-Y);
 glEnd();
end;					

1:
2:
3:
4:
5:
6:
7:
8:

 glBegin(GL_POINTS);
  for X:= 0 to 142 do
    for Y:= 0 to 4*48-1 do
      begin
        SwitchColor(X/200,Y/200,0,1);
        glVertex2i(x, Y);
      end;
 glEnd();					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TOpenGL.InitDraw;
begin
  glClearColor(0,0,0,0);
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45.0, VRenderTo.Width/VRenderTo.Height, NearClipping, FarClipping);
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;

  glEnable(GL_NORMALIZE);
  glEnable(GL_DEPTH_TEST);

  LightsCount:=0;

  glLightModelfv(GL_LIGHT_MODEL_AMBIENT, @light_model_ambient[0]);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TOpenGL.SwitchTo2DMode;
begin
  glDisable(GL_LIGHTING);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  glOrtho(0,VRenderTo.ClientWidth,0,VRenderTo.ClientHeight,0,-1);
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.Timer1Timer(Sender: TObject);
var t: cardinal; X,Y: integer; 
begin
  OpenGL.InitDraw;
  OpenGL.SwitchTo2DMode;

  //hier käme das berechnen

  t:=GetTickCount;

  for X:= 0 to 142 do
    for Y:= 0 to 4*48-1 do
      begin
        OpenGL.SwitchColor(X/200,Y/200,0,1);
        OpenGL.Paint2DPixel(X,Y);
      end;

  Form1.Caption:=inttostr(GetTickCount-t);
  OpenGL.Draw;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

function TOpenGL.InitializeOpenGL(RenderTo: TWinControl): boolean;
begin

  Zeichenflaeche:= GetDC(RenderTo.Handle); {Give OpenGL the DC of the Form}

  Result:=InitOpenGL;

  RenderingContext:= CreateRenderingContext( Zeichenflaeche,
                                             [opDoubleBuffered],
                                             32,
                                             24,
                                             0,0,0,
                                             0);

  ActivateRenderingContext(Zeichenflaeche, RenderingContext);

  VRenderTo:=RenderTo;

  glShadeModel(GL_SMOOTH);
  glClearColor(0, 0, 0, 0); //Hintergrundfarbe
  glDepthFunc(GL_LEQUAL);
  glEnable(GL_DEPTH_TEST);  //Tiefentest aktivieren
  glEnable(GL_CULL_FACE);   //Backface Culling aktivieren
  glEnable(GL_LINE_SMOOTH);//Anit-Aliasing
  glClearDepth(1.0);           // Depth Buffer Setup
  glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST); // Qualitativ bessere Koordinaten Interpolation

  InitQObj0;

  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

  NearClipping:=0.1;
  FarClipping:=1000;
end;					

1:
2:
3:
4:
5:
6:

procedure TOpenGL.Draw;
begin
  glFlush;
  glFinish;
  SwapBuffers(Zeichenflaeche);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure gluSetupVSync(const Enable: Boolean);
var i : integer;
begin
  if WGL_EXT_swap_control then begin
    i := wglGetSwapIntervalExt;
    if enable then begin
      if i <> 1 then wglSwapIntervalExt(1);
    end else begin
      if i <> 0 then wglSwapIntervalExt(0);
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

type
  TVertex = packed record
    r, g, b, a: gluByte;
    x, y: glFloat;
  end;

var
  arr: array of TVertex;

procedure InitArray;
var
  x, y, ID: Integer;
begin
  SetLength(arr, 500*500);
  for x := 0 to 499 do
    for y := 0 to 499 do begin
    ID := 500*x + y;
      arr[ID].x := x;
      arr[ID].y := y;
      arr[ID].r := x * 255 div 500;
      arr[ID].g := y * 255 div 500;
      arr[ID].b := 0;
      arr[ID].a := 255;
    end;
end;
  
procedure Render;
begin
  glClearColor(0,0,0,0);
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;

  glInterleavedArrays(GL_C4UB_V2F, 0, @arr[0]); //GL_C4UB_V2F bedeutet genau 4 unsigned Byte und 2 Float-Werte pro Vertex, genau in dieser Reihenfolge (siehe TVertex)
  glDrawArrays(GL_POINTS, 0, Length(arr));

  SwapBuffers(RC.DC);
end;