puts "========" puts "OCC450" puts "========" puts "(case 2)" puts "" ################################################################# ## After reading file5.igs, the surface of revolution written in this file becomes a plane. ################################################################# igesbrep [locate_data_file NIC_file5.igs] a * mksurface result a set info [dump result] if { [regexp "SurfaceOfRevolution" $info] != 1 } { puts "Error : surface of revolution becomes a plane" } checkview -display result -2d -path ${imagedir}/${test_image}.png