1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-07 18:30:55 +03:00
ski 5747059b21 0026833: Create command checkview containing all viewer types
Created command checkview for displaying shapes.
2016-02-05 11:14:37 +03:00

42 lines
1.2 KiB
Plaintext
Executable File

puts "TODO OCC12345 ALL: Faulty OCC592 : Checkshape BRepCheck_Analyzer does not detect faulty shape"
puts "========================"
puts " OCC592 "
puts "========================"
puts ""
###################################
##BRepCheck_Analyzer does not detect faulty shape
#####################################
restore [locate_data_file OCC592.brep] ff114
explode ff114 e
mkcurve cc ff114_8
cvalue cc 0.95 x y z
vertex vv x y z
mksurface gs ff114
mkface ff gs
donl ff114 vv
trim trcc cc
set aa [distmini dd vv ff]
puts "******* Result *******"
regexp {([-0-9.+eE]+)$} [dump dd_val] full dis1
puts "distance between the point on curve and the surface is $dis1"
set tolerance [maxtolerance ff114_8]
regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
puts "the tolerance of the edge is $MaxEdgeTolerance"
puts "the tolerance is less than distance between point and surface"
puts "BUT"
set che [checkshape ff114]
if { [regexp {Faulty} $che] != 1 } {
puts "Faulty OCC592 : Checkshape BRepCheck_Analyzer does not detect faulty shape"
} else {
puts "OCC592 OK: Checkshape (BRepCheck_Analyzer) detects bad shape"
}
checkview -display result -2d -path ${imagedir}/${test_image}.png