mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
42 lines
1023 B
Plaintext
42 lines
1023 B
Plaintext
puts "========"
|
|
puts "OCC29391"
|
|
puts "========"
|
|
puts ""
|
|
##########################################################################
|
|
# transormations for few entities with type 144 are missing
|
|
##########################################################################
|
|
|
|
igesbrep [locate_data_file bug29391.igs] a *
|
|
|
|
explode a
|
|
|
|
set nbshapes_expected "
|
|
Number of shapes in shape
|
|
VERTEX : 37090
|
|
EDGE : 37571
|
|
WIRE : 6695
|
|
FACE : 6290
|
|
SHELL : 0
|
|
SOLID : 0
|
|
COMPSOLID : 0
|
|
COMPOUND : 1
|
|
SHAPE : 87647
|
|
"
|
|
checknbshapes a -ref ${nbshapes_expected} -t -m "importing file"
|
|
|
|
set sprops_s [sprops a_5284]
|
|
set CX -71.5
|
|
set CY 20.4285
|
|
set CZ 15.6103
|
|
|
|
regexp {X += +([-0-9.+eE]+)} $sprops_s full resCX
|
|
regexp {Y += +([-0-9.+eE]+)} $sprops_s full resCY
|
|
regexp {Z += +([-0-9.+eE]+)} $sprops_s full resCZ
|
|
|
|
if { ([expr abs($CX - $resCX)] > 1.e-7) ||
|
|
([expr abs($CY - $resCY)] > 1.e-7) ||
|
|
([expr abs($CZ - $resCZ)] > 1.e-7) } {
|
|
puts "Error: Tranfrormation problem - translation along X is wrong."
|
|
}
|
|
|