pload QAcommands

puts "================"
puts "OCC22781"
puts "================"
puts ""
#######################################################################################
# Regression in GCPnts_TangentialDeflection
######################################################################################

set BugNumber OCC22781

restore [locate_data_file OCC22781-BeforeCont.brep] result
vinit
vdisplay result
vfit
vsetdispmode 1
vselect 289 135

checkprops result -l 5.82393 
checkshape result 
checksection result
set only_screen 0