6 ###############################
7 ## Result of pipe command of Draw is faulty
8 ###############################
10 restore [locate_data_file OCC500a.brep] a_1
13 restore [locate_data_file OCC500b.brep] a_2
16 if [catch {pipe result a_1 a_2 } catch_result] {
17 puts "Faulty OCC500 : function PIPE works wrongly "
19 puts "OCC500 : function PIPE works without hangs up "