2 puts "================"
4 puts "================"
6 #######################################################
7 ## The Draw command "wexplo" gives one edge instead of 6 for the face.
8 #######################################################
10 restore [locate_data_file OCC356.brep] result
15 wexplo result_1 result
21 regexp { is a shape ([A-Z]+)} [whatis WEDGE_$j] full err
22 if { $err != "EDGE"} {
25 set nom [expr $nom + 1]
30 puts "Faulty OCC356 : Command WEXPLO works WRONGLY"
32 puts "OCC356 OK : Command WEXPLO works properly"
35 checkprops result -s 6207.83
36 checkview -display result -2d -path ${imagedir}/${test_image}.png