Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Поверхность Безье

Автор: Tosha 5.1.2005, 23:32

привет всем!!! помогите пожалуста!!!! 1. я не могу натянуть текстуру на поверхность безье в OpenGL 2. Не получаеться повернуть отдельную поверхность Безье? вот мой проек я там не могу повернуть парус помогите пожалуста!!!!! Заранее спасибо всем Код unit frmMain; interface uses  Windows, Messages, Classes, Graphics, Forms, ExtCtrls, Menus, Controls,  SysUtils, Dialogs,  OpenGL; type  TVector = record    x, y, z : GLfloat;  end;  TPatch = Array [0..15] of TVector; type  TfrmGL = class(TForm)    procedure FormCreate(Sender: TObject);    procedure FormResize(Sender: TObject);    procedure FormDestroy(Sender: TObject);    procedure FormKeyDown(Sender: TObject; var Key: Word;      Shift: TShiftState);  private    DC: HDC;    hrc: HGLRC;    AngX, AngY, AngZ, Scale,MoveX,MoveY,MoveZ: GLfloat;    procedure Init;    procedure init_surface;    procedure SetDCPixelFormat;  protected    procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;  end; const  yaxta = 1; var  frmGL: TfrmGL; implementation {$R *.DFM} {======================================================================= Инициализация} procedure TfrmGL.Init; const  ambient : Array [0..3] of GLFloat = (0.2, 0.2, 0.2, 1.0);  position1 : Array [0..3] of GLFloat = (0.0, 2.0, -2.0, 0.0);  position2 : Array [0..3] of GLFloat = (0.0, 2.0, 5.0, 0.0);  mat_diffuse : Array [0..3] of GLFloat = (1.0, 0.0, 0.0, 1.0);  mat_specular : Array [0..3] of GLFloat = (1.0, 1.0, 1.0, 0.0);  mat_shininess : GLFloat = 2.0; begin  glEnable(GL_DEPTH_TEST);  glEnable(GL_AUTO_NORMAL);  glEnable(GL_NORMALIZE);  // источник света  glEnable(GL_LIGHTING);  glEnable(GL_LIGHT0);  glEnable(GL_LIGHT1);  glLightModeli(GL_LIGHT_MODEL_TWO_SIDE, 1);  glLightfv(GL_LIGHT0, GL_AMBIENT, @ambient);  glLightfv(GL_LIGHT0, GL_POSITION, @position1);  glLightfv(GL_LIGHT1, GL_POSITION, @position2);  glMaterialfv(GL_FRONT_AND_BACK, GL_DIFFUSE, @mat_diffuse);  glMaterialfv(GL_FRONT_AND_BACK, GL_SPECULAR, @mat_specular);  glMaterialfv(GL_FRONT_AND_BACK, GL_SHININESS, @mat_shininess);  glEnable (GL_COLOR_MATERIAL);  glClearColor (0.0, 0.75, 1.0, 1.0);  // поверхность  glEnable(GL_MAP2_VERTEX_3);  glMapGrid2f(20, 0.0, 1.0, 20, 0.0, 1.0);  init_surface; end; {======================================================================= Инициализация контрольных точек поверхности} procedure TfrmGL.Init_Surface; var f : TextFile; i : Integer; Model : TList; wrkPatch : TPatch; pwrkPatch : ^TPatch; begin Model := TList.Create; AssignFile (f, 'Яхта.txt'); ReSet (f); While not eof (f) do begin   For i := 0 to 15 do      ReadLn (f, wrkPatch [i].x, wrkPatch [i].y, wrkPatch [i].z);   New (pwrkPatch);   pwrkPatch^ := wrkPatch;   Model.Add (pwrkPatch); end; CloseFile (f); glNewList (yaxta, GL_COMPILE);   glPushMatrix;   glTranslatef(0,-2.2,0);   glScalef (0.4, 0.4, 0.4);   For i := 0 to 17 do begin     glColor3f (0.5, 0.5, 0.5);     glMap2f(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, Model.Items[i]);     glEvalMesh2(GL_FILL, 0, 20, 0, 20);     glMapGrid2f(20,0,1,20,0,1);   end; glPopMatrix; glEndList; Model.Free; end; {======================================================================= Перерисовка окна} procedure TfrmGL.WMPaint(var Msg: TWMPaint); var  ps : TPaintStruct; begin  BeginPaint (Handle, ps);  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); glPushMatrix;    glRotatef(AngX, 1, 0, 0);    glRotatef(AngY, 0, 1, 0);    glRotatef(AngZ, 0, 0, 1);    glTranslatef(MoveX,MoveY,MoveZ);    glCallList (yaxta);  glPopMatrix;  SwapBuffers (DC);  EndPaint (Handle, ps); end; {======================================================================= Изменение размеров окна} procedure TfrmGL.FormResize(Sender: TObject); begin glViewport(0, 0, ClientWidth, ClientHeight); glMatrixMode(GL_PROJECTION); glLoadIdentity; gluPerspective (20.0, ClientWidth / ClientHeight, 1.0, 50.0); glMatrixMode(GL_MODELVIEW); glLoadIdentity; glTranslatef (0.0, 0.0, -18.0); InvalidateRect(Handle, nil, False); end; {======================================================================= Конец работы программы} procedure TfrmGL.FormDestroy(Sender: TObject); begin  glDeleteLists (yaxta, 1);  wglMakeCurrent(0, 0);  wglDeleteContext(hrc);  ReleaseDC(Handle, DC);  DeleteDC (DC); end; {======================================================================= Обработка нажатия клавиши} procedure TfrmGL.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState); begin  Case Key of    VK_ESCAPE : begin                Close;                Exit;                end;    VK_LEFT :   AngY := AngY + 5;    VK_UP :     AngZ := AngZ + 5;    VK_RIGHT :  AngX := AngX + 5;    VK_NUMPAD6:  MoveX:=MoveX + 0.1;    VK_NUMPAD4:  MoveX:=MoveX - 0.1;    VK_NUMPAD8:  MoveY:=MoveY + 0.1;    VK_NUMPAD2:  MoveY:=MoveY - 0.1;    VK_NUMPAD1:  MoveZ:=MoveZ + 0.1;    VK_NUMPAD3:  MoveZ:=MoveZ - 0.1;  end;  InvalidateRect(Handle, nil, False); end; {======================================================================= Создание окна} procedure TfrmGL.FormCreate(Sender: TObject); begin  DC := GetDC(Handle);  SetDCPixelFormat;  hrc := wglCreateContext(DC);  wglMakeCurrent(DC, hrc);  Init; end; {======================================================================= Устанавливаем формат пикселей} procedure TfrmGL.SetDCPixelFormat; var  nPixelFormat: Integer;  pfd: TPixelFormatDescriptor; begin  FillChar(pfd, SizeOf(pfd), 0);  pfd.dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or                 PFD_DOUBLEBUFFER;  nPixelFormat := ChoosePixelFormat(DC, @pfd);  SetPixelFormat(DC, nPixelFormat, @pfd); end; end. а вот точки с файла Яхта.txt::: 5 1 0 4 1 -2.0 -1 1 -1.5 -4 1 -1 4.8 0.5 0 3 0.5 -1.8 -1 0.5 -1.4 -4.4 0.5 -0.7 3.5 0 0 2 0 -2 -1 0 -1.5 -4.7 0.1 -1 2.5 -0.1 0 -1 -0.5 0 -1.5 -0.1 0 -4.8 0.1 0 5 1 0 4 1 2.0 -1 1 1.5 -4 1 1 4.8 0.5 0 3 0.5 1.8 -1 0.5 1.4 -4.4 0.5 0.7 3.5 0 0 2 0 2 -1 0 1.5 -4.7 0.1 1 2.5 -0.1 0 -1 -0.5 0 -1.5 -0.1 0 -4.8 0.1 0 0.8 0 0 0.6 0 0.3 -0.1 0 0.1 -0.5 0 0 0.6 -0.5 0 0.5 -0.5 0.3 -0.3 -0.5 0.1 -0.7 -0.5 0 0.35 -1.65 0 0.25 -1.7 0.3 -0.55 -1.7 0.1 -0.95 -1.65 0 0.2 -1.75 0 0.1 -1.8 0 -0.6 -1.8 0 -1 -1.75 0 0.8 0 0 0.6 0 -0.3 -0.1 0 -0.1 -0.5 0 0 0.6 -0.5 0 0.5 -0.5 -0.3 -0.3 -0.5 -0.1 -0.7 -0.5 0 0.35 -1.65 0 0.25 -1.7 -0.3 -0.55 -1.7 -0.1 -0.95 -1.65 0 0.2 -1.75 0 0.1 -1.8 0 -0.6 -1.8 0 -1 -1.75 0 -4 0 0 -3.8 0 -0.05 -3.6 0 -0.1 -3.5 0 0 -4 -0.5 0 -3.8 -0.5 -0.05 -3.6 -0.5 -0.1 -3.5 -0.5 0 -4 -0.95 0 -3.8 -0.95 -0.05 -3.6 -0.95 -0.1 -3.5 -0.95 0 -4 -1 0 -3.9 -1 0 -3.7 -1 0 -3.6 -1 0 -4 0 0 -3.8 0 0.05 -3.6 0 0.1 -3.5 0 0 -4 -0.5 0 -3.8 -0.5 0.05 -3.6 -0.5 0.1 -3.5 -0.5 0 -4 -0.95 0 -3.8 -0.95 0.05 -3.6 -0.95 0.1 -3.5 -0.95 0 -4 -1 0 -3.9 -1 0 -3.7 -1 0 -3.6 -1 0 5 1 0 4 1 -1.95 -1 1 -1.35 0 1 -1.4 5 1 0 4 1 -1.95 -1 1 -1.35 0 1 -1.4 5 1 0 4 1 1.95 -1 1 1.35 0 1 1.4 5 1 0 4 1 1.95 -1 1 1.35 0 1 1.4 -4.4 0.5 -0.7 -4.4 0.5 -0.7 -4.7 0.275 -1 -4.8 0.1 0 -4.4 0.5 -0.7 -4.4 0.5 -0.7 -4.7 0.275 -1 -4.8 0.1 0 -4.4 0.5 0.7 -4.4 0.5 0.7 -4.7 0.275 1 -4.8 0.1 0 -4.4 0.5 0.7 -4.4 0.5 0.7 -4.6 0.275 1 -4.8 0.1 0 -4 1 -1 -4.4 0.5 -0.8 -4.6 0.1 -0.7 -4.8 0.2 -0.5 -4 1 -1 -4.4 0.5 -0.8 -4.6 0.1 -0.7 -4.8 0.2 -0.5 -4 1 -0.5 -4.4 0.5 -0.5 -4.7 0.2 -0.5 -4.8 0.2 -0.5 -4 1 -0.5 -4.4 0.5 -0.5 -4.7 0.2 -0.5 -4.8 0.2 -0.5 0 1 -1 1.5 1 -0.9 2.9 1 -0.7 3 1 -0.05 0 1.7 -0.9 1.5 1.7 -0.9 2 1.5 -0.7 3 1 0 0 1.7 0.9 1.5 1.7 0.9 2 1.5 0.7 3 1 0 0 1 1 1.5 1 0.9 2.9 1 0.7 3 1 0.05 2.5 1 0 2.45 1 0.13 2.3 1 0.05 2.2 1 0 2.5 1 0 2.45 1 0.13 2.3 1 0.05 2.2 1 0 2.5 5 0 2.45 5 0.13 2.3 5 0.05 2.2 5 0 2.4 13 0 2.35 13 0.08 2.3 13 0.03 2.2 13 0 2.5 1 0 2.45 1 -0.13 2.3 1 -0.05 2.2 1 0 2.5 1 0 2.45 1 -0.13 2.3 1 -0.05 2.2 1 0 2.5 5 0 2.45 5 -0.13 2.3 5 -0.05 2.2 5 0 2.4 13 0 2.35 13 -0.08 2.3 13 -0.03 2.2 13 0 2.3 2 0.05 2.3 2 0.05 2.3 2.2 0.05 2.3 2.2 0.05 2.3 2 0.05 2.3 2 0.05 2.3 2.2 0.05 2.3 2.2 0.05 -3.2 2 0.05 -3.2 2 0.05 -3.2 2.2 0.05 -3.2 2.2 0.05 -3.2 2 0.05 -3.2 2 0.05 -3.2 2.2 0.05 -3.2 2.2 0.05 2.3 2 -0.05 2.3 2 -0.05 2.3 2.2 -0.05 2.3 2.2 -0.05 2.3 2 -0.05 2.3 2 -0.05 2.3 2.2 -0.05 2.3 2.2 -0.05 -3.2 2 -0.05 -3.2 2 -0.05 -3.2 2.2 -0.05 -3.2 2.2 -0.05 -3.2 2 -0.05 -3.2 2 -0.05 -3.2 2.2 -0.05 -3.2 2.2 -0.05 2.3 2 0.05 2.3 2 0.05 2.3 2 -0.05 2.3 2 -0.05 2.3 2 0.05 2.3 2 0.05 2.3 2 -0.05 2.3 2 -0.05 -3.2 2 0.05 -3.2 2 0.05 -3.2 2 -0.05 -3.2 2 -0.05 -3.2 2 0.05 -3.2 2 0.05 -3.2 2 -0.05 -3.2 2 -0.05 2.3 2.2 0.05 2.3 2.2 0.05 2.3 2.2 -0.05 2.3 2.2 -0.05 2.3 2.2 0.05 2.3 2.2 0.05 2.3 2.2 -0.05 2.3 2.2 -0.05 -3.2 2.2 0.05 -3.2 2.2 0.05 -3.2 2.2 -0.05 -3.2 2.2 -0.05 -3.2 2.2 0.05 -3.2 2.2 0.05 -3.2 2.2 -0.05 -3.2 2.2 -0.05 2.2 2.2 0 2.2 4.2 0 2.2 11.2 0 2.2 12.8 0 1.2 2.2 0 1.2 3.2 1 1.2 11.2 0.3 2.2 12.8 0 -1 2.2 0 -1 3.2 0.7 -1 11.2 0.2 2.2 12.8 0 -3. 2.2 0 -2.2 4.2 0.2 0.2 11.2 0.2 2.2 12.8 0 4.8 1 0 4.2 4 0 3.0 8 0 2.4 11 0 3.8 1.1 1.5 3.6 4 1.3 2.8 8 0.4 2.4 11 0 0.5 1.2 1.4 1.0 4 1.2 2 8 0.8 2.4 11 0 0.5 1.3 1.2 1.0 4 1 2 8 0.6 2.4 11 0

Автор: p0s0l 6.1.2005, 02:04

Цитата(Tosha @ 5.1.2005, 23:32) Не получаеться повернуть отдельную поверхность Безье? вот мой проек я там не могу повернуть парус Разбей яхту на две части - "корпус" и "парус", тогда будет как-то так: Код glPushMatrix;    glRotatef(AngX, 1, 0, 0);    glRotatef(AngY, 0, 1, 0);    glRotatef(AngZ, 0, 0, 1);    glTranslatef(MoveX,MoveY,MoveZ);    glCallList (yaxta);   glTranslatef (... координаты точки вращения паруса ...);   glRotatef ( .... );   glCallList (parus);  glPopMatrix; Цитата(Tosha @ 5.1.2005, 23:32) 1. я не могу натянуть текстуру на поверхность безье в OpenGL Должно быть примерно так (знаками восклицания выделено то что нужно): Код procedure TfrmGL.Init; ...  init_surface;  загрузка текстуры; // !!!  glEnable (gl_texture_2d); // !!! end; procedure TfrmGL.Init_Surface; ... glEnable (GL_MAP2_TEXTURE_COORD_2); // !!! glNewList (yaxta, GL_COMPILE);   glPushMatrix;   glTranslatef(0,-2.2,0);   glScalef (0.4, 0.4, 0.4);   For i := 0 to 17 do begin     glColor3f (0.5, 0.5, 0.5);     glMap2f(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, Model.Items[i]);     glMap2f(GL_MAP2_TEXTURE_COORD_2, 0, 1, 3, 4, 0, 1, 12, 4, Model.Items[i]); // !!!     glEvalMesh2(GL_FILL, 0, 20, 0, 20);     glMapGrid2f(20,0,1,20,0,1);   end; Пример загрузки текстуры: Код procedure GL_LoadTexture (const FileName : string); const GL_BGRA_EXT = $80E1; var  p : TPicture;  bmp : TBitmap;  Buf : PByteArray;  y, w : integer; begin  p := TPicture.Create;  p.LoadFromFile(FileName);  bmp := TBitmap.Create;  bmp.Assign(p.Graphic);  p.Free;  bmp.PixelFormat := pf32bit;  w := bmp.Width * 4;  GetMem (Buf, w*bmp.Height);  for y := 0 to bmp.Height-1 do Move (bmp.ScanLine[y]^, Buf[(bmp.Height-y) * w], w);  gluBuild2DMipmaps (GL_TEXTURE_2D, 4, bmp.Width, bmp.Height, GL_BGRA_EXT, GL_UNSIGNED_BYTE, Buf);  glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR);  glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);  bmp.Free;  FreeMem (Buf); end;

Автор: Tosha 8.1.2005, 08:33

posol спсибо тебе большое!!! Я наложил текстуру!!!! А как сделать так что бы одно изображение наложилось на одну поверхность и пожалуста если можна как все таки мне разбить Яхту на две части: парус и корпус Пожалуста если можна поподробнее( а то я в ООП не сильно разбираюсь ) Спасибо большое

Автор: p0s0l 8.1.2005, 15:24

Цитата(Tosha @ 8.1.2005, 08:33) А как сделать так что бы одно изображение наложилось на одну поверхность Можно по-подробнее вопрос ? У тебя на всей яхте получилось много повторений одной и той же текстуры ? Тогда тебе стоит повозиться со строкой: Код glMap2f(GL_MAP2_TEXTURE_COORD_2, 0, 1, 3, 4, 0, 1, 12, 4, Model.Items[i]); // !!! Здесь есть число 0 и 1 (встречаются 2 раза)... Попробуй вместо 1 поставь 4 например, или еще что... Цитата(Tosha @ 8.1.2005, 08:33) и пожалуста если можна как все таки мне разбить Яхту на две части: парус и корпус Например так: Где объявлена константа yaxta, напиши: Код const  yaxta = 1;  parus = 2; Init_Surface будет таким: Код procedure TfrmGL.Init_Surface; ... glEnable (GL_MAP2_TEXTURE_COORD_2); // !!! glNewList (yaxta, GL_COMPILE);  glmatrixmode(gl_modelview);   glPushMatrix;   glTranslatef(0,-2.2,0);   glScalef (0.4, 0.4, 0.4);   For i := 0 to 11 do begin     glColor3f (0.5, 0.5, 0.5);     glMap2f(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, Model.Items[i]);     glMap2f(GL_MAP2_TEXTURE_COORD_2, 0, 1, 3, 4, 0, 1, 12, 4, Model.Items[i]);     glEvalMesh2(GL_FILL, 0, 20, 0, 20);     glMapGrid2f(20,0,1,20,0,1);   end; glEndList; glNewList (parus, GL_COMPILE);   For i := 12 to 17 do begin     glColor3f (0.5, 0.5, 0.5);     glMap2f(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, Model.Items[i]);     glMap2f(GL_MAP2_TEXTURE_COORD_2, 0, 1, 3, 4, 0, 1, 12, 4, Model.Items[i]);     glEvalMesh2(GL_FILL, 0, 20, 0, 20);     glMapGrid2f(20,0,1,20,0,1);   end; glEndList; Model.Free; end; Теперь у тебя уже 2 списка: yaxta и parus... WMPaint будет таким: Код procedure TfrmGL.WMPaint(var Msg: TWMPaint); var  ps : TPaintStruct; begin  BeginPaint (Handle, ps);  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);  glmatrixmode(gl_modelview);  glPushMatrix;    glRotatef(AngX, 1, 0, 0);    glRotatef(AngY, 0, 1, 0);    glRotatef(AngZ, 0, 0, 1);    glTranslatef(MoveX,MoveY,MoveZ);    glCallList (yaxta);    gltranslatef(2.3, 0, 0);    glRotatef(gettickcount/10, 0, 1, 0); // поворот в зависимости от времени... // сам сделаешь поворот на какой надо угол...    gltranslatef(-2.3, 0, 0);    glCallList (parus);  glPopMatrix;  SwapBuffers (DC);  EndPaint (Handle, ps); end;

Автор: Tosha 9.1.2005, 05:56

Спасибо большое!!!!! Если бы не вы я не знаю что бы я делал с этим курсовиком. Может быть я как то смогу вас отблагодарить?

Автор: p0s0l 9.1.2005, 11:51

Цитата(Tosha @ 9.1.2005, 05:56) Может быть я как то смогу вас отблагодарить Можешь - Заходи сюда еще раз - всегда будем рады ! PS: можно и на "ты", ведь я тоже студент

Автор: Tosha 10.1.2005, 01:20

спасибо еще раз

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)