Integration part of tests of grid chl
[occt.git] / tests / bugs / iges / bug450_1
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