# TEST QUALITY 
# test quality reports based on tets at
# https://lanl.github.io/LaGriT/pages/docs/QUALITY_sliver_cap_needle_wedge.html
# does not include taylor or quad located in other test directories

# ------------------------------------- 
# EQUILATERAL
define MO_NAME mo_equal
read input_tet_equilateral.inp MO_NAME
infile input_quality.mlgi 
cmo printatt MO_NAME -all- minmax
# aratio = 1.
# a_mind = 7.05288E+01
# a_maxd = 7.05288E+01
# s_mind = 3.15863E+01 
# eratio = 1.0

# ------------------------------------- 
# SLIVER
define MO_NAME mo_sliver
read input_tet_sliver.inp MO_NAME
infile input_quality.mlgi 
cmo printatt MO_NAME -all- minmax
# aratio = 0.2927 
# a_mind = 1.59424E+01 
# a_maxd = 1.57380E+02 
# s_mind = 9.26487E+00 
# eratio = 7.14143E-01

# ------------------------------------- 
# CAP
define MO_NAME mo_cap
read input_tet_cap.inp mo_cap
infile input_quality.mlgi 
cmo printatt MO_NAME -all- minmax
# aratio = 0.07447   
# a_mind = 1.57931E+01 
# a_maxd = 1.49549E+02 
# s_mind = 2.60111E+02 
# eratio = 2.59807E-01 


# ------------------------------------- 
# NEEDLE
define MO_NAME mo_needle
read input_tet_needle.inp MO_NAME
infile input_quality.mlgi 
cmo printatt MO_NAME -all- minmax
# aratio = 0.3429   
# a_mind = 5.33585E+01 
# a_maxd = 8.74394E+01 
# s_mind = 5.56182E+01 
# eratio = 1.98030E-01 

# ------------------------------------- 
# WEDGE
define MO_NAME mo_wedge
read input_tet_wedge.inp MO_NAME
infile input_quality.mlgi 
cmo printatt MO_NAME -all- minmax
# aratio = 0.2617   
# a_mind = 1.14212E+01 
# a_maxd = 90.0 
# s_mind = 8.19307E+01 
# eratio = 0.1 

# ------------------------------------- 
# RIGHT ANGLE
define MO_NAME mo_right
read input_tet_right.inp MO_NAME
infile input_quality.mlgi 
cmo printatt MO_NAME -all- minmax

# ------------------------------------- 
# CUBES quality/volume/ 

# create and connect cube points 
cmo/create/mo
createpts/brick/xyz/2 2 2/0. 0. 0./1. 1. 1./1 1 1
createpts/brick/xyz/2 2 2/0. 0. 1./1. 1. 2.2 /1 1 1
cmo/select/mo
filter 1,0,0
rmpoint compress; resetpts itp;

cmo/create/cmotet///tet
copypts/cmotet/mo
cmo/delete/mo
cmo/select/cmotet
connect
cmo/setatt/cmotet/itetclr/1
resetpts/itp

# assign material 2 to top cube
pset/p2/attribute zic/1,0,0/ge 1.
eltset/e2/exclusive pset,get,p2
cmo setatt cmotet itetclr eltset,get,e2 2
cmo setatt cmotet imt pset,get,p2 2
resetpts itp

cmo/addatt/cmotet/volume/ voltet
cmo/printatt/cmotet/voltet
#########################
quality
quality/volume/itetclr
quality/volume/ 3
eltset/e1/itetclr/ eq 1
quality/volume/eltset,get,e1
#########################
# pcc
# no negative ccoefs
quality
quality/pcc
cmo/printatt/cmotet/-all- minmax
cmo/printatt/cmotet/neg_coup_coeff

#########################
# pcc
# skew tets by moving a node
cmo/setatt/cmotet/xic 12,12,1 .5 
cmo/DELATT/cmotet/neg_coup_coeff
quality
quality/pcc
cmo/printatt/cmotet/neg_coup_coeff

finish