mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
48 lines
1.4 KiB
Plaintext
48 lines
1.4 KiB
Plaintext
puts "========="
|
|
puts "OCC30402"
|
|
puts "========="
|
|
puts ""
|
|
############################################################################
|
|
# Data Exchange - exported VRML file has broken location information
|
|
############################################################################
|
|
|
|
set filename bug26657
|
|
param xstep.cascade.unit MM
|
|
ReadStep D [locate_data_file bug26657.stp]
|
|
XGetOneShape a D
|
|
incmesh a 0.001
|
|
vinit Driver1/Viewer1/View1
|
|
vdisplay a
|
|
vfit
|
|
vdump ${imagedir}/${test_image}_1.png
|
|
|
|
file delete -force ${imagedir}/${filename}.wrl
|
|
WriteVrml D ${imagedir}/${filename}.wrl
|
|
loadvrml b ${imagedir}/${filename}.wrl
|
|
vinit Driver1/Viewer2/View1
|
|
vdisplay b
|
|
vfit
|
|
vdump ${imagedir}/${test_image}_2.png
|
|
|
|
set sprops_a [sprops a]
|
|
regexp {Mass\s*:\s*([0-9.e+-]+)} $sprops_a prop_s res_a_Area
|
|
regexp {X += +([-0-9.+eE]+)} $sprops_a full res_a_X
|
|
regexp {Y += +([-0-9.+eE]+)} $sprops_a full res_a_Y
|
|
regexp {Z += +([-0-9.+eE]+)} $sprops_a full res_a_Z
|
|
|
|
set sprops_b [sprops b]
|
|
regexp {Mass\s*:\s*([0-9.e+-]+)} $sprops_b prop_s res_b_Area
|
|
regexp {X += +([-0-9.+eE]+)} $sprops_b full res_b_X
|
|
regexp {Y += +([-0-9.+eE]+)} $sprops_b full res_b_Y
|
|
regexp {Z += +([-0-9.+eE]+)} $sprops_b full res_b_Z
|
|
|
|
if { ([expr abs($res_a_Area - $res_b_Area)] > 1.e-4) } {
|
|
puts "Error: Bad area of face"
|
|
}
|
|
|
|
if { ([expr abs($res_a_X - $res_b_X)] > 1.e-4) ||
|
|
([expr abs($res_a_Y - $res_b_Y)] > 1.e-4) ||
|
|
([expr abs($res_a_Z - $res_b_Z)] > 1.e-4) } {
|
|
puts "Error: Location problem"
|
|
}
|