Line(x1,y1,x2,y2)

[shurik-ua]

для случая dx>dy

  for n=1 to var1 ;выделяем 4 итерации для алгоритма брезенхейма
    inc(x)
    err = err+dy
    if err >= dx then
      err=err-dx
      inc(y)
      end if
    next n
  result x0+x,y0+y

но это только для одной четрерти )) - для остальных четвертей нужно одну из координат увеличивать а другую уменьшать - ну и в пределах каждой четверти у алгоритма две ветки.

Но если var1=1 (т.е нужно сделать один шаг) то лажает.

var1 и не нужно делать 1 - собственно ради этого всё и затевалось )

[Advertiser]