Adding test cases from chl grid
[occt.git] / tests / bugs / iges / bug450_2
CommitLineData
0e94a94e 1puts "========"
2puts "OCC450"
3puts "========"
4puts "(case 2)"
5puts ""
6#################################################################
7## After reading file5.igs, the surface of revolution written in this file becomes a plane.
8#################################################################
9
10igesbrep [locate_data_file NIC_file5.igs] a *
11
12mksurface result a
13
14set info [dump result]
15
16if { [regexp "SurfaceOfRevolution" $info] != 1 } {
17 puts "Error : surface of revolution becomes a plane"
18}
19
20set 2dviewer 0
21