2 # Presentation attributes
4 # Testing attribute: TPrsStd_AISPresentation
6 # Testing command: AISRemove
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 as NOC_GREEN
31 AISColor D ${aLabel2} 229
33 # Display presentation of NamedShape in the viewer
34 AISDisplay D ${aLabel1}
35 AISDisplay D ${aLabel2}
37 # Close/Open transaction
40 # Remove the shape of ${aLabel1}
41 AISRemove D ${aLabel1}
43 # Close/Open transaction
52 ###puts "There are two boxis"
60 puts "There is one box"