Конвейер рендеринга.

[Warn]

Как его не слишком мудрено и удобно можно сделать?

Единственно что пока пришло в голову. Описать абстрактный класс TRenderable с методом Draw(), который буду перекрывать в потомках.
Скажем в TRenderableSphere и TRenderableBox. Для этих классов делаю либо сложные конструкторы c кучей параметров либо специализированные Factory. И далее объекты добавляются к Renderer в список для прорисовки, перед этим сортировка по удалению от камеры и размеру. Все… но я что-то упусти думаю даже много, но что? И вообще кто как делает?
Наглядно это у меня пока выглядит так...

procedure Rendering();
begin
  if (DEVICE.TestCooperativeLevel = D3D_OK) then begin
  	DEVICE.Clear(0, nil, D3DCLEAR_TARGET or D3DCLEAR_ZBUFFER, D3DCOLOR_XRGB(0, 0, 255), 1, 0);
    DEVICE.BeginScene();

    DrawAll();

    DEVICE.EndScene();
    Device.Present(nil,nil,0,nil);
  end
  else begin
  	if (MessageBoxA(0,'Произошла потеря устройства отрисовки', 'Ошибка фазы прорисовки', MB_OKCANCEL or MB_ICONWARNING) = MB_OK) then
  		DEVICE.Reset(pp)
    else
    	PostQuitMessage(1);
  end;
end;
end.

ф-я Rendering() вызывается в главном цикле программы, если нет сообщений окну. он в свою очередь вызывает DrawAll(), который выглядит так...

unit Renderer;

interface

const RENDERABLE_MAX  = 1024;
const RENDERABLE_ERROR : Cardinal = 0;
const RENDERABLE_SUCCESS : Cardinal = 1;

type

	PTRenderable = ^TRenderable;
	TRenderable = class
  private
  	index : Cardinal;
  public
  	function Draw(): Integer;virtual;abstract;
	end;

	procedure DrawAll();
  function IncludeToRendering(var obj : TRenderable ): Integer;
  procedure ExcludeFromRendering(var obj : TRenderable);

var
  RenderableList : Array[0..RENDERABLE_MAX] of PTRenderable;  { Список }
  ActiveCount : Integer;     			{ Кол-во активных рисуемых объектов в списке }
  LastIndexAdding : Integer; 			{ Позиция последнего помещения }
  LastIndexDeleting : Integer; 		{ Позиция последнего удаления }
implementation

procedure DrawAll();
var
	e : PTRenderable;
begin
	ActiveCount := 0;
  for e in RenderableList do
  begin
  	if (e <> nil) then
    	begin
    		e.Draw();
      	inc(ActiveCount)
    	end;
  end;

end;

function IncludeToRendering(var obj : TRenderable ): Integer;
begin
	if (ActiveCount < RENDERABLE_MAX) then
  	begin
    	if LastIndexDeleting <> -1 then
      	begin
      		RenderableList[LastIndexDeleting]:= @obj;
          LastIndexDeleting:=-1;
        end
      else
        begin
        	RenderableList[LastIndexAdding]:= @obj;
          inc(LastIndexAdding);
        end;
    result := RENDERABLE_SUCCESS;
    exit;
  	end
  else
  	result := RENDERABLE_ERROR;
end;

procedure ExcludeFromRendering(var obj : TRenderable);
begin
	LastIndexDeleting := obj.index;
  RenderableList[LastIndexDeleting]:=nil;
end;

{ Инициализация }
initialization
begin
	ActiveCount:=0;
  LastIndexAdding:=0;
  LastIndexDeleting:=-1;
end;
end.

[Warn]

Для потомков))
Тут много чего интересного про конвеер... этого как его? рендеринга - вот! С 15-тью фазами...%
http://www.geeks3d.com/20111025/the-...d-frostbite-2/