0024326: Get rid of confusing extension line
[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
11vinit
12vpoint radP1 0 0 0
13vpoint radP2 50 50 0
14vpoint radP3 100 0 0
15vcircle circle radP1 radP2 radP3 0
16verase radP1 radP2 radP3
d7bffd44 17vdim -radius -name=dim1 circle
18vdisplay dim1
a6eb515f 19vfit
d7bffd44 20vmoveto 123 158
a6eb515f 21
d7bffd44 22set x_coord 112
23set y_coord 151
a6eb515f 24
25checkcolor $x_coord $y_coord 0 1 1
26
27if { $stat != 1 } {
28 puts "Error : Highlighting of radius dimension with 2d text is wrong."
29}
30
d7bffd44 31vinit Viewer2/View2
32vdisplay circle
33vdim -radius -name=dim2 -text=3d circle
34vdisplay dim2
a6eb515f 35vfit
d7bffd44 36vmoveto 191 196
a6eb515f 37
d7bffd44 38set x_coord 129
39set y_coord 172
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