// This file is part of the GenericLAND software library.
// $Id$
//
// GenericLAND visualization manager messenger
//   -- main purpose of defining our own is to reorient "up" vector
//
// Author:  Glenn Horton-Smith, Jan 28, 2000
//
#ifdef G4VIS_USE

#include <RAT/GLG4VisMessenger.hh>
#include <RAT/GLG4VisManager.hh>

#include "G4UIcmdWithAString.hh"
#include "G4UIdirectory.hh"
#include "G4ios.hh"
#include "G4ViewParameters.hh"
#include "globals.hh"

#include "local_g4compat.hh"

#include <sstream>

#include <RAT/Log.hh>

using RAT::warn;
using RAT::info;


GLG4VisMessenger::GLG4VisMessenger(GLG4VisManager* pVMan_)
  : fVMan(pVMan_)
{
  // the glg4vis directory
  G4UIdirectory* Dir = new G4UIdirectory("/glg4vis/");
  Dir->SetGuidance("Visualization commands more suited to GenericLAND.");

  // the camera reset command
  G4UIcommand *CameraResetCmd = new G4UIcommand("/glg4vis/camera/reset", this);
  CameraResetCmd->SetGuidance
    ("Reset to nominal viewing position, up vector, etc. **DEPRECATED**");

  // the viewer reset command (same as camera/reset)
  CameraResetCmd = new G4UIcommand("/glg4vis/viewer/reset", this);
  CameraResetCmd->SetGuidance
    ("Reset to nominal viewing position, up vector, etc.");

  // the glg4vis reset command (same as camera/reset)
  CameraResetCmd = new G4UIcommand("/glg4vis/reset", this);
  CameraResetCmd->SetGuidance
    ("Reset to nominal viewing position, up vector, etc.");

  // the upvector command
  G4UIcommand *UpVectorCmd = new G4UIcommand("/glg4vis/upvector", this);
  UpVectorCmd->SetGuidance ("Set \"up\" direction");
  UpVectorCmd->SetParameter(new G4UIparameter("x", 'd', true));
  UpVectorCmd->SetParameter(new G4UIparameter("y", 'd', true));
  UpVectorCmd->SetParameter(new G4UIparameter("z", 'd', true));
}

GLG4VisMessenger::~GLG4VisMessenger()
{
}

void GLG4VisMessenger::SetNewValue (G4UIcommand * command,G4String newValues) {

  G4String commandname= command->GetCommandName();
  G4std::istringstream is(newValues);

  G4VViewer* currentViewer = fVMan->GetCurrentViewer();
  if (!currentViewer) {
    warn << "GLG4VisMessenger::SetNewValue: no current viewer."
           << newline;
    return;
  }
  G4ViewParameters vp = currentViewer->GetViewParameters();

  if (commandname == "reset") {
    vp.SetCurrentTargetPoint ( G4Point3D(0.0,0.0,0.0) );
    vp.SetZoomFactor (1.);
    vp.SetDolly (0.);
    vp.SetViewpointDirection (G4Vector3D (0., 1., 0.));
    vp.SetUpVector (G4Vector3D (0., 0., 1.));
    info << "Target point reset to (0.0,0.0,0.0)\n";
    info << "Zoom factor reset to 1.\n";
    info << "Dolly distance reset to 0.\n";
    info << "Viewpoint direction reset to +y.\n";
    info << "Up vector set to +z.";
    info << newline;
  }
  else if (commandname == "upvector") {
    G4double x,y,z;
    is >> x >> y >> z;
    if (is.fail()) {
      warn << "GLG4VisMessaneger::SetNewValue: "
           << "Could not understand arguments, up vector left as "
           << vp.GetUpVector() << newline;
      return;
    }
    else {
      vp.SetUpVector (G4Vector3D (x,y,z));
    }
  }
  else {
    warn << "GLG4VisMessaneger::SetNewValue: I do not recognize this command: "
         << commandname << newline;
    return;
  }

  currentViewer->SetViewParameters(vp);
}


G4String GLG4VisMessenger::GetCurrentValue (G4UIcommand * )
{
  return G4String("invalid GLG4VisMessenger \"get\" command");
}
#endif