Куб в OPENGL

[maxflint]

Тут такая проблема... когда вращаю этот кубик обрезанный, он мне грани криво рисует, в чём проблема?

[Selestis]

Выложите скриншот лучше, а то не у всех есть подключаемые вами модули...

Просматривал код, не нашёл включения буфера глубины, может, это... В любом случае скриншот поможет =)

[maxflint]

glEnable(GL_DEPTH_TEST); тут я разве не подключаю глубину?

[spamer]

Хотел посмотреть ваш проект, но увы там вирус - посмотрите вот эту тему Клац

[maxflint]

Ага, спасибо.

unit Main_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OpenGl, Gl, GLUtils;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormPaint(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  alpha1, alpha2 : real;
  x0, y0 : integer;
  check : boolean;
implementation
uses unit3;
{$R *.dfm}

Procedure DrawImage;
type matr = array[0..3,0..3] of GLfloat;
const Rxx: matr =  ((1, 0, 0, 0),
                   ( 0, 1, 0, 0),
                   ( 0, 0, 1, 0),
                   ( 0, 0, 0, 1));
var m: matr;
    teta, fi, f, fx, fy, fz : real;
    i : integer;
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

//триметрия
  ViewPort(0,0,950,950);
  m:=Rxx;
  glGetFloatv(GL_MODELVIEW_MATRIX, @m);
  teta := -degtorad(alpha1);
  fi := -degtorad(alpha2);
  m[0,0] := cos(fi);
  m[0,1] := sin(fi)*sin(teta);
  m[1,1] := cos(teta);
  m[2,0] := sin(fi);
  m[2,1] := -cos(fi)*sin(teta);
  m[2,2] := 0;
  glLoadMatrixf(@m);

  glEnable(GL_DEPTH_TEST);

  DrawScene1;
  swapGLbuffers;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  check := false;
  alpha1 := 30;
  alpha2 := 60;
  InitOpengl(handle);
  clientwidth:=clientheight;
  glViewPort(0,0, clientwidth, clientheight);
  glMatrixMode(GL_PROJECTION);
  glOrtho(-50,50,-50,50,-1,1);
  glMatrixMode(GL_MODELVIEW);
  glClearColor(1.3,0.0,1.3,0.0);
  glPolygonMode(GL_FRONT_AND_BACK, GL_FILL);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  CLoseOpengl(Handle);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  DrawImage;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  check := true;
  x0 := x;
  y0 := y;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if check then
  begin
    alpha1 := alpha1 - (y0-y)/2;
    alpha2 := alpha2 - (x0-x)/2;
    x0 := x;
    y0 := y;
    formPaint(form1);
  end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  check := false;
end;

end.

[Granus]

явно что-то с буфером глубины

glEnable(GL_DEPTH_TEST);

поставь это в инициализацию, а не прямо перед кодом отрисовки

[maxflint]

Пробовал, тот же самый трабл.

[Selestis]

Попробуйте GL_POLYGON поменять на GL_QUADS. Может, всё из-за порядка задания вершин, не помню как точно подаются данные для полигонов...

[maxflint]

Эх... не помогло

[Selestis]

Слушайте, да у вас, похоже, координаты не те: там в задании вершин разве где-то есть "0"? У вас типа -0.5 или +0.5, так ведь? Поменяйте попробуйте. И квадами их. Или рисуйте нормальный полигон по шести точкам, но, думаю, это не лучший вариант...