# $Revision$ on $Date$
# The above revision line needs to be the first line for ttkrf files
# Copyright (c) 2006 Ansys Inc

dataEntryDialog cutPlaneDEZ "Manage Cut Plane"
 checkFrame cutPlaneOn "Show Cut Plane" ::cut_info(active) "aie_cutplane_set active"
 checkItem cutPlaneShowElem "Show whole elements" ::cut_info(whole) "aie_cutplane_update_mesh cur"
 textButton cutPlaneReset "Reset Cut Plane" "aie_cutplane_reset"
  exclusiveGroup cutPlaneM NULL "Method" 1 DROPDOWN cutPlaneMethod
     exclusiveGroupItem cutPlanePn "by Point and Normal"
        entityChooser cutPlanePnPt "Pn" ::cut_info(xyz) POINTORXYZ 1
#       textEntry cutPlanePnPt Pt ::cut_info(xyz) NUM
        textEntry cutPlanePnNx NX ::cut_info(nx) NUM
        textEntry cutPlanePnNy NY ::cut_info(ny) NUM
        textEntry cutPlanePnNz NZ ::cut_info(nz) NUM
     exclusiveGroupItem END
     exclusiveGroupItem cutPlaneCf "by Coefficients"
        textEntry cutPlaneCfA Ax ::cut_info(a) NUM
        textEntry cutPlaneCfB By ::cut_info(b) NUM
        textEntry cutPlaneCfC Cz ::cut_info(c) NUM
        textEntry cutPlaneCfD D  ::cut_info(d) NUM
     exclusiveGroupItem END
     exclusiveGroupItem cutPlaneCp "by Corner Points"
         entityChooser cutPlaneCp1 "Pt1" ::cut_info(pt1) POINTORXYZ 1
         entityChooser cutPlaneCp2 "Pt2" ::cut_info(pt2) POINTORXYZ 1 
         entityChooser cutPlaneCp3 "Pt3" ::cut_info(pt3) POINTORXYZ 1           
   #     textEntry cutPlaneCp1 Pt1 ::cut_info(pt1) NUM
   #     textEntry cutPlaneCp2 Pt2 ::cut_info(pt2) NUM
   #     textEntry cutPlaneCp3 Pt3 ::cut_info(pt3) NUM
     exclusiveGroupItem END
     exclusiveGroupItem cutPlane3P "by 3 Locations"
        textLabel cutPlane3Pt "Specify three locations"
     exclusiveGroupItem END
     exclusiveGroupItem cutPlaneIT "Move or Rotate"
        textLabel cutPlaneITt "Move with left button down. Rotate with middle button down. Escape with right click"
     exclusiveGroupItem END
     exclusiveGroupItem cutPlaneSX "Middle X Plane"
        textLabel cutPlaneSXt "Set to the plane normal to X in the middle of volume"
     exclusiveGroupItem END
     exclusiveGroupItem cutPlaneSY "Middle Y Plane"
        textLabel cutPlaneSYt "Set to the plane normal to Y in the middle of volume"
     exclusiveGroupItem END
     exclusiveGroupItem cutPlaneSZ "Middle Z Plane"
        textLabel cutPlaneSZt "Set to the plane normal to Z in the middle of volume"
     exclusiveGroupItem END
  exclusiveGroup END
  scaleBar cutPlaneScale "Fraction Value:" ::dynamic_info(an_val) 0 1 0.0001 "aie_update_cutplane_scan" 0 160
#  checkItem cutPlaneScaleDisable "Mouse wheel for cutplane" ::cut_info(mouse_wheel) NULL
 checkFrame END
# checkItem cutPlaneDraw "Display back cut plane" ::cut_info(display) "aie_cutplane_set display {}"
  checkFrame cutPlaneDraw "Display back plane" ::cut_info(display) "aie_cutplane_set displays"
     textOptMenu cutPlaneDrawP "with" cut_info(display_tsh) \
            "translucent 0.5 solid 1 hollow 0" 0 "aie_cutplane_set displays" 
     checkItem cutPlaneDrawN "Draw plane normal" ::cut_info(display_n) "aie_cutplane_set displays {}"
     checkItem cutPlaneDrawB "Draw plane border" ::cut_info(display_bd) "aie_cutplane_set displays {}"
     colorOptMenu cutPlaneDrawCol "Color" cut_info(display_color) "aie_cutplane_set display_color"
  checkFrame END
  dialogSpace 1
  textButton cutSaveSubset "Create mesh subset" "aie_cutplane_mesh_subset"
dataEntryDialog END

