Тень Трафарет OpenGL delphi

[bosyak]

Здравствуйте, не могли бы вы помочь мне с реализацией тени. Принцип работы я понял, сначала рисуется "основная" сцена, потом обработанная буфером трафарета, только не могу никак интегрировать, пробовал пример из книги Краснова, однако у меня получается билиберда.

procedure TGraphViev.OnPaint(var msg: TWMPaint);
begin
  if CanDraw = true then
  begin

    if Disp_par.FillMode then
      glPolygonMode(GL_FRONT_AND_BACK, gl_fill)
    else
      glPolygonMode(GL_FRONT_AND_BACK, gl_line);

    if Disp_par.Light then begin
      glenable(GL_LIGHT1);
      glenable(gl_lighting);
    end
    else begin
      gldisable(GL_LIGHT1);
      glDisable(gl_lighting);
    end;

    glClearColor(background.Red, background.Green, background.Blue, 1);
    glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

    glViewport(0, 0, Self.Width, Self.Height);

    glMatrixMode(GL_PROJECTION);

    glLoadIdentity;

    gluPerspective(45.0, Self.Width / Self.Height, 0.1, 200);

    glMatrixMode(GL_MODELVIEW);
    glLoadIdentity;

    glTranslatef(Disp_par.Translate_x, Disp_par.Translate_y,
      Disp_par.Translate_z);

    glRotatef(AngleX, 1, 0, 0);
    glRotatef(AngleY, 0, 1, 0);
    glRotatef(AngleZ, 0, 0, 1);
    glPushMatrix;
    DrawGraphic;
    glPopMatrix;
   glClear(GL_STENCIL_BUFFER_BIT);
   glEnable(GL_STENCIL_TEST);
   glPushMatrix;
   glColor4f(0, 0, 0, 0.3);
   glDisable(GL_DEPTH_TEST);
   DrawGraphic;
   glEnable(GL_DEPTH_TEST);
   glDisable(GL_STENCIL_TEST);

    if Length(Graphic_Array) > 0 then

      DrawCube;

    glPopMatrix;
    SwapBuffers(FDC);
  end;
end;

Настройка выглядит так:

procedure TGraphViev.SetupRC;
begin
  glClearColor(background.Red, background.Green, background.Blue, 1);
  glenable(GL_DEPTH_TEST);
  glEnable(GL_BLEND);
  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
  glClearStencil(0);
  glStencilOp(GL_INCR, GL_INCR, GL_INCR);
  glStencilFunc(GL_EQUAL, 0, $FFFFFFF);
  glenable(GL_COLOR_MATERIAL);

end;

[bosyak]

Спасибо уже сам разобрался, ошибка была в процедуре DrawGraphic, вот результат)))