/* cpanel.c : control panel */
/*
    This software may only be used by you under license from AT&T Corp.
    ("AT&T").  A copy of AT&T's Source Code Agreement is available at
    AT&T's Internet website having the URL:
    <http://www.research.att.com/areas/stat/ggobi/license.html>
    If you received this software without first entering into a license
    with AT&T, you have an infringing copy of this software and cannot use
    it without violating AT&T's intellectual property rights.
*/

#include <gtk/gtk.h>

#include "vars.h"
#include "externs.h"

void
scatterplot_cpanel_init (cpaneld *cpanel, gint initial_mode, ggobid *gg) {
  cpanel->mode = initial_mode;

  /*-- scatterplot only, so far --*/
  cpanel->projection = initial_mode;

  /*-- 1d plots --*/
  cpanel->p1d_type = TEXTURE;
  cpanel_p1d_init (cpanel, gg);

  cpanel_rotation_init (cpanel, gg);
  cpanel_brush_init (cpanel, gg);
  cpanel_scale_init (cpanel, gg);
  cpanel_t2d_init (cpanel, gg);  /*-- tour_init, or tour2d_init? --*/
  cpanel_t1d_init (cpanel, gg);
  cpanel_tcorr_init (cpanel, gg);
}

void
scatmat_cpanel_init (cpaneld* cpanel, ggobid *gg) {
  cpanel->mode = SCATMAT;
  cpanel->projection = XYPLOT;  /*-- does it need a projection? --*/

  cpanel->parcoords_selection_mode = VAR_REPLACE;

  /*-- 1d plots --*/
  cpanel->p1d_type = ASH;
  cpanel_p1d_init (cpanel, gg);

  cpanel_brush_init (cpanel, gg);
}

void
parcoords_cpanel_init (cpaneld* cpanel, ggobid *gg) {
  cpanel->mode = PCPLOT;
  cpanel->projection = P1PLOT;  /*-- does it need a projection? --*/

  /*-- 1d plots --*/
  cpanel->p1d_type = DOTPLOT;
  cpanel_p1d_init (cpanel, gg);

  cpanel->parcoords_selection_mode = VAR_REPLACE;
  cpanel->parcoords_arrangement = ARRANGE_ROW;

  cpanel_brush_init (cpanel, gg);
}

void
tsplot_cpanel_init (cpaneld* cpanel, ggobid *gg) {
  cpanel->mode = TSPLOT;
  cpanel->projection = XYPLOT;  /*-- does it need a projection? --*/

  /*-- 1d plots --*/
  cpanel->p1d_type = DOTPLOT;
  cpanel_p1d_init (cpanel, gg);

  cpanel->tsplot_selection_mode = VAR_REPLACE;
  cpanel->tsplot_arrangement = ARRANGE_COL;

  cpanel_brush_init (cpanel, gg);
}

void
cpanel_set (displayd *display, ggobid *gg) {
  cpaneld *cpanel = &display->cpanel;

  switch (display->displaytype) {
    case scatterplot:
      cpanel_p1d_set (cpanel, gg);
      cpanel_rotation_set (cpanel, gg);
      cpanel_brush_set (cpanel, gg);
      break;
    case scatmat:
      cpanel_brush_set (cpanel, gg);
      break;
    case parcoords:
      /*cpanel_p1d_set (cpanel);  write cpanel_parcoords_set (cpanel) */
      cpanel_brush_set (cpanel, gg);
      break;
    case tsplot:
      cpanel_brush_set (cpanel, gg);
      break;
  }

  mode_set (cpanel->mode, gg);
}