recorrer una linea creada en un canvas

[Snaked]

hola chicos......como estáis

tengo aqui un problema.....que no acabo de dilucidar cual seria la solucion optima

tengo un juego donde creo 2 puntos unidos por una recta (Canvas.LineTo())
....y quiero que un sprite vaya moviendose por la recta siguiendo su misma direccion de un extremo a otro pero por encima de la recta

a ver si alguien saca la solucion.....creo que es un chorrada pero estoy un poco "espeso" y no acaba de iluminarseme la bombilla

[Snaked]

de momento tengo este codigo que funciona regularcete pero parece que recorre la linea en modo descendente

Código PHP:

    color_recta = Form1->tablero->Canvas->Pixels[pos_nave1X][pos_nave1Y];
    pos_nave1X++; pos_nave1Y++;
    if(color_recta == clLime) pos_nave1X = pos_nave1X;
    pos_nave1Y++;
    if(color_recta == clLime) pos_nave1Y = pos_nave1Y;
    else { pos_nave1Y--;} 


[ecfisa]

Hola.

Según entiendo deseas mover un píxel sobre una línea previamente creada con la función LineTo.

Una opción es:

Código PHP:

void movepixel( TCanvas* cv, const TPoint& p1, const TPoint& p2, 
  const int& delay )
{
  int dx = p2.x - p1.x;
  int dy = p2.y - p1.y;

  for( int x = p1.x; x < p2.x; x ++) {
    int y = p1.y + dy * (x - p1.x) / dx;
    TColor pix = cv->Pixels[x][y];
    cv->Pixels[x][y] = clBlack;
    Sleep(delay);
    cv->Pixels[x][y] = pix;
  }
}


TPoint p1 = Point( 10, 100);
TPoint p2 = Point(300, 200);

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Canvas->Pen->Style = psSolid;
  Canvas->Pen->Color = clLime;

  Canvas->MoveTo(p1.x, p1.y);
  Canvas->LineTo(p2.x, p2.y);

  movepixel(Form1->Canvas, p1, p2, 5);
} 


Como verás es un concepto muy básico, a modo de boceto.

Saludos

[Snaked]

pffff..... acuerdate de darme tu direccion postal para que te envie una botella de licor de "caña" de aqui de galicia

me has alegrado la noche

Gracias por la ayuda ecfisa..

[Snaked]

espera....que tengo un problema.....

segun tengo estructurado, si lo implemento asi como tu me has dicho, hace el movimiento de un tirón porque la funcion movepixel está fuera del bucle de repintado de pantalla.....si la llamada la efectuo desde el bucle gráfico sale mal....

te cuento....yo el movimiento de las naves por el mapa lo tengo en un TTimer asi
es la forma que he ideado para que el bucle de repintado de pantalla vaya rapido y a una velocidad mas pausada la transicion de la nave de un punto a otro de la ruta

Código PHP:

void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
  int color_recta = 0;
  avanza_naves++;
  if(avanza_naves > 5) avanza_naves = 0;
  if(avanza_naves == 5)
  {

    //color_recta = Form1->tablero->Canvas->Pixels[pos_nave1X][pos_nave1Y];
    //pos_nave1X++; pos_nave1Y++;
    //if(color_recta == clLime) pos_nave1X = pos_nave1X;
    //pos_nave1Y++;
    //if(color_recta == clLime) pos_nave1Y = pos_nave1Y;
    //else { pos_nave1Y--;}

   */

  }
} 


y luego en la funcion Muestra_Mapa() dibujo las entidades gráficas

[Snaked]

Ecfisa: ya lo he solucionado.... he adaptado tu funcion al TTimer de la siguiente manera

1) declaro como globales las siguientes variables

Código PHP:

TPoint INICIO_NAVE;
TPoint DESTINO_NAVE;
bool STOP_MOVIMIENTO_NAVE = false;
int x = 0; int y = 0;
int dx = 0;
int dy = 0; 


y luego en el TTimer tengo puesto esto

Código PHP:

  if(x < DESTINO_NAVE.x) { x++; y = INICIO_NAVE.y + dy * (x - INICIO_NAVE.x) / dx; }
  else STOP_MOVIMIENTO_NAVE = true; 


de forma que cada vez que se produce un tick del timer avanza por la linea

y luego en el dibujado del mapa en pantalla tengo asi

Código PHP:

 void Muestra_Mapa(void)
{

   SECTOR_VEGA();

   //Dibuja la nave 1
      Form1->g2 = 0;
      Form1->g2 = Form2->Image_explorer1->Picture->Graphic;
      Form1->tablero->Canvas->Draw(x, y,  Form1->g2);

    if(rejilla) Muestra_Rejilla();


 Form1->tablero->Repaint();
 Form1->skreen->Picture->Graphic = Form1->tablero->Picture->Graphic;
 Application->ProcessMessages();

} 


y para comenzar el proceso de animacion, esto en un TButton (enviar nave de exploracion)

Código PHP:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 pos_nave1X = 40 + Form2->Image2->Picture->Graphic->Width-80;
 pos_nave1Y = 40 + Form2->Image2->Picture->Graphic->Height;
 INICIO_NAVE = Point( 40 + Form2->Image2->Picture->Graphic->Width/2, 40 + Form2->Image2->Picture->Graphic->Width/2);
 DESTINO_NAVE = Point( 240, 410);

  dx = DESTINO_NAVE.x - INICIO_NAVE.x;
  dy = DESTINO_NAVE.y - INICIO_NAVE.y;
  x = INICIO_NAVE.x;
}
//---------------------------------------------------------------------------