1 puts "================"
3 puts "================"
5 ######################################################################################
6 # RebuildShape exchanges 2d-curves
7 ######################################################################################
13 restore [locate_data_file OCC22968-cylface.brep] a
16 set info [ checkshape result f ]
18 if { [regexp {The Shape result looks OK} $info] } {
19 puts "OK ${BugNumber}"
21 puts "Faulty ${BugNumber}"
24 checkprops result -s 3141.59
26 checkview -display result -2d -path ${imagedir}/${test_image}.png