2 # Presentation attributes
4 # Testing attribute: TPrsStd_AISPresentation
6 # Testing command: AISTransparency
7 # Note: Visual control of setting transparency
15 SetShape D ${aLabel1} aBox1
17 box aBox2 50 50 0 100 200 300
19 SetShape D ${aLabel2} aBox2
21 # Initialize 3D viewer
24 # Add AISPresentation attribute with parameter NS
25 AISSet D ${aLabel1} NS
26 AISSet D ${aLabel2} NS
31 # Set a color of the second shape as NOC_GREEN
32 AISColor D ${aLabel2} 229
34 # Display presentation of NamedShape in the viewer
35 AISDisplay D ${aLabel1}
36 AISDisplay D ${aLabel2}
38 # Close/Open transaction
41 # Set a transparency of the second shape
42 set SetTransparency 0.9
43 AISTransparency D ${aLabel2} ${SetTransparency}
45 # Close/Open transaction
60 puts "Transparency of the NOC_GREEN box is ${SetTransparency}"