mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
409095ba18
The issue of incorrect Roots indexing is fixed by changing DataMap to IndexedDataMap. Draw command fsdread was improved to allow restoring of shapes with kept names.
71 lines
2.1 KiB
Plaintext
71 lines
2.1 KiB
Plaintext
# check write / read set of shapes with names to FSD archive and reading its back
|
|
|
|
# create 7 shapes
|
|
box b1 10 20 30
|
|
box b2 100 0 0 20 30 40
|
|
box b3 200 0 0 30 40 50
|
|
box b4 300 0 0 40 50 60
|
|
box b5 400 0 0 50 60 70
|
|
box b6 500 0 0 60 70 80
|
|
box b7 600 0 0 70 80 90
|
|
|
|
# calculate mass of each shape and keep to 'wb%' variable
|
|
regexp {Mass +: +([-0-9.+eE]+)} [vprops b1] full wb1
|
|
regexp {Mass +: +([-0-9.+eE]+)} [vprops b2] full wb2
|
|
regexp {Mass +: +([-0-9.+eE]+)} [vprops b3] full wb3
|
|
regexp {Mass +: +([-0-9.+eE]+)} [vprops b4] full wb4
|
|
regexp {Mass +: +([-0-9.+eE]+)} [vprops b5] full wb5
|
|
regexp {Mass +: +([-0-9.+eE]+)} [vprops b6] full wb6
|
|
regexp {Mass +: +([-0-9.+eE]+)} [vprops b7] full wb7
|
|
|
|
# remove old file if exist
|
|
catch {file delete ${imagedir}/test29402.cmp}
|
|
|
|
# write set of shapes to the file
|
|
fsdwrite b1 b2 b3 b4 b5 b6 b7 ${imagedir}/test29402.cmp cmp
|
|
|
|
# unset variables
|
|
unset b1 b2 b3 b4 b5 b6 b7
|
|
|
|
# read back the file
|
|
fsdread ${imagedir}/test29402.cmp restore_with_names
|
|
|
|
# calculate mass of each shape and keep to 'rb%' variable
|
|
regexp {Mass +: +([-0-9.+eE]+)} [vprops b1] full rb1
|
|
regexp {Mass +: +([-0-9.+eE]+)} [vprops b2] full rb2
|
|
regexp {Mass +: +([-0-9.+eE]+)} [vprops b3] full rb3
|
|
regexp {Mass +: +([-0-9.+eE]+)} [vprops b4] full rb4
|
|
regexp {Mass +: +([-0-9.+eE]+)} [vprops b5] full rb5
|
|
regexp {Mass +: +([-0-9.+eE]+)} [vprops b6] full rb6
|
|
regexp {Mass +: +([-0-9.+eE]+)} [vprops b7] full rb7
|
|
|
|
# compare mass property of old and new shapes
|
|
set NumBad 0
|
|
if { $wb1 != $rb1 } {
|
|
puts " Faulty : incorrect shape $b1"; incr NumBad
|
|
}
|
|
if { $wb2 != $rb2 } {
|
|
puts " Faulty : incorrect shape $b2"; incr NumBad
|
|
}
|
|
if { $wb3 != $rb3 } {
|
|
puts " Faulty : incorrect shape $b3"; incr NumBad
|
|
}
|
|
if { $wb4 != $rb4 } {
|
|
puts " Faulty : incorrect shape $b4"; incr NumBad
|
|
}
|
|
if { $wb5 != $rb5 } {
|
|
puts " Faulty : incorrect shape $b5"; incr NumBad
|
|
}
|
|
if { $wb6 != $rb6 } {
|
|
puts " Faulty : incorrect shape $b6"; incr NumBad
|
|
}
|
|
if { $wb7 != $rb7 } {
|
|
puts " Faulty : incorrect shape $b7"; incr NumBad
|
|
}
|
|
if { $NumBad == 0} {
|
|
puts " BUG29402 OK : All shapes kept properly"
|
|
} else {
|
|
puts " Faulty : Found $NumBad bad shapes"
|
|
}
|
|
|