src/test/AlgoWars.test_coordenadas.dpr

   1 program AlgoWars;\r
   2 {$APPTYPE CONSOLE}\r
   3 {%ToDo 'AlgoWars.todo'}\r
   4 \r
   5 uses\r
   6   SysUtils,\r
   7   ObjetoVolador in 'ObjetoVolador.pas',\r
   8   Vectores in 'Vectores.pas',\r
   9   Objeto in 'Objeto.pas',\r
  10   Tipos in 'Tipos.pas',\r
  11   Meteorito in 'Meteorito.pas',\r
  12   Armas in 'Armas.pas',\r
  13   Nave in 'Nave.pas',\r
  14   Espacio in 'Espacio.pas',\r
  15   NaveEnemiga in 'NaveEnemiga.pas',\r
  16   NavePropia in 'NavePropia.pas',\r
  17   Coordenadas in 'Coordenadas.pas';\r
  18 \r
  19 var\r
  20   c: cCoordenadas;\r
  21   i,\r
  22   j,\r
  23   k: cVector;\r
  24   fo:  text;\r
  25 \r
  26 begin\r
  27   assignFile( fo, 'log.txt' );\r
  28   rewrite( fo );\r
  29   c := cCoordenadas.create;\r
  30   writeln( fo, c.mGetDebugInfo( DI_MAXI ) );\r
  31   c.mRotarEnI( pi/4 );\r
  32   writeln( fo, 'Rotado PI/4 en i:' + #13 + #10 + c.mGetDebugInfo( DI_MAXI ) + #13 + #10  );\r
  33   c.free;\r
  34   c := cCoordenadas.create;\r
  35   c.mRotarEnJ( -pi/4 );\r
  36   writeln( fo, 'Rotado -PI/4 en j:' + #13 + #10 + c.mGetDebugInfo( DI_MAXI ) + #13 + #10  );\r
  37   c.free;\r
  38   c := cCoordenadas.create;\r
  39   c.mRotarEnK( pi/8 );\r
  40   writeln( fo, 'Rotado PI/8 en k:' + #13 + #10 + c.mGetDebugInfo( DI_MAXI ) + #13 + #10  );\r
  41   c.mRotarEnI( pi/4 );\r
  42   writeln( fo, ' - Rotado PI/4 en i:' + #13 + #10 + c.mGetDebugInfo( DI_MAXI ) + #13 + #10  );\r
  43   c.mRotarEnJ( -pi/4 );\r
  44   writeln( fo, ' - Rotado -PI/4 en j:' + #13 + #10 + c.mGetDebugInfo( DI_MAXI ) + #13 + #10  );\r
  45 {\r
  46   writeln( fo, 'Producto Escalar entre i y j: ', c.aI.mMultiplicarEsc( c.aJ ) );\r
  47   writeln( fo, 'Producto Escalar entre j y k: ', c.aJ.mMultiplicarEsc( c.aK ) );\r
  48   writeln( fo, 'Producto Escalar entre k y i: ', c.aK.mMultiplicarEsc( c.aI ) );\r
  49 }\r
  50   // Se vuelve al principio por otro camino\r
  51   c.mRotarEnJ( pi/4 );\r
  52   writeln( fo, ' - Rotado PI/4 en j:' + #13 + #10 + c.mGetDebugInfo( DI_MAXI ) + #13 + #10  );\r
  53   c.mRotarEnI( -pi/4 );\r
  54   writeln( fo, ' - Rotado -PI/4 en i:' + #13 + #10 + c.mGetDebugInfo( DI_MAXI ) + #13 + #10  );\r
  55   c.mRotarEnK( -pi/8 );\r
  56   writeln( fo, ' - Rotado -PI/8 en k:' + #13 + #10 + c.mGetDebugInfo( DI_MAXI ) + #13 + #10  );\r
  57 \r
  58   c.free;\r
  59   close( fo );\r
  60 end.\r