40093367 |
1 | puts "=================================" |
2 | puts "CUT of box and halfspace" |
34dd4990 |
3 | puts "Case is duplicate of chl 918 CIN001_b5.rle, bug OCC297 " |
40093367 |
4 | puts "=================================" |
5 | |
6 | vertex v1 250 250 0 |
7 | vertex v2 -250 250 0 |
8 | vertex v3 -250 -250 0 |
9 | vertex v4 250 -250 0 |
10 | |
11 | edge e1 v1 v2 |
12 | edge e2 v2 v3 |
13 | edge e3 v3 v4 |
14 | edge e4 v4 v1 |
15 | |
16 | wire w1 e1 e2 e3 e4 |
17 | |
18 | mkplane f w1 |
19 | |
20 | set x 0 |
21 | set y 0 |
22 | |
23 | set Zpoint 100 |
24 | set Zbox -30 |
25 | |
26 | halfspace hs f $x $y $Zpoint |
27 | |
28 | box b 0 0 $Zbox 150 200 200 |
29 | |
30 | bop b hs |
31 | bopcut result |
32 | |
33 | set square 81000 |