tests/bugs/vis/bug23120

   1 puts "============"
   2 puts "OCC23120"
   3 puts "============"
   4 puts ""
   5 ###########################################################################
   6 # Transform persistence is not restored
   7 ###########################################################################
   8
   9 pload QAcommands
  10
  11 box b1 10 20 30
  12 box b2 10 20 30
  13 ttranslate b2 50 50 0
  14 vinit
  15 vdisplay b1
  16 # This line breaks normal rendering
  17 # of all subsequently displayed presentations
  18 vsettransmode b1 32 0 0 0 0 0
  19 # This box is drawn incorrectly due to the bug
  20 vdisplay b2
  21 vfit
  22 vsetdispmode 1
  23 vzoom 0.5
  24 vpan 100 0
  25
  26 set x1 300
  27 set y1 130
  28 if { [string compare $tcl_platform(os) "Windows NT"] == 0 }  {
  29   puts "STATION IS WNT"
  30   set r_check 0.77646999999999999
  31   set g_check 0.54901900000000003
  32   set b_check 0.090195999999999998
  33 } else {
  34   set r_check 0.78039199999999997
  35   set g_check 0.55294100000000002
  36   set b_check 0.094117000000000006
  37 }
  38
  39 set r_check [expr int($r_check * 1.e5)]
  40 set g_check [expr int($g_check * 1.e5)]
  41 set b_check [expr int($b_check * 1.e5)]
  42
  43 puts "r_check=$r_check"
  44 puts "g_check=$g_check"
  45 puts "b_check=$b_check"
  46
  47 set color1 [ QAGetPixelColor ${x1} ${y1} ]
  48
  49 regexp {RED +: +([-0-9.+eE]+)} $color1 full rd1
  50 regexp {GREEN +: +([-0-9.+eE]+)} $color1 full gr1
  51 regexp {BLUE +: +([-0-9.+eE]+)} $color1 full bl1
  52
  53 set rd1 [expr int($rd1 * 1.e5)]
  54 set gr1 [expr int($gr1 * 1.e5)]
  55 set bl1 [expr int($bl1 * 1.e5)]
  56
  57 puts "rd1=$rd1"
  58 puts "gr1=$gr1"
  59 puts "bl1=$bl1"
  60
  61 set status1 0
  62 if { $rd1 != $r_check || $gr1 != $g_check || $bl1 != $b_check } {
  63     puts "Error : colors are not equal"
  64     puts "Error : Transform persistence is not restored"
  65 } else {
  66     puts "OK : colors are equal"
  67     puts "OK : Transform persistence is restored"
  68 }
  69
  70 set 3dviewer 2