Adding test cases from grid chl
[occt.git] / tests / bugs / moddata / bug333
CommitLineData
a87752f3 1puts "================"
2puts "OCC333"
3puts "================"
4puts ""
5#######################################################
6## Superimposed curves during intersection two surfaces
7#######################################################
8
9pload QAcommands
10
11restore [locate_data_file OCC333a.draw] s12
12############### checkshape su12 # is not a topological shape
13restore [locate_data_file OCC333b.draw] s11
14############### checkshape su11 # is not a topological shape
15intersect result s12 s11
16explode result e
17clknots result_3
18clknots result_13
19
20mkedge e_1 result_3
21mkedge e_2 result_13
22
23set status [OCC333 e_1 e_2]
24if {[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
35donly i_3 i_13
36
37set 2dviewer 0