tests/bugs/vis/bug22900

   1 puts "================"
   2 puts "OCC22900"
   3 puts "================"
   4 puts ""
   5 #######################################################################################
   6 # Problem with shape displaying in shading mode
   7 ######################################################################################
   8
   9 set BugNumber OCC22900
  10
  11 set x1 204
  12 set y1 202
  13
  14 vertex v1 0 0 0
  15 vertex v2 0 0 30
  16 edge e1 v1 v2
  17 pcone con1 5 0 10
  18 ttranslate con1 0 0 30
  19 compound con1 e1 c1
  20 don c1
  21 fit
  22 vinit
  23 vdisplay c1
  24 vfit
  25 vsetcolor c1 RED
  26 vsetcolor c1 GREEN
  27 vsetdispmode 1
  28 vsetcolor c1 RED
  29
  30 checkcolor ${x1} ${y1} 1 0 0
  31
  32 checkview -screenshot -3d -path ${imagedir}/${test_image}.png