0023087: Upgrade of the OCCT test system
[occt.git] / tests / boolean / bcut_complex / O8
1 ## cts20461
2 puts "TODO #22911 ALL: Faulty shapes in variables faulty_1 to faulty_"
3 puts "TODO #22911 ALL: Error : The square of result shape is"
4
5 restore cts20461.rle a
6 nexplode a f
7 mksurface surf a_26
8 nexplode a_26 e
9 wire wire a_26_3
10 mkface face surf wire
11 prism pz face 0 0 10
12
13 ## ttranslate pz 0 0 -5
14 ## essential step to avoid tangent faces
15
16 tcopy pz p1
17 tcopy pz p2
18 tcopy pz p3
19 tcopy pz p4
20 tcopy pz p5
21 tcopy pz p6
22
23 trotate p1 p1 0 0 0 1 0 0 360/7
24 trotate p2 p2 0 0 0 1 0 0 2*360/7
25 trotate p3 p3 0 0 0 1 0 0 3*360/7
26 trotate p4 p4 0 0 0 1 0 0 4*360/7
27 trotate p5 p5 0 0 0 1 0 0 5*360/7
28 trotate p6 p6 0 0 0 1 0 0 6*360/7
29
30 #pkv f
31 updatetolerance a  1
32 updatetolerance p1 1
33 updatetolerance p2 1
34 updatetolerance p3 1
35 updatetolerance p4 1
36 updatetolerance p5 1
37 updatetolerance p6 1
38 #pkv t
39
40 bcut r1 a p1
41 bcut r2 r1 p2
42 bcut r3 r2 p3
43 bcut r4 r3 p4
44 bcut r5 r4 p5
45 bcut result r5 p6
46
47 set square 0