tests/bugs/vis/bug6145

   1 puts "============"
   2 puts "OCC6145"
   3 puts "============"
   4 puts ""
   5 ##################################################################
   6 # Incorrect rendering of a transparent object
   7 ##################################################################
   8
   9 set BugNumber OCC6145
  10
  11 box b 200 100 100
  12
  13 plane p 20 20 50
  14 pcylinder c1 p 10 80
  15
  16 tcopy c1 c2
  17 ttranslate c2 40 0 0
  18 tcopy c2 c3
  19 ttranslate c3 40 0 0
  20 tcopy c3 c4
  21 ttranslate c4 40 0 0
  22 tcopy c4 c5
  23 ttranslate c5 40 0 0
  24
  25 compound c1 c2 c3 c4 c5 co
  26 cut r b co
  27
  28 vinit
  29 vsetdispmode 1
  30 vdisplay r
  31 vfit
  32 QAUpdateLights
  33
  34 set x_coord 270
  35 set y_coord 230
  36
  37 checkcolor $x_coord $y_coord 0.78 0.55 0.09
  38
  39 vsettransparency r 0.5
  40 QAUpdateLights
  41
  42 checkcolor $x_coord $y_coord 0.8 0.56 0.1
  43
  44 set RED_3 0.86274498701095581
  45 set GREEN_3 0.61176401376724243
  46 set BLUE_3 0.10196000337600708
  47
  48 set only_screen 1
  49