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