0014531: Boolean Operation Algorithm fails
[occt.git] / tests / bugs / moddata_1 / bug119
... / ...
CommitLineData
1puts "================"
2puts "OCC119"
3puts "================"
4puts ""
5
6box a 100 100 100
7explode a e
8
9set mistake 0
10if [catch {blend result_1 a 50 a_10 50 a_5 50 a_12 50 a_3 } catch_result] {
11 set mistake 1
12} else {
13 set mistake 0
14}
15
16if { ${mistake} == 1} {
17 puts " 1) OCC119 OK: BLEND was NOT created and suitable except was given."
18} else {
19 puts "1) OCC119 OK: function BLEND works without suitable except"
20 checkshape result_1
21 explode result_1 e
22
23 if { [catch {blend result_2 result_1 50 result_1_20 50 result_1_22 50 result_1_10} catch_result] } {
24 puts "2) Faulty OCC119: BLEND was NOT created"
25 } else {
26 puts "2) BLEND OCC199 OK: BLEND was created"
27 checkshape result_2
28 }
29
30 set che [checkshape result_2 r]
31 if { [regexp {OK} $che] != 1 } {
32 puts "Faulty : mistakes are found in shape by checkshape command after BLEND command"
33 puts " Body of the scripts was not executed !"
34 } else {
35 puts "Checking by checkshape - OK"
36
37 vinit
38 vdisplay result_2
39 vsetdispmode result_2 1
40 vfit
41
42 explode result_2 e
43 blend result result_2 50 result_2_20 50 result_2_22 50 result_2_10
44 checkview -screenshot -3d -path ${imagedir}/${test_image}.png
45 }
46}