Modification due to behavior changes after integration for issues CR26138 and CR24923

[occt.git] / tests / bugs / vis / bug23652

puts "========"
puts "OCC23652"
puts "========"

###############################################################################
# Non zoomable text with alignment slides away when zooming view
###############################################################################

vinit
vtrihedron tri
vdrawtext Default 0.0 0.0 0.0 255 255 255 0 0 0 1 20 0
vdrawtext Right_Align 0.0 0.0 0.0 255 255 255 2 0 0 1 20 0

set scale    3.1783114563761763
set proj_X   0.57735025882720947
set proj_Y   -0.57735025882720947
set proj_Z   0.57735025882720947
set up_X     -0.40824827551841736
set up_Y     0.40824827551841736
set up_Z     0.81649655103683472
set at_X     0
set at_Y     0
set at_Z     0

vviewparams -scale ${scale} -proj ${proj_X} ${proj_Y} ${proj_Z} -up ${up_X} ${up_Y} ${up_Z} -at ${at_X} ${at_Y} ${at_Z}

set x_coord 210
set y_coord 204

checkcolor $x_coord $y_coord 0.6 0.6 0.6

set only_screen 1