#define PROG_NAME "TestCornerQE"
#define PROG_DESC "???"
#define PROG_VERS "1.0"

#define TestCornerQE_C_COPYRIGHT \
  ""
  
#define PROG_INFO \
  "" \
  " "


#include <Map.h>
#define _GNU_SOURCE
#include <stdio.h>
#include <Oct.h>
#include <Triang.h>


#include <Octf.h>
//  Splice, S, ONext, OPrev, Flip, Tor, Rot;


#include <Triang.h>
//  OrgV;
#include <Map.h>
//  Corner, CCorner, Middle;

TYPE
double Arc = Oct.Arc;

double Count = Triang.Count;
double AdjacencyMatrix = Triang.AdjacencyMatrix;
  
VAR
  Arc ca.el[7+1];

PROCEDURE PrintCorner()

 {
  for (l = 1; l < 5; l++)
  {
    ??? a = Map.Make@{Edge->?}(l);
    {
      /*
      Oct.PrintArc(Stdio.stderr, a);
      fprintf(stderr, "\n");
      */
      fprintf(stderr, "(" & Fmt.Int(l) & "," & Fmt.Int(l)
                  & "):" & "\n");
      fprintf(stderr, "Corner(a)== ");
      Oct.PrintArc(stderr, Corner(a)); 

      fprintf(stderr, "CornerFlip(a)== ");
      Oct.PrintArc(stderr, Corner(Flip(a))); 

      fprintf(stderr, "CornerRot(a)== ");
      Oct.PrintArc(stderr, Corner(Rot(a))); 

      fprintf(stderr, "CornerFlipRot(a)== ");
      Oct.PrintArc(stderr, Corner(Flip(Rot(a)))); 

      fprintf(stderr, "CornerSym(a)== ");
      Oct.PrintArc(stderr, Corner(Sym(a))); 

      fprintf(stderr, "CornerFlipSym(a)== ");
      Oct.PrintArc(stderr, Corner(Flip(Sym(a))));

      fprintf(stderr, "CornerTor(a)== ");
      Oct.PrintArc(stderr, Corner(Tor(a))); 

      fprintf(stderr, "CornerFlipTor(a)== ");
      Oct.PrintArc(stderr, Corner(Flip(Tor(a)))); 
      
    }
  }
 } PrintCorner;


PROCEDURE PrintCCorner()

 {
  for (l = 1; l < 5; l++)
  {
    ??? a = Map.Make@{Edge->?}(l);
    {
      fprintf(stderr, "(" & Fmt.Int(l) & "," & Fmt.Int(l)
                  & "):" & "\n");
      fprintf(stderr, "CCorner(a)== ");
      Oct.PrintArc(stderr, CCorner(a)); 

      fprintf(stderr, "CCornerFlip(a)== ");
      Oct.PrintArc(stderr, CCorner(Flip(a))); 

      fprintf(stderr, "CCornerRot(a)== ");
      Oct.PrintArc(stderr, CCorner(Rot(a))); 

      fprintf(stderr, "CCornerFlipRot(a)== ");
      Oct.PrintArc(stderr, CCorner(Flip(Rot(a)))); 

      fprintf(stderr, "CCornerSym(a)== ");
      Oct.PrintArc(stderr, CCorner(Sym(a))); 

      fprintf(stderr, "CCornerFlipSym(a)== ");
      Oct.PrintArc(stderr, CCorner(Flip(Sym(a)))); 

      fprintf(stderr, "CCornerTor(a)== ");
      Oct.PrintArc(stderr, CCorner(Tor(a))); 

      fprintf(stderr, "CCornerFlipTor(a)== ");
      Oct.PrintArc(stderr, CCorner(Flip(Tor(a)))); 
      
    }
  }
 } PrintCCorner;

 void Teste()

  VAR
    Arc ca.el[7+1];
    Arc middle,c;
    ElemTableRec_t *top; /* Was {t} */;
    @{edge->?} : REF ARRAY OF Arc;
    NE : uint = 0;
  { ??? a = Map.Make@{Edge->?}(2);
    {
      /*
      for (l = 4; l < 5; l++)
      {
      ca = Triang.MakeGrid(l,l);   
      for (k = 0; k < 8; k++)
      {
        fprintf(stderr, "c[" & Fmt.Int(k) & "]== ");
        Oct.PrintArc(Stdio.stderr, ca.el[k]);
        fprintf(stderr, "\n");
      }
      */
      top = Triang.MakeElemTable(a);
                  
     
      for (k = 0; k < 8; k++)
      {
        fprintf(stderr, "c[" & Fmt.Int(k) & "]== ");
        Oct.PrintArc(Stdio.stderr, ca.el[k]);
        fprintf(stderr, "\n");
      }
      
    }
 } Teste;
 

{
  /*
    PrintCorner();
    PrintCCorner(); 
    PrintMiddle();
    Teste();
*/
    MakeTorus();
} testeCantos.