Создание программы "Лабиринт"

private void Form1_Load(object sender, EventArgs e)
{
…
  bmpBrick = new Bitmap("brick.bmp");
  bmpEarth = new Bitmap("earth256x128.bmp");
  GL.TexParameter(TextureTarget.Texture2D, 
    TextureParameterName.TextureMinFilter, (int)TextureMinFilter.Linear);
  GL.TexParameter(TextureTarget.Texture2D, TextureParameterName.TextureMagFilter,
    (int)TextureMagFilter.Linear);
}

procedure TfrmGL.FormCreate(Sender: TObject);
begin
…
  // зарузка изображений текстур
  LoadTextureFromBMP('BRICK.BMP', texBrick);
  LoadTextureFromBMP('earth256x128.bmp', texEarth);
  // параметры масштабирования текстур
  glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_NEAREST);
  glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_NEAREST);
…
end;

private void glControl1_Paint(object sender, PaintEventArgs e)
{
  GL.ClearColor(0.5f, 0.5f, 0.75f, 1.0f); // цвет фона
  // очистка буферов цвета и глубины
  GL.Clear(ClearBufferMask.ColorBufferBit | ClearBufferMask.DepthBufferBit);
  // поворот изображения
  GL.LoadIdentity();
  GL.Rotate(AngleY, 0.0, 1.0, 0.0);
  GL.Translate(Pos.X, 0, Pos.Y);
  GLTexture.LoadTexture(bmpEarth);
  GL.Enable(EnableCap.Texture2D);
  GL.Enable(EnableCap.Lighting);
  GL.PushMatrix();
  GL.Rotate(RY, 0.0, 1.0, 0.0);
  Sphere(1, 20, 20);
  GL.PopMatrix();
  GL.Disable(EnableCap.Lighting);
  GL.Disable(EnableCap.Texture2D);
  // стены лабиринта
  GLTexture.LoadTexture(bmpBrick);
  GL.Enable(EnableCap.Texture2D);
  for (int i = 0; i < plan.Length; ++i)
  {
    // длина стены
    double wdl = Math.Sqrt(Math.Pow(coners[plan[i].L].X -coners[plan[i].R].X, 2)
    + Math.Pow(coners[plan[i].L].Y - coners[plan[i].R].Y, 2)) / 4;
    GL.Begin(BeginMode.Quads);
    GL.TexCoord2(0, 0); 
    GL.Vertex3(coners[plan[i].L].X, -hdl, coners[plan[i].L].Y);
    GL.TexCoord2(0, hdl / 2); 
    GL.Vertex3(coners[plan[i].L].X, hdl, coners[plan[i].L].Y);
    GL.TexCoord2(wdl, hdl / 2); 
    GL.Vertex3(coners[plan[i].R].X, hdl, coners[plan[i].R].Y);
    GL.TexCoord2(wdl, 0); 
    GL.Vertex3(coners[plan[i].R].X, -hdl, coners[plan[i].R].Y);
    GL.End();
  }
  GL.Disable(EnableCap.Texture2D);
  GL.Flush();
  GL.Finish();
  glControl1.SwapBuffers();
}

procedure TfrmGL.FormPaint(Sender: TObject);
var
  i: integer;
  wdl: GLfloat;
begin
 glClear (GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);      // очистка буфера цвета
 glLoadIdentity;
 // перемещение наблюдателя
 glRotatef(AngleY, 0.0, 1.0, 0.0);
 glTranslatef(Pos.X, 0, Pos.Y);
// вращающаяся сфера с текстурой поверхности земли
 glColor3f(1, 1, 1);
 glTexImage2D(GL_TEXTURE_2D, 0, GL_RGB, texEarth.Width, texEarth.Height,
   0, GL_RGB, GL_UNSIGNED_BYTE, @texEarth.Data[0]);
 glEnable(GL_TEXTURE_2D);
 glPushMatrix;
 glRotatef(RY, 0.0, 1.0, 0.0);
 sphere(1, 20, 20);
 glPopMatrix;
 glDisable(GL_TEXTURE_2D);
// стены лабиринта
 glTexImage2D(GL_TEXTURE_2D, 0, GL_RGB, texBrick.Width, texBrick.Height,
   0, GL_RGB, GL_UNSIGNED_BYTE, @texBrick.Data[0]);
 glEnable(GL_TEXTURE_2D);
 for i:=0 to High(plan) do begin
   // длина стены
   wdl:=sqrt(sqr(coners[plan[i].l].x-coners[plan[i].r].x)
     + sqr(coners[plan[i].l].y-coners[plan[i].r].y))/4;
   glBegin(GL_QUADS);
     glTexCoord2f(0, 0);      glVertex3f(coners[plan[i].l].x, -hdl, coners[plan[i].l].y);
     glTexCoord2f(0, hdl/2);  glVertex3f(coners[plan[i].l].x, hdl, coners[plan[i].l].y);
     glTexCoord2f(wdl,hdl/2); glVertex3f(coners[plan[i].r].x, hdl, coners[plan[i].r].y);
     glTexCoord2f(wdl, 0);    glVertex3f(coners[plan[i].r].x, -hdl, coners[plan[i].r].y);
   glEnd;
 end;
 glDisable(GL_TEXTURE_2D);
 glFlush;
 glFinish;
 SwapBuffers(DC);
end;

private void timer1_Tick(object sender, EventArgs e)
{
  RY += 5;
  glControl1.Invalidate();
}

procedure TfrmGL.Timer1Timer(Sender: TObject);
begin
  inc(RY, 5);
  InvalidateRect(Handle, nil, False);
end;