mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
f1aa2b6272
Adding procedures checkcolor and checkpoint. Modified test cases which are used QAGetPixelColor or QAAISGetPixelColor2d Allow using command QAAISGetPixelColor2d on WNT Rename test case tests/bugs/vis/bug19619 to pro19619 Added test cases to modalg and moddata
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
|