Method record

SRC/tcl/TclFeViewer.cpp:274–366

}
    
int 
TclFeViewer::record(int cTag, double timeStamp)
{

#ifdef _NOGRAPHICS
  // if no graphics .. just return 0
  return 0;
#else

  if (theRenderer == 0)
    return 0;


  //  theRenderer->displayModel(thetheEleMode, theNodeMode, theDisplayFact);

  // loop over the elements getting each to display itself
  // using theRenderer and displayTag as arguments.
  // first clear the image
  int res = 0;
  // where relDeltaTTol is the maximum reliable ratio between analysis time step and deltaT
  // and provides tolerance for floating point precision (see floating-point-tolerance-for-recorder-time-step.md)
    if (deltaT == 0.0 || timeStamp - nextTimeStampToRecord >= -deltaT * relDeltaTTol) {

      if (deltaT != 0.0) 
          nextTimeStampToRecord = timeStamp + deltaT;

      if (wipeFlag == 1)
          theRenderer->clearImage();

      // set some quantities if not set
      if (vrpSet == 0 || vpwindowSet == 0 || clippingPlaneDistancesSet == 0) {
          const Vector &theBounds = theDomain->getPhysicalBounds();
          double xAvg = (theBounds(0) + theBounds(3))/2.0;
          double yAvg = (theBounds(1) + theBounds(4))/2.0;
          double zAvg = (theBounds(2) + theBounds(5))/2.0;

          if (vrpSet == 0)
              this->setVRP(float(xAvg), float(yAvg), float(zAvg));

          double diff, xDiff, yDiff, zDiff;
          xDiff = (theBounds(3) - theBounds(0));
          yDiff = (theBounds(4) - theBounds(1));
          zDiff = (theBounds(5) - theBounds(2));
          diff = xDiff;
          if (yDiff > diff)
              diff = yDiff;
          if (zDiff > diff)
              diff = zDiff;

          diff *= 1.25 * 0.5;

          if (vpwindowSet == 0)
              this->setViewWindow(float(-diff),float(diff),float(-diff),float(diff));

          if (clippingPlaneDistancesSet == 0) {
              diff = sqrt(xDiff*xDiff + yDiff*yDiff + zDiff * zDiff);
              this->setPlaneDist(float(diff),float(-diff));
          }