Changeset 212 for GraphicTest/UDrawMethod.pas

Timestamp:

Mar 20, 2011, 7:18:27 PM (14 years ago)

Author:

george

Message:

• Added: OpenGL PBO method.

File:

• GraphicTest/UDrawMethod.pas (modified) (7 diffs)

GraphicTest/UDrawMethod.pas

@@ -8 +8 @@
   Classes, SysUtils, StdCtrls, ExtCtrls, UPlatform, UFastBitmap, Graphics,
   LCLType, IntfGraphics, fpImage, GraphType, BGRABitmap, BGRABitmapTypes,
-  LclIntf, GL, OpenGLContext;
+  LclIntf, GL, GLExt, OpenGLContext;
 
 type
@@ -30 +30 @@
     OpenGLControl: TOpenGLControl;
     TextureId: GLuint;
+    procedure Init; virtual;
     constructor Create; virtual;
     destructor Destroy; override;
@@ -102 +103 @@
     procedure SetBitmap(const AValue: TBitmap); override;
     constructor Create; override;
+    procedure Init; override;
     destructor Destroy; override;
     procedure DrawFrame(FastBitmap: TFastBitmap); override;
   end;
 
+  { TOpenGLPBOMethod }
+
+  TOpenGLPBOMethod = class(TDrawMethod)
+    pboIds: array[0..1] of GLuint;
+    Index, NextIndex: Integer;
+    procedure SetBitmap(const AValue: TBitmap); override;
+    procedure Init; override;
+    constructor Create; override;
+    destructor Destroy; override;
+    procedure DrawFrame(FastBitmap: TFastBitmap); override;
+  end;
 
 const
-  DrawMethodClasses: array[0..7] of TDrawMethodClass = (
+  DrawMethodClasses: array[0..8] of TDrawMethodClass = (
     TCanvasPixels, TCanvasPixelsUpdateLock, TLazIntfImageColorsCopy,
     TLazIntfImageColorsNoCopy, TBitmapRawImageData, TBitmapRawImageDataPaintBox,
-    TBGRABitmapPaintBox, TOpenGLMethod);
+    TBGRABitmapPaintBox, TOpenGLMethod, TOpenGLPBOMethod);
 
 implementation
+
+{ TOpenGLPBOMethod }
+
+procedure TOpenGLPBOMethod.SetBitmap(const AValue: TBitmap);
+begin
+  inherited SetBitmap(AValue);
+end;
+
+//procedure glGenBuffersARB2 : procedure(n : GLsizei; buffers : PGLuint); extdecl;
+
+procedure TOpenGLPBOMethod.Init;
+var
+  DataSize: Integer;
+  glExtensions: string;
+begin
+  OpenGLControl.MakeCurrent;
+  DataSize := OpenGLControl.Width * OpenGLControl.Height * SizeOf(Integer);
+//  glGenBuffersARB(Length(pboIds), PGLuint(pboIds));
+  //if glext_LoadExtension('GL_ARB_pixel_buffer_object') then
+  if Load_GL_ARB_vertex_buffer_object then begin
+    glGenBuffersARB(2, @pboIds);
+    glBindBufferARB(GL_PIXEL_PACK_BUFFER_ARB, pboIds[0]);
+    glBufferDataARB(GL_PIXEL_PACK_BUFFER_ARB, DataSize, Pointer(0), GL_STREAM_READ_ARB);
+    glBindBufferARB(GL_PIXEL_PACK_BUFFER_ARB, pboIds[1]);
+    glBufferDataARB(GL_PIXEL_PACK_BUFFER_ARB, DataSize, Pointer(0), GL_STREAM_READ_ARB);
+
+  end else raise Exception.Create('GL_ARB_pixel_buffer_object not supported');
+
+  glEnable(GL_TEXTURE_2D);
+  glBindTexture(GL_TEXTURE_2D, TextureId);
+    //glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);
+    //glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);
+    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
+    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
+    glTexImage2D(GL_TEXTURE_2D, 0, 4, OpenGLControl.Width, OpenGLControl.Height,
+      0, GL_RGBA, GL_UNSIGNED_BYTE, OpenGLBitmap);
+end;
+
+constructor TOpenGLPBOMethod.Create;
+begin
+  inherited Create;
+  Caption := 'OpenGL PBO';
+  PaintObject := poOpenGL;
+//  SetLength(pboIds, 2);
+  Index := 0;
+  NextIndex := 1;
+end;
+
+destructor TOpenGLPBOMethod.Destroy;
+begin
+  inherited Destroy;
+end;
+
+procedure TOpenGLPBOMethod.DrawFrame(FastBitmap: TFastBitmap);
+var
+  X, Y: Integer;
+  P: PInteger;
+  R: PInteger;
+  Ptr: ^GLubyte;
+  TextureShift: TPoint;
+  TextureShift2: TPoint;
+const
+  GL_CLAMP_TO_EDGE = $812F;
+begin
+  // "index" is used to read pixels from framebuffer to a PBO
+  // "nextIndex" is used to update pixels in the other PBO
+  Index := (Index + 1) mod 2;
+  NextIndex := (Index + 1) mod 2;
+
+  glLoadIdentity;
+
+  glBindTexture(GL_TEXTURE_2D, TextureId);
+    //glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);
+    //glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);
+    //glTexImage2D(GL_TEXTURE_2D, 0, 4, OpenGLControl.Width, OpenGLControl.Height,
+    //  0, GL_RGBA, GL_UNSIGNED_BYTE, OpenGLBitmap);
+    //glTexImage2D(GL_TEXTURE_2D, 0, 4, 512, 256,
+    //0, GL_RGBA, GL_UNSIGNED_BYTE, OpenGLBitmap);
+
+  // bind the texture and PBO
+  //glBindTexture(GL_TEXTURE_2D, textureId);
+  glBindBufferARB(GL_PIXEL_UNPACK_BUFFER_ARB, pboIds[index]);
+
+  // copy pixels from PBO to texture object
+  // Use offset instead of ponter.
+  glTexSubImage2D(GL_TEXTURE_2D, 0, 0, 0, OpenGLControl.Width, OpenGLControl.Height,
+    GL_BGRA, GL_UNSIGNED_BYTE, Pointer(0));
+
+
+  // bind PBO to update texture source
+  glBindBufferARB(GL_PIXEL_UNPACK_BUFFER_ARB, pboIds[nextIndex]);
+
+  // Note that glMapBufferARB() causes sync issue.
+  // If GPU is working with this buffer, glMapBufferARB() will wait(stall)
+  // until GPU to finish its job. To avoid waiting (idle), you can call
+  // first glBufferDataARB() with NULL pointer before glMapBufferARB().
+  // If you do that, the previous data in PBO will be discarded and
+  // glMapBufferARB() returns a new allocated pointer immediately
+  // even if GPU is still working with the previous data.
+  glBufferDataARB(GL_PIXEL_UNPACK_BUFFER_ARB, OpenGLControl.Width * OpenGLControl.Height * SizeOf(Integer), Pointer(0), GL_STREAM_DRAW_ARB);
+
+  // map the buffer object into client's memory
+  ptr := glMapBufferARB(GL_PIXEL_UNPACK_BUFFER_ARB, GL_WRITE_ONLY_ARB);
+  if Assigned(ptr) then begin
+    // update data directly on the mapped buffer
+    P := PInteger(Ptr);
+    with FastBitmap do
+    for Y := 0 to Size.Y - 2 do begin
+      R := P;
+      for X := 0 to Size.X - 1 do begin
+        R^ := NoSwapBRComponent(Pixels[X, Y]) or $ff000000;
+        Inc(R);
+      end;
+      Inc(P, Size.X);
+    end;
+    glUnmapBufferARB(GL_PIXEL_PACK_BUFFER_ARB);
+  end;
+
+  // it is good idea to release PBOs with ID 0 after use.
+  // Once bound with 0, all pixel operations are back to normal ways.
+  glBindBufferARB(GL_PIXEL_UNPACK_BUFFER_ARB, 0);
+
+  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
+  //glRotatef(30.0, 0, 0, 1.0);
+  glTranslatef(-OpenGLControl.Width / 2, -OpenGLControl.Height / 2, 0.0);
+  glBindTexture(GL_TEXTURE_2D, TextureId);
+
+  TextureShift := Point(0, 0);
+  TextureShift2 := Point(0, 0);
+  glBegin(GL_QUADS);
+    glColor3ub(255, 255, 255);
+    glTexCoord2f(TextureShift.X, TextureShift.Y);
+    glVertex3f(TextureShift2.X, TextureShift2.Y, 0);
+    glTexCoord2f(TextureShift.X + OpenGLControl.Width div 2, TextureShift.Y);
+    glVertex3f(TextureShift2.X + OpenGLControl.Width, TextureShift2.Y, 0);
+    glTexCoord2f(TextureShift.X + OpenGLControl.Width div 2, TextureShift.Y + OpenGLControl.Height div 2);
+    glVertex3f(TextureShift2.X + OpenGLControl.Width, TextureShift2.Y + OpenGLControl.Height, 0);
+    glTexCoord2f(TextureShift.X, TextureShift.Y + OpenGLControl.Height div 2);
+    glVertex3f(TextureShift2.X, TextureShift2.Y + OpenGLControl.Height, 0);
+  glEnd();
+
+  OpenGLControl.SwapBuffers;
+end;
 
 { TOpenGLMethod }
@@ -127 +283 @@
   Caption := 'OpenGL';
   PaintObject := poOpenGL;
+end;
+
+procedure TOpenGLMethod.Init;
+begin
+  inherited Init;
+  //OpenGLControl.MakeCurrent;
 end;
 
@@ -142 +304 @@
   GL_CLAMP_TO_EDGE = $812F;
 begin
-(*  glEnable(GL_TEXTURE_2D);          // enables 2d textures
-    glClearColor(0.0,0.0,0.0,1.0);    // sets background color
-    glClearDepth(1.0);
-    glDepthFunc(GL_LEQUAL);           // the type of depth test to do
-    glEnable(GL_DEPTH_TEST);          // enables depth testing
-    glShadeModel(GL_SMOOTH);          // enables smooth color shading
-    {blending}
-    glColor4f(1.0,1.0,1.0,0.5);       // Full Brightness, 50% Alpha ( NEW )
-    glBlendFunc(GL_SRC_ALPHA, GL_ONE);
-    glLightModeli(GL_LIGHT_MODEL_LOCAL_VIEWER, GL_TRUE);
-*)
-
+  glLoadIdentity;
   glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
   //glLoadIdentity;             { clear the matrix }
   //glTranslatef(0.0, 0.0, -3.0);  // -2.5); { viewing transformation }
-
-  //glLoadIdentity;             { clear the matrix }
 
   P := OpenGLBitmap;
@@ -172 +321 @@
   end;
 
-    glLoadIdentity;
     //glRotatef(30.0, 0, 0, 1.0);
     glTranslatef(-OpenGLControl.Width div 2, -OpenGLControl.Height div 2, 0.0);
@@ -459 +607 @@
 end;
 
+procedure TDrawMethod.Init;
+begin
+
+end;
+
 constructor TDrawMethod.Create;
 begin