Adding test cases from chl grid
[occt.git] / tests / bugs / iges / bug450_2
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
20 set 2dviewer 0
21