#INTERFACE CAF # Presentation attributes # # Testing attribute: TPrsStd_AISPresentation # # Testing command: AISDefaultColor # Testing command: AISHasOwnColor # Note: After call of AISDefaultColor-command : AISHasOwnColor = false ( int 0 ) # puts "caf003-C1" # Set NamedShape attribute box aBox1 100 200 300 set aLabel 0:2 SetShape D ${aLabel} aBox1 # Initialize 3D viewer AISInitViewer D # Add AISPresentation attribute with parameter NS AISSet D ${aLabel} NS # Display presentation of NamedShape in the viewer AISDisplay D ${aLabel} # Set a color of the shape as NOC_GREEN set GreenColor 229 AISColor D ${aLabel} ${GreenColor} # Close/Open transaction NewCommand D # Check own color of the shape set HasOwnColor1 [AISHasOwnColor D ${aLabel}] # Get current color of the shape set aColor [lindex [AISColor D ${aLabel}] 0] # Set default color of the shape AISDefaultColor D ${aLabel} # Close/Open transaction NewCommand D # Undo Undo D # Update the viewer AISRepaint D # Redo Redo D # Update the viewer AISRepaint D # Check own color of the shape set HasOwnColor2 [AISHasOwnColor D ${aLabel}] puts "It is not necessary to have the photo for this case." if { ${HasOwnColor1} == 0 || ${HasOwnColor2} > 0 } { puts "HasOwnColor1=${HasOwnColor1} HasOwnColor2=${HasOwnColor2}" puts "AISDefaultColor command: Error" return } puts "AISDefaultColor command: OK"