Adjusting testing cases for current state of OCCT
[occt.git] / 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