mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
36 lines
781 B
Plaintext
36 lines
781 B
Plaintext
# check read / write shape to FSD archive and reading its back
|
|
|
|
set file2 "bug26256.cmp"
|
|
set driver "cmp"
|
|
set file [locate_data_file ${file2}]
|
|
|
|
# restore shape from a file
|
|
if {[catch {fsdread ${file} shapein}]} {
|
|
puts "Error reading fsd file - ${file}"}
|
|
return
|
|
}
|
|
|
|
# check base shape
|
|
checkshape shapein
|
|
|
|
# write shape to a file
|
|
fsdwrite shapein ${imagedir}/${file2} ${driver}
|
|
|
|
|
|
# restore shape from a file
|
|
if {[catch {fsdread ${imagedir}/${file2} result}]} {
|
|
puts "Error reading fsd file - ${imagedir}/${file2}"}
|
|
return
|
|
}
|
|
# check result shape
|
|
checkshape result
|
|
|
|
|
|
# check the number of subshapes
|
|
checknbshapes result -ref [nbshapes shapein]
|
|
|
|
# check properties
|
|
checkprops result -l -equal shapein
|
|
checkprops result -s -equal shapein
|
|
checkprops result -v -equal shapein
|