5 ######################################################
6 # Invalid result of MakeCylindricalHole when input solid is REVERSED
7 ######################################################
15 offsetshape t b 10 b_1
18 set che_t [checkshape t]
21 if {[regexp {Faulty} $che_t]} {
22 puts "Faulty ${BugNumber} : checkshape is wrong for t"
25 set bnd_t [bounding t]
26 set ori [lindex [dtyp t] 2]
27 puts "Orientation of thick solid is $ori"
30 hole h t 110 50 50 1 0 0 10
32 set che [checkshape h]
33 if { [regexp {Faulty} $che] } {
34 puts "Faulty ${BugNumber} : checkshape is wrong for h"
37 set bnd_h [bounding h]
43 checknbshapes result -vertex 30 -edge 51 -wire 27 -face 24 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 135
45 # 4. Check thickness of box and hole
46 set dx_t [expr [lindex $bnd_t 3] - [lindex $bnd_t 0]]
47 set dx_h [expr [lindex $bnd_h 3] - [lindex $bnd_h 0]]
49 if { [expr abs($dx_h - $dx_t)] > 1e-5 } {
50 puts "Thickness of solid = $dx_t"
51 puts "Thickness of solid with hole = $dx_h"
52 puts "Invalid result of making a hole"
53 puts "Faulty ${BugNumber}"
55 puts "OK ${BugNumber}"