0026833: Create command checkview containing all viewer types
[occt.git] / tests / bugs / vis / bug24374
CommitLineData
0f8c0fb8 1puts "============"
2puts "CR24374"
3puts "============"
4puts ""
5#######################################################################
6# Flipping affects highlight presentation of dimension
7#######################################################################
6fb1a930 8vfont add [locate_data_file DejaVuSans.ttf] SansFont
9
0f8c0fb8 10box b 100 100 100
11explode b e
12vdisplay b
13vdisplay b_9
6fb1a930 14vdimension dim1 -length -shapes b_9 -text 3d -plane zox -font SansFont
0f8c0fb8 15vselmode b 2 1
9f37b47d 16vselmode dim1 2 1
0f8c0fb8 17vfit
aad4bc1f 18vmoveto 130 352
0f8c0fb8 19
aad4bc1f 20set x_coord 130
21set y_coord 352
0f8c0fb8 22checkcolor $x_coord $y_coord 0 1 1
23
24if { $stat != 1 } {
25 puts "Error : Highlighting of dimension with flipping in local context failed."
26}
27
5747059b 28checkview -screenshot -3d -path ${imagedir}/${test_image}.png