Движок на OpenGL

[_-Re@l-_]

Вот, нашёл некое подобие движка на OpenGL. Решил перевести его на DirectX.К счастью движок короткий, да и несложный.Правда, OpenGL я знаю плохо, так что прошу о помощи в переводе.
1. Как я понимаю, это что-то типа инициализации OpenGL?

procedure SetDCPixelFormat;
var
  pfd:TPixelFormatDescriptor;
  nPixelFormat:Integer;
begin
  FillChar(pfd,SizeOf(pfd),0);
  pfd.dwFlags:=PFD_DRAW_TO_WINDOW or
               PFD_DOUBLEBUFFER or
               PFD_SUPPORT_OPENGL;
  nPixelFormat:=ChoosePixelFormat(DC,@pfd);
  SetPixelFormat(DC,nPixelFormat,@pfd);
end;

2. И это тоже?

DC:=GetDC(Handle);
  SetDCPixelFormat;
  HRC:=wglCreateContext(DC);
  wglMakeCurrent(DC,HRC);

3.А вот это я вообще не понимаю.

 glEnable(GL_DEPTH_TEST);
  glNewList(1,GL_COMPILE);
    glBegin(GL_LINES);
      glColor3f(0.7,1.0,0.7);
      for i:=-50 to 50 do
      begin
        glVertex3f(-50,-1,i);
        glVertex3f(50,-1,i);
        glVertex3f(i,-1,-50);
        glVertex3f(i,-1,50);
      end;
    glEnd;
  glEndList;

[.pixel]

1

Function SetupPP():D3DPRESENT_PARAMETERS;
Var
PP:D3DPRESENT_PARAMETERS;
DM:D3DDISPLAYMODE;
Begin
D3D.GetAdapterDisplayMode(D3DADAPTER_DEFAULT, DM);
pp.Windowed:=True; 
pp.SwapEffect :=D3DSWAPEFFECT_DISCARD;
pp.BackBufferCount:=1;
pp.BackBufferFormat := DM.Format;
pp.PresentationInterval:=D3DPRESENT_INTERVAL_IMMEDIATE;
Result:=PP;
End

2.

Аналог в dx: вызов CreateDevice и скармливание ему HWND вашего окна)

3.

Блоки состояний рендеринга. И у m$ dx даже такое есть Оо!
В общем говоря, это подготовка геометрии… что бы ее потом рисовать в одну строчку glCallList(1) и не писать/вызывать потом весь код каждый раз;

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

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

lpDevice->BeginStateBlock()
...
lpDevice->EndStateBlock();

[_-Re@l-_]

В общем-то, спасибо, .pixel.
А вот про пункт 3. Проще говоря, это подготовка вершин?

[.pixel]

А вот про пункт 3. Проще говоря, это подготовка вершин?

Ну да, генерация некоторой геометрии и закрепление ее за некоторым списком отображения.

[_-Re@l-_]

Function SetupPP():D3DPRESENT_PARAMETERS;
Var
PP:D3DPRESENT_PARAMETERS;
DM:D3DDISPLAYMODE;
Begin
D3D.GetAdapterDisplayMode(D3DADAPTER_DEFAULT, DM);
pp.Windowed:=True; 
pp.SwapEffect :=D3DSWAPEFFECT_DISCARD;
pp.BackBufferCount:=1;
pp.BackBufferFormat := DM.Format;
pp.PresentationInterval:=D3DPRESENT_INTERVAL_IMMEDIATE;
Result:=PP;
End

Вот только сколько я помню делается так:

Function TForm1.InitSAME: HResult;
Var
   d3dDisplayInfo: TD3DDisplayMode;
   d3dParams:      TD3DPresentParameters;
Begin
     Result:=E_FAIL;
     SAMED3D:=Direct3DCreate9(D3D_SDK_VERSION);
     If SAMED3D = NIL Then Exit;
     Result:=SAMED3D.GetAdapterDisplayMode(D3DADAPTER_DEFAULT,d3dDisplayInfo);
     If Failed(Result) Then Exit;
     ZeroMemory(@d3dParams,SizeOf(d3dParams));
     d3dParams.Windowed:=False;
     d3dParams.SwapEffect:=D3DSWAPEFFECT_DISCARD;
     d3dParams.BackBufferFormat:=d3dDisplayInfo.Format;
     Result:=SAMED3D.CreateDevice(D3DADAPTER_DEFAULT,D3DDEVTYPE_HAL,Form1.Handle,
     D3DCREATE_SOFTWARE_VERTEXPROCESSING,@d3dParams,SAMED3DDevice);
End;

InitSAME - так я обозвал инициализацию движка.