- {}{$IFDEF CARAD}
- {} glViewport(0, 0, 32, 32);
- {} glMatrixMode(GL_PROJECTION);
- {} glLoadIdentity;
- {} gluPerspective(45, 1, 0.1, 10);
- {} glMatrixMode(GL_MODELVIEW);
- {} glLoadIdentity;
- {} glClear(bgClearBufferBits);
- {} glEnable(GL_TEXTURE_2D);
- {} {$IFDEF GL_12} if GL_12 then glDisable(GL_TEXTURE_3D); {$ENDIF}
- {} {$IFDEF GL_13} if GL_13 then glDisable(GL_TEXTURE_CUBE_MAP); {$ENDIF}
- {} glDisable(GL_LIGHTING);
- {} glBegin(GL_QUADS);
- {} glColor3f(1,1,1);
- {} glTexCoord2f(0, 0);
- {} glVertex3f(-0.5, -0.5, -1);
- {} glTexCoord2f(1, 0);
- {} glVertex3f( 0.5, -0.5, -1);
- {} glTexCoord2f(1, 1);
- {} glVertex3f( 0.5, 0.5, -1);
- {} glTexCoord2f(0, 1);
- {} glVertex3f(-0.5, 0.5, -1);
- {} glEnd;
- {} glReadPixels(0,0,32,32,GL_RGBA, GL_UNSIGNED_BYTE, Addr(pixels));
- {} glEnable(GL_LIGHTING);
- {} for j := 0 to 31 do begin
- {} line := img.ScanLine[31-j];
- {} for i := 0 to 31 do begin
- {} pixel := pixels[j][i];
- {} b := pixel.r;
- {} pixel.r := pixel.b;
- {} pixel.b := b;
- {} pixel.a := not(pixel.a);
- {} line[i] := pixel;
- {} end;
- {} end;
- {}{$ENDIF}