- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
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;
Александр Михалицын 29.10.2009 19:52 # 0
А графики функций в консоли строить не пробовали? xD (Я, кстати, серьезно...)
guest 30.10.2009 00:01 # −1
А так весьма забавно :)
Jaga 29.10.2009 21:26 # 0
guest 30.10.2009 00:18 # 0
guest 11.12.2009 18:53 # −1
// Капитан Очевидность