dz[0]:=dz[0]+0.01*cos(i+0);
   dz[1]:=dz[1]+0.01*cos(i+pi/2);
   dz[2]:=dz[2]+0.01*cos(i+pi);
   dz[3]:=dz[3]+0.01*cos(i+3*pi/2);
   if i>2*pi then i:=0 else i:=i+0.1;
   if dz[0]>0.01 then dz[0]:=0;
   if dz[1]>0.01 then dz[1]:=0;
   if dz[2]>0.01 then dz[2]:=0;
   if dz[3]>0.01 then dz[3]:=0;



   glClear(GL_DEPTH_BUFFER_BIT xor GL_COLOR_BUFFER_BIT);
   glMaterial(GL_FRONT,GL_DIFFUSE,0.1);
   glMaterial(GL_FRONT,GL_AMBIENT,0);
   glColor(0.7,0.8,1,1);
   b:=-15;
   a:=0;
   //WaterAlgoritm
   while a<100 do
   begin
    while b<15 do
    begin
     glBegin(GL_QUADS);
       glVertex3f(0+b,0+a,dz[0]);
       glVertex3f(0+b,1+a,dz[1]);
       glVertex3f(-1+b,1+a,dz[2]);
       glVertex3f(-1+b,0+a,dz[3]);
     glEnd;
     glBegin(GL_QUADS);
       glVertex3f(0+b,2+a,dz[0]);
       glVertex3f(0+b,1+a,dz[1]);
       glVertex3f(-1+b,1+a,dz[2]);
       glVertex3f(-1+b,2+a,dz[3]);
     glEnd;
     glBegin(GL_QUADS);
       glVertex3f(-2+b,2+a,dz[0]);
       glVertex3f(-2+b,1+a,dz[1]);
       glVertex3f(-1+b,1+a,dz[2]);
       glVertex3f(-1+b,2+a,dz[3]);
     glEnd;
     glBegin(GL_QUADS);
       glVertex3f(-2+b,0+a,dz[0]);
       glVertex3f(-2+b,1+a,dz[1]);
       glVertex3f(-1+b,1+a,dz[2]);
       glVertex3f(-1+b,0+a,dz[3]);
     glEnd;
     b:=b+2;
     end;
     a:=a+2;
     b:=-15;
    end;
    //End of WaterAlgoritm