#include "mview_view.h"
#include "mview_widgets.h"
#include "mview_misc.h"
#include <stdio.h>

typedef struct XPoint_item_list* XPoint_list;

struct XPoint_item_list
{
  XPoint xp;
  XPoint_list next;
};

extern XPoint_list get_pol_coord();
extern int get_nsum();
static char dumstr[80];

void save()
{

  FILE *f_save;
  int box[6];
  int curpix[3];
  int extremities[4];
  XPoint_list xpl;
  int sub[3];
  int x, y, z=1, compt=0;
  char chainx[80], chainy[80], chainz[80], chainz2[80], chainv[80];
  float velo[2];

  f_save = fopen("mview.log", "w");
  printf(chainz2);
  fprintf(f_save, "%s\n", "######################");
  fprintf(f_save, "%s\n", "# Log file for mview #");
  fprintf(f_save, "%s\n", "######################");
  fprintf(f_save, "%s%s%s  %s\n",
	  "'", image_name, "'", "/* Filename */");


  get_3D_area(box);

  phys_coord(&box[0], &box[1], &box[2], 
	     chainx, chainy, chainz, chainv,
	     strlen(chainx), strlen(chainy), strlen(chainz), strlen(chainv));
    
  fprintf(f_save, "%d %d %d %s\n",
	  box[0], box[1], box[2], "                    /* Blc */");
    
  phys_coord(&box[3], &box[4], &box[5], 
	     chainx, chainy, chainz2, chainv,
	     strlen(chainx), strlen(chainy), strlen(chainz2), strlen(chainv));
  
  fprintf(f_save, "%d %d %d %s\n",
	  box[3], box[4], box[5], "                    /* Trc */");

  get_curpix(curpix);

  if (curpix[0] != 0)
    fprintf(f_save, "%d %d %d %s\n", curpix[0], curpix[1], curpix[2], 
	    "                    /* Current pixel */");

  get_slice_extremities(extremities);
  if (extremities[0] != 0) {
    phys_coord(&extremities[0], &extremities[1], &z, 
	       chainx, chainy, chainz, chainv,
	       strlen(chainx), strlen(chainy), strlen(chainz), strlen(chainv));

    fprintf(f_save, "%s %s %s\n",
	    chainx, chainy, " /* Slice begin */");

    phys_coord(&extremities[2], &extremities[3], &z, 
	       chainx, chainy, chainz, chainv,
	       strlen(chainx), strlen(chainy), strlen(chainz), strlen(chainv));
 
    fprintf(f_save, "%s %s %s\n",
	    chainx, chainy, " /* Slice end */");
  }

  get_planes(sub, velo);

  x = 1; y = 1;

  phys_coord(&x, &y, &sub[1], 
	     chainx, chainy, chainz, chainv,
	     strlen(chainx), strlen(chainy), strlen(chainz), strlen(chainv));

  x = 1; y = 1;

  phys_coord(&x, &y, &sub[2], 
	     chainx, chainy, chainz2, chainv,
	     strlen(chainx), strlen(chainy), strlen(chainz2), strlen(chainv));

  fprintf(f_save, "%s %s %s\n", chainz, chainz2, "   /* Planes first/end */");

  compt = get_nsum();
  if (compt != NULL) {
    fprintf(f_save, "%d %s\n", compt, "Polygon summits");
    xpl = get_pol_coord();

    while (xpl != NULL) {
      x = (xpl->xp.x)/localzoom + 1;
      y = (npix[1] - 1 - (xpl->xp.y)/localzoom) + 1;
	
      phys_coord(&x, &y, &z, 
		 chainx, chainy, chainz, chainv,
		 strlen(chainx), strlen(chainy), strlen(chainz), strlen(chainv));
      if (xpl->next != NULL) fprintf(f_save, "%s %s\n", chainx, chainy);
      
      xpl = xpl->next;
    }
  }

  fclose(f_save);
}


void menu(w, w_code, cbs)
Widget w;
int *w_code;
XmPushButtonCallbackStruct *cbs;
{
  switch(*w_code) {
  case k_color:
    kill_movie();
    hsv();
    break;
  case k_clip:
    kill_movie();
    clips();
    break;
  case k_slice: 
    kill_movie();
    reset_box();
    if (Nsubs >= 2) reset_2D_box();
    slice();
    break;
  case k_cursor: 
    kill_movie();
    reset_slice();
    cursor();
    break;
  case k_spectrum:
    reset_box();
    if (Nsubs >= 2) reset_2D_box();
    reset_slice(); 
    spectrum();
    break;
  }
}

void quit()
{
  kill_movie();
  exit(1);
}