2 puts "========================"
4 puts "========================"
6 ##############################
7 ## No any faces in result of pipe command.
8 ##############################
11 restore [locate_data_file OCC605a.brep] w1
14 restore [locate_data_file OCC605b.brep] w2
17 if { [catch {pipe result w2 w1 } catch_result] } {
18 puts "Faulty OCC605: function PIPE works with exception."
24 if { [regexp {FACE} [whatis result_$j]] != 1 } {
27 set nom [expr $nom + 1]
32 puts " Faulty OCC605: Result of PIPE operation is incorrect !!! "
34 puts "OCC605 OK : Result of PIPE operation is NOT empty shell!!! "
38 checkprops result -s 20.6253
40 checkview -display result -2d -path ${imagedir}/${test_image}.png