--- /dev/null
+puts "# ======================================================================"
+puts "# 0029334: Simple offsets complicate geometry"
+puts "# ======================================================================"
+
+puts "Make box, fillet one of its edges, and extract two planar faces connected by fillet"
+box b 10 10 10
+explode b e
+blend r b 1 b_5
+explode r f
+compound r_1 r_3 r_6 shape
+
+puts "Offset these faces using simple offset algo"
+offsetshapesimple result shape 1
+
+puts "Verify that all faces of the result are either planes or cylinders"
+set i 1
+foreach f [explode result f] {
+ mksurface surf_$i $f
+ set surf_dump [dump surf_$i]
+ if { [regexp {Offset} $surf_dump] } {
+ puts "Error: surface $i is offset, should be plane or cylinder"
+ }
+ if { ! [regexp {Plane|CylindricalSurface} $surf_dump] } {
+ puts "Error: surface $i is not plane or cylinder"
+ }
+ incr i
+}
+