DEFAULT_MACRO WB_CURRENT_CONTEXT

# -------------------------------------------------------------------------


Tcl2 proc Creator_CoordSysRemover {} {                                 \
  global FME_CoordSys;                                                 \
  set FME_CoordSys {};                                                 \
}

MACRO Creator_XML     NOT_ACTIVATED

MACRO Creator_CLASSIC NOT_ACTIVATED

MACRO Creator_2D3D    2D_GEOMETRY

MACRO Creator_COORDS  <Unused>

INCLUDE [ if { {Geometry Object} == {Geometry Object} } {              \
           puts {MACRO Creator_XML *} } ]

INCLUDE [ if { {Geometry Object} == {2D Coordinate List} } {           \
           puts {MACRO Creator_2D3D 2D_GEOMETRY};                      \
           puts {MACRO Creator_CLASSIC *} } ]

INCLUDE [ if { {Geometry Object} == {3D Coordinate List} } {           \
           puts {MACRO Creator_2D3D 3D_GEOMETRY};                      \
           puts {MACRO Creator_CLASSIC *} } ]

INCLUDE [ if { {Geometry Object} == {2D Min/Max Box} } {               \
           set comment {                                               \
               We need to turn the COORDS which are                    \
                   minX minY maxX maxY                                 \
               into a full polygon list of coordinates                 \
           };                                                          \
           set splitCoords [split [string trim {<Unused>}]];           \
           if { [llength $splitCoords] != 4 } {                        \
               error {Creator: Coordinate List MUST have four numbers - `<Unused>' is invalid}; \
           };                                                          \
           set minX [lindex $splitCoords 0];                           \
           set minY [lindex $splitCoords 1];                           \
           set maxX [lindex $splitCoords 2];                           \
           set maxY [lindex $splitCoords 3];                           \
           puts "MACRO Creator_COORDS $minX $minY $minX $maxY $maxX $maxY $maxX $minY $minX $minY"; \
           puts {MACRO Creator_2D3D 2D_GEOMETRY};                      \
           puts {MACRO Creator_CLASSIC *} } ]

FACTORY_DEF $(Creator_XML) CreationFactory                             \
   FACTORY_NAME Creator_XML_Creator                                    \
   CREATE_AT_END no                                                    \
   OUTPUT FEATURE_TYPE _____CREATED______                              \
       @Geometry(FROM_ENCODED_STRING,<lt>?xml<space>version=<quote>1.0<quote><space>encoding=<quote>US_ASCII<quote><space>standalone=<quote>no<quote><space>?<gt><lt>geometry<space>dimension=<quote>2<quote><gt><lt>null<solidus><gt><lt><solidus>geometry<gt>)

FACTORY_DEF $(Creator_CLASSIC) CreationFactory                         \
   FACTORY_NAME Creator_CLASSIC_Creator                                \
   $(Creator_2D3D) $(Creator_COORDS)                                   \
   CREATE_AT_END no                                                    \
   OUTPUT FEATURE_TYPE _____CREATED______

FACTORY_DEF * TeeFactory                                               \
   FACTORY_NAME Creator_Cloner                                         \
   INPUT FEATURE_TYPE _____CREATED______                               \
   NUMBER_OF_COPIES 1                                                  \
   COPY_NUMBER_ATTRIBUTE "_creation_instance"                          \
   OUTPUT FEATURE_TYPE Creator_CREATED                                 \
       @Tcl2(Creator_CoordSysRemover)                                  \
       @CoordSys()


# -------------------------------------------------------------------------


FACTORY_DEF * PolygonDissolveFactory                                   \
   INPUT  FEATURE_TYPE Creator_CREATED                                 \
   FACTORY_NAME Bufferer                                               \
   PRE_BUFFER @EvaluateExpression(FLOAT,$(OFFSET__FMEENCODED__),Bufferer) 8 CAP_ROUND FULL \
   DISSOLVE_MODE GEOS