Я прям ждал подобного ответа...

Вы меня немного не поняли мне нужна функция которая будет рисовать с помощью Pixels!!! К примеру:
Код:
For gip := 0 to l do
begin
[ну а тут должна быть та заветная формула!]
Image1.Canvas.Pixels[x3,y3] := clBlack;
end;
Help!...
