Function TclFeViewer_setViewWindow

SRC/tcl/TclFeViewer.cpp:672–711

}

int
TclFeViewer_setViewWindow(ClientData clientData, Tcl_Interp *interp, int argc, 
		   TCL_Char **argv)
{  
#ifdef _NOGRAPHICS
  // if no graphics .. just return 0
  return TCL_OK;
#else
  // check destructor has not been called
  if (theTclFeViewer == 0)
      return TCL_OK;    
  
  // check num args
  if (argc < 5) {
      opserr << "WARNING args incorrect - prp uMin uMax vMin vMax \n";
      return TCL_ERROR;
  }    

  double uMin, uMax, vMin, vMax;
  if (Tcl_GetDouble(interp, argv[1], &uMin) != TCL_OK) {
      opserr << "WARNING invalid uMin - vup uMin uMax vMin vMax\n";
      return TCL_ERROR;
  }
  if (Tcl_GetDouble(interp, argv[2], &uMax) != TCL_OK) {
      opserr << "WARNING invalid uMax - vup uMin uMax vMin vMax\n";
      return TCL_ERROR;
  }  
  if (Tcl_GetDouble(interp, argv[3], &vMin) != TCL_OK) {
      opserr << "WARNING invalid vMin - vup uMin uMax vMin vMax\n";
      return TCL_ERROR;
  }    
  if (Tcl_GetDouble(interp, argv[4], &vMax) != TCL_OK) {
      opserr << "WARNING invalid vMin - vup uMin uMax vMin vMax\n";
      return TCL_ERROR;
  }      
  
  theTclFeViewer->setViewWindow(float(uMin),float(uMax),float(vMin),float(vMax));
  return TCL_OK;    
#endif
}
int
TclFeViewer_setPlaneDist(ClientData clientData, Tcl_Interp *interp, int argc, 
			 TCL_Char **argv)