tests/bugs/vis/bug85_1

   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 box b2 20 20 20 5 5 5
  17 box b3 30 30 30
  18 box b4 10 20 25 7 7 7
  19 explode b3 f
  20
  21 NewDocument D
  22 SetShape D 0:1:1 b3_2
  23 SetShape D 0:1:2 b2
  24 SetShape D 0:1:3 b4
  25 AISSet   D 0:1:1 NS
  26 AISSet   D 0:1:2 NS
  27 AISSet   D 0:1:3 NS
  28
  29 AISInitViewer D
  30 AISMaterial D 0:1:1 plastic
  31 AISMaterial D 0:1:2 plastic
  32 AISMaterial D 0:1:3 plastic
  33 AISTransparency D 0:1:1 0.6
  34 AISColor D 0:1:1 1
  35 AISDisplay D 0:1:1
  36 AISDisplay D 0:1:2
  37 AISDisplay D 0:1:3
  38 vfit
  39 vsetdispmode 1
  40
  41 box b 10 10 10
  42 SetShape D 0:1:4 b
  43 AISSet D 0:1:4 NS
  44 AISDisplay D 0:1:4
  45
  46 set x_coord 273
  47 set y_coord 115
  48
  49 checkcolor $x_coord $y_coord 0.78 0.55 0.9
  50
  51 set only_screen 1
  52
  53
  54