src/test/AlgoWars.test_coordenadas2.dpr

   1 program AlgoWars;\r
   2 {$APPTYPE CONSOLE}\r
   3 {%ToDo 'AlgoWars.todo'}\r
   4 \r
   5 uses\r
   6   SysUtils,\r
   7   Vectores in 'Vectores.pas',\r
   8   Objeto in 'Objeto.pas',\r
   9   Tipos in 'Tipos.pas',\r
  10   Espacio in 'Espacio.pas',\r
  11   Coordenadas in 'Coordenadas.pas',\r
  12   Meteorito in 'ov\Meteorito.pas',\r
  13   ObjetoVolador in 'ov\ObjetoVolador.pas',\r
  14   Armas in 'ov\Armas.pas',\r
  15   Nave in 'ov\naves\Nave.pas',\r
  16   NavePropia in 'ov\naves\NavePropia.pas',\r
  17   NaveEnemiga in 'ov\naves\NaveEnemiga.pas',\r
  18   NavesEnemigas in 'ov\naves\NavesEnemigas.pas',\r
  19   Camara in 'Camara.pas';\r
  20 \r
  21 var\r
  22   oCoord: cCoordenadas;\r
  23   v:      cVector;\r
  24 \r
  25 begin\r
  26   oCoord := cCoordenadas.create;\r
  27   v := cVector.create( 0, 1, 0 );\r
  28   oCoord.mSetI( v );\r
  29   writeln( 'Nuevo i: ' );\r
  30   writeln( v.mGetDebugInfo );\r
  31   v.free;\r
  32   writeln( 'Coordenadas: ' );\r
  33   writeln( oCoord.mGetDebugInfo );\r
  34   //////////////////////////////////\r
  35   v := cVector.create( 1, 1, 1 );\r
  36   oCoord.mSetI( v );\r
  37   writeln( 'Nuevo i: ' );\r
  38   writeln( v.mGetDebugInfo );\r
  39   v.free;\r
  40   writeln( 'Coordenadas: ' );\r
  41   writeln( oCoord.mGetDebugInfo );\r
  42   //////////////////////////////////\r
  43   v := cVector.create( 0, 1, 1 );\r
  44   oCoord.mSetI( v );\r
  45   writeln( 'Nuevo i: ' );\r
  46   writeln( v.mGetDebugInfo );\r
  47   v.free;\r
  48   writeln( 'Coordenadas: ' );\r
  49   writeln( oCoord.mGetDebugInfo );\r
  50   //////////////////////////////////\r
  51   v := cVector.create( 0, 5, 1 );\r
  52   oCoord.mSetI( v );\r
  53   writeln( 'Nuevo i: ' );\r
  54   writeln( v.mGetDebugInfo );\r
  55   v.free;\r
  56   writeln( 'Coordenadas: ' );\r
  57   writeln( oCoord.mGetDebugInfo );\r
  58   //////////////////////////////////\r
  59   v := cVector.create( -1, 1, -1 );\r
  60   oCoord.mSetI( v );\r
  61   writeln( 'Nuevo i: ' );\r
  62   writeln( v.mGetDebugInfo );\r
  63   v.free;\r
  64   writeln( 'Coordenadas: ' );\r
  65   writeln( oCoord.mGetDebugInfo );\r
  66   //////////////////////////////////\r
  67   v := cVector.create( 1, 0, 0 );\r
  68   oCoord.mSetI( v );\r
  69   writeln( 'Nuevo i: ' );\r
  70   writeln( v.mGetDebugInfo );\r
  71   v.free;\r
  72   writeln( 'Coordenadas: ' );\r
  73   writeln( oCoord.mGetDebugInfo );\r
  74   //////////////////////////////////\r
  75   v := cVector.create( 0, 1, 0 );\r
  76   oCoord.mSetJ( v );\r
  77   writeln( 'Nuevo j: ' );\r
  78   writeln( v.mGetDebugInfo );\r
  79   v.free;\r
  80   writeln( 'Coordenadas: ' );\r
  81   writeln( oCoord.mGetDebugInfo );\r
  82   //////////////////////////////////\r
  83   v := cVector.create( -1, -1, 1 );\r
  84   oCoord.mSetJ( v );\r
  85   writeln( 'Nuevo j: ' );\r
  86   writeln( v.mGetDebugInfo );\r
  87   v.free;\r
  88   writeln( 'Coordenadas: ' );\r
  89   writeln( oCoord.mGetDebugInfo );\r
  90   //////////////////////////////////\r
  91   v := cVector.create( 1, 1, 2 );\r
  92   oCoord.mSetJ( v );\r
  93   writeln( 'Nuevo j: ' );\r
  94   writeln( v.mGetDebugInfo );\r
  95   v.free;\r
  96   writeln( 'Coordenadas: ' );\r
  97   writeln( oCoord.mGetDebugInfo );\r
  98   //////////////////////////////////\r
  99   v := cVector.create( 0, 1, 0 );\r
 100   oCoord.mSetJ( v );\r
 101   writeln( 'Nuevo j: ' );\r
 102   writeln( v.mGetDebugInfo );\r
 103   v.free;\r
 104   writeln( 'Coordenadas: ' );\r
 105   writeln( oCoord.mGetDebugInfo );\r
 106   //////////////////////////////////\r
 107   v := cVector.create( 0, 0, 1 );\r
 108   oCoord.mSetK( v );\r
 109   writeln( 'Nuevo k: ' );\r
 110   writeln( v.mGetDebugInfo );\r
 111   v.free;\r
 112   writeln( 'Coordenadas: ' );\r
 113   writeln( oCoord.mGetDebugInfo );\r
 114   //////////////////////////////////\r
 115   v := cVector.create( 1, 2, 0 );\r
 116   oCoord.mSetK( v );\r
 117   writeln( 'Nuevo k: ' );\r
 118   writeln( v.mGetDebugInfo );\r
 119   v.free;\r
 120   writeln( 'Coordenadas: ' );\r
 121   writeln( oCoord.mGetDebugInfo );\r
 122   //////////////////////////////////\r
 123   v := cVector.create( 2, -2, -1 );\r
 124   oCoord.mSetK( v );\r
 125   writeln( 'Nuevo k: ' );\r
 126   writeln( v.mGetDebugInfo );\r
 127   v.free;\r
 128   writeln( 'Coordenadas: ' );\r
 129   writeln( oCoord.mGetDebugInfo );\r
 130   //////////////////////////////////\r
 131   v := cVector.create( -1, 2, 1 );\r
 132   oCoord.mSetK( v );\r
 133   writeln( 'Nuevo k: ' );\r
 134   writeln( v.mGetDebugInfo );\r
 135   v.free;\r
 136   writeln( 'Coordenadas: ' );\r
 137   writeln( oCoord.mGetDebugInfo );\r
 138   //////////////////////////////////\r
 139   v := cVector.create( 0, 0, 1 );\r
 140   oCoord.mSetK( v );\r
 141   writeln( 'Nuevo k: ' );\r
 142   writeln( v.mGetDebugInfo );\r
 143   v.free;\r
 144   writeln( 'Coordenadas: ' );\r
 145   writeln( oCoord.mGetDebugInfo );\r
 146   //////////////////////////////////\r
 147   v := cVector.create( 1, 0, 0 );\r
 148   oCoord.mSetI( v );\r
 149   writeln( 'Nuevo i: ' );\r
 150   writeln( v.mGetDebugInfo );\r
 151   v.free;\r
 152   writeln( 'Coordenadas: ' );\r
 153   writeln( oCoord.mGetDebugInfo );\r
 154 end.\r