tests/bugs/iges/bug23746

   1 puts "============"
   2 puts "OCC23746"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # IGES wheel model fails to load when OCCT unit is meters
   7 #######################################################################
   8
   9 param write.iges.brep.mode Faces
  10 dall
  11
  12 tpclear
  13 newmodel
  14 param xstep.cascade.unit MM
  15 igesbrep [locate_data_file bug23746_wheel.igs] a *
  16 checkshape a
  17 tpclear
  18 newmodel
  19 set aFile1 ${imagedir}/bug23746_wheel-0.igs
  20 file delete ${aFile1}
  21 brepiges a ${aFile1}
  22
  23 tpclear
  24 newmodel
  25 param xstep.cascade.unit M
  26 igesbrep [locate_data_file bug23746_wheel.igs] b *
  27 checkshape b
  28 tpclear
  29 newmodel
  30 set aFile2 ${imagedir}/bug23746_wheel-1.igs
  31 file delete ${aFile2}
  32 brepiges b ${aFile2}
  33
  34 tpclear
  35 newmodel
  36 param xstep.cascade.unit MM
  37 igesbrep ${aFile1} a0 *
  38 checkshape a0
  39 tpclear
  40 newmodel
  41 set aFile3 ${imagedir}/bug23746_wheel-0-0.igs
  42 file delete ${aFile3}
  43 brepiges a0 ${aFile3}
  44
  45 tpclear
  46 newmodel
  47 param xstep.cascade.unit M
  48 igesbrep ${aFile1} b0 *
  49 checkshape b0
  50 tpclear
  51 newmodel
  52 set aFile4 ${imagedir}/bug23746_wheel-0-1.igs
  53 file delete ${aFile4}
  54 brepiges b0 ${aFile4}
  55
  56 tpclear
  57 newmodel
  58 param xstep.cascade.unit MM
  59 igesbrep ${aFile2} a1 *
  60 checkshape a1
  61 tpclear
  62 newmodel
  63 set aFile5 ${imagedir}/bug23746_wheel-1-0.igs
  64 file delete ${aFile5}
  65 brepiges a1 ${aFile5}
  66
  67 tpclear
  68 newmodel
  69 param xstep.cascade.unit M
  70 igesbrep ${aFile2} b1 *
  71 checkshape b1
  72 tpclear
  73 newmodel
  74 set aFile6 ${imagedir}/bug23746_wheel-1-1.igs
  75 file delete ${aFile6}
  76 brepiges b1 ${aFile6}