ITPub博客

首页 > 应用开发 > IT综合 > Bresenham高效画线算法 (转)

Bresenham高效画线算法 (转)

原创 IT综合 作者:worldblog 时间:2007-12-04 15:13:29 0 删除 编辑
Bresenham高效画线算法 (转)[@more@]

Bresenham高效画线算法

  画线的算法不少,但要作到高速、简单并不容易。斜率相乘法是最简单的方法之一,但计算每个点均要花费不少时间用于乘、除法运算;下面介绍的是Bresenham's高效画线算法,对每个点的坐标计算只要加、减法就能完成。
  简化算法用伪Pascal语言描述如下:
procedure DrawLine(x1, y1, x2, y2: Integer);
var
  x, y, DeltaX, DeltaY, HalfX, ErrorTerm, i: Integer;
begin
  DeltaX := x2 - x1;
  DeltaY := y2 - y1;
  HalfX := (x2 - x1) shr 1;
  ErrorTeRM := 0;
  x := x1;
  y := y1;
  for i:=0 to DeltaX do
  begin
  Plot(X, Y);
  Inc(x);
  ErrorTerm := ErrorTerm + DeltaY;
  if ErrorTerm>HalfX then
  begin
  ErrorTerm := ErrorTerm - DeltaX;
  Inc(y);
  end;
  end;
end;
  为方便阅读,上述程序作了简化。实际程序应略作修正,以分别处理DeltaX与DeltaY比较大小, 必要时交换起始、结束点等。
  修正后的的伪Pascal算法如下:
procedure DrawLine(x1, y1, x2, y2: Integer);
var
  x, y, DeltaX, DeltaY, HalfCount, ErrorTerm, i, Flag: Integer;
begin
  DeltaX := x2 - x1;
  DeltaY := y2 - y1;

  if Abs(DeltaY)  begin
  if DeltaX<0 then
  begin
  i := x1;  x1 := x2;  x2 := i;
  i := y1;  y1 := y2;  y2 := i;
  DeltaX := x2 - x1;
  DeltaY := y2 - y1;
  end;
  if DeltaY<0 then Flag := -1
  else Flag := 1;
  DeltaY := Abs(DeltaY);
  HalfCount := DeltaX shr 1;
  ErrorTerm := 0;
  x := x1;
  y := y1;
  for i:=0 to DeltaX do
  begin
  Plot(X, Y);
  Inc(x);
  ErrorTerm := ErrorTerm + DeltaY;
  if ErrorTerm>HalfCount then
  begin
  ErrorTerm := ErrorTerm - DeltaX;
  y := y + Flag;
  end;
  end;
  end
  else
  begin
  if DeltaY<0 then
  begin
  i := x1;  x1 := x2;  x2 := i;
  i := y1;  y1 := y2;  y2 := i;
  DeltaX := x2 - x1;
  DeltaY := y2 - y1;
  end;
  if DeltaX<0 then Flag := -1
  else Flag := 1;
  DeltaX := Abs(DeltaX);
  HalfCount := DeltaY shr 1;
  ErrorTerm := 0;
  x := x1;
  y := y1;
  for i:=0 to DeltaY do
  begin
  Plot(X, Y);
  Inc(y);
  ErrorTerm := ErrorTerm + DeltaX;
  if ErrorTerm>HalfCount then
  begin
  ErrorTerm := ErrorTerm - DeltaY;
  x := x + Flag;
  end;
  end;
  end;
end;


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-988396/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2446651