hedgewars/uWorld.pas
changeset 793 c4a790225799
parent 783 4f59db6f147d
child 803 3f73901a350a
equal deleted inserted replaced
792:8d927ee24fc0 793:c4a790225799
   196    begin
   196    begin
   197    if r.y < 0 then r.y:= 0;
   197    if r.y < 0 then r.y:= 0;
   198 
   198 
   199    glDisable(GL_TEXTURE_2D);
   199    glDisable(GL_TEXTURE_2D);
   200    glBegin(GL_QUADS);
   200    glBegin(GL_QUADS);
   201     glColor3ub(0, $5A, $CE); // water color
   201     glColor3ub($54, $5C, $9D); // water color
   202     glVertex2i(0, r.y);
   202     glVertex2i(0, r.y);
   203     glVertex2i(cScreenWidth, r.y);
   203     glVertex2i(cScreenWidth, r.y);
   204     glColor3ub(0, $40, $B3); // deep water color
   204     glColor3ub($34, $3C, $7D); // deep water color
   205     glVertex2i(cScreenWidth, cScreenHeight);
   205     glVertex2i(cScreenWidth, cScreenHeight);
   206     glVertex2i(0, cScreenHeight);
   206     glVertex2i(0, cScreenHeight);
   207    glEnd();
   207    glEnd();
   208 
   208 
   209    glColor4f(1, 1, 1, 1); // disable coloring
   209    glColor4f(1, 1, 1, 1); // disable coloring