Function OPS_RectPatch

SRC/material/section/repres/patch/QuadPatch.cpp:62–96

}

void* OPS_RectPatch()
{
    if(OPS_GetNumRemainingInputArgs() < 7) {
	opserr<<"insufficient arguments for RectPatch\n";
	return 0;
    }

    // get idata
    int numData = 3;
    int idata[3];
    if(OPS_GetIntInput(&numData,&idata[0]) < 0) return 0;

    // get data
    static Matrix vertexCoords(4,2);
    double data[4];
    numData = 4;
    if(OPS_GetDoubleInput(&numData,&data[0]) < 0) return 0;
    double dyOverdz = (data[2]-data[0])/(data[3]-data[1]);
    if (dyOverdz < 0) {
      // Swap coordinates so we get all positive areas
      double tmp = data[1];
      data[1] = data[3];
      data[3] = tmp;
    }
    vertexCoords(0,0) = data[0];
    vertexCoords(0,1) = data[1];
    vertexCoords(1,0) = data[2];
    vertexCoords(1,1) = data[1];
    vertexCoords(2,0) = data[2];
    vertexCoords(2,1) = data[3];
    vertexCoords(3,0) = data[0];
    vertexCoords(3,1) = data[3];

    return new QuadPatch(idata[0],idata[1],idata[2],vertexCoords);
}


QuadPatch::QuadPatch():