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

[neomax38]

Все конечно норм, но вот теперь не могу найти центральную точку от которой строится поверхность

[Rin]

"Центральная точка" находится либо в (-0.75,0,-0.5), либо в (0.75,0,-0.5)-смотря с какой стороны ты будешь диск рисовать.

[neomax38]

Сообщение от Rin

"Центральная точка" находится либо в (-0.75,0,-0.5), либо в (0.75,0,-0.5)-смотря с какой стороны ты будешь диск рисовать.

Да дело не в том... Форма вазы неправильная, видимо из-за того что из одной точки строится

[Rin]

Я сначала не до конца понял как рисуется 1-ая часть вазы. Пришлось открыть делфи.
Вот координаты 2-ой части вазы:

  mybezier1[0,0,0]:=-0.75;mybezier1[0,0,1]:=-0.75; mybezier1[0,0,2]:=-0.5;
  mybezier1[0,1,0]:=-0.25;mybezier1[0,1,1]:=-0.75; mybezier1[0,1,2]:=-1;
  mybezier1[0,2,0]:=0.25; mybezier1[0,2,1]:=-0.75; mybezier1[0,2,2]:=-1;
  mybezier1[0,3,0]:=0.75; mybezier1[0,3,1]:=-0.75; mybezier1[0,3,2]:=-0.5;

  mybezier1[1,0,0]:=-0.75;mybezier1[1,0,1]:=-0.25;mybezier1[1,0,2]:=-0.5;
  mybezier1[1,1,0]:=0;    mybezier1[1,1,1]:=0;    mybezier1[1,1,2]:=-1;
  mybezier1[1,2,0]:=0;    mybezier1[1,2,1]:=0;    mybezier1[1,2,2]:=-1;
  mybezier1[1,3,0]:=0.75; mybezier1[1,3,1]:=-0.25;mybezier1[1,3,2]:=-0.5;

  mybezier1[2,0,0]:=-0.75;mybezier1[2,0,1]:=0.25; mybezier1[2,0,2]:=-0.5;
  mybezier1[2,1,0]:=0;    mybezier1[2,1,1]:=0;    mybezier1[2,1,2]:=-1;
  mybezier1[2,2,0]:=0;    mybezier1[2,2,1]:=0;    mybezier1[2,2,2]:=-1;
  mybezier1[2,3,0]:=0.75; mybezier1[2,3,1]:=0.25; mybezier1[2,3,2]:=-0.5;

  mybezier1[3,0,0]:=-0.75;mybezier1[3,0,1]:=0.75;mybezier1[3,0,2]:=-0.5;
  mybezier1[3,1,0]:=-0.25;mybezier1[3,1,1]:=0.75;mybezier1[3,1,2]:=-2;
  mybezier1[3,2,0]:=0.25; mybezier1[3,2,1]:=0.75;mybezier1[3,2,2]:=-2;
  mybezier1[3,3,0]:=0.75; mybezier1[3,3,1]:=0.75;mybezier1[3,3,2]:=-0.5;

Теперь тебе осталось сделать дно вазы, которое по форме напоминает человеческий глаз.

[neomax38]

Сообщение от Rin

Я сначала не до конца понял как рисуется 1-ая часть вазы. Пришлось открыть делфи.
Вот координаты 2-ой части вазы:

  mybezier1[0,0,0]:=-0.75;mybezier1[0,0,1]:=-0.75; mybezier1[0,0,2]:=-0.5;
  mybezier1[0,1,0]:=-0.25;mybezier1[0,1,1]:=-0.75; mybezier1[0,1,2]:=-1;
  mybezier1[0,2,0]:=0.25; mybezier1[0,2,1]:=-0.75; mybezier1[0,2,2]:=-1;
  mybezier1[0,3,0]:=0.75; mybezier1[0,3,1]:=-0.75; mybezier1[0,3,2]:=-0.5;

  mybezier1[1,0,0]:=-0.75;mybezier1[1,0,1]:=-0.25;mybezier1[1,0,2]:=-0.5;
  mybezier1[1,1,0]:=0;    mybezier1[1,1,1]:=0;    mybezier1[1,1,2]:=-1;
  mybezier1[1,2,0]:=0;    mybezier1[1,2,1]:=0;    mybezier1[1,2,2]:=-1;
  mybezier1[1,3,0]:=0.75; mybezier1[1,3,1]:=-0.25;mybezier1[1,3,2]:=-0.5;

  mybezier1[2,0,0]:=-0.75;mybezier1[2,0,1]:=0.25; mybezier1[2,0,2]:=-0.5;
  mybezier1[2,1,0]:=0;    mybezier1[2,1,1]:=0;    mybezier1[2,1,2]:=-1;
  mybezier1[2,2,0]:=0;    mybezier1[2,2,1]:=0;    mybezier1[2,2,2]:=-1;
  mybezier1[2,3,0]:=0.75; mybezier1[2,3,1]:=0.25; mybezier1[2,3,2]:=-0.5;

  mybezier1[3,0,0]:=-0.75;mybezier1[3,0,1]:=0.75;mybezier1[3,0,2]:=-0.5;
  mybezier1[3,1,0]:=-0.25;mybezier1[3,1,1]:=0.75;mybezier1[3,1,2]:=-2;
  mybezier1[3,2,0]:=0.25; mybezier1[3,2,1]:=0.75;mybezier1[3,2,2]:=-2;
  mybezier1[3,3,0]:=0.75; mybezier1[3,3,1]:=0.75;mybezier1[3,3,2]:=-0.5;

Теперь тебе осталось сделать дно вазы, которое по форме напоминает человеческий глаз.

Ооо Как же по этим координатам нарисовать?
Тут для одной координаты место в массиве..
как привести к виду:

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

[Rin]

  mybezier1[0,0,0]:=-0.75;    // X
  mybezier1[0,0,1]:=-0.75;    // Y
  mybezier1[0,0,2]:=-0.5;     // Z

равно

 
//////////////////////////////////////X//////Y/////Z
 mybezier.anchors[0,0] := makePoint(-0.75,-0.75,-0.5);

[neomax38]

Все прекрасно кроме одной точки
Не могу понять какая из них. Пытался по очереди изменять но ни как

[Rin]

Все прекрасно кроме одной точки

Кроме двух точек, если быть точнее.
Проверь эти координаты. Они должны быть такими!

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

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

[neomax38]

Все так и есть (

[Rin]

А ты найди в коде такую вещь:

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

Исправь то, что выделено красным, и увидишь, что все правильно!