0024387: Tests - use system-independent fonts in test cases
[occt.git] / tests / bugs / vis / bug24133_2
CommitLineData
a6eb515f 1puts "============"
2puts "CR24133"
3puts "============"
4puts ""
5#######################################################################
6# Development of improvement of dimensions implementation
7# Angle dimension
8#######################################################################
9pload VISUALIZATION
10
6fb1a930 11vfont add [locate_data_file DejaVuSans.ttf] SansFont
12
a6eb515f 13vinit
14vpoint angleP1 0 0 0
15vpoint angleP2 50 50 50
16vpoint angleP3 50 50 100
6fb1a930 17vdimension dim1 -angle -shapes angleP1 angleP2 angleP3 -font SansFont
a6eb515f 18vfit
19vmoveto 249 206
20
21set x_coord 249
22set y_coord 200
23
24checkcolor $x_coord $y_coord 0 1 1
25
26if { $stat != 1 } {
27 puts "Error : Highlighting of angle dimension with 2d text is wrong."
28}
d7bffd44 29vinit Viewer2/View2
30vdisplay angleP1 angleP2 angleP3
6fb1a930 31vdimension dim2 -angle -text 3d -shapes angleP1 angleP2 angleP3 -font SansFont
a6eb515f 32vfit
33vmoveto 263 251
34
d7bffd44 35set x_coord 335
36set y_coord 319
a6eb515f 37
38checkcolor $x_coord $y_coord 0 1 1
39
40if { $stat != 1 } {
41 puts "Error : Highlighting of angle dimension with 3d text is wrong."
42}
43
44set only_screen 1