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 bcut r b co
  27
  28 vinit
  29 vsetdispmode 1
  30 vdisplay r
  31 vfit
  32
  33 set x_coord 270
  34 set y_coord 230
  35
  36 checkcolor $x_coord $y_coord 0.78 0.55 0.09
  37
  38 vsettransparency r 0.5
  39
  40 checkcolor $x_coord $y_coord 0.8 0.56 0.1
  41
  42 set RED_3 0.86274498701095581
  43 set GREEN_3 0.61176401376724243
  44 set BLUE_3 0.10196000337600708
  45
  46 checkview -screenshot -3d -path ${imagedir}/${test_image}.png