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 checkview -display result -2d -path ${imagedir}/${test_image}.png