[OpenGl Delphi] Чайник из поверхности безье

[neomax38]

Добрый день. Есть программа для построения поверхности безье с http://nehe.gamedev.net/tutorial/bez...een_fix/18003/ , мне нужно с помощью нее построить или любой другой построить Чайник. Код слишков великоват... Может у кого заволялся?

[Rin]

Тебе принципиально нужно самому его строить или можно воспользоваться сторонними модулями? А то есть модуль GLUT, в котором построение чайника уже встроено и вызывается одной функцией.
procedure glutSolidTeapot(Scale : GLdouble);

[neomax38]

Именно так по точкам...

[Rin]

Ну тогда тебе может пригодиться вот это.

[neomax38]

Ооо как жестко... А как все это на opengl реализовать

[glyckoza]

на опенгл это еще сложнее))

_______________________
http://www.gardencompany.org/

[Rin]

Упрощу тебе задачу, точки чайника лежат в файле "123", а за считывание точек отвечает процедура ReadFromFile. А вот как организовать построение по точкам остаётся домашним заданием.

[neomax38]

Это же точки для построения чайника из полигонов... Как из них поверхность Безье сделать? Еще мне упростили задание.. Надо не чайник а вазу простую например..

[neomax38]

Вот нарисовал половинку вазы.. Вторую не знаю как отзеркалить.. И дно как нарисовать

procedure initBezier;                                      
begin
  mybezier.anchors[0,0] := makePoint(-0.75,-0.75,-0.5);
  mybezier.anchors[0,1] := makePoint(-0.25,-0.75, 0); 
  mybezier.anchors[0,2] := makePoint( 0.25,-0.75, 0);


  mybezier.anchors[0,3] := makePoint( 0.75,-0.75,-0.5);
  mybezier.anchors[1,0] := makePoint(-0.75,-0.25,-0.5);
  mybezier.anchors[1,3] := makePoint( 0.75,-0.25,-0.5);
  mybezier.anchors[2,0] := makePoint(-0.75, 0.25, -0.5);
  mybezier.anchors[2,3] := makePoint( 0.75, 0.25, -0.5);
  mybezier.anchors[3,0] := makePoint(-0.75, 0.75,-0.5);
  mybezier.anchors[3,1] := makePoint(-0.25, 0.75,0.75);
  mybezier.anchors[3,2] := makePoint( 0.25, 0.75,0.75);
  mybezier.anchors[3,3] := makePoint( 0.75, 0.75,-0.5);


//  mybezier.anchors[4,0] := makePoint(0.75,0.75,0.5);
//  mybezier.anchors[4,1] := makePoint(0.25,0.75, 0.0); 
//  mybezier.anchors[4,2] := makePoint( -0.25,0.75, 0.0);
//  mybezier.anchors[4,3] := makePoint( -0.75,0.75,0.5);
//  mybezier.anchors[5,0] := makePoint(0.75,0.25,0.5);
//  mybezier.anchors[5,3] := makePoint( -0.75,0.25,0.5);
//  mybezier.anchors[6,0] := makePoint(0.75, -0.25, 0.5);
//  mybezier.anchors[6,3] := makePoint( -0.75, -0.25, 0.5);
//  mybezier.anchors[7,0] := makePoint(0.75, -0.75,0.5);
//  mybezier.anchors[7,1] := makePoint(0.25, -0.75,-0.75);
//  mybezier.anchors[7,2] := makePoint( -0.25, -0.75,-0.75);
//  mybezier.anchors[7,3] := makePoint( -0.75, -0.75,0.5);

[Rin]

Нужно создать ещё один глобальный массив mybezier1 такого же типа как mybezier.
Заполнить такими точками.

  mybezier1.anchors[0,0] := makePoint(-0.75,-0.75,-0.5);
  mybezier1.anchors[0,1] := makePoint(0.25,0.75, 0); 
  mybezier1.anchors[0,2] := makePoint( -0.25,0.75, 0);


  mybezier1.anchors[0,3] := makePoint( 0.75,-0.75,-0.5);
  mybezier1.anchors[1,0] := makePoint(0.75,0.25,0.5);
  mybezier1.anchors[1,3] := makePoint( -0.75,0.25,0.5);
  mybezier1.anchors[2,0] := makePoint(0.75, -0.25, 0.5);
  mybezier1.anchors[2,3] := makePoint( -0.75, -0.25, 0.5);
  mybezier1.anchors[3,0] := makePoint(-0.75, 0.75,-0.5);
  mybezier1.anchors[3,1] := makePoint(0.25, -0.75,-0.75);
  mybezier1.anchors[3,2] := makePoint( -0.25, -0.75,-0.75);
  mybezier1.anchors[3,3] := makePoint( 0.75, 0.75,-0.5);

И для него выполнить такие же команды OpenGL как и для mybezier.
А окружность строится с помощью gluDisk();
А вообще почитай Краснов "OpenGL в Delphi". Найди прям с исходниками.