graficacion

[pattyka]

laguien podria ayudarme...?? lo que pasa es que hice el algorittmo DDA y cuando le doy valores iguales marca error y no se como sacarlo

[marcoszorrilla]

Pues, sino muestras tu código, es dificil que alguien pueda ayudarte.

Un Saludo.

[pattyka]

Este codigo es el que tengo del algoritmo DDA:

Código Delphi [-]
procedure line(x1,y1,x2,y2:integer);
Var
   dx,dy,steps,i:integer;
  xIncrement,yIncrement,x,y:real;
Begin
  dx:=x2-x1;
  dy:=y2-y1;
  if abs (dx) > abs (dy) then
      steps:=abs(dx)
  else
      steps:=abs(dy);
   xIncrement:=dx/steps;
   yIncrement:=dy/steps;
   x:=x1;
   y:=y1;
   form1.PaintBox1.Canvas.Pixels[round(x), round(y)]:=4;
   for i:=1 to steps do
   begin
       x:=x+xIncrement;
       y:=y+yIncrement;
       form1.PaintBox1.Canvas.Pixels[round(x), round(y)]:=4;
   end;
   form1.PaintBox1.Canvas.Pixels[round(x), round(y)]:=4;
End;

Espero me puedas ayudar...

[[seoane]]

A simple vista, si el valor de x1=x2 y y1=y2 steps seria igual a cero, lo que origina una division por cero (supongo que ese es el error). Supongo que con una comprobacion antes de hacer la division seria suficiente.

Código Delphi [-]
procedure line(x1,y1,x2,y2:integer);
Var
   dx,dy,steps,i:integer;
  xIncrement,yIncrement,x,y:real;
Begin
  dx:=x2-x1;
  dy:=y2-y1;
  if abs (dx) > abs (dy) then
      steps:=abs(dx)
  else
      steps:=abs(dy);
  x:=x1;
  y:=y1;
  form1.PaintBox1.Canvas.Pixels[round(x), round(y)]:=4;
  // Si steps = 0 no hay nada mas que hacer asi que salimos
  if steps = 0 then Exit;  
  xIncrement:= dx/steps;
  yIncrement:= dy/steps; 
  for i:=1 to steps do
   begin
       x:=x+xIncrement;
       y:=y+yIncrement;
       form1.PaintBox1.Canvas.Pixels[round(x), round(y)]:=4;
   end;   
End;

[pattyka]

Claro... como no se me ocurrio antes ... gracias Seoane ...

[pattyka]

Oo ... el caso es que tengo que cachar ese error y validarlo para que sea igual a 0... y a los valores de la pendiente tengo que restarles 1 cada vez que la pendiente sea igual 0... (bueno una vez validado el error)...umm me explique?? esque ya me enrrolle toda