mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
35 lines
696 B
Plaintext
35 lines
696 B
Plaintext
#INTERFACE CAF
|
|
# Presentation attributes
|
|
#
|
|
# Testing attribute: TPrsStd_AISPresentation
|
|
#
|
|
# Testing command: AISMode, storage of display mode in XML file
|
|
#
|
|
|
|
NewDocument D1 XmlOcaf
|
|
AISInitViewer D1
|
|
box b 100 100 100
|
|
SetShape D1 0:1 b
|
|
AISSet D1 0:1 NS
|
|
AISDisplay D1 0:1
|
|
AISMode D1 0:1 1
|
|
|
|
set aFile ${imagedir}/${casename}.xml
|
|
file delete ${aFile}
|
|
SaveAs D1 ${aFile}
|
|
if { ![file exists ${aFile}] } {
|
|
puts "There is not ${aFile} file; SaveAs command: Error"
|
|
return
|
|
}
|
|
|
|
Close D1
|
|
Open ${aFile} D2
|
|
AISInitViewer D2
|
|
AISDisplay D2 0:1
|
|
set mode [AISMode D2 0:1]
|
|
if { ${mode} != 1 } {
|
|
puts ${mode}
|
|
puts "Storage of display mode of TPrsStd_AISPresentation attribute in XML document: Error"
|
|
return
|
|
}
|