/* [!!! JUNK -- Superseded by Bary.c !!!] */

  /*
   This module contain essentially procedures created by J. Stolfi and R.
   Marcone (see the copyright and authorship futher down), modified L. P.
   Lozada for the case tridimensional.
*/

#include <Word.h>
#include <Triangulation.h>
#include <Octf.h>


FROM Octf IMPORT Spin;

REVEAL 
double FacetEdge = PublicFacetEdge BRANDED OBJECT
  OVERRIDES
    init = MapInit;
 ; }

FacetEdge MapInit(s: FacetEdge; uint order1, uint order2)
  { EVAL NARROW(s, Octf.FacetEdge).init();  
    s.ca = Triangulation.MakeTetraTopo(order1,order2);
    s.order1 = order1;
    s.order2 = order2;
    return s
  } /* END MapInit */

Pair MakeFacetEdge(uint order1, uint order2)
  { FacetEdge e = FacetEdge_new();
FacetEdge_init(order1,order2)){
      return (Pair){/*facetedge*/ e, /*bits*/ 0};
   ; }
  } /* END MakeFacetEdge */

Triangulation.Pair Corner(Pair a)
  { SRBits r = a.bits;
    { 
      return a.facetedge.ca[r];
   ; }
  } /* END Corner */

PROCEDURE SetCorner(Pair a, Triangulation.Pair c)
  { SRBits r = a.bits;
    { 
      a.facetedge.ca[r] = c;
   ; }
  } /* END SetCorner */

Triangulation.Pair CCorner(Pair a)
  { SRBits r = (a.bits ^ 1u);
    {
      return Spin(a.facetedge.ca[r]);
   ; }
  } /* END CCorner */


PROCEDURE SetCCorner(Pair a, Triangulation.Pair c)
  { SRBits r = (a.bits ^ 1u);
    {
      a.facetedge.ca[r] = Spin(c);
   ; }
  } /* END SetCCorner */


{
;} Mapi.

  /*

***************** START OF COPYRIGHT)  AND  AND  (AUTHORSHIP NOTICE **********

All files in this directory tree are Copyright 1996 by Jorge Stolfi,
Rober Marcone Rosi, and Universidade Estadual de Campinas, Brazil---
unless stated otherwise in the files themselves.

THESE FILES ARE DISTRIBUTED with (NO GUARANTEE OF ANY KIND.  Neither
the authors nor their employers may be held responsible for any losses
or damages attributed to their use.

These files may be freely copied, distributed, modified, and used for
any purpose; provided that any subtantial excerpt of these files that
is redistributed or incorporated in other software packages is
accompanied by this copyright and authorship notice, and is made freely
available under these same terms.

***************** ;} OF COPYRIGHT)  AND  AND  (AUTHORSHIP NOTICE ************

*/