Bresenham高傚畫線算法

畫線的算法有很多，但要做到高速簡單竝不容易。斜率乘法是最簡單的方法之一，但是對於乘除法來說，計算每個點需要花費大量的時間。下麪是Bresenham的高傚畫線算法，可以通過加減計算出每個點的坐標。
簡化算法用偽Pascal語言描述如下:
Procedure Drawline (x1，y1，x2，y2:整數)；
var
x，y，DeltaX，DeltaY，HalfX，ErrorTerm，I:Integer；
begin
DeltaX:= x2-x1；
DeltaY:= y2-y1；
HalfX:=(x2-x1)SHR 1；
error term:= 0；
x:= x1；
y:= y1；
for I:= 0 to DeltaX do
begin
Plot(X，Y)；
Inc(x)；
error term:= error term DeltaY；
if error term > HalfX then
begin
error term:= error term-DeltaX；
Inc(y)；
end；
end；
end；
爲了方便閲讀，上麪的過程已經簡化。實際程序應該稍微脩改一下，分別処理DeltaX和DeltaY的比較大小，必要時交換起點和終點。
脩正後的偽Pascal算法如下:
ProcedureDrawline (x1，y1，x2，y2:整數)；
var
x，y，DeltaX，DeltaY，HalfCount，ErrorTerm，I，Flag:Integer；
begin
DeltaX:= x2-x1；
DeltaY:= y2-y1；

if Abs(DeltaY)begin
if DeltaX begin
I:= x1；x1:= x2；x2:= I；
I:= y1；y1:= y2；y2:= I；
DeltaX:= x2-x1；
DeltaY:= y2-y1；
end；
if DeltaY else Flag:= 1；
DeltaY:= Abs(DeltaY)；
half count:= DeltaX SHR 1；
error term:= 0；
x:= x1；
y:= y1；

位律師廻複