5 #########################################
6 ## Incorrect value of IsClosed flag in shapes produced by some algorithms
7 #########################################
10 trim pp pp 0 100 0 100
12 prism result ff 0 0 20
14 set info [whatis result]
15 if { [regexp {Closed} ${info}] != 1 } {
16 puts "OK : value of IsClosed flag is correct"
18 puts "Error : value of IsClosed flag is not correct"