mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
607a96d42a
Removing XML Validator Improvements of begin and TODO's in testing cases small correction in begin file to provide normal behavior of tests if Java is not installed
36 lines
732 B
Plaintext
36 lines
732 B
Plaintext
set aTestName "caf003-A4"
|
|
puts ${aTestName}
|
|
|
|
# Set NamedShape attribute
|
|
box aBox1 100 200 300
|
|
set aLabel 0:2
|
|
SetShape D ${aLabel} aBox1
|
|
|
|
# Initialize 3D viewer
|
|
AISInitViewer D
|
|
|
|
# Add AISPresentation attribute with parameter NS
|
|
AISSet D ${aLabel} NS
|
|
|
|
# Display presentation of NamedShape in the viewer
|
|
AISDisplay D ${aLabel}
|
|
|
|
# Save the document
|
|
set aFile $WorkDirectory/${aTestName}.${FileSuffix}
|
|
|
|
SaveToFile D $aFile
|
|
|
|
# Restore the document
|
|
Close D
|
|
Open ${aFile} DD
|
|
|
|
# Initialize 3D viewer
|
|
AISInitViewer DD
|
|
|
|
# Display presentation of NamedShape in the viewer
|
|
set IsDone [catch {AISDisplay DD ${aLabel}} aResult]
|
|
if { ${IsDone} != 0 } {
|
|
puts "Error : Get a value of TPrsStd_AISPresentation attribute from restoring document"
|
|
}
|
|
|