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

Bitmap bmpBrick;
Bitmap bmpEarth;
double AngleX = 0;
double AngleY = 0;
double AngleZ = 0;
// шаг перемещения наблюдателя в лабиринте
const double Step = 0.2; 
// высота стен лабиринта
const double hdl = 5;
const double AngleDl = 5;
// координаты положения наблюдателя
PointFloat Pos;

var 
  // переменные для хранения данных о тектурах
  texBrick, texEarth: TGLTexture;
  // направление движения наблюдателя (угол его поворота),
  // изменяется с помощью клавиш со стрелками влево и вправо
  AngleY: integer;
  // координаты положения наблюдателя
  Pos: TPointFloat;
  // угол поворота сферы
  RY: integer;
Const
  AngleDl=5;    //угол разворота при нажатии на клавишу
  Step = 0.2;   // шаг перемещения наблюдателя в лабиринте
  hdl=5;        // высота стен лабиринта

private void glControl1_Paint(object sender, PaintEventArgs e)
{
  // очистка буферов цвета и глубины
  GL.Clear(ClearBufferMask.ColorBufferBit | ClearBufferMask.DepthBufferBit);
  // поворот изображения
  GL.LoadIdentity();
  GL.Rotate(AngleY, 0.0, 1.0, 0.0);
  GL.Translate(Pos.X, 0, Pos.Y);
  // стены лабиринта
  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.Color4(plan[i].C);
    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.Flush();
  GL.Finish();
  glControl1.SwapBuffers();
}

procedure TForm1.FormPaint(Sender: TObject);
var i: integer;
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);
  // стены лабиринта
  for i:=0 to High(plan) do begin
    glBegin(GL_QUADS);
      glColor(GetRValue(plan[i].c),GetGValue(plan[i].c),
     GetBValue(plan[i].c));
      glVertex3f(coner[plan[i].l].x, -hdl, coner[plan[i].l].y);
      glVertex3f(coner[plan[i].l].x, hdl, coner[plan[i].l].y);
      glVertex3f(coner[plan[i].r].x, hdl, coner[plan[i].r].y);
      glVertex3f(coner[plan[i].r].x, -hdl, coner[plan[i].r].y);
    glEnd;
  end;
 
  glFlush;
  glFinish;
  SwapBuffers(DC);
end;

private void glControl1_KeyDown(object sender, KeyEventArgs e)
{
  switch(e.KeyCode)
  {
    case Keys.Left: AngleY += -AngleDl; break;
    case Keys.Right: AngleY -= -AngleDl; break;
    case Keys.Up:
      Pos.X = Pos.X - Step * Math.Sin(AngleY * Math.PI / 180);
      Pos.Y = Pos.Y + Step * Math.Cos(AngleY * Math.PI / 180);
    break;
    case Keys.Down:
      Pos.X = Pos.X + Step * Math.Sin(AngleY * Math.PI / 180);
      Pos.Y = Pos.Y - Step * Math.Cos(AngleY * Math.PI / 180);
    break;
  }
  if (AngleY>=360) AngleY -= 360;
  glControl1.Invalidate(); 
}

procedure TfrmGL.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case Key of
  VK_LEFT:   inc(AngleY, -AngleDl);
  VK_RIGHT:  dec(AngleY, -AngleDl);
  VK_UP: begin
           PosX:=PosX - Step*Sin(AngleY*pi/180);
           PosZ:=PosZ + Step*Cos(AngleY*pi/180);
         end;
  VK_DOWN: begin
           PosX:=PosX + Step*Sin(AngleY*pi/180);
           PosZ:=PosZ - Step*Cos(AngleY*pi/180);
          end;
 end;
 if AngleY>=360 then dec (AngleY, 360);
 InvalidateRect(Handle, nil, False);
end;