#include "mview_view.h"
#include "mview_misc.h"
#include "mview_macros.h"
#include "mview_widgets.h"

static Widget clipshell=NULL;
static char dumstr[80];

int Clipmin=1, Clipmax=100;

void clips()
{

  MrmCode class;
  Widget clips_w;

  if (clipshell != NULL) {
    XMapRaised(display, XtWindow(clipshell));
    return;
  }

  clipshell = XtVaAppCreateShell("Clips",
				 "clipshell",
				 topLevelShellWidgetClass,
				 XtDisplay(toplevel),
				 XmNmwmDecorations, MWM_DECOR_TITLE |
				 MWM_DECOR_BORDER | MWM_DECOR_MINIMIZE,
				 NULL);

  if (MrmFetchWidget(Hierarchie,
		     "CLIPS_W",
		     clipshell,
		     &clips_w,
		     &class)
      != MrmSUCCESS ){
    sprintf(dumstr, "Can't fetch widget.\n");
    printf(dumstr);
    exit(0);
  }
  else {
    XtManageChild(clips_w);
  }      

  XtRealizeWidget(clipshell);
  set_colormap(clipshell);
}

extern XImage *hugeimage;
extern char *lotofpixels;
extern Widget zoomshell, zoom_w;
extern Dimension zoom_width, zoom_height;

scale_images()
{
  unsigned long selectcursor, selectslice;
  int Z, curz, pos[2];
  XImage *image;
  char *spixels, *pixels, *subpixels;


  XSetForeground(display, gc, BlackPixelOfScreen(ecran));

  if ((lotofpixels != NULL) && (zoomshell == NULL))
    XFillRectangle(display, XtWindow(small_w), gc, 0, 0, 64, 64);
  if ((lotofpixels != NULL) && (zoomshell != NULL))
    XFillRectangle(display, XtWindow(zoom_w), gc, 0, 0, 
		   zoom_width, zoom_height);


  pixels = (char*) malloc(sizex*sizey*sizeof(char));
  if (subpixmap[0] != 0)
    subpixels = (char*) malloc(zsizex*zsizey*sizeof(char));

  for (Z=0; Z<Nsubs; Z++) {
    _2DfloatTo2Dbyte(&fimage[isize*Z],
		     1, npix[0]/incr,
		     1, npix[1]/incr,
		     pixels,
		     zoom, zoom,
		     displayclip[0], displayclip[1],
		     incr);

    /* Make mosaic pixmap */

    image = XCreateImage(display, visual, depth,
			 ZPixmap, 0, pixels, sizex, sizey, 8, 0);
    
    XPutImage(display, pixmap, gc, image, 0, 0,
	      col[Z]*sizex, row[Z]*sizey,
	      sizex, sizey);

    XFree(image);
    /* Make subset's pixmaps */
    if (subpixmap[0] != 0) {
      _2DfloatTo2Dbyte(&fimage[isize*Z],
		       1, npix[0],
		       1, npix[1],
		       subpixels,
		       localzoom, localzoom,
		       displayclip[0], displayclip[1],
		       1);
      image = XCreateImage(display, visual, depth,
			   ZPixmap, 0, subpixels, zsizex, zsizey, 8, 0);
    
      XPutImage(display, subpixmap[Z], gc, image, 0, 0,
		0, 0, zsizex, zsizey);

      XFree(image);
    }
  }

  XSetForeground(display, gc, WhitePixelOfScreen(ecran));  

  for (Z = 1; Z < cols; Z++)
    XDrawLine(display, pixmap, gc, sizex*Z, 0, 
	      sizex*Z, rows*sizey - 1);
  for (Z = 1; Z < rows; Z++)
    XDrawLine(display, pixmap, gc, 0, sizey*Z, 
	      cols*sizex - 1, sizey*Z);

  redraw(XtWindow(radec));

  /*
  XtVaGetValues(cursorbutton,
		XmNbackground, &selectcursor, 
		NULL);
  XtVaGetValues(slicebutton,
		XmNbackground, &selectslice, 
		NULL);
  if (selectcursor == blackpix)
    redraws_box();

  if (selectslice == blackpix) {
    redraws_slice();
  }

  */
  curz = GET_CURZ();

  if (subpixmap[0] != 0)
    XCopyArea(display,
	      subpixmap[curz],
	      subsetpixmap,
	      gc,
	      0, 0,
	      zsizex, zsizey,
	      0, 0);
  else 
    XCopyArea(display,
	      pixmap,
	      subsetpixmap,
	      gc,
	      POSX(0, curz), POSY(voffset, curz), 
	      sizex, sizey, 
	      (maxspectrumwidth-sizex)/2, (maxspectrumheight-sizey)/2);

  if (XtWindow(subset) != NULL) 
    XCopyArea(display,
	      subsetpixmap,
	      XtWindow(subset),
	      gc,
	      0, 0,
	      zsizex, zsizey,
	      0, 0);

  redraws_slice_in_subset();

  redraw_zcross(subset);

  spixels = (char *) malloc (slice_zoomx*slicewidth*slice_zoomy*Nsubs*
			     sizeof (char));

  _2DfloatTo2Dbyte(Buffer,
		   1, Np,
		   1, Nsubs,
		   spixels,
		   slice_zoomx, slice_zoomy,
		   displayclip[0], displayclip[1], 1);
  
  image = XCreateImage(display, visual, depth,
		       ZPixmap, 0, spixels, slice_zoomx*Np, 
		       slice_zoomy*Nsubs, 8, 0);
  
  XSetForeground(display, gc, BlackPixelOfScreen(ecran));
  
  XFillRectangle(display, spixmap, gc, 0, 0,
		 slice_zoomx*slicewidth,
		 slice_zoomy*Nsubs);
  XPutImage(display, spixmap, gc, image, 0, 0,
	    (slice_zoomx*slicewidth)/2 - (slice_zoomx*Np)/2, 0,
	    slice_zoomx*Np, slice_zoomy*Nsubs);
  if (XtWindow(coupe) != NULL) 
    XCopyArea(display,
	      spixmap,
	      XtWindow(coupe),
	      gc,
	      0, 0,
	      slice_zoomx*slicewidth, slice_zoomy*Nsubs,
	      0, 0);

  make_huge();


  get_crosspos(pos);
  if ((lotofpixels != NULL) && (zoomshell == NULL))/* && 
      (pos[0]>=32/factor) && ((pos[1]+voffset)>=(32/factor)) &&
      (pos[0]<pixmapdim[0]-32/factor) && 
      ((pos[1]+voffset)<(rows*sizey-32/factor)))*/
      XPutImage(display, XtWindow(small_w), gc, hugeimage,
		factor*pos[0]-32, factor*(pos[1]+voffset)-32, 0, 0, 64, 64);
    
  if ((lotofpixels != NULL) && (zoomshell != NULL))/* && 
      (pos[0]>=zoom_width/(2*factor)) && 
      ((pos[1]+voffset)>=zoom_height/(2*factor)) &&
      (pos[0]<pixmapdim[0]-zoom_width/(2*factor)) && 
      ((pos[1]+voffset)<(rows*sizey-zoom_height/(2*factor))))*/ {
    XPutImage(display, XtWindow(zoom_w), gc, hugeimage,
	      factor*pos[0]-zoom_width/2, 
	      factor*(pos[1]+voffset)-zoom_height/2, 
	      0, 0, zoom_width, zoom_height);	
    DRAWCROSS(zoom_w, zoom_width/2, zoom_height/2);
  }
}


void change_clips(w, tag, cbs)
Widget w;
int *tag;
XmScaleCallbackStruct *cbs;
{
  static int firstpass = 1;
  static float newclip, clipsav[2];
  XmString label;

  if (firstpass) {
    clipsav[0] = clip[0];
    clipsav[1] = clip[1];
    displayclip[0] = clip[0];
    displayclip[1] = clip[1];
    firstpass = 0;
  }

  switch (*tag) {
  case k_lowscale:
    newclip = clipsav[0] + 
	((clipsav[1] - clipsav[0])/99.)*(cbs->value - 1);
    displayclip[0] = newclip;
    Clipmin  = cbs->value;
    if (Clipmin == Clipmax) {
      XmTextSetString(lowcut, "Doesn't make sense ...");
      return;
    }
    sprintf(dumstr, "lowcut = %f", displayclip[0]);
    XmTextSetString(lowcut, dumstr);
    sprintf(dumstr, "highcut = %f", displayclip[1]);
    XmTextSetString(highcut, dumstr);
    break;

  case k_highscale:
    newclip = clipsav[0] + 
      ((clipsav[1] - clipsav[0])/99.)*(cbs->value - 1);
    displayclip[1] = newclip;
    Clipmax  = cbs->value;
    if (Clipmin == Clipmax) {
      XmTextSetString(highcut, "Doesn't make sense ...");
      return;
    }
    sprintf(dumstr, "lowcut = %f", displayclip[0]);
    XmTextSetString(lowcut, dumstr);
    sprintf(dumstr, "highcut = %f", displayclip[1]);
    XmTextSetString(highcut, dumstr);
    break;

  case k_ok:
    XmTextSetString(comput, "Computing ...");
    XtUnmapWidget(w);
    scale_images();
    XmTextSetString(comput, "Press OK to validate");
    XtMapWidget(w);
    break;
  }
}

void dismiss_clips(w, w_code, cbs)
Widget w;
int *w_code;
XmAnyCallbackStruct *cbs;
{
  XtUnmapWidget(clipshell);
}