- MyTex:=TTextur.Create('terrain1.jpg');
- MyTex.Bind;
- glBegin(gl_Quads);
- glColor4f(1,1,1,1);
- glTexCoord2f(0,0);
- glVertex3f(-1,-1,0);
- glColor4f(1,1,1,0);
- glTexCoord2f(1,0);
- glVertex3f(1,-1,0);
- glTexCoord2f(1,1);
- glvertex3f(1,1,0);
- glColor4f(1,1,1,1);
- glTexCoord2f(0,1);
- glvertex3f(-1,1,0);
- glEnd;
- glEnable(GL_BLEND);
- glBlendFunc(GL_SRC_ALPHA,GL_ONE);
- MyTex:=TTextur.Create('terrain2.jpg');
- MyTex.Bind;
- glBegin(gl_Quads);
- glColor4f(1,1,1,0);
- glTexCoord2f(0,0);
- glVertex3f(-1,-1,0);
- glColor4f(1,1,1,1);
- glTexCoord2f(1,0);
- glVertex3f(1,-1,0);
- glTexCoord2f(1,1);
- glvertex3f(1,1,0);
- glColor4f(1,1,1,0);
- glTexCoord2f(0,1);
- glvertex3f(-1,1,0);
- glEnd;