40093367 |
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 | |
8418c617 |
5 | restore [locate_data_file cts20461.rle] a |
40093367 |
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 |