mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
27 lines
632 B
Plaintext
27 lines
632 B
Plaintext
pload QAcommands
|
|
|
|
puts "======="
|
|
puts "OCC24"
|
|
puts "======="
|
|
puts ""
|
|
###########################################################################
|
|
## Recorded modifications are lost when converting from ShapeBuild_ReShape into ShapeProcess_ShapeContext
|
|
## and back
|
|
###########################################################################
|
|
|
|
restore [locate_data_file OCC24.brep] s
|
|
checkshape s
|
|
|
|
explode s f
|
|
|
|
compound s_1 c
|
|
if [catch { OCC24 result s c OCC24 Seq } ] {
|
|
puts "OCC24 ERROR"
|
|
} else {
|
|
puts "OCC24 OK"
|
|
}
|
|
|
|
checkprops result -s 37.6991
|
|
checkshape result
|
|
checkview -display result -2d -path ${imagedir}/${test_image}.png
|