090ef040 |
1 | puts "# ======================================================================" |
2 | puts "# 0029334: Simple offsets complicate geometry" |
3 | puts "# ======================================================================" |
4 | |
5 | puts "Make box, fillet one of its edges, and extract two planar faces connected by fillet" |
6 | box b 10 10 10 |
7 | explode b e |
8 | blend r b 1 b_5 |
9 | explode r f |
10 | compound r_1 r_3 r_6 shape |
11 | |
12 | puts "Offset these faces using simple offset algo" |
13 | offsetshapesimple result shape 1 |
14 | |
15 | puts "Verify that all faces of the result are either planes or cylinders" |
16 | set i 1 |
17 | foreach f [explode result f] { |
18 | mksurface surf_$i $f |
19 | set surf_dump [dump surf_$i] |
20 | if { [regexp {Offset} $surf_dump] } { |
21 | puts "Error: surface $i is offset, should be plane or cylinder" |
22 | } |
23 | if { ! [regexp {Plane|CylindricalSurface} $surf_dump] } { |
24 | puts "Error: surface $i is not plane or cylinder" |
25 | } |
26 | incr i |
27 | } |
28 | |