Foros Club Delphi - recorrer una linea creada en un canvas

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - recorrer una linea creada en un canvas (https://www.clubdelphi.com/foros/showthread.php?t=91020)

Snaked

26-10-2016 16:35:25

recorrer una linea creada en un canvas

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

26-10-2016 18:16:02

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

26-10-2016 20:11:26

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

26-10-2016 22:25:53

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 :D

Gracias por la ayuda ecfisa..

Snaked

26-10-2016 23:32:22

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

27-10-2016 16:33:21

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;

}

//---------------------------------------------------------------------------

ecfisa

27-10-2016 16:50:29

Hola Snaked.

Me alegro que encontraras una solución ^\||/ ( y muchas gracias por compartirla ;) )

Saludos :)

Snaked

27-10-2016 16:55:25

Aqui os dejo el video de lo que intentaba hacer Ecfisa

Casimiro Noteví

27-10-2016 16:59:48

Cuando sea mayor también haré videojuegos :)

Snaked

28-10-2016 11:45:28

Ecfisa: A ver si me puedes ayudar un poco tu que creo que entiendes de C++

ahora que ya he solucionado lo de la nave que se mueve por las lineas-ruta..... bien, solo lo hace con una nave pero como haria si tuviese que mover mas naves?? es decir, como podria declarar un array de naves o algo asi teniendo en cuenta la informacion que hemos estado manejando??? quiero decir...mover varias naves simultaneamente y que cada una vaya por una ruta distinta del mapa

simplemente alguna idea y luego ya la trabajo yo

ecfisa

28-10-2016 17:19:33

Hola Snaked.

A ver... fijate si esta idea te puede servir aunque sea como puntapié inicial.

Código PHP:


		
			
//...

const int MAX_X = 1366;



class Ship {

private:

  TPoint _route[MAX_X];

  TPoint _start;

  TPoint _stop;

  int _toproute;

  int calcRoute();

  const TPoint &getPt(const int &ix) { return _route[ix]; }

public:

  Ship( const TPoint& start, const TPoint& stop);

  __property int topRoute = { read = _toproute };

  __property TPoint route[int] = { read = getPt };

};



Ship::Ship( const TPoint& start, const TPoint& stop) {

  _start = start;

  _stop  = stop;

  _toproute  = calcRoute();

}



int Ship::calcRoute()

{

  int dx = _stop.x - _start.x;

  int dy = _stop.y - _start.y;

  int c, x;



  for(c=0, x = _start.x; x < _stop.x; c++, x++ ) {

    int y = _start.y + dy * ( x - _start.x ) / dx;

    _route[c].x = _start.x + x;

    _route[c].y = y;

  }

  return c;

}



Ship ship1 = Ship(Point(  10, 100 ), Point( 240, 200 ));

Ship ship2 = Ship(Point(  50,  50 ), Point( 150, 300 ));

Ship ship3 = Ship(Point(  80, 90 ), Point(  220, 100 ));

int c1, c2, c3;



void __fastcall TForm1::FormCreate(TObject *Sender)

{

  Image1->Visible  = false;

  Image2->Visible  = false;

  Image3->Visible  = false;

  Timer1->Interval = 15;

  Timer2->Interval = 15;

  Timer3->Interval = 15;

  Timer1->Enabled  = false;

  Timer2->Enabled  = false;

  Timer3->Enabled  = false;

}



void __fastcall TForm1::Timer1Timer(TObject *Sender)

{

  Image1->Visible = c1 < ship1.topRoute;

  Timer1->Enabled = Image1->Visible;

  if (Image1->Visible) {

    Image1->Left = ship1.route[c1].x;

    Image1->Top  = ship1.route[c1].y;

  }

  ++c1;

}



void __fastcall TForm1::Timer2Timer(TObject *Sender)

{

  Image2->Visible = c2 < ship2.topRoute;

  Timer2->Enabled = Image2->Visible;

  if (Image2->Visible) {

    Image2->Left = ship2.route[c2].x;

    Image2->Top  = ship2.route[c2].y;

  }

  ++c2;

}



void __fastcall TForm1::Timer3Timer(TObject *Sender)

{

  Image3->Visible = c3 < ship3.topRoute;

  Timer3->Enabled = Image3->Visible;

  if (Image3->Visible) {

    Image3->Left = ship3.route[c3].x;

    Image3->Top  = ship3.route[c3].y;

  }

  ++c3;

}



void __fastcall TForm1::btnStartClick(TObject *Sender)

{

  c1 = c2 = c3 = 0;

  Timer1->Enabled = true;

  Timer2->Enabled = true;

  Timer3->Enabled = true;

}



//...

Efecto:

Saludos :)

ecfisa

28-10-2016 23:59:55

Hola de nuevo.

La idea anterior, encapsulada y un poco mas organizada :

Ship.h

Código PHP:


		
			
#ifndef ShipH
#define ShipH

#include <ExtCtrls.hpp>
#include <jpeg.hpp>

const int MAX_X = 1366;

class Ship {
private:
  TImage*      _image;
  TTimer*      _timer;
  TWinControl* _parent;
  TPoint       _route[MAX_X];
  TPoint       _start;
  TPoint       _stop;
  int          _inx;
  int          _toproute;
  int calcRoute();
  const TPoint &getPt( const int &ix );
  void setParent( TWinControl* parent );
  void __fastcall _timerTimer(TObject *Sender);
public:
  Ship( TWinControl* parent, const TPoint& start, const TPoint& stop);
  ~Ship();
  __property TWinControl* Parent = { read = _parent, write = setParent };
  __property TImage* Image = { read = _image, write = _image };
  __property TTimer* Timer = { read = _timer, write = _timer };
  __property int TopRoute = { read = _toproute };
  __property TPoint Route[int] = { read = getPt };
};
 
#endif

Ship.cpp

Código PHP:


		
			
#pragma hdrstop
#include "Ship.h"  
#pragma package(smart_init)

Ship::Ship( TWinControl* parent, const TPoint& start, const TPoint& stop ) {
  _start     = start;
  _stop      = stop;
  _inx       = 0;
  _toproute  = calcRoute();
  _image = new TImage(NULL);
  _image->Visible  = false;
  _image->Parent   = parent;
  _image->Left     = start.x;
  _image->Top      = start.y;
  _timer = new TTimer(NULL);
  _timer->Interval = 20; 
  _timer->Enabled  = false;
  _timer->OnTimer  = _timerTimer;
}

Ship::~Ship()
{
  delete _timer;
  delete _image;
}

/* private */
int Ship::calcRoute()
{
  int dx = _stop.x - _start.x;
  int dy = _stop.y - _start.y;
  int c, x;

  for(c=0, x = _start.x; x < _stop.x; c++, x++ ) {
    int y = _start.y + dy * ( x - _start.x ) / dx;
    _route[c].x = _start.x + x;
    _route[c].y = y;
  }
  return c;
}

const TPoint& Ship::getPt( const int &ix )
{
  return _route[ix];
}

void Ship::setParent( TWinControl* parent )
{
  _image->Parent = parent;
}

void __fastcall Ship::_timerTimer(TObject *Sender)
{
  _image->Visible = _inx < _toproute;
  _timer->Enabled = _image->Visible;
  if (_image->Visible) {
    _image->Left = _route[_inx].x;
    _image->Top  = _route[_inx].y;
  }
  else {
    _inx = 0;
  }
  ++_inx;
}

Ejemplo del uso:

Código PHP:


		
			
#pragma hdrstop
#include "Unit1.h"
#include "Ship.h"
#pragma package(smart_init)
#pragma resource "*.dfm"


TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
Ship* s1;
Ship* s2;
Ship* s3;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 s1 = new Ship( this, Point(10,100), Point( 240,200) );
 s2 = new Ship( this, Point(  50,  50 ), Point( 150, 300 ) );
 s3 = new Ship( this, Point(  80, 90 ), Point(  220, 100 ) );

 s1->Image->Picture->LoadFromFile("face-smile.jpg");
 s2->Image->Picture->LoadFromFile("face-sad.jpg");
 s3->Image->Picture->LoadFromFile("face-monkey.jpg");

 s1->Timer->Interval = 10;
 s2->Timer->Interval = 10;
 s3->Timer->Interval = 10;
}

void __fastcall TForm1::btnStartClick(TObject *Sender)
{
  s1->Timer->Enabled = true;
  s2->Timer->Enabled = true;
  s3->Timer->Enabled = true;
}

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  delete s1;
  delete s2;
  delete s3;
}

Saludos :)

aguml

29-10-2016 08:03:18

Ecfisa eso último ¿sería un componente? SI no es asi ¿que le faltaría ya para serlo? Lo digo porque tiene propiedades y métodos al igual que un componente.

Snaked

29-10-2016 14:22:57

gracias ecfisa, voy a ver si lo analizo esta tarde ese codigo para enterarme bien como funciona y a ver si lo puedo implementar en el codigo para unas cuantas naves

Lo ideal seria que soportase un numero ilimitado de naves o por ejemplo maximo 100 naves (que creo que ya es bastante) y en una parte del programa que sea cuando construyes Nueva_Nave la crease...... de todas formas es muy interesante lo que me has dado.....asi avanzaré mas rápido en el juego

Sabes? yo aprendi C normal primero y luego algunas cosas de C++ pero el principal problema lo tengo con el tema de las Clases y la encapsulacion, que no acabo de dominarlo ....tendré que repasar algun tutorial de C++ esos conceptos y ver mas ejemplos de codigo basico

Otra cosa son el tema de las estructuras de datos para el asunto de Comerciar con bienes, obtencion de creditos (dinero) y todo lo que supone el nucleo del motor de comercio y minería del juego.....pero ahi creo que puedo ir tirando de momento sin ayuda.....aunque si se te ocurre algo para ir empezando te quedaré agradecido como siempre

aguml

29-10-2016 19:11:52

Puedes usar un TList y crear tantos como desees añadiéndoles al TList.

aguml

29-10-2016 19:57:51

La idea es algo así aunque si tuviese la propiedad nombre podrías poner nombre a cada uno y usar su nombre para trabajar con ellos.

Código PHP:


		
			
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 TList *lista=new TList;
 Ship* s;
 for (int i=0;i <100;i++){
    s = new Ship( this, Point(10,100), Point( 240,200) );
    s->Timer->Interval = 10;
    lista->Add (s);
 }
 lista->Items [0]->Image->Picture->LoadFromFile("face-smile.jpg");
 lista->Items [1]->Image->Picture->LoadFromFile("face-sad.jpg");
 lista->Items [2]->Image->Picture->LoadFromFile("face-monkey.jpg");
 ...
 ...
 ...
}

Y seria mejor creo yo crear el objeto simplemente indicándole el parent y luego otro método para inicializar las coordenadas y no hacer eso en el constructor.

Snaked

31-10-2016 11:05:30

eso del Tlist que ha puesto Agum es correcto Ecfisa??? podria declarar un array Tlist de 100 naves ?

o bien un TList donde ir añadiendo segun vaya creando flota el Jugador dinamicamente las naves emplazadas en diversas coordenadas?

ecfisa

31-10-2016 15:20:35

Hola Snaked.

Si, es totalmente correcto. Podes ir almacenando las naves en una lista a medida que las creas y luego referirte a cada nave mediante la lista.

Ejemplo sobre el código anterior:

Código PHP:


		
			
TList* lst;
Ship* s1;

void __fastcall TForm1::FormCreate( TObject *Sender )
{

  lst = new TList;

  s1 = new Ship( this, Point(10,100), Point( 240,200) );
  s1->Image->Picture->LoadFromFile( "face-smile.jpg" );
  s1->Timer->Interval = 10;
  lst->Add(s1);

  s1 = new Ship( this, Point(  50,  50 ), Point( 150, 300 ) );
  s1->Image->Picture->LoadFromFile( "face-sad.jpg" );
  s1->Timer->Interval = 10;
  lst->Add(s1);

  s1 = new Ship( this, Point(  80, 90 ), Point(  220, 100 ) );
  s1->Image->Picture->LoadFromFile( "face-monkey.jpg" );
  s1->Timer->Interval = 10;
  lst->Add (s1 );

 //... mas naves
}

void __fastcall TForm1::btnStartClick( TObject *Sender )
{
  for  (int i = 0; i < lst->Count; i++ )
     static_cast<Ship*>( lst->Items[i] )->Timer->Enabled = true; // (*)
}

void __fastcall TForm1::FormDestroy( TObject *Sender )
{
  for (int i = 0; i < lst->Count; i++)
    delete lst->Items[i];
  lst->Free();
}

(*) Te podes referir a cada nave de la lista cambiando el índice de la propiedad vectorial Items.

Saludos :)

Snaked

02-11-2016 21:41:58

hola de nuevo Ecfisa.... he implementado el codigo del mensaje IDEA ENCAPSULADA y UN POCO MEJOR ORGANIZADA y la verdad es que compilar compila, incluso dibuja las naves bien y tal recorriendo la ruta, el caso es que si le pongo las coordeenadas que utilizo para dibujar las RUTAS (rayitas verdes) que tienen este formato

Código PHP:


		
			
      if(muestra_rutas)

   {

     Form1->tablero->Canvas->MoveTo(40 + Form2->Image2->Picture->Graphic->Width/2,40 + Form2->Image2->Picture->Graphic->Height/2);

     Form1->tablero->Canvas->Pen->Color = clLime;

     Form1->tablero->Canvas->LineTo(240 + Form2->Image3->Picture->Graphic->Width/2, 410 + Form2->Image3->Picture->Graphic->Height/2);

     Form1->tablero->Canvas->LineTo(480 + Form2->Image4->Picture->Graphic->Width/2, 100 + Form2->Image4->Picture->Graphic->Height/2);

     Form1->tablero->Canvas->MoveTo(240 + Form2->Image3->Picture->Graphic->Width/2, 410 + Form2->Image3->Picture->Graphic->Height/2);

     Form1->tablero->Canvas->LineTo(600 + Form2->Image11->Picture->Graphic->Width/2, 350 + Form2->Image11->Picture->Graphic->Height/2);

     Form1->tablero->Canvas->MoveTo(600 + Form2->Image6->Picture->Graphic->Width/2, 240 + Form2->Image6->Picture->Graphic->Height/2);

     Form1->tablero->Canvas->LineTo(920 + Form2->Image5->Picture->Graphic->Width/2, 220 + Form2->Image5->Picture->Graphic->Height/2);

     Form1->tablero->Canvas->MoveTo(600 + Form2->Image11->Picture->Graphic->Width/2, 350 + Form2->Image11->Picture->Graphic->Height/2);

     Form1->tablero->Canvas->LineTo(600 + Form2->Image6->Picture->Graphic->Width/2, 240 + Form2->Image6->Picture->Graphic->Height/2);

   }

el caso es que las naves salen como con un desplazamiento horizontal en la coordenada X (quiero decir que recorren bien las rutas pero en vez de ir por las lineas van como mas a la derecha un cacho)

porque puede producirse ese desplazamiento de coordenadas???

he probado a quitarle el Width/2 y el Height/2 que le aplico para que halle el centro ya que estas coordeenadas que te acabo de poner en el codigo php corresponden a los sprites de los planetas

bueno, te adjunto un video para que veas la salida

https://youtu.be/j362Dr9l7zg

aguml

03-11-2016 03:14:24

Son creados tanto las líneas como las naves en el mismo lugar?
Me refiero a que si por ejemplo creas las líneas en el form y las naves en un panel habrá desplazamiento y tendrías que calcularlo restandole la posición Left que ocupa el panel en el form y su borde.

Snaked

04-11-2016 14:58:01

ecfisa: has visto porque las naves salen desplazadas??? será cuestion del PARENT este?

Código PHP:


		
			
void Ship::setParent( TWinControl* parent )

{

  _image->Parent = parent;

}

ecfisa

04-11-2016 15:42:23

Hola Snaked.

Lo siento no pude verlo, el enlace de tu mensaje dice: "El video que has solicitado no está disponible.", pero voy a revisar el código a ver si me hace lo mismo.

Saludos :)

ecfisa

04-11-2016 16:15:05

Hola.

Acabo de hacer una prueba,

Código PHP:


		
			
...
void __fastcall TForm1::btnStartClick( TObject *Sender )
{
  // trayectoria (linea)
  Canvas->MoveTo(  10, 100 ); Canvas->LineTo( 240, 200 );

  // nave (por la misma trayectoria )
  Ship* s1 = new Ship( this, Point(10, 100 ), Point( 240, 200 ) );
  s1->LoadImage = "face-smile.jpg";
  s1->Timer->Interval = 10;
  s1->Timer->Enabled  = true;
}
...

Y pareciera que la imágen sigue la línea mas o menos por el medio...

Saludos :)

aguml

04-11-2016 21:43:56

Yo creo que si puede ser el parent porque supongo que tiene un tpanel o algo y dependiendo de si el parent es el form o el panel puede variar su Top y su Left.

ecfisa

04-11-2016 23:15:48

Hola aguml.

Siempre que dibuje sobre el lienzo del mismo padre no se altera el resultado, por ejemplo le aquí asigno un TPanel como parent:

Ahora si, como mencionaste antes, esta dibujando la trayectoria en un componente y la nave en otro, si que podría haber diferencia en las posiciones debido a la relatividad de las coordenadas...

Saludos :)

Snaked

05-11-2016 10:20:52

jejejej.... hola ecfisa y Aguml...... aun ando a vueltas con el tema este de las "rutas"

os explico:

tengo en el form, un tImage que es el que utilizo como TABLERO donde dibujo los planetas y las rutas y la estacion espacial (Image->tablero) que esta situado en LEFT = 0; TOP = 28; WIDTH =1058; HEIGHT = 570;

encima de este timage tengo un elemento (barra) de interface donde muestra el nombre del sector y luego está los bordes de la ventana del form

entonces, teniendo en cuenta estos datos...... como tendria que poner el POINT() de las rutas?

no acabo de aclararme con esto de coordenadas relativas

he probado a poner en el parent de Ship( Image->tablero->Parent, Point(), Point()); pero parece ser el mismo resultado que poniendo THIS

Snaked

05-11-2016 11:04:34

mirad.... he creado un proyecto con el nucleo del dibujado

echadle un vistazo

http://www.qualinost.tk/descargas/prueba_rutas.rar

aguml

05-11-2016 15:09:27

No puedo probar nada porque estoy recién operado y con el pie en alto pero yo diría que el fallo lo tienes justo en la línea que comentas. Le indicas que el parent es el parent del tImage con lo que en tu caso es el tform. Por lo que explicas supongo que tu form se llama Image y el TImage se llama tablero ¿no? Prueba asi:
Ship( Image->tablero, Point(), Point());
O directamente:
Ship( tablero, Point(), Point());

Snaked

07-11-2016 00:07:03

estoy seguro que hay algo erroneo con el parent en la funcion de ecfisa porque veo esto:

Código PHP:


		
			
#include <jpeg.hpp>

const int MAX_X = 1366;

class Ship {
private:
  TImage*      _image;
  TTimer*      _timer;
  TWinControl* _parent;
  TPoint       _route[MAX_X];
  TPoint       _start;
  TPoint       _stop;
  int          _inx;
  int          _toproute;
  int calcRoute();
  const TPoint &getPt( const int &ix );
  void setParent( TWinControl* parent );
  void __fastcall _timerTimer(TObject *Sender);
public:
  Ship( TWinControl* parent, const TPoint& start, const TPoint& stop);
  ~Ship();
  __property TWinControl* Parent = { read = _parent, write = setParent };
  __property TImage* Image = { read = _image, write = _image };
  __property TTimer* Timer = { read = _timer, write = _timer };
  __property int TopRoute = { read = _toproute };
  __property TPoint Route[int] = { read = getPt };
};

#endif

donde veo declarada la funcion setParent(TWinControl* parent) pero no veo por ningun sitio donde la invocaria para cambiar el parent del timage

porque ademas.....en el codigo...tengo esto puesto como ha indicado Aguml lo del parent

Código PHP:


		
			
 s1 = new Ship( tablero->Parent, Point(40 + Form2->Image2->Picture->Graphic->Width/2,40 + Form2->Image2->Picture->Graphic->Height/2), Point(240 + Form2->Image3->Picture->Graphic->Width/2, 410 + Form2->Image3->Picture->Graphic->Height/2)  );
 s2 = new Ship( tablero->Parent, Point(240 + Form2->Image3->Picture->Graphic->Width/2, 410 + Form2->Image3->Picture->Graphic->Height/2), Point(480 + Form2->Image4->Picture->Graphic->Width/2, 100 + Form2->Image4->Picture->Graphic->Height/2) );
 s3 = new Ship( tablero->Parent, Point(240 + Form2->Image3->Picture->Graphic->Width/2, 410 + Form2->Image3->Picture->Graphic->Height/2), Point(600 + Form2->Image11->Picture->Graphic->Width/2, 350 + Form2->Image11->Picture->Graphic->Height/2) );

indicando el parent del TImage "TABLERO" pero pese a todo creo que lo dibuja en un Canvas diferente.....creo que el del Form.....porque una de las naves se sale del TImage Tablero y se ve como "vuela" por encima del formulario Tform1 (cuando si fuese dentro del TImage Tablero, al salir de los limites del image no tendria que verse la nave no?

ecfisa.... cual puede ser el problema?

aguml

07-11-2016 00:34:28

Prueba y cambia esto:

Código PHP:


		
			
 s1 = new Ship( tablero->Parent, Point(40 + Form2->Image2->Picture->Graphic->Width/2,40 + Form2->Image2->Picture->Graphic->Height/2), Point(240 + Form2->Image3->Picture->Graphic->Width/2, 410 + Form2->Image3->Picture->Graphic->Height/2)  );

Por:

Código PHP:


		
			
s1 = new Ship( tablero, Point(40 + Form2->Image2->Picture->Graphic->Width/2,40 + Form2->Image2->Picture->Graphic->Height/2), Point(240 + Form2->Image3->Picture->Graphic->Width/2, 410 + Form2->Image3->Picture->Graphic->Height/2)  );

ecfisa

07-11-2016 00:40:28

Cita:

Empezado por Snaked (Mensaje 510484)

estoy seguro que hay algo erroneo con el parent en la funcion de ecfisa porque veo esto:
...
donde veo declarada la funcion setParent(TWinControl* parent) pero no veo por ningun sitio donde la invocaria para cambiar el parent del timage...

El parent es asignado en el constructor:

Código:

Ship( TWinControl* parent, const TPoint& start, const TPoint& stop);

y despues lo podes cambiar invocando a la propiedad Parent:

Código:

 ...

  __property TWinControl* Parent = { read = _parent, write = setParent };

...

Saludos :)

Snaked

07-11-2016 09:38:33

muy gracioso ecfisa. .. .jajajajaj...me parto cabronazo

Código PHP:


		
			
  for(c=0, x = _start.x; x < _stop.x; c++, x++ ) {

    int y = _start.y + dy * ( x - _start.x ) / dx;

    _route[c].x = _startx.x + x;  <---- linea que me ha hecho perder casi 1 semana

    _route[c].y = y;

  }

pero bueno, me he puesto a mirar el codigo hasta que lo he encontrado yo mismo

aqui os dejo por fin, un video de la salida correcta de las famosas "rutas"

https://youtu.be/D2vJIpDC3uI

Snaked

07-11-2016 11:23:06

Ecfisa:

ahora se me plantea otra cosa.... el dibujado de las rutas en pantalla lo tengo, pero ahora, se me plantea el interrogante de calcular el recorrido por otros SECTORES que no se ven en pantalla pero que aun asi, tendria que calcular las rutas en un lugar "aparte" que no sea visible (un vector quizas?) para que aunque no se vean en pantalla....el proceso de "navegacion" de las naves lleve su tiempo en background

Es decir si una nave sale de LA TIERRA (Sector Vega) en principio, al tener ese sector en pantalla.....vemos la nave por las rutas....bien...ahora cuando salga del sector VEGA.... como puedo hacer para que siga trazando las rutas sin mostrar nada en pantalla pero que es como si la nave siguiese trazando las rutas para que llegado un tiempo mas tarde.....cambiemos por ejemplo al SECTOR OMEGA (destino) y cuando corresponda la veamos "llegar"?

Aguml, tambien va por ti o por vosotros, los que esteis siguiendo este hilo

a ver que ideas me dais que sean elegantes y sencillas de implementar

el Quiz de la cuestión.....es que cada nave lleve una velocidad (eso lo logramos con la velocidad del TTimer incrustado en cada objeto "Ship" que nos dio ecfisa pero necesito una forma de calcular todas las trayectorias a través de los sectores galacticos y mostrar solo las naves cuando Visualicemos un SECTOR en pantalla y haya alguna "nave" pasando por las rutas de ese SECTOR

y gracias tios, me estais ayudando un monton....gracias por estar ahi

ecfisa

07-11-2016 13:42:23

Hola Snaked.

Para calcular las rutas podes usar una variante de la función movepixel del mensaje #3 :

Código PHP:


		
			
int calculateRoute( const TPoint& p1, const TPoint& p2, TPoint* vp )
{
  int dx = p2.x - p1.x;
  int dy = p2.y - p1.y;
  int ix = 0;

  for( int x = p1.x; x < p2.x; x ++ ) {
    int y = p1.y + dy * ( x - p1.x ) / dx;
    vp[ix].x = x;
    vp[ix].y = y;
    ix++;
  }
  return ix;
}

// Ejemplo de uso:
...
{
  TPoint ruta[1366];
  int top =  calculateRoute( Point( 10, 10 ), Point( 500, 100 ),  ruta );
...

Saludos :)

Snaked

07-11-2016 13:50:27

entiendo, voy a probar a ver que resulta

una cosilla.... en esta linea:

Código PHP:


		
			
TPoint ruta[1366];  //porque 1366?? por el ancho maximo de la pantalla?

y otra cosa....

Código PHP:


		
			
int top =  calculateRoute( Point( 10, 10 ), Point( 500, 100 ),  ruta );

entiendo que top almacena el resultado final de ix pero que es exactamente? bueno....se que es el numero de iteraciones del bucle for pero para que lo almacenas en un int?

ecfisa

07-11-2016 13:57:12

Hola.

La cantidad de elementos que fueron almacenados en el arreglo "ruta".

Saludos :)

ecfisa

07-11-2016 15:10:03

Hola de nuevo.

Se me pasó tu primer consulta... Si, 1366 es el ancho máximo de pantalla del equipo en que estoy en este momento.
Para hacerlo portable podrías usar un arreglo dinámico, pero eso es otro tema que el que nos trae.

Saludos :)

Snaked

08-11-2016 14:39:42

vale ecfisa.... voy a ver si avanzo algo en el juego ya que tengo mas o menos las funciones ya implementadas

Aguml, siento que estes "de baja" y te deseo que te recuperes pronto de tu operacion.

La franja horaria es GMT +2. Ahora son las 03:27:37.