| 40093367 |
1 | ## cts20461 |
| 2 | puts "TODO #22911 ALL: Faulty shapes in variables faulty_1 to faulty_" |
| 6aac585a |
3 | puts "TODO #22911 ALL: Error : The area of the resulting shape is" |
| 40093367 |
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 |
projects / occt.git / blame