3 puts "================"
5 puts "================"
8 restore [locate_data_file OCC157.brep] wire
12 set info_result [OCC157 result wire ${Tolerance}]
14 set ll [llength ${info_result}]
19 if { [regexp {OK} $info_result] } {
25 set square 2.11095e+06