0025952: Wrong intersection curve
[occt.git] / tests / lowalgos / intss / bug25952_2
1 puts "========"
2 puts "0025952: Wrong intersection curve"
3 puts "========"
4 puts ""
5
6 puts "TODO OCC25952 ALL: Error: The curve res_1 is possible to have a bend at parameter"
7
8 set aGoodNbCurves 1
9
10 restore [locate_data_file bug25952_shape.brep] q
11 explode q 
12 copy q_1 b1
13 copy q_2 b2
14
15 mksurface s1 b1
16 mksurface s2 b2
17
18 trimv s2t s2 0.24999939999991502 1
19
20 intersect res s1 s2t
21
22 set che [whatis res]
23 set ind [string first "3d curve" $che]
24 if {${ind} >= 0} {
25   #Only variable "res" exists
26   renamevar res res_1
27 }
28
29 set ic 1
30 set AllowRepeat 1
31 while { $AllowRepeat != 0 } {
32   set che [whatis res_$ic]
33   set ind [string first "3d curve" $che]
34   if {${ind} < 0} {
35     set AllowRepeat 0
36   } else {
37     lappend CurvesList res_$ic
38     CheckLoops res_$ic
39     incr ic
40   }
41 }
42
43 set ic [expr $ic - 1]
44
45 if { $ic != $aGoodNbCurves } {
46   puts "Error: $aGoodNbCurves curves is expected but $ic ones are found"
47 } else {
48   CheckIntersectionResult s1 s2 $CurvesList 100 2.0e-7 2.0e-7
49 }
50
51
52 smallview 
53 don res_*
54 fit
55
56 checkview -screenshot -2d -path ${imagedir}/${test_image}.png