Текстура OpenGL по условию.

[DooMik]

Ребят прошу помощи, пишу дипломную работу.
Вопрос следующий: Как реализовать выбор текстуры по условию.
Поясню. Имею 2 формы: 1форма - форма настроек ( в этой форме выбирается пример текстуры для фигуры с примером её отображения ) и 2 форма в которой отображается собственно 3д модель.

Мне необходимо следующие: Реализовать наложение текстуры на фигуру (форма2) из условия ListBox ( форма1 ), на If не реагирует почему то.

Приложен архив с исходниками.. Пожалуйста, помогите разобраться.
Зарание спасибо.

[DooMik]

Ребят, что никто не знает ?

[Rin]

Складывается впечатление, что ты копировал код, не понимая как это работает.
Разберись хоть немного.
На будущее, используй

case ListBox1.ItemIndex of
0: {какие-то операторы} ;
1: {какие-то операторы };
....
N: {какие-то операторы};
end;

Вместо

If  {условие}Then  {какие-то операторы}  по 100 раз.

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

[DooMik]

учусь в техникуме ( г.Тирасполь, Приднестровье ). Это ещё достаточно тяжелая ))) большое спасибо за помощь, то что нужно....

можно сказать что конкретный вопрос стоял в этой строчке
wrkPointer :=ReadBitmap(Form1.pathTexture, sWidth, tHeight);

[Rin]

Техникум. Тоже хорошее дело. Но вышку не забудь . Если знаешь англ. и хорошо подготовишься, то можно и в Гарвард на он-лайн обучение НА ХАЛЯВУ.

можно сказать что конкретный вопрос стоял в этой строчке
wrkPointer :=ReadBitmap(Form1.pathTexture, sWidth, tHeight);

Если не занудствовать, то можно и так сказать )))

[Rin]

glTranslatef отвечает за перемещение объектов по сцене. Прикрутил к исходнику.

На счёт прыжка куба я тебя не совсем понял, глянь сурс - так, не так?

На счёт других фигур.
Ты все равно юзаешь GLUT , поэтому приведу все фигуры из этого модуля.

procedure DrawBox(Size : GLfloat; DrawType : GLenum);
procedureglutWireCube(Size : GLDouble);
procedure glutSolidCube(Size :GLDouble);
procedure glutWireSphere(
  Radius : GLdouble;
  Slices : GLint;
  Stacks : GLint);
procedure glutSolidSphere(
  Radius : GLdouble;
  Slices : GLint;
  Stacks : GLint);
procedure glutWireCone(
  Base : GLdouble;
  Height : GLdouble;
  Slices : GLint;
  Stacks : GLint);
procedure glutSolidCone(
  Base : GLdouble;  Height : GLdouble;
  Slices : GLint;  Stacks : GLint);
procedure glutWireTorus(
  innerRadius : GLdouble;  outerRadius :GLdouble;
  nsides : GLint;
  rings : GLint);
procedure glutSolidTorus(
  innerRadius : GLdouble;  outerRadius :GLdouble;
  nsides : GLint;
  rings : GLint);
procedure glutWireDodecahedron;
procedure glutSolidDodecahedron;
procedure Octaheadron(ShadeType :GLenum);
procedure glutWireOctaheadron;
procedure glutSolidOctaheadron;
procedure Icosahedron(ShadeType :GLenum);
procedure glutWireIcosahedron;
procedure glutSolidIcosahedron;
procedure Tetrahedron(ShadeType :GLenum);
procedure glutWireTetrahedron;
procedure glutSolidTetrahedron;
procedure Teapot(Grid :GLint; Scale : GLdouble; ShadeType : GLenum);
procedurу glutWireTeapot(Scale : GLdouble);
procedure glutSolidTeapot(Scale :GLdouble);

[DooMik]

Насчёт прыжка вот прикрепил файл, просто диплом немного дорабатывал. Насчёт GLTranslatef тоже так же делал, но сказал препод что да, можно но было бы лучше что бы фигура перемещалась как в скринсейвере "Летающие предметы Windows ", а не как бы по невидимой оси. Думал в этом поможет непосредственно перерисовка фигуры, в частности её координаты, но почему то она стоит на месте как и была... не изменяется положение её ... изменяется положение в GLTranslatef в процедуре FormCreate. вот если как там осуществить её перемещение было бы то что нужно. т.е. я там менял изначальное положение фигуры например не (0,0), а (2,0) и фигура в правой стороне экрана становится. Вот примерно нужно как то так её перемещать, вообще не понимаю как это сделать

[Rin]

Измени названия текстур на цифры с 0 до 9 и исправь присвоение pathTexture новых имён файлов.

Случай 1. Динамическое появление фигуры
Добавил глобальную переменную inter_val:byte=22;, в FormCreate дописал randomize; и изменил код процедуры таймера.

procedure TForm2.TimerTimer(Sender: TObject);
var a:integer;
begin
  a:=Form1.TrackBar1.Position;
  Angle := (Angle + a) mod 360;
  inter_val:=inter_val-1;

  if inter_val<=0 then
  begin
  Form1.pathTexture:=GetCurrentDir+'\Textures\'+inttostr(random(10))+'.bmp';
  BmpTexture;
  inter_val:=45;
  end;

  InvalidateRect(Handle, nil, False);
end;

Случай 2. Летающие фигуры Windows.
Добавил 4 глобальные переменные - x:smallint=0; y:smallint=0; dx:smallint=0.05; dy:smallint=0.05; , заменил код таймера на такой:

procedure TForm2.TimerTimer(Sender: TObject);
var a:integer;
begin
  a:=Form1.TrackBar1.Position;
  Angle := (Angle + a) mod 360;
 
  x:=x+dx;
  if (x>4)or(x<-4.3) then dx:=dx*-1;

  y:=y+dy;
  if (y>2.5)or(y<-4.3) then dy:=dy*-1;

  InvalidateRect(Handle, nil, False);
end;

В FormResize изменил последний параметр на 20 в gluPerspective , иначе фигура обрезается.
И в FormPaint вызываю glTranslatef(x,y,0). Только glTranslatef вызывается до glRotatef , а не наоборот. И напомню, что все преобразования делаются внутри glPushMatrix ----- ---------glPopMatrix.

[Rin]

Измени названия текстур на цифры с 0 до 9 и исправь присвоение pathTexture новых имён файлов.

Случай 1. Динамическое появление фигуры
Добавил глобальную переменную inter_val:byte=22;, в FormCreate дописал randomize; и изменил код процедуры таймера.

procedure TForm2.TimerTimer(Sender: TObject);
var a:integer;
begin
  a:=Form1.TrackBar1.Position;
  Angle := (Angle + a) mod 360;
  inter_val:=inter_val-1;

  if inter_val<=0 then
  begin
  Form1.pathTexture:=GetCurrentDir+'\Textures\'+inttostr(random(10))+'.bmp';
  BmpTexture;
  inter_val:=45;
  end;

  InvalidateRect(Handle, nil, False);
end;

Случай 2. Летающие фигуры Windows.
Добавил 4 глобальные переменные - x:smallint=0; y:smallint=0; dx:smallint=0.05; dy:smallint=0.05; , заменил код таймера на такой:

procedure TForm2.TimerTimer(Sender: TObject);
var a:integer;
begin
  a:=Form1.TrackBar1.Position;
  Angle := (Angle + a) mod 360;
 
  x:=x+dx;
  if (x>4)or(x<-4.3) then dx:=dx*-1;

  y:=y+dy;
  if (y>2.5)or(y<-4.3) then dy:=dy*-1;

  InvalidateRect(Handle, nil, False);
end;

В FormResize изменил последний параметр на 20 в gluPerspective , иначе фигура обрезается.
И в FormPaint вызываю glTranslatef(x,y,0). Только glTranslatef вызывается до glRotatef , а не наоборот. И напомню, что все преобразования делаются внутри glPushMatrix ----- ---------glPopMatrix.

[DooMik]

Rin спасибо большое ) очень очень помогли. У меня если Вам не трудно конечно будет, ещё один вопрос... в общем последнее что попросили реализовать это для примера ещё использовать фигуры просто с цветом .. т.е. можно выбрать Текстурированные фигуры и Цветные фигуры... при выборе появляются соответствующие настройки. Вопрос в общем вот в чём состоит, не могу понять в чём соль данного вопроса... в общем если я использую Цветные фигуры ( Выбираю цвет всё работает хорошо ) и затем перехожу на текстурированные ( Выбираю текстуру так же всё хорошо выбирается ), но вот если назад на цветные перехожу при выборе цвета он не применяется к фигуре... а цвет на фигуре такой как на текстуре.. можно ли реализовать что бы цвет применялся к цветным фигурам и текстура к текстурированным. В примере прописал только для RadioButton7 . Спасибо)