Function TclCommand_addFiber

SRC/runtime/commands/modeling/section.cpp:1172–1384

Add a fiber to a fiber section

// Add a fiber to a fiber section
int
TclCommand_addFiber(ClientData clientData, Tcl_Interp *interp, int argc,
                    TCL_Char ** const argv)
{
  enum class Position : int {
    Y, Z, Area, Material, End
  };
  ArgumentTracker<Position> tracker;
  std::set<int> positional;

  assert(clientData != nullptr);
  BasicModelBuilder* builder = static_cast<BasicModelBuilder*>(clientData);

  SectionBuilder* fiberSectionRepr = findSectionBuilder(builder, interp, argc, argv);
  if (fiberSectionRepr == nullptr) {
    opserr << OpenSees::PromptValueError << "cannot retrieve a section builder\n";
    return TCL_ERROR;
  }

  double yLoc, zLoc=0, area;
  int matTag;
  bool warn_2d_z = false;
  static constexpr int WarpModeCount = 3;
  double warp[WarpModeCount][3]{};
  int warp_arg = -1;
  for (int i=1; i<argc; i++) {
    if (strcmp(argv[i], "-section") == 0) {
      ++i;
    }
    else if (strcmp(argv[i], "-warp") == 0) {
      if (i + 1 >= argc) {
        opserr << OpenSees::PromptValueError << "missing warp argument\n";
        return TCL_ERROR;
      }
      warp_arg = i+1;
      i++;
    }
    else if (strcmp(argv[i], "-warn-2d-z") == 0) {
        warn_2d_z = true;
        i++;
    }
    else if (strcmp(argv[i], "-material") == 0) {
      if (argc == ++i || Tcl_GetInt(interp, argv[i], &matTag) != TCL_OK) {
        opserr << OpenSees::PromptValueError << "invalid material tag\n";
        return TCL_ERROR;
      }
      tracker.consume(Position::Material);
    }
    else if (strcmp(argv[i], "-area") == 0) {
      if (argc == ++i || Tcl_GetDouble(interp, argv[i], &area) != TCL_OK) {
        opserr << OpenSees::PromptValueError << "invalid area\n";
        return TCL_ERROR;
      }
      tracker.consume(Position::Area);
    }
    else if (strcmp(argv[i], "-y") == 0) {
      if (argc == ++i || Tcl_GetDouble(interp, argv[i], &yLoc) != TCL_OK) {
        opserr << OpenSees::PromptValueError << "invalid y coordinate\n";