Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_4 / bug693_1
CommitLineData
352ffd73 1puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
2puts "TODO OCC12345 ALL: Error : The square of result shape is"
3
4puts "================"
5puts "OCC693"
6puts "================"
7puts ""
8###################################################
9## The boolean operations give incorrect result if one of shapes is compound
10## consisting of several adjoint solids
11####################################################
12
13box h1 234 52 0 41 98 40
14box v1 241 136 20 31 31 15
15box h3 215 120 20 78 15 15
16
17compound h1 c1
18compound v1 c2
19
20tcopy c1 cc1
21tcopy c2 cc2
22
23bop cc1 cc2
24bopcommon int1
25
26checkshape -top int1
27
28tcopy c1 cc1
29tcopy c2 cc2
30
31bop cc1 cc2
32bopcut cut1
33
34checkshape -top cut1
35
36tcopy c1 cc1
37tcopy c2 cc2
38
39bop cc2 cc1
40bopcut cut2
41
42checkshape -top cut2
43
44compound int1 cut1 cut2 comp3
45
46checkshape -top comp3
47
48tcopy comp3 ccomp3
49tcopy h3 ch3
50
51bop ccomp3 ch3
52bopcommon int2
53
54checkshape -top int2
55
56tcopy comp3 ccomp3
57tcopy h3 ch3
58
59bop ccomp3 ch3
60bopcut cut3
61
62checkshape -top cut3
63
64tcopy comp3 ccomp3
65tcopy h3 ch3
66
67bop ch3 ccomp3
68bopcut cut4
69
70checkshape -top cut4
71
72compound int2 cut3 cut4 result
73
74checkshape -top result
75
76set square 33196
77set 3dviewer 1
78