0029334: Simple offsets complicate geometry
[occt.git] / tests / bugs / modalg_7 / bug29334
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