tests/bugs/vis/bug23225

   1 puts "============"
   2 puts "OCC23363"
   3 puts "============"
   4 puts ""
   5 ####################################################################################
   6 # ZBufer trihedron drawn without shading
   7 ####################################################################################
   8
   9 vinit
  10 vzbufftrihedron
  11 pcylinder p 100 200
  12 vdisplay p
  13 vsetdispmode p 1
  14 vsetinteriorstyle p 1
  15
  16 set x_coord 59
  17 set y_coord 380
  18 checkcolor $x_coord $y_coord 0.54 0 0
  19 set x_coord 50
  20 set y_coord 362
  21 checkcolor $x_coord $y_coord 0 0.77 0
  22 set x_coord 41
  23 set y_coord 354
  24 checkcolor $x_coord $y_coord 0 0 0.62
  25
  26 set only_screen 1
  27
  28