mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-09 13:22:24 +03:00
71 lines
1.7 KiB
Plaintext
Executable File
71 lines
1.7 KiB
Plaintext
Executable File
puts "============"
|
|
puts "OCC23120"
|
|
puts "============"
|
|
puts ""
|
|
###########################################################################
|
|
# Transform persistence is not restored
|
|
###########################################################################
|
|
|
|
pload QAcommands
|
|
|
|
box b1 10 20 30
|
|
box b2 10 20 30
|
|
ttranslate b2 50 50 0
|
|
vinit
|
|
vdisplay b1
|
|
# This line breaks normal rendering
|
|
# of all subsequently displayed presentations
|
|
vsettransmode b1 32 0 0 0 0 0
|
|
# This box is drawn incorrectly due to the bug
|
|
vdisplay b2
|
|
vfit
|
|
vsetdispmode 1
|
|
vzoom 0.5
|
|
vpan 100 0
|
|
|
|
set x1 300
|
|
set y1 130
|
|
if { [string compare $tcl_platform(os) "Windows NT"] == 0 } {
|
|
puts "STATION IS WNT"
|
|
set r_check 0.77646999999999999
|
|
set g_check 0.54901900000000003
|
|
set b_check 0.090195999999999998
|
|
} else {
|
|
set r_check 0.78039199999999997
|
|
set g_check 0.55294100000000002
|
|
set b_check 0.094117000000000006
|
|
}
|
|
|
|
set r_check [expr int($r_check * 1.e5)]
|
|
set g_check [expr int($g_check * 1.e5)]
|
|
set b_check [expr int($b_check * 1.e5)]
|
|
|
|
puts "r_check=$r_check"
|
|
puts "g_check=$g_check"
|
|
puts "b_check=$b_check"
|
|
|
|
set color1 [ QAGetPixelColor ${x1} ${y1} ]
|
|
|
|
regexp {RED +: +([-0-9.+eE]+)} $color1 full rd1
|
|
regexp {GREEN +: +([-0-9.+eE]+)} $color1 full gr1
|
|
regexp {BLUE +: +([-0-9.+eE]+)} $color1 full bl1
|
|
|
|
set rd1 [expr int($rd1 * 1.e5)]
|
|
set gr1 [expr int($gr1 * 1.e5)]
|
|
set bl1 [expr int($bl1 * 1.e5)]
|
|
|
|
puts "rd1=$rd1"
|
|
puts "gr1=$gr1"
|
|
puts "bl1=$bl1"
|
|
|
|
set status1 0
|
|
if { $rd1 != $r_check || $gr1 != $g_check || $bl1 != $b_check } {
|
|
puts "Error : colors are not equal"
|
|
puts "Error : Transform persistence is not restored"
|
|
} else {
|
|
puts "OK : colors are equal"
|
|
puts "OK : Transform persistence is restored"
|
|
}
|
|
|
|
set only_screen 1
|