0022785: Draw Harness - add possibility to remove a text drawn by the command vdrawtext
[occt.git] / tests / bugs / vis / bug23652
CommitLineData
61c421bf 1puts "========"
2puts "OCC23652"
3puts "========"
4
5###############################################################################
6c8856a0 6# Non zoomable text with alignment slides away when zooming view
61c421bf 7###############################################################################
6c8856a0 8
6c8856a0 9vinit
10vtrihedron tri
29e2c6d2 11vdrawtext text0 Default -pos 0.0 0.0 0.0 -color 1.0 1.0 1.0 -halign left -valign bottom -angle 0 -zoom 1 -height 20 -aspect regular
12vdrawtext text1 Right_Align -pos 0.0 0.0 0.0 -color 1.0 1.0 1.0 -halign right -valign bottom -angle 0 -zoom 1 -height 20 -aspect regular
61c421bf 13
14set scale 3.1783114563761763
61c421bf 15set proj_X 0.57735025882720947
16set proj_Y -0.57735025882720947
17set proj_Z 0.57735025882720947
18set up_X -0.40824827551841736
19set up_Y 0.40824827551841736
20set up_Z 0.81649655103683472
21set at_X 0
22set at_Y 0
23set at_Z 0
24
197ac94e 25vviewparams -scale ${scale} -proj ${proj_X} ${proj_Y} ${proj_Z} -up ${up_X} ${up_Y} ${up_Z} -at ${at_X} ${at_Y} ${at_Z}
61c421bf 26
3af9db62 27set x_coord 210
28set y_coord 204
61c421bf 29
30checkcolor $x_coord $y_coord 0.6 0.6 0.6
31
32set only_screen 1