0e94a94e |
1 | puts "========" |
2 | puts "OCC450" |
3 | puts "========" |
4 | puts "(case 2)" |
5 | puts "" |
6 | ################################################################# |
7 | ## After reading file5.igs, the surface of revolution written in this file becomes a plane. |
8 | ################################################################# |
9 | |
10 | igesbrep [locate_data_file NIC_file5.igs] a * |
11 | |
12 | mksurface result a |
13 | |
14 | set info [dump result] |
15 | |
16 | if { [regexp "SurfaceOfRevolution" $info] != 1 } { |
17 | puts "Error : surface of revolution becomes a plane" |
18 | } |
19 | |
5747059b |
20 | checkview -display result -2d -path ${imagedir}/${test_image}.png |