добавление тени

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OpenGL, DGLUT, Textures, Unit2, ExtGL;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  HRC : HGLRC ;
  Sphere_amb: array[0..3] of GLfloat = (0,0,0,0);
  Sphere_spec: array[0..3] of GLfloat = (3,2,0,0);
  Sphere_dif: array[0..3] of GLfloat = (1.3,1.1,1.1,0);
  Light_pos: array [0..3] of GLfloat = (1,1,1,1);
  shin: single = 10;
  Tex, Tex2: Uint;
  NeedShadow: Boolean = True;
implementation
 
{$R *.dfm}
 
  procedure glBindTexture(target: GLenum; texture: GLuint); stdcall; external opengl32;
 
 
procedure SetDCPixelFormat ( hdc : HDC );
 var
  pfd : TPixelFormatDescriptor;
  nPixelFormat : Integer;
 begin
  FillChar (pfd, SizeOf (pfd), 0);
  pfd.dwFlags  := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
   nPixelFormat := ChoosePixelFormat (hdc, @pfd);
  SetPixelFormat (hdc, nPixelFormat, @pfd);
 end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  SetDCPixelFormat(Canvas.Handle);
  hrc := wglCreateContext(Canvas.Handle);
  wglMakeCurrent(Canvas.Handle, hrc);
  glEnable(GL_DEPTH_TEST); // включаем проверку разрешения фигур (впереди стоящая закрывает фигуру за ней)
  glDepthFunc(GL_LEQUAL);  //тип проверки
  glEnable(GL_LIGHTING);
  glEnable(GL_LIGHT0);
    glEnable(GL_TEXTURE_2D);   //Включаем режим нааложения текстур
    glTexParameter (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST); //Параметры наложения текстуры
    glTexParameter (GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST); //Параметры наложения текстуры
    Loadtexture('Tex.tga',Tex,false);     //загружаем текстуру
    Loadtexture('Tex2.tga',Tex2,false);
 
end;
 
procedure TForm1.FormPaint(Sender: TObject);
begin
  glrotatef(90,1,0,0);
 
  Light_pos[2]:=3;   // изменение позиции источника света
  Light_pos[1]:=3;   // изменение позиции источника света
  Light_pos[0]:=1.3;
 
 glLightfv(GL_LIGHT0,GL_POSITION,@Light_pos);  // задаём позицию источника света
 
 glClearColor (0.4, 0.6, 0.8, 0); // цвет фона
 glClear (GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); // очистка буфера цвета
 
 glmaterialfv(GL_FRONT_AND_BACK,GL_AMBIENT,@Sphere_amb);    //рассеянный цвет
 glmaterialfv(GL_FRONT_AND_BACK,GL_SPECULAR,@Sphere_spec);  //зеркальный цвет
 glmaterialfv(GL_FRONT_AND_BACK,GL_DIFFUSE,@Sphere_dif);    //диффузный цвет
 glmaterialf(GL_FRONT_AND_BACK,GL_SHININESS,shin);          //мощность блика
 
 glBindTexture(GL_TEXTURE_2D, Tex);glpushMatrix;
  glTranslatef(-1,0.3,0);
  glScale(0.7,0.7,0.7);
  glutSolidTeapot(1);       //рисуем чайник
  glPopmatrix;
 
  glBindTexture(GL_TEXTURE_2D, Tex2);
  glPushMatrix();
  glScale(1,1,1.2);
  glTranslatef(-1,-1.3,0);
  RenderBox();              //рисуем куб
  glPopMatrix;
 
SwapBuffers(Canvas.Handle);
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
  glViewport(0, 0, ClientWidth, ClientHeight); //выделяем область куда будет выводиться наш буфер
  glMatrixMode ( GL_PROJECTION ); //переходим в матрицу проекции
  glLoadIdentity;  //Сбрасываем текущую матрицу
  glFrustum ( -1 , 1 , -1 , 1 , 1.25 , 100.0 ); //Область видимости
  glMatrixMode ( GL_MODELVIEW ); //переходим в модельную матрицу
  glLoadIdentity;//Сбрасываем текущую матрицу
  gluLookAt(3,1,1,0,0,0,0,0,1);  //позиция наблюдателя
  InvalidateRect ( Handle,nil,False );  //перерисовка формы
end;
 
end.