/* This example illustrates using TecPoly to create two polygonal
 * zones.  The first zone contains six hexagons, and the second
 * zone contains a hexagon and an octagon.  Refer to the Data
 * Format Guide for a picture of the configuration, including node
 * and face numbers.
 */

#include "TECIO.h"
#include "MASTER.h" /* for defintion of NULL */

int main()
{
    /* DOCSTART:hexagons_tecini.txt*/
    INTEGER4 I; /* use to check return values */

    INTEGER4 Debug     = 1;
    INTEGER4 VIsDouble = 0;
    INTEGER4 FileType  = 0;

    I = TECINI112((char*)"Example: Multiple polygonal zones",
                  (char*)"X Y P",  /* Defines the variables for the data file.
                                    * Each zone must contain each of the vars
                                    * listed here. The order of the variables
                                    * in the list is used to define the
                                    * variable number (e.g. X is Variable 1).
                                    * When referring to variables in other
                                    * TecIO functions, you will refer to the
                                    * variable by its number.
                                    */
                  (char*)"HexagonsAndOctagon.plt",
                  (char*)".",       /* scratch directory */
                  &FileType,
                  &Debug,
                  &VIsDouble);
    /* DOCEND */

    /* DOCSTART:hexagons_zone1_teczne.txt*/
    /* TECZNE Parameters */
    INTEGER4 ZoneType           = 6;   /* FE Polygon */
    INTEGER4 NumPts_Z1          = 13;  /* the number of unique
                                      * nodes in the zone.
                                      */
    INTEGER4 NumElems_Z1        = 3;
    INTEGER4 NumFaces_Z1        = 15;  /* the number of unique
                                      * faces in the zone.
                                      */
    INTEGER4 ICellMax           = 0;   /* not used */
    INTEGER4 JCellMax           = 0;   /* not used */
    INTEGER4 KCellMax           = 0;   /* not used */
    double   SolutionTime       = 0.0;
    INTEGER4 StrandID           = 0;
    INTEGER4 ParentZone         = 0;
    INTEGER4 IsBlock            = 1;
    INTEGER4 NumFaceConnections = 0;
    INTEGER4 FaceNeighborMode   = 1;
    INTEGER4 SharConn           = 0;

    INTEGER4 ValueLocation[3]   = { 1, 1, 0 };

    /* For a polygonal zone, the total number of face nodes is
     * twice the total number of faces. This is because each face
     * is composed of exactly two nodes.
     */
    INTEGER4 TotalNumFaceNodes_Z1  = 2 * NumFaces_Z1;

    /* A boundary face is a face that is neighbored by an element
     * or elements in another zone or zone(s). In Zone 1, Face 9,
     * Face 10 and Face 12 have a neighbor in Zone 2. Therefore,
     * the total number of boundary faces is 3.
     */
    INTEGER4 TotalNumBndryFaces_Z1 = 3;

    /* Each boundary face has one or more boundary connections. A
    * boundary connection is defined as another element in another
    * zone. Face 9 has a boundary connection with Element 1 in
    * Zone 2. In this example, each boundary face is connected to
    * one other element, so the total number of boundary
    * connections is equivalent to the total number of boundary
    * faces (3).
    */
    INTEGER4 TotalNumBndryConns_Z1 = 3;

    I = TECZNE112((char*)"Zone 1: 3 Hexagons", /* Specifies the name of
                                                * the entire dataset. When
                                                * the file is loaded into
                                                * Tecplot, the value is
                                                * available via the Data
                                                * Set Info dialog.
                                                */
                  &ZoneType,
                  &NumPts_Z1,
                  &NumElems_Z1,
                  &NumFaces_Z1,
                  &ICellMax,
                  &JCellMax,
                  &KCellMax,
                  &SolutionTime,
                  &StrandID,
                  &ParentZone,
                  &IsBlock,
                  &NumFaceConnections,
                  &FaceNeighborMode,
                  &TotalNumFaceNodes_Z1,
                  &TotalNumBndryFaces_Z1,
                  &TotalNumBndryConns_Z1,
                  NULL,
                  ValueLocation,
                  NULL,
                  &SharConn);
    /* DOCEND */

    /* DOCSTART:hexagons_zone1_tecdat.txt*/

    /* TECDAT Parameters */
    double *X_Z1 = new double[NumPts_Z1];
    double *Y_Z1 = new double[NumPts_Z1];

    X_Z1[0]  = 1;
    Y_Z1[0]  = 6;

    X_Z1[1]  = 2;
    Y_Z1[1]  = 6;

    X_Z1[2]  = 3;
    Y_Z1[2]  = 5;

    X_Z1[3]  = 2;
    Y_Z1[3]  = 4;

    X_Z1[4]  = 1;
    Y_Z1[4]  = 4;

    X_Z1[5]  = 0;
    Y_Z1[5]  = 5;

    X_Z1[6]  = 4;
    Y_Z1[6]  = 5;

    X_Z1[7]  = 5;
    Y_Z1[7]  = 4;

    X_Z1[8]  = 4;
    Y_Z1[8]  = 3;

    X_Z1[9]  = 3;
    Y_Z1[9]  = 3;

    X_Z1[10] = 2;
    Y_Z1[10] = 2;

    X_Z1[11] = 1;
    Y_Z1[11] = 2;

    X_Z1[12] = 0;
    Y_Z1[12] = 3;


    double *P_Z1 = new double[NumElems_Z1];
    P_Z1[0] = 2;
    P_Z1[1] = 4;
    P_Z1[2] = 5;


    INTEGER4  IsDouble = 1;
    I = TECDAT112(&NumPts_Z1,   X_Z1, &IsDouble);
    I = TECDAT112(&NumPts_Z1,   Y_Z1, &IsDouble);
    I = TECDAT112(&NumElems_Z1, P_Z1, &IsDouble);
    delete X_Z1;
    delete Y_Z1;
    delete P_Z1;
    /* DOCEND */

    /* DOCSTART:hexagons_zone1_facenodes.txt*/
    /* TecPoly Parameters */

    /* Create a FaceNodes array, dimensioned by the total number
     * of face nodes in the zone.
     */
    INTEGER4 *FaceNodes_Z1 = new INTEGER4[TotalNumFaceNodes_Z1];

    /* Face Nodes for Element 1 */
    FaceNodes_Z1[0]  = 1;
    FaceNodes_Z1[1]  = 2;

    FaceNodes_Z1[2]  = 2;
    FaceNodes_Z1[3]  = 3;

    FaceNodes_Z1[4]  = 3;
    FaceNodes_Z1[5]  = 4;

    FaceNodes_Z1[6]  = 4;
    FaceNodes_Z1[7]  = 5;

    FaceNodes_Z1[8]  = 5;
    FaceNodes_Z1[9]  = 6;

    FaceNodes_Z1[10] = 6;
    FaceNodes_Z1[11] = 1;

    /* Face Nodes for Element 2 */
    FaceNodes_Z1[12] = 3;
    FaceNodes_Z1[13] = 7;

    FaceNodes_Z1[14] = 7;
    FaceNodes_Z1[15] = 8;

    FaceNodes_Z1[16] = 8;
    FaceNodes_Z1[17] = 9;

    FaceNodes_Z1[18] = 9;
    FaceNodes_Z1[19] = 10;

    FaceNodes_Z1[20] = 10;
    FaceNodes_Z1[21] = 4;

    /* Face Nodes for Element 3 */
    FaceNodes_Z1[22] = 10;
    FaceNodes_Z1[23] = 11;

    FaceNodes_Z1[24] = 11;
    FaceNodes_Z1[25] = 12;

    FaceNodes_Z1[26] = 12;
    FaceNodes_Z1[27] = 13;

    FaceNodes_Z1[28] = 13;
    FaceNodes_Z1[29] = 5;

    /* DOCEND */

    /* Specify the right and left neighboring elements.
     * The neighboring elements can be determined using the
     * right-hand rule. For each face, place your right-hand along
     * the face with your fingers pointing the direction of
     * incrementing node numbers (i.e. from Node 1 to Node 2). The
     * right side of your hand will indicate the right element,
     * and the left side of your hand will indicate the left
     * element. A value of zero indicates that there is no
     * neighboring element on that side.  A negative value
     * indicates that the neighboring element is in another zone.
     * The number is a pointer into the FaceBndryConnectionElems
     * and FaceBndryConnectionZones arrays.
     */

    /* DOCSTART:hexagons_zone1_neighbors.txt*/
    INTEGER4 *FaceLeftElems_Z1  = new INTEGER4[NumFaces_Z1];
    INTEGER4 *FaceRightElems_Z1 = new INTEGER4[NumFaces_Z1];

    /* Left Face Elems for Element 1 */
    FaceLeftElems_Z1[0]  = 0;
    FaceLeftElems_Z1[1]  = 0;
    FaceLeftElems_Z1[2]  = 2;
    FaceLeftElems_Z1[3]  = 3;
    FaceLeftElems_Z1[4]  = 0;

    /* Left Face Elems for Element 2 */
    FaceLeftElems_Z1[5]  =  0;
    FaceLeftElems_Z1[6]  =  0;
    FaceLeftElems_Z1[7]  =  0;
    FaceLeftElems_Z1[8]  = -1;
    FaceLeftElems_Z1[9]  = -2;
    FaceLeftElems_Z1[10] =  2;

    /* Left Face Elems for Element 3 */
    FaceLeftElems_Z1[11]  = -3;
    FaceLeftElems_Z1[12]  =  0;
    FaceLeftElems_Z1[13]  =  0;
    FaceLeftElems_Z1[14]  =  0;

    /* Set Right Face Elems.  Because of the way we numbered the
     * nodes and faces, the right element for every face is the
     * element itself.
     */
    for (INTEGER4 ii = 0; ii < 6; ii++)
        FaceRightElems_Z1[ii] = 1;

    for (INTEGER4 ii = 6; ii < 10; ii++)
        FaceRightElems_Z1[ii] = 2;

    for (INTEGER4 ii = 10; ii <= 14; ii++)
        FaceRightElems_Z1[ii] = 3;
    /* DOCEND */

    /* DOCSTART:hexagons_zone1_tecpoly.txt */

    /* The FaceBndryConnectionCounts array is used to define the
     * number of boundary connections for each face that has a
     * boundary connection. For example, if a zone has three
     * boundary connections in total (NumConnectedBoundaryFaces),
     * two of those boundary connections are in one face, and the
     * remaining boundary connection is in a second face, the
     * FaceBndryConnectionCounts array would be: [2 1].
     *
     * In this example, the total number of connected boundary
     * faces (specified via TECZNE) is equal to three. Each
     * boundary face is connected to only one other element,
     * so the FaceBoundaryConnectionCounts array is (1, 1, 1).
     */
    INTEGER4 FaceBndryConnectionCounts_Z1[3]  = {1, 1, 1};

    /* The value(s) in the FaceBndryConnectionElems and
     * FaceBndryConnectionZones arrays specifies the element number
     * and zone number, respectively, that a given boundary
     * connection is connected to. In this case, the first
     * boundary connection face is connected to Element 1 in Zone 2
     * and the remaining connection is to Element 2 in Zone 2.
     */
    INTEGER4 FaceBndryConnectionElems_Z1[3]   = {1, 2, 2};
    INTEGER4 FaceBndryConnectionZones_Z1[3]   = {2, 2, 2};


    I = TECPOLY112(NULL,         /* Not used for polygon zones */
                   FaceNodes_Z1,
                   FaceLeftElems_Z1,
                   FaceRightElems_Z1,
                   FaceBndryConnectionCounts_Z1,
                   FaceBndryConnectionElems_Z1,
                   FaceBndryConnectionZones_Z1);

    delete FaceNodes_Z1;
    delete FaceLeftElems_Z1;
    delete FaceRightElems_Z1;

    /* DOCEND */

    /* Define Zone 2.  Zone 2 contains an octagon and a hexagon. */
    /* TECZNE Parameters */
    /* DOCSTART:hexagons_zone2_teczne.txt*/
    INTEGER4 NumPts_Z2               = 12; /* number of unique
                                          * nodes in the zone
                                          */
    INTEGER4 NumElems_Z2             = 2;
    INTEGER4 NumFaces_Z2             = 13; /* number of unique
                                          * faces in the zone
                                          */
    INTEGER4 NumFaceConnections_Z2   = 0;
    /* In polygonal zones, each face has exactly two nodes */
    INTEGER4 TotalNumFaceNodes_Z2    = NumFaces_Z2 * 2;

    /* A boundary face is a face that is neighbored by an element or
     * elements from another zone or zone(s). In Zone 2, Face 6,
     * Face 7 and Face 13 have a neighbor in Zone 1. Therefore, the
     * total number of boundary faces is 3.
     */
    INTEGER4 TotalNumBndryFaces_Z2   = 3;

    /* Each boundary face has one or more boundary connections. In
     * this example, each boundary face is connected to one other
     * element (i.e. the number of boundary faces and the number of
     * boundary connections is one-to-one).
     */
    INTEGER4 TotalNumBndryConns_Z2   = 3;

    I = TECZNE112((char*)"Zone 2: 1 Hexagon and 1 Octagon",
                  &ZoneType,
                  &NumPts_Z2,
                  &NumElems_Z2,
                  &NumFaces_Z2,
                  &ICellMax,
                  &JCellMax,
                  &KCellMax,
                  &SolutionTime,
                  &StrandID,
                  &ParentZone,
                  &IsBlock,
                  &NumFaceConnections_Z2,
                  &FaceNeighborMode,
                  &TotalNumFaceNodes_Z2,
                  &TotalNumBndryFaces_Z2,
                  &TotalNumBndryConns_Z2,
                  NULL,
                  ValueLocation,
                  NULL,
                  &SharConn);
    /* DOCEND */

    /* TECDAT Parameters */
    /* DOCSTART:hexagons_zone2_tecdat.txt*/
    double *X_Z2 = new double[NumPts_Z2];
    double *Y_Z2 = new double[NumPts_Z2];

    X_Z2[0]      = 5;
    Y_Z2[0]      = 4;

    X_Z2[1]      = 6;
    Y_Z2[1]      = 4;

    X_Z2[2]      = 7;
    Y_Z2[2]      = 3;

    X_Z2[3]      = 6;
    Y_Z2[3]      = 2;

    X_Z2[4]      = 5;
    Y_Z2[4]      = 2;

    X_Z2[5]      = 4;
    Y_Z2[5]      = 3;


    X_Z2[6]      = 3;
    Y_Z2[6]      = 3;

    X_Z2[7]      = 5;
    Y_Z2[7]      = 1;

    X_Z2[8]      = 4;
    Y_Z2[8]      = 0;

    X_Z2[9]      = 3;
    Y_Z2[9]      = 0;

    X_Z2[10]     = 2;
    Y_Z2[10]     = 1;

    X_Z2[11]     = 2;
    Y_Z2[11]     = 2;

    /* In the call to TecZne, P was set to a cell centered variable.
     * As such, only two values need to be defined.
     */
    double  *P_Z2 = new double[NumPts_Z2];

    P_Z2[0] = 8;
    P_Z2[1] = 6;

    I = TECDAT112(&NumPts_Z2,   X_Z2, &IsDouble);
    I = TECDAT112(&NumPts_Z2,   Y_Z2, &IsDouble);
    I = TECDAT112(&NumElems_Z2, P_Z2, &IsDouble);

    delete X_Z2;
    delete Y_Z2;
    delete P_Z2;
    /* DOCEND */

    /* TecPoly Parameters */
    /* DOCSTART:hexagons_zone2_facemap.txt*/
    INTEGER4 *FaceNodes_Z2;
    FaceNodes_Z2 = new INTEGER4[TotalNumFaceNodes_Z2];

    /* Face Nodes for Element 1 */
    FaceNodes_Z2[0]  = 1;
    FaceNodes_Z2[1]  = 2;

    FaceNodes_Z2[2]  = 2;
    FaceNodes_Z2[3]  = 3;

    FaceNodes_Z2[4]  = 3;
    FaceNodes_Z2[5]  = 4;

    FaceNodes_Z2[6]  = 4;
    FaceNodes_Z2[7]  = 5;

    FaceNodes_Z2[8]  = 5;
    FaceNodes_Z2[9]  = 6;

    FaceNodes_Z2[10] = 6;
    FaceNodes_Z2[11] = 1;


    /* Face Nodes for Element 2 */
    FaceNodes_Z2[12] = 7;
    FaceNodes_Z2[13] = 6;

    FaceNodes_Z2[14] = 5;
    FaceNodes_Z2[15] = 8;

    FaceNodes_Z2[16] = 8;
    FaceNodes_Z2[17] = 9;

    FaceNodes_Z2[18] = 9;
    FaceNodes_Z2[19] = 10;

    FaceNodes_Z2[20] = 10;
    FaceNodes_Z2[21] = 11;

    FaceNodes_Z2[22] = 11;
    FaceNodes_Z2[23] = 12;

    FaceNodes_Z2[24] = 12;
    FaceNodes_Z2[25] = 7;
    /* DOCEND */


    /* DOCSTART:hexagons_zone2_tecpoly.txt*/
    /* Specify the right and left neighboring elements.
     * The neighboring elements can be determined using the
     * right-hand rule. For each face, place your right-hand along
     * the face with your fingers pointing the direction of
     * incrementing node numbers (i.e. from Node 1 to Node 2). The
     * right side of your hand will indicate the right element,
     * and the left side of your hand will indicate the left
     * element. A value of zero indicates that there is no
     * neighboring element on that side.  A negative value
     * indicates that the neighboring element is in another zone.
     * The number is a pointer into the FaceBndryConnectionElems
     * and FaceBndryConnectionZones arrays.
     */

    INTEGER4 *FaceLeftElems_Z2  = new INTEGER4[NumFaces_Z2];
    INTEGER4 *FaceRightElems_Z2 = new INTEGER4[NumFaces_Z2];

    /* Left Face Elems for Element 1 */
    FaceLeftElems_Z2[0]  =  0;
    FaceLeftElems_Z2[1]  =  0;
    FaceLeftElems_Z2[2]  =  0;
    FaceLeftElems_Z2[3]  =  0;
    FaceLeftElems_Z2[4]  =  2;
    FaceLeftElems_Z2[5]  = -1;

    /* Left Face Elems for Element 2 */
    FaceLeftElems_Z2[6]   = -2;
    FaceLeftElems_Z2[7]   =  0;
    FaceLeftElems_Z2[8]   =  0;
    FaceLeftElems_Z2[9]   =  0;
    FaceLeftElems_Z2[10]  =  0;
    FaceLeftElems_Z2[11]  =  0;
    FaceLeftElems_Z2[12]  = -3;

    /* Set Right Face Elems.  Because of the way we numbered the
     * nodes and faces, the right element for every face is the
     * element itself. */
    for (INTEGER4 ii = 0; ii < 6; ii++)
        FaceRightElems_Z2[ii]  = 1;

    for (INTEGER4 ii = 6; ii < 13; ii++)
        FaceRightElems_Z2[ii]  = 2;
    /* DOCEND */

    /* DOCSTART:hexagons_zone2_tecpoly.txt*/
    /* The FaceBndryConnectionCounts array is used to define the
     * number of boundary connections for each face that has a
     * boundary connection. In this example, the total number of
     * connected boundary faces (specified via TECZNE) is equal to
     * three. Each boundary face is connected to only one other
     * element, so the FaceBoundaryConnectionCounts array is
     * (1, 1, 1).
     */
    INTEGER4 FaceBndryConnectionCounts_Z2[3]  = {1, 1, 1};

    /* The value(s) in the FaceBndryConnectionElems and
     * FaceBndryConnectionZones arrays specifies that element
     * number and zone number, respectively, that a given boundary
     * connection is connected to. In this case, the first boundary
     * connection face is connected to Element 2 in Zone 1 and the
     * remaining connections are Element 3 in Zone 1.
     */
    INTEGER4 FaceBndryConnectionElems_Z2[3]   = {2, 3, 3};
    INTEGER4 FaceBndryConnectionZones_Z2[3]   = {1, 1, 1};

    I = TECPOLY112(NULL,
                   FaceNodes_Z2,
                   FaceLeftElems_Z2,
                   FaceRightElems_Z2,
                   FaceBndryConnectionCounts_Z2,
                   FaceBndryConnectionElems_Z2,
                   FaceBndryConnectionZones_Z2);

    delete FaceNodes_Z2;
    delete FaceLeftElems_Z2;
    delete FaceRightElems_Z2;
    /* DOCEND */

    /* DOCSTART:hexagons_tecend.txt*/
    I = TECEND112();
    /* DOCEND */

    return 0;
}
