tests/caf/presentation/D1

   1 #INTERFACE CAF
   2 # Presentation attributes
   3 #
   4 # Testing attribute: TPrsStd_AISPresentation
   5 #
   6 # Testing command:   AISHasOwnMaterial
   7 # Note:   After a start: AISHasOwnMaterial = false ( int 0 )
   8 #
   9
  10 puts "caf003-D1"
  11
  12 # Set NamedShape attribute
  13 box aBox1 100 200 300
  14 set aLabel 0:2
  15 SetShape D ${aLabel} aBox1
  16
  17 # Initialize 3D viewer
  18 AISInitViewer D
  19
  20 # Add AISPresentation attribute with parameter NS
  21 AISSet D ${aLabel} NS
  22
  23 # Set shading mode
  24 vsetdispmode 1
  25
  26 # Display presentation of NamedShape in the viewer
  27 AISDisplay D ${aLabel}
  28
  29 # Check own material
  30 set HasOwnMaterial [AISHasOwnMaterial D ${aLabel}]
  31
  32 puts "It is not necessary to have the photo for this case."
  33
  34 if { ${HasOwnMaterial} > 0 } {
  35         puts "HasOwnMaterial=${HasOwnMaterial}"
  36         puts "There is own material; AISHasOwnMaterial command: Error"
  37         return
  38 }
  39 puts "There is not own material; AISHasOwnMaterial command: OK"