mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
ea86bfe2fa
DCAF require VISUALIZATION for correct work. In some scenario DRAWEXE can generate a dublicates of the internal static singletons. This means each dynamic library will have their own instance of the static singleton. Update all direct library loading to use the DCAF plugin mechanism. This will ensure that the DCAF plugin is loaded only once and that the correct instance is used. Originally issue is reproduced only Linux with dlopen with "RTLD_LAZY". Can be resolved additionally adding "RTLD_LAZY | RTLD_GLOBAL" for dlopen
127 lines
2.8 KiB
Plaintext
Executable File
127 lines
2.8 KiB
Plaintext
Executable File
puts "================"
|
|
puts "OCC22776"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################################
|
|
# XCAFPrs_AISObject does not support transparency
|
|
######################################################################################
|
|
|
|
catch {pload OCAF}
|
|
pload QAcommands
|
|
|
|
NewDocument D BinXCAF
|
|
UndoLimit D 100
|
|
NewCommand D
|
|
|
|
#Set NamedShape attribute
|
|
box Box 100 200 300
|
|
set Label 0:2
|
|
SetShape D ${Label} Box
|
|
|
|
# Initialize 3D viewer
|
|
AISInitViewer D
|
|
|
|
# Add AISPresentation attribute with parameter NS
|
|
AISSet D ${Label} NS
|
|
|
|
# Set shading mode
|
|
vsetdispmode 1
|
|
|
|
# Display presentation of NamedShape in the viewer
|
|
AISDisplay D ${Label}
|
|
|
|
# Close/Open transaction
|
|
NewCommand D
|
|
|
|
set list [OCC1031_AISMaterial D ${Label}]
|
|
regexp {Material = ([-0-9.+eE]+)} $list full AISMaterial1
|
|
|
|
# Set a material of the shape as NOM_COPPER
|
|
set CopperMaterial 2
|
|
OCC1031_AISMaterial D ${Label} ${CopperMaterial}
|
|
|
|
set list [OCC1031_AISMaterial D ${Label}]
|
|
regexp {Material = ([-0-9.+eE]+)} $list full AISMaterial2
|
|
|
|
# Close/Open transaction
|
|
NewCommand D
|
|
|
|
set list [OCC1032_AISWidth D ${Label}]
|
|
regexp {Width = ([-0-9.+eE]+)} $list full AISWidth1
|
|
|
|
# Set a width
|
|
set Width 10
|
|
OCC1032_AISWidth D ${Label} ${Width}
|
|
|
|
set list [OCC1032_AISWidth D ${Label}]
|
|
regexp {Width = ([-0-9.+eE]+)} $list full AISWidth2
|
|
|
|
# Close/Open transaction
|
|
NewCommand D
|
|
|
|
set list [OCC1029_AISTransparency D ${Label}]
|
|
regexp {Transparency = ([-0-9.+eE]+)} $list full Transparency1
|
|
|
|
# Set a transparency
|
|
set Transparency 0.9
|
|
XSetTransparency D ${Transparency} ${Label}
|
|
|
|
set list [OCC1029_AISTransparency D ${Label}]
|
|
regexp {Transparency = ([-0-9.+eE]+)} $list full Transparency2
|
|
|
|
# Update the viewer
|
|
AISRepaint D
|
|
|
|
|
|
# Check the material
|
|
puts "AISMaterial1 = ${AISMaterial1}"
|
|
puts "AISMaterial2 = ${AISMaterial2}"
|
|
set DefaultAISMaterial 0
|
|
set status 0
|
|
if { ${AISMaterial1} != ${DefaultAISMaterial} } {
|
|
puts "Default material is wrong: Error"
|
|
set status 1
|
|
}
|
|
if { ${AISMaterial2} != ${CopperMaterial} } {
|
|
puts "OCC1031_AISMaterial command: Error"
|
|
set status 1
|
|
}
|
|
|
|
# Check the width
|
|
puts "AISWidth1 = ${AISWidth1}"
|
|
puts "AISWidth2 = ${AISWidth2}"
|
|
set DefaultAISWidth 0
|
|
if { ${AISWidth1} != ${DefaultAISWidth} } {
|
|
puts "Default width is wrong: Error"
|
|
set status 1
|
|
}
|
|
if { ${AISWidth2} != ${Width} } {
|
|
puts "OCC1032_AISWidth command: Error"
|
|
set status 1
|
|
}
|
|
|
|
# Check the transparency
|
|
puts "Transparency1 = ${Transparency1}"
|
|
puts "Transparency2 = ${Transparency2}"
|
|
set DefaultAISTransparency 0
|
|
if { ${Transparency1} != ${DefaultAISTransparency} } {
|
|
puts "Default transparency is wrong: Error"
|
|
set status 1
|
|
}
|
|
|
|
if { ${Transparency2} != ${Transparency} } {
|
|
puts "XSetTransparency command: Error"
|
|
set status 1
|
|
}
|
|
|
|
|
|
if { ${status} == 0} {
|
|
puts "OK"
|
|
} else {
|
|
puts "FAULTY"
|
|
}
|
|
|
|
checkview -display result -3d -path ${imagedir}/${test_image}.png
|
|
|
|
Close D
|