...
float tabstep[SIZE_Y];
...
void m7_CreateMatrix(short SizeHorz, short ViewL, short ViewF)
{
  register short i,j;
  K3 = SizeHorz * (SIZE_Y * (ViewF - 1));
  const long K1 = -K3*ViewL*ViewL;
  const long K2 = 2*SIZE_X*ViewF;
  K4 = (SizeHorz-1)*ViewF;
  
  K5 = SizeHorz*(-(ViewF-1)*ViewL);
  
  long val = ((SIZE_Y - 1) * K4 - K3);

  for(i=SIZE_Y; i--; )
  {
      tabstep[SIZE_Y - i - 1] = (float)K1/(K2 * val);
      Vert[SIZE_Y - i - 1] = (i*K5)/(val + val);
      val -= K4;
  }
  
  for(j=SIZE_Y; j--; )
  {
    const float _tabstep = tabstep[j];
    float _tabstep1 = ((SIZE_X/2)+1)*_tabstep;
    float _tabstep2 = (-((SIZE_X/2)-1))*_tabstep;
    const short offset = SIZE_X * j;
    
    for(i=SIZE_X/2; i--; )
    {
      Horz[((SIZE_X/2) - i%(SIZE_X/2) - 1) + offset] = _tabstep1;
      Horz[((SIZE_X/2) + i%(SIZE_X/2)) + offset] = _tabstep2;
      
      _tabstep1 -= _tabstep;
      _tabstep2 += _tabstep;
    }
  }
}

float _tabstep1 = ((SIZE_X/2)+1)*_tabstep;
    float _tabstep2 = (-((SIZE_X/2)-1))*_tabstep;

//Format:
//-------
//Bits 15 à 7 = Entier allant de 0 à 65535.9999
//Bits 7 à 0  = Chiffres après la virgule allant de 0 à 65535

//Codage d'une virgule fixe:
//--------------------------
//unsigned long var

//Renvoie l'entier d'un fixed point
unsigned short Fix_GetInteger (unsigned long fix)
{
  return (unsigned short)(fix>>16);
}


//Renvoie la virgule d'un fixed point
unsigned short Fix_GetPoint (unsigned long fix)
{
  return (unsigned short)(((fix&0xFFFF)<<16)/0x00068DB9);
}


//Addition
unsigned long Fix_Add (unsigned long a, unsigned long b)
{
  return (unsigned long)(a+b);
}


//Soustraction
unsigned long Fix_Sub (unsigned long a, unsigned long b)
{
  return (unsigned long)(a-b);
}


//Multiplication
unsigned long Fix_Mul (unsigned long a, unsigned long b)
{
  return (unsigned long)(((unsigned long long)a*(unsigned long long)b)>>16);
}


//Division
unsigned long Fix_Div (unsigned long a, unsigned long b)
{
  return (unsigned long)(((((unsigned long long)a)<<16)/(unsigned long long)b));
}