0022785: Draw Harness - add possibility to remove a text drawn by the command vdrawtext
[occt.git] / tests / bugs / vis / bug23883
CommitLineData
7cc2d520 1puts "=========="
2puts "OCC23883"
3#################################################################################
4puts "Bound color in the primitive array do not work when displayed using VBO"
5#################################################################################
6
7set x_coord 321
8set y_coord 200
9
10vinit
11vvbo 0
12vdrawparray pl01 polylines 0 v 0 0 0 v 0 10 0 v 0 10 10 v 0 0 0 b 4 c 1 0 0
13vfit
14checkcolor $x_coord $y_coord 1 0 0
15
16vclear
17vvbo 1
18vdrawparray pl01 polylines 0 v 0 0 0 v 0 10 0 v 0 10 10 v 0 0 0 b 4 c 1 0 0
19checkcolor $x_coord $y_coord 1 0 0
20
21set only_screen 1
22
23