mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
42 lines
801 B
Plaintext
42 lines
801 B
Plaintext
puts "========"
|
|
puts "OCC25747: Bad IGES file after import and export with different units"
|
|
puts "========"
|
|
puts ""
|
|
|
|
# default OCCT unit for reading
|
|
param xstep.cascade.unit MM
|
|
|
|
param write.iges.unit M
|
|
param write.iges.brep.mode 1
|
|
|
|
# good IGES file
|
|
ReadIges D [locate_data_file bug25747_pencil.igs]
|
|
|
|
XShow D
|
|
vtop
|
|
vfit
|
|
vsetdispmode 1
|
|
vdump ${imagedir}/${casename}_1.png
|
|
|
|
set aTmpFile ${imagedir}/${casename}.igs
|
|
WriteIges D $aTmpFile
|
|
|
|
# bad IGES file after export
|
|
ReadIges T $aTmpFile
|
|
file delete -force ${aTmpFile}
|
|
|
|
XShow T
|
|
vtop
|
|
vfit
|
|
vsetdispmode 1
|
|
vdump ${imagedir}/${casename}_2.png
|
|
|
|
# Check image
|
|
set y 205.
|
|
|
|
checkcolor 20 $y 0.0588 0.0588 0.8
|
|
checkcolor 210 $y 0.5058 0.5764 0.0588
|
|
checkcolor 330 $y 0.0588 0.0588 0.8
|
|
checkcolor 360 $y 0.6862 0.4039 0.3333
|
|
checkcolor 400 $y 0.1215 0.1215 0.7529
|