Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug87
1 puts "TODO OCC12345 ALL: Faulty : Now w1,w2 have bspline curves as basic !!!"
2 puts "TODO OCC12345 ALL: Error : The square of result shape is"
3
4 puts "========================"
5 puts " BUC60958 "
6 puts " OCC87 "
7 puts "========================"
8
9 puts "Restoring the wires :"
10 restore [locate_data_file OCC86a.brep] w1 
11 puts [checkshape w1]
12 restore [locate_data_file OCC86b.brep] w2
13 puts [checkshape w2]
14
15 set first1 [dump w1]
16 set second1 [dump w2]
17
18 # puts "Do Thrusection by following command: thrusections res 0 0 w1 w2 "
19
20 thrusections result 0 0 w1 w2
21
22 set first2 [dump w1]
23 set second2 [dump w2]
24
25 if {$first1 != $first2 || $second1 != $second2} {
26     puts "Faulty : Now w1,w2 have bspline curves as basic !!!"
27 } else {
28     puts "Correct result: Wires have circle curves as basic"
29 }
30
31 set square 0
32 set 2dviewer 0