#INTERFACE CAF # Presentation attributes # # Testing attribute: TPrsStd_AISPresentation # # Testing command: AISUpdate # puts "caf003-H1" # Create two boxis, a sphere and a cone box aBox1 100 200 300 set aLabel1 0:2 SetShape D ${aLabel1} aBox1 box aBox2 50 50 0 100 200 300 set aLabel2 0:3 SetShape D ${aLabel2} aBox2 psphere aSphere 100 pcone aCone 50 20 500 # Initialize 3D viewer AISInitViewer D # Add AISPresentation attribute with parameter NS AISSet D ${aLabel1} NS AISSet D ${aLabel2} NS # Set shading mode vsetdispmode 1 # Set a color of the second shape as NOC_GREEN AISColor D ${aLabel2} 229 # Display presentation of NamedShape in the viewer AISDisplay D ${aLabel1} AISDisplay D ${aLabel2} # Close/Open transaction NewCommand D # Change a shapes in ${aLabel1} and in ${aLabel2} SetShape D ${aLabel1} aSphere SetShape D ${aLabel2} aCone # Update ${aLabel1} AISUpdate D ${aLabel1} # Close/Open transaction NewCommand D # Undo Undo D # Update the viewer AISRepaint D puts "There are two boxes"