Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+92.8
procedure MyLine(X1, Y1, X2, Y2: Integer; Color: TColor; Canvas: TCanvas);
begin
if (Abs(X1 - X2) <= 1) and (Abs(Y1 - Y2) <= 1) then
Canvas.Pixels[X1, Y1] := Color
else
begin
MyLine(X1, Y1, (X1 + X2) shr 1, (Y1 + Y2) shr 1, Color, Canvas);
MyLine((X1 + X2) shr 1, (Y1 + Y2) shr 1, X2, Y2, Color, Canvas);
end;
end;
Когда-то давно очень увлекался рисованием в ДОС-е.
До сих пор помню процедуру быстрого рисования кривой прямой %)
представляю на суд тот же алгоритм.
Запостил: 
Arch,
29 Октября 2009
Follow us!
А графики функций в консоли строить не пробовали? xD (Я, кстати, серьезно...)
А так весьма забавно :)
// Капитан Очевидность