Разложение линии в растр и отсечение, нужна помощь Опции

[cooler]

Нужна программа (delphi) разложения прямой линии в растр и отсечения линии.
Т.е на экране задается линия, прямоугольная область. В этой области прямая должна быть разложена в растр и закрашена другим цветом(отсечение)
Буду благодарен за любую помощь.
Может кто встречал такую программу?
Или может быть делал?

[Lapp]

Или может быть делал?

Я делал когда-то давно..
Если правильно помню, там использовались какие-то очень редкие методы Canvas.. Во, вспомнил - кажется так:

MoveTo(x1,y1); LineTo(x2,y2);