2 # Presentation attributes
4 # Testing attribute: TPrsStd_AISPresentation
6 # Testing command: AISUnset
14 SetShape D ${aLabel1} aBox1
16 box aBox2 50 50 0 100 200 300
18 SetShape D ${aLabel2} aBox2
20 # Initialize 3D viewer
23 # Add AISPresentation attribute with parameter NS
24 AISSet D ${aLabel1} NS
25 AISSet D ${aLabel2} NS
30 # Set a color of the second shape
31 AISColor D ${aLabel2} GREEN
33 # Display presentation of NamedShape in the viewer
34 AISDisplay D ${aLabel1}
35 AISDisplay D ${aLabel2}
37 # Close/Open transaction
40 # Unset TPrsStd_AISPresentation attribute from ${aLabel1}
43 # Close/Open transaction
52 puts "There are two boxis"