9d083161 |
1 | puts "========" |
2 | puts "0025952: Wrong intersection curve" |
3 | puts "========" |
4 | puts "" |
5 | |
6 | puts "TODO OCC26510 ALL: Error: 1 curve is expected but 0 ones are found" |
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 | intersect res s1 s2 |
19 | |
20 | set che [whatis res] |
21 | set ind [string first "3d curve" $che] |
22 | if {${ind} >= 0} { |
23 | #Only variable "res" exists |
24 | renamevar res res_1 |
25 | } |
26 | |
27 | set ic 1 |
28 | set AllowRepeat 1 |
29 | while { $AllowRepeat != 0 } { |
30 | set che [whatis res_$ic] |
31 | set ind [string first "3d curve" $che] |
32 | if {${ind} < 0} { |
33 | set AllowRepeat 0 |
34 | } else { |
35 | lappend CurvesList res_$ic |
36 | CheckLoops res_$ic |
37 | incr ic |
38 | } |
39 | } |
40 | |
41 | set ic [expr $ic - 1] |
42 | |
43 | if { $ic != $aGoodNbCurves } { |
44 | puts "Error: $aGoodNbCurves curve is expected but $ic ones are found" |
45 | } else { |
46 | CheckIntersectionResult s1 s2 $CurvesList 100 2.0e-7 2.0e-7 |
47 | } |
48 | |
49 | smallview |
50 | don res_* |
51 | fit |
52 | |
53 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |