/* ***********************************************************************
   *									 *
   *		                 Make Objects 		                 *
   *									 *
   *				Program by				 *
   *			   Christopher D. Watkins			 *
   *									 *
   *			     'C' conversion by				 *
   *                            Larry Sharp				 *
   *									 *
   ***********************************************************************
*/

#include "stdio.h"
#include "dos.h"
#include "conio.h"
#include "math.h"
#include "string.h"
#include "alloc.h"
#include "math.inc"
#include "graph.inc"
#include "model.inc"
#include "shpmk.inc"

Name ObjF;

void GetObjF()
{
  int i;
  Byte x, y;

  printf("\nEnter File Name -> ");
  x=wherex();
  y=wherey();
  gets(ObjF);
  if(!(strcmp(ObjF, "")))
  {
    strcpy(ObjF, "NEWOBJ");
    gotoxy(x, y);
    puts(ObjF);
  }
  puts("");
  strcat(ObjF, ".DAT");
  strupr(ObjF);
}

int NumberOfFacets;

void GetNumberOfFacets()
{
  printf("\nNumber of Facets => ");
  scanf("%d", &NumberOfFacets);
}

void SetupObject(int NumOfFacets)
{
  VertexNum=1;
  VertexNumInFacet=1;
  LastFacet=NumOfFacets;
  LastVertexNumInFacet=4;
  LastVertex=LastFacet*LastVertexNumInFacet;
}

void MakeObjectDataBase()
{
  int T;
  float x, y, z;

  for(FacetNum=1; FacetNum<=LastFacet; FacetNum++)
  {
    for(T=1; T<=LastVertexNumInFacet; T++)
    {
      scanf("%f %f %f", &x, &y, &z);
      AddVertex(x, y, z);
    }
    VertexNumInFacet=1;
  }
}

/* ***********************************************************************
   *									 *
   *				Main Program				 *
   *									 *
   ***********************************************************************
*/

void main()
{
  Facet=farcalloc(((MaxFacet+1)*(MaxVertexNumInFacet+1)), sizeof(int));
  Title();
  printf("Make Object Databases\n\n");
  GetObjF();
  GetNumberOfFacets();
  InitVertexMaker();
  SetupObject(NumberOfFacets);
  MakeObjectDataBase();
  SaveData(ObjF);
  ExitGraphics();
  farfree(Facet);
}