Потоки... Потоки? Потоки!, FPC Опции

[Archon]

Сел переписывать движок Doomed Game под потоки и... понял, что мои знания о потокобезопасности оставляют желать лучшего. Может быть кто-нибудь (volvo?) проведет несколько лекций на эту тему? Думаю, это не только меня может заинтересовать. Или может я просто задам свои вопросы?

[Archon]

Продолжаю исправлять классы. Работу с текстурами я просто сокрыл внутри спрайтов. Так что теперь главное - сделать безопасную работу со спрайтами.

TSprite = class(TGraphicObject)
	private
		Texture: TTexture;
		CurrentMode: Integer;
		FramesNum: Integer;
		CurrentFrame: Integer;
		FrameInterval: Double;
		RepeatAnimation: Boolean;
		FrameTime: Double;
		SpriteCenter: TD3DXVECTOR3;
		Scale: TD3DMATRIX;
		Rotate: TD3DMATRIX;
		Translate: TD3DMATRIX;
		Transform: TD3DMATRIX;
		FWidth, FHeight: Integer;
	public
		// Width, Height - размеры спрайта (в тайлах, могут быть дробными).
		// Texture - имя файла с текстурой, которая должна быть наложена на спрайт.
		// AWidth, AHeight - размеры спрайта (размеры одного кадра тектсуры в пикселах).
		constructor Create(const TextureName: AnsiString; AWidth, AHeight: Integer);
		// Деструктор автоматически пытается удалить объект из контейнера Sprites.
		destructor Destroy; override;
		// Установка параметров анимации. Параметры:
		// Mode - номер анимации. Frame - номер текущего кадра. Frames - число кадров.
		// CenterX, CenterY - координаты центра спрайта, относительно которого отсчитываются
		// координаты и происходит поворот.
		// Interval -  время показа кадра в мс, 0, если анимация не нужна.
		// RepeatAni - повторять ли анимацию.
		procedure SetMode(Mode, Frame, Frames, CenterX, CenterY, Interval: Integer; RepeatAni: Boolean);
		// Установить параметры: координаты, угол поворота, масштаб.
		procedure SetParams(X, Y, Z, Angle, ScaleX, ScaleY: Single);
		// Нарисаовать спрайт.
		procedure Draw;
		// Обработчик спрайта. Принимает время, прошедшее с предыдущего вызова в мс.
		procedure Update(Delta: Double); override;
		property Width: Integer read FWidth;
		property Height: Integer read FHeight;
	end;

Предпологается, что один поток будет делать SetMode и SetParams, а другой Update и Draw. Критические секции сделать не проблема, но не будет ли это слишком медленным? Все таки каждый кадр предпологается рисовать множество этих спрайтов.