src/STEPConstruct/STEPConstruct_PointHasher.lxx

   1 // Copyright (c) 1999-2014 OPEN CASCADE SAS
   2 //
   3 // This file is part of Open CASCADE Technology software library.
   4 //
   5 // This library is free software; you can redistribute it and/or modify it under
   6 // the terms of the GNU Lesser General Public License version 2.1 as published
   7 // by the Free Software Foundation, with special exception defined in the file
   8 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
   9 // distribution for complete text of the license and disclaimer of any warranty.
  10 //
  11 // Alternatively, this file may be used under the terms of Open CASCADE
  12 // commercial license or contractual agreement.
  13
  14 //=======================================================================
  15 //function : HashCode
  16 //purpose  :
  17 //=======================================================================
  18 inline Standard_Integer STEPConstruct_PointHasher::HashCode
  19   (const gp_Pnt& point, const Standard_Integer Upper)
  20 {
  21   union
  22     {
  23     Standard_Real R[3];
  24     Standard_Integer I[6];
  25     } U;
  26
  27   point.Coord(U.R[0],U.R[1],U.R[2]);
  28
  29   return ::HashCode(U.I[0]/23+U.I[1]/19+U.I[2]/17+U.I[3]/13+U.I[4]/11+U.I[5]/7,Upper);
  30   //  return ::HashCode((U.I[0]>>4)+(U.I[1]>>3)+(U.I[2]>>2)+(U.I[3]>>1)+(U.I[4]>>4)+(U.I[5]>>3),Upper);
  31
  32 }
  33