package require PWI_Glyph 2.17.3

set listOfBlocks [pw::Grid getAll -type "pw::Block" ]
set thisExam [pw::Examine create BlockJacobian]
$thisExam addEntity $listOfBlocks
$thisExam examine
	set thisMinVal [$thisExam getMinimum -entity thisMinVar -location thisMinLoc]
	set thisMinName [$thisMinVar getName]
	set thisMaxLayer [$thisMinVar getLayer]
	puts [format "         Min Block J               = %s on %s at %s (layer %d)" $thisMinVal $thisMinName $thisMinLoc $thisMaxLayer ]
$thisExam delete
unset thisExam	
		
set listOfBlocks [pw::Grid getAll -type "pw::Block" ]
set thisExam [pw::Examine create BlockSkewEquiangle]
$thisExam addEntity $listOfBlocks
$thisExam examine
	set thisMaxVal [$thisExam getMaximum -entity thisMaxVar -location thisMaxLoc]
	set thisMaxName [$thisMaxVar getName]
	set thisMaxLayer [$thisMaxVar getLayer]
	puts [format "         Max Block Equiangle Skew  = %s on %s at %s (layer %d)" $thisMaxVal $thisMaxName $thisMaxLoc $thisMaxLayer ]
$thisExam delete
unset thisExam	

set listOfBlocks [pw::Grid getAll -type "pw::Block" ]
set thisExam [pw::Examine create BlockMaximumAngle]
$thisExam addEntity $listOfBlocks
$thisExam examine
	set thisMaxVal [$thisExam getMaximum -entity thisMaxVar -location thisMaxLoc]
	set thisMaxName [$thisMaxVar getName]
	set thisMaxLayer [$thisMaxVar getLayer]
	puts [format "         Max Block Angle           = %s on %s at %s (layer %d)" $thisMaxVal $thisMaxName $thisMaxLoc $thisMaxLayer ]
$thisExam delete
unset thisExam	

set listOfBlocks [pw::Grid getAll -type "pw::Block" ]
set thisExam [pw::Examine create BlockMinimumAngle]
$thisExam addEntity $listOfBlocks
$thisExam examine
	set thisMinVal [$thisExam getMinimum -entity thisMinVar -location thisMinLoc]
	set thisMinName [$thisMinVar getName]
	set thisMaxLayer [$thisMaxVar getLayer]
	puts [format "         Min Block Angle           = %s on %s at %s (layer %d)" $thisMinVal $thisMinName $thisMinLoc $thisMaxLayer ]
$thisExam delete
unset thisExam	


set listOfDomains [pw::Grid getAll -type "pw::Domain" ]
set thisExam [pw::Examine create DomainSkewEquiangle]
$thisExam addEntity $listOfDomains
$thisExam examine
	set thisMaxVal [$thisExam getMaximum -entity thisMaxVar -location thisMaxLoc]
	set thisMaxName [$thisMaxVar getName]
	set thisMaxLayer [$thisMaxVar getLayer]
	puts [format "         Max Domain Equiangle Skew = %s on %s at %s (layer %d)" $thisMaxVal $thisMaxName $thisMaxLoc $thisMaxLayer ]
$thisExam delete
unset thisExam