- (*
- var
- Position:record X,Y,Z,W:GLFloat end;
- Color:record R,G,B,A:glFloat end;
- begin
- glLoadIdentity;
- glClearColor(0.50,0.5,0.5,0.5);
- glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
- *)
- glRasterPos2f(1,1);
- glGetIntegerv(GL_CURRENT_RASTER_POSITION,@Position);
- if Position.X <> 0 then ShowMessage('Test bestanden');//Geht nicht
- glColor3f(1,0,0);
- glGetFloatv(GL_CURRENT_COLOR,@Color);
- if Color.R = 1 then ShowMessage('Farb Test bestanden'); //Erscheint
- (*
- glTranslatef(-0.5,-0.5,-1);
- //glDrawBuffer(GL_AUX0);
- glBegin(GL_QUADS);
- glColor3f(1,0,0);
- glColor3f(0,0,1);glVertex2f(0,0);
- glColor3f(0,1,1);glVertex2f(0,1);
- glColor3f(1,1,0);glVertex2f(1,1);
- glColor3f(1,0,1);glVertex2f(1,0);
- glEnd;
- glDrawPixels(10,10,GL_BLUE,GL_UNSIGNED_BYTE,@MyBitmap);
- glBitmap(8,8,0,0,10,0,@Bitmap2);
- glBitmap(8,8,0,0,10,0,@Bitmap2);
- glBitmap(8,8,0,0,10,0,@Bitmap2); *)