Foros Club Delphi - recorrer una linea creada en un canvas

Página 1 de 2

Mostrar 40 mensajes desde este tema en una página

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.

La franja horaria es GMT +2. Ahora son las 23:20:40.

Página 1 de 2

Mostrar 40 mensajes desde este tema en una página