Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug333
1 puts "================"
2 puts "OCC333"
3 puts "================"
4 puts ""
5 #######################################################
6 ## Superimposed curves during intersection two surfaces 
7 #######################################################
8
9 pload QAcommands
10
11 restore [locate_data_file OCC333a.draw] s12 
12 ############### checkshape su12 # is not a topological shape
13 restore [locate_data_file OCC333b.draw] s11
14 ############### checkshape su11 # is not a topological shape
15 intersect result s12 s11
16 explode result e
17 clknots result_3
18 clknots result_13
19
20 mkedge e_1 result_3
21 mkedge e_2 result_13
22
23 set status [OCC333 e_1 e_2]
24 if {[llength ${status}] < 1} {
25     puts "OCC333 ERROR"
26 } else {
27     regexp {([-0-9.+eE]+)} ${status} full code
28     if { ${code} == 3 || ${code} == 2} {
29         puts "OCC333 OK  : Intersection command works properly"
30     } else {
31         puts "Faulty OCC333 : Intersection was made WRONGLY"
32     }
33 }
34
35 donly i_3 i_13
36
37 set 2dviewer 0