2 puts "========================"
4 puts "========================"
6 ##############################
7 ## No any faces in result of pipe command.
8 ##############################
10 restore [locate_data_file OCC605a.brep] w1
12 restore [locate_data_file OCC605b.brep] w2
15 if { [catch {pipe result w2 w1 } catch_result] } {
16 puts "Faulty OCC605: function PIPE works with exception."
22 if { [regexp {FACE} [whatis result_$j]] != 1 } {
25 set nom [expr $nom + 1]
30 puts " Faulty OCC605: Result of PIPE operation is incorrect !!! "
32 puts "OCC605 OK : Result of PIPE operation is NOT empty shell!!! "