src/math/floating.cpp

   1 /*
   2  * Copyright (C) Volition, Inc. 1999.  All rights reserved.
   3  *
   4  * All source code herein is the property of Volition, Inc. You may not sell
   5  * or otherwise commercially exploit the source or things you created based on
   6  * the source.
   7  */
   8
   9 /*
  10  * $Logfile: /Freespace2/code/Math/Floating.cpp $
  11  * $Revision$
  12  * $Date$
  13  * $Author$
  14  *
  15  * Low-level floating point math routines
  16  *
  17  * $Log$
  18  * Revision 1.5  2002/06/09 04:41:22  relnev
  19  * added copyright header
  20  *
  21  * Revision 1.4  2002/06/05 08:05:29  relnev
  22  * stub/warning removal.
  23  *
  24  * reworked the sound code.
  25  *
  26  * Revision 1.3  2002/05/31 00:29:32  theoddone33
  27  * Fix frand()
  28  *
  29  * Revision 1.2  2002/05/07 03:16:46  theoddone33
  30  * The Great Newline Fix
  31  *
  32  * Revision 1.1.1.1  2002/05/03 03:28:09  root
  33  * Initial import.
  34  *
  35  *
  36  * 2     10/07/98 10:53a Dave
  37  * Initial checkin.
  38  *
  39  * 1     10/07/98 10:49a Dave
  40  *
  41  * 13    2/26/98 3:28p John
  42  * Changed all sqrt's to use fl_sqrt.  Took out isqrt function
  43  *
  44  * 12    1/30/98 12:25p Mike
  45  * Make frand() not return 1.0, which can cause overflow when indexing
  46  * into arrays.
  47  *
  48  * 11    1/26/98 10:43p Mike
  49  * Make ships not all zoom away from an impending shockwave at the same
  50  * time.  Based on ai class and randomness
  51  *
  52  * 10    1/20/98 9:47a Mike
  53  * Suppress optimized compiler warnings.
  54  * Some secondary weapon work.
  55  *
  56  * 9     1/17/98 3:32p Mike
  57  * Add rand_range(), returns random float in min..max.
  58  *
  59  * 8     9/09/97 11:07a Sandeep
  60  * fixed warning level 4
  61  *
  62  * 7     8/05/97 10:18a Lawrance
  63  * my_rand() being used temporarily instead of rand()
  64  *
  65  * 6     2/17/97 5:18p John
  66  * Added a bunch of RCS headers to a bunch of old files that don't have
  67  * them.
  68  *
  69  * $NoKeywords: $
  70  */
  71
  72 #include <stdlib.h>
  73 #include <math.h>
  74
  75 #include "pstypes.h"
  76 #include "floating.h"
  77 #include "timer.h"
  78
  79 /*
  80 #define LOOKUP_BITS     6
  81 #define EXP_POS         23
  82 #define EXP_BIAS                127
  83 typedef float FLOAT;
  84
  85 #define LOOKUP_POS      (EXP_POS-LOOKUP_BITS)
  86 #define SEED_POS                (EXP_POS-8)
  87 #define TABLE_SIZE      (2<<LOOKUP_BITS)
  88 #define LOOKUP_MASK     (TABLE_SIZE-1)
  89 #define GET_EXP(a)      (((a) >> EXP_POS) & 0xFF )
  90 #define SET_EXP(a)      ((a) << EXP_POS )
  91 #define GET_EMANT(a)    (((a) >> LOOKUP_POS) & LOOKUP_MASK )
  92 #define SET_MANTSEED(a) (((unsigned long)(a)) << SEED_POS )
  93
  94 int fl_magic = 0x59C00000;              //representation of 2^51 + 2^52
  95 const float *p_fl_magic = (const float *)&fl_magic;
  96
  97 union _flint {
  98         unsigned long   i;
  99         float                           f;
 100 } fi, fo;
 101
 102
 103 static unsigned char iSqrt[TABLE_SIZE];
 104 static int iSqrt_inited = 0;
 105
 106 static void MakeInverseSqrtLookupTable()
 107 {
 108         long f;
 109         unsigned char *h;
 110         union _flint fi, fo;
 111
 112         iSqrt_inited = 1;
 113         for ( f=0, h=iSqrt; f < TABLE_SIZE; f++ )       {
 114                 fi.i = ((EXP_BIAS-1)<<EXP_POS) | (f<<LOOKUP_POS);
 115                 fo.f = 1.0f / fl_sqrt(fi.f);
 116                 *h++ = (unsigned char)(((fo.i + (1<<(SEED_POS-2))) >>SEED_POS ) & 0xFF);
 117         }
 118         iSqrt[ TABLE_SIZE / 2 ] = 0xFF;
 119 }
 120 */
 121
 122 // HACK!
 123 float fl_isqrt_c( float x )
 124 {
 125 //      unsigned long a = ((union _flint *)(&x))->i;
 126 //      float arg = x;
 127 //      union _flint seed;
 128 //      FLOAT r;
 129
 130         float r1 =  1.0f / (float)sqrt((double)x);
 131 //      float r2 = fl_isqrt_asm(x);
 132
 133         return r1;
 134
 135
 136 /*      if ( !iSqrt_inited )
 137                 MakeInverseSqrtLookupTable();
 138
 139         seed.i = SET_EXP(((3*EXP_BIAS-1) - GET_EXP(a)) >> 1 ) | SET_MANTSEED(iSqrt[GET_EMANT(a)]);
 140         r = seed.f;
 141         r = (3.0f - r * r * arg ) * r * 0.5f;
 142         r = (3.0f - r * r * arg ) * r * 0.5f;
 143         return r;
 144 */
 145 }
 146
 147 // rounds off a floating point number to a multiple of some number
 148 float fl_roundoff(float x, int multiple)
 149 {
 150         float half = (float) multiple / 2.0f;
 151
 152         if (x < 0)
 153                 half = -half;
 154
 155         x += half;
 156         return (float) (((int) x / multiple) * multiple);
 157 }
 158
 159
 160 //      Return random value in range 0.0..1.0- (1.0- means the closest number less than 1.0)
 161 float frand()
 162 {
 163         float rval;
 164         rval = fabsf(((float) myrand()) / (MY_RAND_MAX + 1));
 165         return rval;
 166 }
 167
 168 //      Return a floating point number in the range min..max.
 169 float frand_range(float min, float max)
 170 {
 171         float   rval;
 172
 173         rval = frand();
 174         rval = rval * (max - min) + min;
 175
 176         return rval;
 177 }
 178
 179 //      Call this in the frame interval to get TRUE chance times per second.
 180 //      If you want it to return TRUE 3 times per second, call it in the frame interval like so:
 181 //              rand_chance(flFrametime, 3.0f);
 182 int rand_chance(float frametime, float chance)  //      default value for chance = 1.0f.
 183 {
 184         while (--chance > 0.0f)
 185                 if (frand() < frametime)
 186                         return 1;
 187
 188         return frand() < (frametime * (chance + 1.0f));
 189 }
 190
 191 /*fix fl2f( float x )
 192 {
 193         float nf;
 194         nf = x*65536.0f + 8390656.0f;
 195         return ((*((int *)&nf)) & 0x7FFFFF)-2048;
 196 }
 197 */
 198
 199
 200 /*
 201 >#define  S  65536.0
 202 >#define  MAGIC  (((S * S * 16) + (S*.5)) * S)
 203 >
 204 >#pragma inline float2int;
 205 >
 206 >ulong float2int( float d )
 207 >{
 208 >  double dtemp = MAGIC + d;
 209 >  return (*(ulong *)&dtemp) - 0x80000000;
 210 >}
 211
 212 */