tests/bugs/iges/bug25747

   1 puts "========"
   2 puts "OCC25747: Bad IGES file after import and export with different units"
   3 puts "========"
   4 puts ""
   5
   6 # default OCCT unit for reading
   7 param xstep.cascade.unit MM
   8
   9 param write.iges.unit M
  10 param write.iges.brep.mode 1
  11
  12 # good IGES file
  13 ReadIges D [locate_data_file bug25747_pencil.igs]
  14
  15 XShow D
  16 vtop
  17 vfit
  18 vsetdispmode 1
  19 vdump ${imagedir}/${casename}_1.png
  20
  21 set aTmpFile ${imagedir}/${casename}.igs
  22 WriteIges D $aTmpFile
  23
  24 # bad IGES file after export
  25 ReadIges T $aTmpFile
  26 file delete -force ${aTmpFile}
  27
  28 XShow T
  29 vtop
  30 vfit
  31 vsetdispmode 1
  32 vdump ${imagedir}/${casename}_2.png
  33
  34 # Check image
  35 set y 205.
  36
  37 checkcolor  20 $y 0.0588 0.0588 0.8
  38 checkcolor 210 $y 0.5058 0.5764 0.0588
  39 checkcolor 330 $y 0.0588 0.0588 0.8
  40 checkcolor 360 $y 0.6862 0.4039 0.3333
  41 checkcolor 400 $y 0.1215 0.1215 0.7529