mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-09 13:22:24 +03:00
7cd39973a4
Apply non-uniform scale factors directly to the triangulation during Gltf import. Add flag for turning on/off (on by default) this behavior. OCP-1948
22 lines
642 B
Plaintext
22 lines
642 B
Plaintext
puts "========"
|
|
puts "OCP-1948: Implement non-uniform scaling in Gltf Import"
|
|
puts "========"
|
|
Close D -silent
|
|
ReadGltf D [locate_data_file bug_ocp1948_PSU_Cartoning_subunit__right-01.01.01.03-CART-03_green_bottom.glb]
|
|
|
|
XGetOneShape s D
|
|
checknbshapes s -face 87 -compound 21
|
|
checktrinfo s -tri 16473 -nod 15835
|
|
|
|
# check center of gravity
|
|
set REF_X 18300.5
|
|
set REF_Y -9484
|
|
set REF_Z 129.844
|
|
set tol 1e-4
|
|
set pos [vprops s]
|
|
if {([expr abs($REF_X - [lindex $pos 9])] > $tol) ||
|
|
([expr abs($REF_Y - [lindex $pos 12])] > $tol) ||
|
|
([expr abs($REF_Z - [lindex $pos 15])] > $tol)} {
|
|
puts "Error: wrong position of the imported model."
|
|
}
|