0027915: Foundation Classes - remove the class NCollection_QuickSort
[occt.git] / tests / bugs / moddata_3 / bug24896
1 puts "================"
2 puts "OCC24896"
3 puts "================"
4 puts ""
5 #######################################################################
6 # BRepExtrema is giving wrong intersection point between curve and planar face
7 #######################################################################
8
9 restore [locate_data_file bug24896_face_8.brep] f8
10 restore [locate_data_file bug24896_compound_line_8.brep] c8
11
12 distmini d f8 c8
13
14 # 1
15 regexp {([-0-9.+eE]+)$} [dump d_val] full dist
16 regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [ maxtolerance d ] full toler
17 set good_dist 0
18 if { [expr abs( ${dist} - ${good_dist} )] > ${toler} } {
19     puts "Faulty : the distanse is ${dist}. It is bad value"
20 }
21
22 # 2
23 # Point 3D : 66.6, -11.8556887483839, 0.3
24
25 regexp { +Point 3D : +([-0-9.+eE]+), +([-0-9.+eE]+), +([-0-9.+eE]+)} [ dump d2 ] full x1 y1 z1
26 set good_x1 66.6
27 set good_y1 -11.8556887483839
28 set good_z1 0.3
29 if { [expr abs( ${x1} - ${good_x1} )] > ${toler} } {
30     puts "Faulty : the x coordinate of the point is ${x1}. It is bad value"
31 }
32 if { [expr abs( ${y1} - ${good_y1} )] > ${toler} } {
33     puts "Faulty : the y coordinate of the point is ${y1}. It is bad value"
34 }
35 if { [expr abs( ${z1} - ${good_z1} )] > ${toler} } {
36     puts "Faulty : the z coordinate of the point is ${z1}. It is bad value"
37 }
38
39 # 3
40 # Point 3D : 66.6, 11.8556887323157, 0.3
41
42 regexp { +Point 3D : +([-0-9.+eE]+), +([-0-9.+eE]+), +([-0-9.+eE]+)} [ dump d ] full x2 y2 z2
43 set good_x2 66.6
44 set good_y2 11.8556887323157
45 set good_z2 0.3
46 if { [expr abs( ${x2} - ${good_x2} )] > ${toler} } {
47     puts "Faulty : the x coordinate of the point is ${x2}. It is bad value"
48 }
49 if { [expr abs( ${y2} - ${good_y2} )] > ${toler} } {
50     puts "Faulty : the y coordinate of the point is ${y2}. It is bad value"
51 }
52 if { [expr abs( ${z2} - ${good_z2} )] > ${toler} } {
53     puts "Faulty : the z coordinate of the point is ${z2}. It is bad value"
54 }
55
56 smallview
57 fit
58 checkview -screenshot -2d -path ${imagedir}/${test_image}.png