src/MeshAlgo/MeshAlgo_PntComparator.cdl

   1 -- File:        MeshAlgo_PntComparator.cdl
   2 -- Created:     Fri Jun 18 13:46:14 1993
   3 -- Author:      Didier PIFFAULT
   4 --              <dpf@zerox>
   5 ---Copyright:    Matra Datavision 1993
   6
   7
   8 generic class PntComparator from MeshAlgo (Point as any; Direction as any)
   9
  10         ---Purpose: Sort two point in a given direction.
  11
  12
  13 uses  Boolean from Standard
  14
  15
  16 is      Create (theDir : Direction; TheTol: Real from Standard)
  17             returns PntComparator;
  18
  19
  20         IsLower (me; Left, Right: Point)
  21         ---Purpose: returns True if <Left> is lower than <Right>
  22             returns Boolean from Standard;
  23
  24         IsGreater (me; Left, Right: Point)
  25         ---Purpose: returns True if <Left> is greater than <Right>
  26             returns Boolean from Standard;
  27
  28         IsEqual(me; Left, Right: Point)
  29         ---Purpose: returns True when <Right> and <Left> are equal.
  30             returns Boolean from Standard;
  31
  32
  33 fields  DirectionOfSort : Direction;
  34         Tolerance       : Real from Standard;
  35
  36 end PntComparator;