mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
a8676008f7
Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing Correction of end file in group v3d Small correction of test case
44 lines
1.2 KiB
Plaintext
Executable File
44 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"
|
|
|
|
decho off
|
|
set che [checkshape ff114]
|
|
decho on
|
|
|
|
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"
|
|
}
|
|
|
|
set 2dviewer 0
|