"Пройти" прямую в пространстве по приращениям

[ayPinki]

Суть такая - даны координаты( х,у,z) точки начала и точки конца, нужно с заданной степенью дескретезации пройти как бы по шагам(приращениям в каждой координате) эту прямую.
Помогите пожалуйста с алгоритмом...

[Sibedir]

это же тоже самое что алгоритм рисования прямой

[ayPinki]

Сообщение от Sibedir

это же тоже самое что алгоритм рисования прямой

ну так подскажите его пожалуйста

[evg_m]

http://algolist.manual.ru/graphics/painting/line.php

[ayPinki]

Сообщение от evg_m

http://algolist.manual.ru/graphics/painting/line.php

procedure TForm1.Button1Click(Sender: TObject);
var
    x1,x2,y1,y2,dx,dy,s1,s2,x,y,o,i,v,obmen   : integer;
begin
  x1:=strtoint(edit1.Text);
  y1:=strtoint(edit2.Text);
  x2:=strtoint(edit3.Text);
  y2:=strtoint(edit4.Text);
  x:=x1;
  y:=y1;
  dx:=(abs(x2-x1));
  dy:=(abs(y2-y1));
  if (x2-x1)<=0 then s1:=-1 else s1:=1;
  if (y2-y1)<=0 then s2:=-1 else s2:=1;
  if dy>dx then
  begin
    v:=dx;
    dx:=dy;
    dy:=v;
    obmen:=1;
  end
  else obmen:=0;
  o:=2*dy-dx;
  for i := 1 to dx do
  begin
    form1.Canvas.Pixels[x,y]:=clBlack;
    while o>=0 do //тут что то с begin end напутано?
    begin
      if obmen=1 then
      x:=x+s1
      else
        y:=y+s2;
      o:=o-2*dx;
    end;
    if obmen=1 then y:=y+s2
    else x:=x+x1;
    o:=o+2*dy;
  end;

там по моему ошибочка есть, с begin end, помогите понять как правильно стоять должно?
и это брезенхейм для 2-х координат, помогите преобразовать для трех...
хотя строит корректно, всё равно не пойму логики с этим while не на "весь" код

[evg_m]

и это брезенхейм для 2-х координат, помогите преобразовать для трех...

Если Е < 0, то точное Y-значение округляется до последнего меньшего целочисленного значения Y, т.е. Y-координата не меняется по сравнению с предыдущей точкой. В противном случае Y увеличивается на 1

Наверное тоже надо сделать и с третьей координатой (Z).

[ayPinki]

Сообщение от evg_m

Наверное тоже надо сделать и с третьей координатой (Z).

а что это за Е?
я просто не понимаю что делать например с o:=2*dy-dx; тогда...

[evg_m]

смотри 11.jpg

[ayPinki]

Сообщение от evg_m

смотри Вложение 73793

я пытался... подправите

var
    z1,z2,x1,x2,y1,y2,dx,dy,dz,s1,s2,s3,x,y,z,o,oz,i,v,obmen   : integer;
begin
  memo1.Clear;
  x1:=strtoint(edit1.Text);
  y1:=strtoint(edit2.Text);
  x2:=strtoint(edit3.Text);
  y2:=strtoint(edit4.Text);
  z1:=strtoint(edit5.Text);
  z2:=strtoint(edit6.Text);
  x:=x1;
  y:=y1;
  z:=z1;
  dx:=(abs(x2-x1));     
  dy:=(abs(y2-y1));
  dz:=(abs(z2-z1));
  if (x2-x1)<=0 then s1:=-1 else s1:=1;   
  if (y2-y1)<=0 then s2:=-1 else s2:=1;
  if (z2-z1)<=0 then s3:=-1 else s3:=1;
  if dy>dx then        
  begin
    v:=dx;
    dx:=dy;
    dy:=v;
    obmen:=1;    
  end
  else obmen:=0;
  o:=2*dy-dx;
  oz:=2*dy-dz;
  for i := 1 to dx do
  begin
    memo1.lines.add(inttostr(x)+' '+inttostr(y)+' '+inttostr(z));
    form1.Canvas.Pixels[x+100,y+100]:=clBlack;
    while o>=0 do
      begin
        if obmen=1 then
          x:=x+s1
          else
          y:=y+s2;
        o:=o-2*dx;

      end;
    if obmen=1 then
      y:=y+s2
      else
      x:=x+s1;
    o:=o+2*dy;

   while oz>=0 do
   begin
         z:=z+s3;
         oz:=oz-2*dz;
   end;

  end;
 // form1.refresh;
 // self.Repaint;
end;


end.

[ayPinki]

удалите пожалуйста тему.