1 puts "================"
3 puts "================"
6 restore [locate_data_file OCC30.brep] a
11 catch {chamf result a a_2 a_1 A 1 45} info
12 if { [regexp "No suitable edges to chamfer" $info] != 1 } {
13 puts "Error : Function chamfer works wrongly"
15 puts "OK: suitable message is given"