6 #################################################################
7 ## After reading file5.igs, the surface of revolution written in this file becomes a plane.
8 #################################################################
10 igesbrep [locate_data_file NIC_file5.igs] a *
14 set info [dump result]
16 if { [regexp "SurfaceOfRevolution" $info] != 1 } {
17 puts "Error : surface of revolution becomes a plane"