0024387: Tests - use system-independent fonts in test cases
[occt.git] / tests / bugs / vis / bug24133_3
CommitLineData
a6eb515f 1puts "============"
2puts "CR24133"
3puts "============"
4puts ""
5#######################################################################
6# Development of improvement of dimensions implementation
7# Radius dimension
8#######################################################################
9pload VISUALIZATION
10
6fb1a930 11vfont add [locate_data_file DejaVuSans.ttf] SansFont
12
a6eb515f 13vinit
14vpoint radP1 0 0 0
15vpoint radP2 50 50 0
16vpoint radP3 100 0 0
17vcircle circle radP1 radP2 radP3 0
18verase radP1 radP2 radP3
6fb1a930 19vdimension dim1 -radius -shapes circle -font SansFont
a6eb515f 20vfit
d7bffd44 21vmoveto 123 158
a6eb515f 22
d7bffd44 23set x_coord 112
24set y_coord 151
a6eb515f 25
26checkcolor $x_coord $y_coord 0 1 1
27
28if { $stat != 1 } {
29 puts "Error : Highlighting of radius dimension with 2d text is wrong."
30}
31
d7bffd44 32vinit Viewer2/View2
33vdisplay circle
6fb1a930 34vdimension dim2 -radius -text 3d -shapes circle -font SansFont
a6eb515f 35vfit
d7bffd44 36vmoveto 191 196
a6eb515f 37
6fb1a930 38set x_coord 112
39set y_coord 151
a6eb515f 40
41checkcolor $x_coord $y_coord 0 1 1
42
43if { $stat != 1 } {
44 puts "Error : Highlighting of radius dimension with 3d text is wrong."
45}
46
47set only_screen 1