0030402: Data Exchange - exported VRML file has broken location information
[occt.git] / tests / bugs / xde / bug30402
1 puts "========="
2 puts "OCC30402"
3 puts "========="
4 puts ""
5 ############################################################################
6 # Data Exchange - exported VRML file has broken location information
7 ############################################################################
8
9 set filename bug26657
10 param xstep.cascade.unit MM
11 ReadStep D [locate_data_file bug26657.stp]
12 XGetOneShape a D
13 incmesh a 0.001
14 vinit Driver1/Viewer1/View1
15 vdisplay a
16 vfit
17 vdump ${imagedir}/${test_image}_1.png
18
19 file delete -force ${imagedir}/${filename}.wrl
20 WriteVrml D ${imagedir}/${filename}.wrl
21 loadvrml b ${imagedir}/${filename}.wrl
22 vinit Driver1/Viewer2/View1
23 vdisplay b
24 vfit
25 vdump ${imagedir}/${test_image}_2.png
26
27 set sprops_a [sprops a]
28 regexp {Mass\s*:\s*([0-9.e+-]+)} $sprops_a prop_s res_a_Area
29 regexp {X += +([-0-9.+eE]+)} $sprops_a full res_a_X
30 regexp {Y += +([-0-9.+eE]+)} $sprops_a full res_a_Y
31 regexp {Z += +([-0-9.+eE]+)} $sprops_a full res_a_Z
32
33 set sprops_b [sprops b]
34 regexp {Mass\s*:\s*([0-9.e+-]+)} $sprops_b prop_s res_b_Area
35 regexp {X += +([-0-9.+eE]+)} $sprops_b full res_b_X
36 regexp {Y += +([-0-9.+eE]+)} $sprops_b full res_b_Y
37 regexp {Z += +([-0-9.+eE]+)} $sprops_b full res_b_Z
38
39 if { ([expr abs($res_a_Area - $res_b_Area)] > 1.e-4) } {
40   puts "Error: Bad area of face"
41 }
42
43 if { ([expr abs($res_a_X - $res_b_X)] > 1.e-4) ||
44   ([expr abs($res_a_Y - $res_b_Y)] > 1.e-4) ||
45   ([expr abs($res_a_Z - $res_b_Z)] > 1.e-4) } {
46   puts "Error: Location problem"
47 }