delphi поверхность Безье

[un_known]

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

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,OpenGL;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    dc:HDC;
    hrc:HGLRC;
 procedure SetDCPixelFormat;
const
 n=100; p=0.05;
var
  Form1: TForm1;
  x,y:array [0..n-1] of GLFloat;
  z:array [0..n-1,0..n-1] of GLFloat;
  i,j,k:integer;

implementation
Procedure TForm1.SetDCPixelFormat;
var
  i:integer;
  pfd:TPixelFormatDescriptor;
begin
  FillChar(pfd,sizeOf(pfd),0);
  pfd.dwFlags:=pfd_Draw_to_Window  or  pfd_Support_OpenGL or       pfd_DoubleBuffer;
  i:=ChoosePixelFormat(dc,@pfd);
  SetPixelFormat(dc,i,@pfd);
  end;
procedure TForm1.FormCreate(Sender: TObject);
 begin
   dc:=GetDC(handle);
   SetDCPixelFormat;
   hrc:=wglCreateContext(dc);
   wglMakeCurrent(dc,hrc);

    for i:=0 to n-1 do
      begin
        x[i]:=i*p-1;
        y[i]:=x[i];
      end;

     for i:=1 to n-2 do
     for j:=1 to n-2 do
       z[i,j]:=2*random-1; //как получить эту высоту для каждой точки из рисунка?
     
    for k:=1 to 5 do
     for i:=1 to n-2 do
     for j:=1 to n-2 do
     z[i,j]:=(z[i-1,j-1]+z[i-1,j]+z[i-1,j+1]+z[i,j-1]+
        z[i,j]+z[i,j+1]+z[i+1,j-1]+z[i+1,j]+z[i+1,j+1])/9;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
   i,j:GLInt;
begin
    glpushmatrix;
    glClearColor(0.0,0.3,0.0,0.0);
    glClear(Gl_Color_Buffer_Bit or GL_DEPTH_Buffer_Bit);
     for i:=0 to n-1 do
     for j:=0 to n-2 do
    begin
   glBegin(Gl_Line_loop);
     glVertex3f(x[i],y[j],z[i,j]);
     glVertex3f(x[i+1],y[j],z[i+1,j]);
     glVertex3f(x[i],y[j+1],z[i,j+1]);
     glVertex3f(x[i+1],y[j+1],z[i+1,j+1]);
   glend;
 end;
   SwapBuffers(dc);
   glpopmatrix;
end;

end.

сначала (без наложения текстуры) нужно из черно-белого изображения получать какую либо из rgb координат, определяя тем самым высоту каждой точки, чтобы получилась модель данной карты? как это осуществить? прикреплен пример карты

[Rin]

В uses добавляем модуль jpeg , чтобы грузить *.jpg . Далее в создаём глобальную переменные jpg:TJPEGImage; и bmp:TBitmap; и делаем так:

    jpg:=TJPEGImage.Create;
    jpg.CompressionQuality := 100;
    jpg.LoadFromFile('11.jpg');
    bmp := TBitmap.Create;
    bmp.Assign(jpg);
.........
z[i,j]:=(GetRValue(Bmp.Canvas.Pixels[i,j])+
              GetGValue(Bmp.Canvas.Pixels[i,j])+
              GetBValue(Bmp.Canvas.Pixels[i,j]))/un_known;  
// un_known - какая-то константа, подобранная  экспериментально.
.....
jpg.Free;
bmp.Free;

Но в вашем случае для массива Z нужно использовать размеры my_width = bmp.Width и my_Height =bmp.Height вместо N=100.

[un_known]

спасибо большое, с этим разобралась.
нашла пример, где поверхность рисуется следующим образом:

 
 glMap2f(GL_MAP2_VERTEX_3, 0, 1, 3, 4, 0, 1, 12, 4, @ctrlpoints);
 glEnable(GL_MAP2_VERTEX_3);
 glMapGrid2f(20, 0.0, 1.0, 20, 0.0, 1.0);

и в разделе констант вручную задается двумерный массив из 16 опорных точек.
в моем случае три массива: одномерные x и y; двумерный z, который высчитывается след образом:

    for i:=0 to Bitmap.Width-1 do
    for j:=0 to Bitmap.Height-1 do
      begin
       Col:=Bitmap.Canvas.Pixels[j,i];
       z[i,j]:=0.003*getRvalue(Col);
      end;

не могу разобраться, какой мне нужно задать массив опорных точек, чтобы построить нужную поверхность?

[Rin]

и в разделе констант вручную задается двумерный массив из 16 опорных точек.

У Вас должен быть трёхмерный массив [1..m, 1..n, 0..2], где первые две размерности - это величины сетки, а третья размерность - это координаты в 3D-пространстве. Но строить карту местности через поверхность Безье, ИМХО, извращение.

[un_known]

спасибо )
ну это было наставление преподавателя сделать так, а каким образом лучше построить? )

[Rin]

Ну вот самый простой способ(см. "Вложения"- Borland Studio Projects.rar в самом низу этого комментария).
На стрелочки можно крутить карту.
Так же можно сделать zoom, если добавить глобальную переменную "un_known" и на кнопки "+" и "-" написать действия

un_known:=un_known+0.1;
un_known:=un_known-0.1;

А в FormPaint в функции glScale вместо 0.5 использовать un_known.

P.S. Если что-то по коду непонятно, не стесняйтесь, спрашивайте.

[un_known]

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

[Rin]

У меня не тормозит. Мышкой , так мышкой. Объявите такие глобальные переменные:

rx,ry,ox,oy:integer;// для поворота мышью
push:boolean=false;// для поворота мышью

И напишите на события мыши такие строки:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);{при нажатии левой кнопки
мыши запоминаем положение координат мыши}
begin
IF button=mbLeft then
begin
 push:=true;
 ox:=rx-x;
 oy:=ry-y;
end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);{при нажатии кнопки и передвижении мыши
  мы вертим объект}
begin
 if push then
 begin
     rx:=ox+x;
     ry:=oy+y;
   Formpaint(nil);//перерисовываем форму
 end;

end;

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

В FormPaint будет так:

      glRotate(rx,0,1,0);
      glRotate(ry,1,0,0);

[Rin]

Можно ли схематично построить дома на карте

Можно. Места, где стоят дома, на карте высот пометить белым.