program AlgoWars;
{$APPTYPE CONSOLE}
{%ToDo 'AlgoWars.todo'}

uses
  SysUtils,
  ObjetoVolador in 'ObjetoVolador.pas',
  Vectores in 'Vectores.pas',
  Objeto in 'Objeto.pas',
  Tipos in 'Tipos.pas',
  Meteorito in 'Meteorito.pas',
  Armas in 'Armas.pas',
  Nave in 'Nave.pas',
  Espacio in 'Espacio.pas',
  NaveEnemiga in 'NaveEnemiga.pas',
  NavePropia in 'NavePropia.pas',
  Coordenadas in 'Coordenadas.pas';

var
  c: cCoordenadas;
  i,
  j,
  k: cVector;
  fo:  text;

begin
  assignFile( fo, 'log.txt' );
  rewrite( fo );
  c := cCoordenadas.create;
  writeln( fo, c.mGetDebugInfo( DI_MAXI ) );
  c.mRotarEnI( pi/4 );
  writeln( fo, 'Rotado PI/4 en i:' + #13 + #10 + c.mGetDebugInfo( DI_MAXI ) + #13 + #10  );
  c.free;
  c := cCoordenadas.create;
  c.mRotarEnJ( -pi/4 );
  writeln( fo, 'Rotado -PI/4 en j:' + #13 + #10 + c.mGetDebugInfo( DI_MAXI ) + #13 + #10  );
  c.free;
  c := cCoordenadas.create;
  c.mRotarEnK( pi/8 );
  writeln( fo, 'Rotado PI/8 en k:' + #13 + #10 + c.mGetDebugInfo( DI_MAXI ) + #13 + #10  );
  c.mRotarEnI( pi/4 );
  writeln( fo, ' - Rotado PI/4 en i:' + #13 + #10 + c.mGetDebugInfo( DI_MAXI ) + #13 + #10  );
  c.mRotarEnJ( -pi/4 );
  writeln( fo, ' - Rotado -PI/4 en j:' + #13 + #10 + c.mGetDebugInfo( DI_MAXI ) + #13 + #10  );
{
  writeln( fo, 'Producto Escalar entre i y j: ', c.aI.mMultiplicarEsc( c.aJ ) );
  writeln( fo, 'Producto Escalar entre j y k: ', c.aJ.mMultiplicarEsc( c.aK ) );
  writeln( fo, 'Producto Escalar entre k y i: ', c.aK.mMultiplicarEsc( c.aI ) );
}
  // Se vuelve al principio por otro camino
  c.mRotarEnJ( pi/4 );
  writeln( fo, ' - Rotado PI/4 en j:' + #13 + #10 + c.mGetDebugInfo( DI_MAXI ) + #13 + #10  );
  c.mRotarEnI( -pi/4 );
  writeln( fo, ' - Rotado -PI/4 en i:' + #13 + #10 + c.mGetDebugInfo( DI_MAXI ) + #13 + #10  );
  c.mRotarEnK( -pi/8 );
  writeln( fo, ' - Rotado -PI/8 en k:' + #13 + #10 + c.mGetDebugInfo( DI_MAXI ) + #13 + #10  );

  c.free;
  close( fo );
end.