0e94a94e |
1 | puts "========" |
2 | puts "OCC450" |
3 | puts "========" |
4 | puts "(case 1)" |
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 OCC450a.igs] a * |
11 | |
12 | explode a |
13 | mksurface result a_3 |
14 | set info [dump result] |
15 | |
16 | if { [regexp "SurfaceOfRevolution" $info] != 1 } { |
17 | puts "Error : surface of revolution becomes a plane" |
18 | } |
19 | |
20 | set 2dviewer 0 |
21 | |