tests/bugs/vis/bug85_2

   1 puts "==========="
   2 puts "BUC60918"
   3 puts "OCC85"
   4 puts "==========="
   5 puts ""
   6 ###############################
   7 ## Shape drawn in transparency mode does not always eclipse another shapes
   8 ###############################
   9
  10 puts "=================================="
  11 puts "It takes visual check for this BUG"
  12 puts "=================================="
  13
  14 pload OCAF
  15
  16 restore [locate_data_file buc60918-psm1.brep] psm1
  17 restore [locate_data_file buc60918-psm2.brep] psm2
  18 restore [locate_data_file buc60918-shl.brep] shl
  19
  20 NewDocument D
  21 SetShape D 0:1:1 shl
  22 SetShape D 0:1:2 psm1
  23 SetShape D 0:1:3 psm2
  24 AISSet   D 0:1:1 NS
  25 AISSet   D 0:1:2 NS
  26 AISSet   D 0:1:3 NS
  27
  28 AISInitViewer D
  29 AISMaterial D 0:1:1 plastic
  30 AISMaterial D 0:1:2 plastic
  31 AISMaterial D 0:1:3 plastic
  32 AISTransparency D 0:1:1 0.6
  33 AISColor D 0:1:1 1
  34 AISDisplay D 0:1:1
  35 AISDisplay D 0:1:2
  36 AISDisplay D 0:1:3
  37 vsetdispmode 1
  38
  39 box b 10 10 10
  40 SetShape D 0:1:4 b
  41 AISSet D 0:1:4 NS
  42 AISDisplay D 0:1:4
  43 vfit
  44
  45 set x_coord 230
  46 set y_coord 160
  47
  48 checkcolor $x_coord $y_coord 0.76 0.54 0.9
  49
  50 set only_screen 1
  51
  52
  53
  54