50dac1b93ad200f9a4897a6fcdcb96afd39be791
[occt.git] / tests / bugs / moddata_2 / bug592
1 puts "TODO OCC12345 ALL: Faulty OCC592 : Checkshape BRepCheck_Analyzer does not detect faulty shape"
2
3 puts "========================"
4 puts " OCC592 "
5 puts "========================"
6 puts ""
7 ###################################
8 ##BRepCheck_Analyzer does not detect faulty shape
9 #####################################
10
11 restore [locate_data_file OCC592.brep] ff114 
12
13 explode ff114 e
14 mkcurve cc ff114_8
15 cvalue cc 0.95 x y z
16 vertex vv x y z
17 mksurface gs ff114
18 mkface ff gs
19 donly ff114 vv
20 trim trcc cc
21 set aa [distmini dd vv ff]
22
23 puts "******* Result *******"
24 regexp {([-0-9.+eE]+)$} [dump dd_val] full dis1
25 puts "distance between the point on curve and the surface is $dis1"
26
27 set tolerance [maxtolerance ff114_8]
28 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
29 puts "the tolerance of the edge is $MaxEdgeTolerance"
30 puts "the tolerance is less than distance between point and surface"
31 puts "BUT"
32
33 set che [checkshape ff114]
34
35 if { [regexp {Faulty} $che] != 1 } {
36     puts "Faulty OCC592 : Checkshape BRepCheck_Analyzer does not detect faulty shape"
37 } else {
38     puts "OCC592 OK: Checkshape (BRepCheck_Analyzer) detects bad shape"
39 }
40
41 checkview -display result -2d -path ${imagedir}/${test_image}.png