Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Colaboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-06-2006
pattyka pattyka is offline
Miembro
 
Registrado: jun 2006
Posts: 26
Poder: 0
pattyka Va por buen camino
Question graficacion

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
Responder Con Cita
  #2  
Antiguo 26-06-2006
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
Pues, sino muestras tu código, es dificil que alguien pueda ayudarte.

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
  #3  
Antiguo 26-06-2006
pattyka pattyka is offline
Miembro
 
Registrado: jun 2006
Posts: 26
Poder: 0
pattyka Va por buen camino
Unhappy

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...

Última edición por dec fecha: 26-06-2006 a las 12:07:30.
Responder Con Cita
  #4  
Antiguo 26-06-2006
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 24
seoane Va por buen camino
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;

Última edición por seoane fecha: 26-06-2006 a las 12:34:36.
Responder Con Cita
  #5  
Antiguo 26-06-2006
pattyka pattyka is offline
Miembro
 
Registrado: jun 2006
Posts: 26
Poder: 0
pattyka Va por buen camino
Wink

Claro... como no se me ocurrio antes ... gracias Seoane ...
Responder Con Cita
  #6  
Antiguo 26-06-2006
pattyka pattyka is offline
Miembro
 
Registrado: jun 2006
Posts: 26
Poder: 0
pattyka Va por buen camino
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
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 01:39:58.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi