#!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 1 zone for each row of the deployed flap
#                  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|  = "case2"
$!VARSET |ZONE| = |NUMZONES|
# --- Row A ---
$!SliceAttributes 1  EdgeLayer{Show = Yes}
$!SliceAttributes 1  SliceSource = SurfaceZones
$!SliceLayers Show = Yes
$!SliceAttributes 1  SliceSurface = Arbitrary
$!SetArbitrarySliceUsingThreePoints 
  Group = 1
  X1 = 0
  Y1 = 199.72113
  Z1 = 0
  X2 = 500
  Y2 = 207.63025
  Z2 = 0
  X3 = 1000
  Y3 = 98.48535
  Z3 = 500
$!ExtractSlices 
  Group = 1
$!VARSET |ZONE| += 1
$!RenameDataSetZone
  Zone = |ZONE|
  Name = '|LABEL| Row A flap |INFO|'
# --- Row B ---
$!SetArbitrarySliceUsingThreePoints
  Group = 1
  X1 = 0
  Y1 = 307.57283
  Z1 = 0
  X2 = 500
  Y2 = 315.48196
  Z2 = 0
  X3 = 1000
  Y3 = 206.33706
  Z3 = 500
$!ExtractSlices
  Group = 1
$!VARSET |ZONE| += 1
$!RenameDataSetZone
  Zone = |ZONE|
  Name = '|LABEL| Row B flap |INFO|'
# --- Row C ---
$!SetArbitrarySliceUsingThreePoints
  Group = 1
  X1 = 0
  Y1 = 405.15295
  Z1 = 0
  X2 = 500
  Y2 = 413.06207
  Z2 = 0
  X3 = 1000
  Y3 = 303.91717
  Z3 = 500
$!ExtractSlices
  Group = 1
$!VARSET |ZONE| += 1
$!RenameDataSetZone
  Zone = |ZONE|
  Name = '|LABEL| Row C flap |INFO|'
# --- Row D ---
$!SetArbitrarySliceUsingThreePoints
  Group = 1
  X1 = 0
  Y1 = 699.77332
  Z1 = 0
  X2 = 500
  Y2 = 656.19144
  Z2 = 0
  X3 = 1000
  Y3 = 389.16342
  Z3 = 500
$!ExtractSlices
  Group = 1
$!VARSET |ZONE| += 1
$!RenameDataSetZone
  Zone = |ZONE|
  Name = '|LABEL| Row D flap |INFO|'
# --- Row E ---
$!SetArbitrarySliceUsingThreePoints
  Group = 1
  X1 = 0
  Y1 = 809.65100
  Z1 = 0
  X2 = 500
  Y2 = 766.06912
  Z2 = 0
  X3 = 1000
  Y3 = 499.04110
  Z3 = 500
$!ExtractSlices
  Group = 1
$!VARSET |ZONE| += 1
$!RenameDataSetZone
  Zone = |ZONE|
  Name = '|LABEL| Row E flap |INFO|'
# --- Row F ---
$!SetArbitrarySliceUsingThreePoints
  Group = 1
  X1 = 0
  Y1 = 930.51644
  Z1 = 0
  X2 = 500
  Y2 = 886.93456
  Z2 = 0
  X3 = 1000
  Y3 = 619.90654
  Z3 = 500
$!ExtractSlices
  Group = 1
$!VARSET |ZONE| += 1
$!RenameDataSetZone
  Zone = |ZONE|
  Name = '|LABEL| Row F flap |INFO|'
# --- Row G ---
$!SetArbitrarySliceUsingThreePoints
  Group = 1
  X1 = 0
  Y1 = 1051.38188
  Z1 = 0
  X2 = 500
  Y2 = 1007.80000
  Z2 = 0
  X3 = 1000
  Y3 = 740.77198
  Z3 = 500
$!ExtractSlices
  Group = 1
$!VARSET |ZONE| += 1
$!RenameDataSetZone
  Zone = |ZONE|
  Name = '|LABEL| Row G flap |INFO|'