recorrer una linea creada en un canvas

[ecfisa]

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]

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]

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]

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]

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

[aguml]

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]

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?