mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
e837410dac
All uses of "MDTV-Standard" and "MDTV-Design" in tests changed to "BinOcaf", and "MDTV-XCAF" changed to "BinXCAF". Formats changed: .std to .cbf, .dxc to .dbf. Test groups renamed accordingly: xcaf: brep_to_dxc -> brep_to_xbf, igs_to_dxc -> igs_to_xbf, stp_to_dxc -> stp_to_xbf, dxc -> xbf/A1, dxc_add_CL -> xbf_add_CL xml: ocaf_std -> ocaf_cbf, xcaf_dxc -> xcaf_xbf
38 lines
969 B
Plaintext
38 lines
969 B
Plaintext
puts "============"
|
|
puts "OCC26155"
|
|
puts "============"
|
|
puts ""
|
|
###################################################################################
|
|
# TNaming, CurrentShape: order of shapes in Modification compound is unpredictable.
|
|
###################################################################################
|
|
|
|
pload QAcommands
|
|
|
|
NewDocument D BinOcaf
|
|
|
|
set x_ref 0.0
|
|
set x_tol 0.1
|
|
set result 1
|
|
|
|
for {set i 1} {$i <= 50} {incr i} {
|
|
set lab $i:1
|
|
|
|
box b 0 0 0 10 10 10
|
|
box b_1 0 0 0 5 10 10
|
|
box b_2 5 0 0 5 10 10
|
|
|
|
BuildNamedShape D [set lab]:1 PRIMITIVE b
|
|
BuildNamedShape D [set lab]:1:1 MODIFY b b_1
|
|
BuildNamedShape D [set lab]:1:2 MODIFY b b_2
|
|
CurrentShape D "[set lab]:1" r
|
|
explode r so
|
|
regexp {X += +([-0-9.+eE]+)} [vprops r_1 $x_tol] full x_1
|
|
|
|
if { $x_ref == 0 } {
|
|
set x_ref $x_1
|
|
} elseif { [expr abs ($x_1 - $x_ref)] > $x_tol } {
|
|
puts "Error: order of components of modified shape compound is not permanent."
|
|
break
|
|
}
|
|
}
|