#!MC 1410
#       INSTRUCTIONS:
#                  1.   Load Surface Zones from CFD solution into Tecplot360 EX (the surface info should include CP and
#                       any other surface information desired)
#                  2.   Assign LABEL variable in this file as the "XXX" identifier of the dataset
#                  3.   Assign INFO variable with appropriate information for the particular case
#                  4.   Run macro.  It should create/extract zones for Row A slat, Row A wing, Row A flap, Row B... etc.
#                  5.   You can write out these zones to data files as appropriate, including any data desired
#
#                XXX:   Participant ID (To be assigned by HiLiftPW workshop committee)
#
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
$!VARSET |LABEL| = "XXX"
$!VARSET |INFO|  = "aoa 7.05 case1a 37/34"
$!VARSET |ZONE| = |NUMZONES|
# --- Row A wing ---
$!SliceAttributes 1  ShowGroup = Yes
$!SliceAttributes 1  SliceSurface = Arbitrary
$!SliceAttributes 1  EdgeLayer{Show = Yes}
$!SliceAttributes 1  SliceSource = SurfaceZones
$!SetArbitrarySliceUsingThreePoints
  Group = 1
  X1 =        0.00000
  Y1 =      174.50000
  Z1 =        0.00000
  X2 =        0.00000
  Y2 =      174.50000
  Z2 =       10.00000
  X3 =       10.00000
  Y3 =      174.50000
  Z3 =        0.00000
$!ExtractSlices
  Group = 1
$!VARSET |ZONE| += 1
$!RenameDataSetZone
  Zone = |ZONE|
  Name = '|LABEL| Row A wing |INFO|'
# --- Row B wing ---
$!SliceAttributes 1  ShowGroup = Yes
$!SliceAttributes 1  SliceSurface = Arbitrary
$!SliceAttributes 1  EdgeLayer{Show = Yes}
$!SliceAttributes 1  SliceSource = SurfaceZones
$!SetArbitrarySliceUsingThreePoints
  Group = 1
  X1 =        0.00000
  Y1 =      277.50000
  Z1 =        0.00000
  X2 =        0.00000
  Y2 =      277.50000
  Z2 =       10.00000
  X3 =       10.00000
  Y3 =      277.50000
  Z3 =        0.00000
$!ExtractSlices
  Group = 1
$!VARSET |ZONE| += 1
$!RenameDataSetZone
  Zone = |ZONE|
  Name = '|LABEL| Row B wing |INFO|'
# --- Row C wing ---
$!SliceAttributes 1  ShowGroup = Yes
$!SliceAttributes 1  SliceSurface = Arbitrary
$!SliceAttributes 1  EdgeLayer{Show = Yes}
$!SliceAttributes 1  SliceSource = SurfaceZones
$!SetArbitrarySliceUsingThreePoints
  Group = 1
  X1 =        0.00000
  Y1 =      380.50000
  Z1 =        0.00000
  X2 =        0.00000
  Y2 =      380.50000
  Z2 =       10.00000
  X3 =       10.00000
  Y3 =      380.50000
  Z3 =        0.00000
$!ExtractSlices
  Group = 1
$!VARSET |ZONE| += 1
$!RenameDataSetZone
  Zone = |ZONE|
  Name = '|LABEL| Row C wing |INFO|'
# --- Row D wing ---   
$!SliceAttributes 1  ShowGroup = Yes
$!SliceAttributes 1  SliceSurface = Arbitrary
$!SliceAttributes 1  EdgeLayer{Show = Yes}
$!SliceAttributes 1  SliceSource = SurfaceZones
$!SetArbitrarySliceUsingThreePoints
  Group = 1
  X1 =        0.00000
  Y1 =      483.50000
  Z1 =        0.00000
  X2 =        0.00000
  Y2 =      483.50000
  Z2 =       10.00000
  X3 =       10.00000
  Y3 =      483.50000
  Z3 =        0.00000
$!ExtractSlices
  Group = 1
$!VARSET |ZONE| += 1
$!RenameDataSetZone
  Zone = |ZONE|
  Name = '|LABEL| Row D wing |INFO|'
# --- Row E wing ---   
$!SliceAttributes 1  ShowGroup = Yes
$!SliceAttributes 1  SliceSurface = Arbitrary
$!SliceAttributes 1  EdgeLayer{Show = Yes}
$!SliceAttributes 1  SliceSource = SurfaceZones
$!SetArbitrarySliceUsingThreePoints
  Group = 1
  X1 =        0.00000
  Y1 =      638.00000
  Z1 =        0.00000
  X2 =        0.00000
  Y2 =      638.00000
  Z2 =       10.00000
  X3 =       10.00000
  Y3 =      638.00000
  Z3 =        0.00000
$!ExtractSlices
  Group = 1
$!VARSET |ZONE| += 1
$!RenameDataSetZone
  Zone = |ZONE|
  Name = '|LABEL| Row E wing |INFO|'
# --- Row F wing ---   
$!SliceAttributes 1  ShowGroup = Yes
$!SliceAttributes 1  SliceSurface = Arbitrary
$!SliceAttributes 1  EdgeLayer{Show = Yes}
$!SliceAttributes 1  SliceSource = SurfaceZones
$!SetArbitrarySliceUsingThreePoints
  Group = 1
  X1 =        0.00000
  Y1 =      792.50000
  Z1 =        0.00000
  X2 =        0.00000
  Y2 =      792.50000
  Z2 =       10.00000
  X3 =       10.00000
  Y3 =      792.50000
  Z3 =        0.00000
$!ExtractSlices
  Group = 1
$!VARSET |ZONE| += 1
$!RenameDataSetZone
  Zone = |ZONE|
  Name = '|LABEL| Row F wing |INFO|'
# --- Row G wing ---   
$!SliceAttributes 1  ShowGroup = Yes
$!SliceAttributes 1  SliceSurface = Arbitrary
$!SliceAttributes 1  EdgeLayer{Show = Yes}
$!SliceAttributes 1  SliceSource = SurfaceZones
$!SetArbitrarySliceUsingThreePoints
  Group = 1
  X1 =        0.00000
  Y1 =      947.00000
  Z1 =        0.00000
  X2 =        0.00000
  Y2 =      947.00000
  Z2 =       10.00000
  X3 =       10.00000
  Y3 =      947.00000
  Z3 =        0.00000
$!ExtractSlices
  Group = 1
$!VARSET |ZONE| += 1
$!RenameDataSetZone
  Zone = |ZONE|
  Name = '|LABEL| Row G wing |INFO|'
# --- Row H wing ---   
$!SliceAttributes 1  ShowGroup = Yes
$!SliceAttributes 1  SliceSurface = Arbitrary
$!SliceAttributes 1  EdgeLayer{Show = Yes}
$!SliceAttributes 1  SliceSource = SurfaceZones
$!SetArbitrarySliceUsingThreePoints
  Group = 1
  X1 =        0.00000
  Y1 =     1050.00000
  Z1 =        0.00000
  X2 =        0.00000
  Y2 =     1050.00000
  Z2 =       10.00000
  X3 =       10.00000
  Y3 =     1050.00000
  Z3 =        0.00000
$!ExtractSlices
  Group = 1
$!VARSET |ZONE| += 1
$!RenameDataSetZone
  Zone = |ZONE|
  Name = '|LABEL| Row H wing |INFO|'