tests/bugs/xde/bug660

   1 puts "================"
   2 puts "OCC660"
   3 puts "================"
   4 puts ""
   5 #######################################################
   6 ## Surfaces types changed while reading IGES, causing problems with 2d mapping
   7 #######################################################
   8
   9 set filepath [locate_data_file D44-11325-6.igs]
  10 if [catch { igesbrep $filepath a 6425 } res] {
  11    puts "Faulty OCC660: here is reading problem"
  12 }
  13
  14 renamevar a_1 a
  15
  16 mksurface result a
  17
  18 set info [dump result]
  19
  20 if { [regexp "SurfaceOfLinearExtrusion" $info] != 1 } {
  21    puts "Faulty OCC660"
  22 }
  23
  24 set 2dviewer 1