hedgewars/uWorld.pas
changeset 2330 ba46dcda3676
parent 2302 0f122917d799
child 2357 babe1a55e284
equal deleted inserted replaced
2329:1cfb7d184ee1 2330:ba46dcda3676
   213 	glEnableClientState(GL_VERTEX_ARRAY);
   213 	glEnableClientState(GL_VERTEX_ARRAY);
   214 	glVertexPointer(2, GL_FLOAT, 0, @VertexBuffer[0]);
   214 	glVertexPointer(2, GL_FLOAT, 0, @VertexBuffer[0]);
   215 
   215 
   216 	glDrawArrays(GL_TRIANGLE_FAN, 0, Length(VertexBuffer));
   216 	glDrawArrays(GL_TRIANGLE_FAN, 0, Length(VertexBuffer));
   217 
   217 
   218 	glEnableClientState(GL_COLOR_ARRAY);
   218 	glDisableClientState(GL_VERTEX_ARRAY);
   219 	glDisableClientState(GL_COLOR_ARRAY);
   219 	glDisableClientState(GL_COLOR_ARRAY);
   220 
   220 
   221 	glColor4f(1, 1, 1, 1); // disable coloring
   221 	glColor4f(1, 1, 1, 1); // disable coloring
   222 	glEnable(GL_TEXTURE_2D)
   222 	glEnable(GL_TEXTURE_2D)
   223 	end
   223 	end