tests/v3d/glsl/distinguish_off

   1 puts "========"
   2 puts "0025822: Visualization, TKOpenGl - front material should be used instead of back material within distinguish mode turned off"
   3 puts "========"
   4
   5 pload MODELING OCAF XDE
   6 box b 10 10 10
   7 vclear
   8 vinit View1
   9 catch { Close D }
  10 NewDocument D BinXCAF
  11 XAddShape D b
  12 XSetColor D b BLUE
  13 explode b f
  14 XSetColor D b_1 RED
  15
  16 XDisplay D
  17 vviewparams -proj 1 0.1 0.1
  18 vfit
  19 vsetdispmode 1
  20
  21 catch { vclipplane delete pln }
  22 vclipplane create pln
  23 vclipplane set pln view Driver1/Viewer1/View1
  24 vclipplane change pln equation -1 0 0 5
  25
  26 # FFP on
  27 vcaps -ffp 1
  28 set aColorFfp [vreadpixel 200 200 rgb name]
  29 if { "$aColorFfp" != "RED" } { puts "Error: RED color is expected at the back side (FFP)" }
  30
  31 # GLSL on
  32 vcaps -ffp 0
  33 set aColorGlsl [vreadpixel 200 200 rgb name]
  34 if { "$aColorGlsl" != "FIREBRICK" } { puts "Error: FIREBRICK color is expected at the back side (GLSL)" }