tests/caf/presentation/F1

   1 #INTERFACE CAF
   2 # Presentation attributes
   3 #
   4 # Testing attribute: TPrsStd_AISPresentation
   5 #
   6 # Testing command:   AISHasOwnTransparency
   7 # Note:   After a start: AISHasOwnTransparency = false ( int 0 )
   8 #
   9
  10 puts "caf003-F1"
  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 transparency
  30 set HasOwnTransparency [AISHasOwnTransparency D ${aLabel}]
  31
  32 puts "It is not necessary to have the photo for this case."
  33
  34 if { ${HasOwnTransparency} > 0 } {
  35         puts "HasOwnTransparency=${HasOwnTransparency}"
  36         puts "There is own transparency; AISHasOwnTransparency command: Error"
  37         return
  38 }
  39 puts "There is not own transparency; AISHasOwnTransparency command: OK"