0025235: Draw Harness - improve commands vdimension and vdimparam
[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
0499eb06 17vdimension dim1 -radius -shapes circle
a6eb515f 18vfit
d7bffd44 19vmoveto 123 158
a6eb515f 20
d7bffd44 21set x_coord 112
22set y_coord 151
a6eb515f 23
24checkcolor $x_coord $y_coord 0 1 1
25
26if { $stat != 1 } {
27 puts "Error : Highlighting of radius dimension with 2d text is wrong."
28}
29
d7bffd44 30vinit Viewer2/View2
31vdisplay circle
0499eb06 32vdimension dim2 -radius -text 3d -shapes circle
a6eb515f 33vfit
d7bffd44 34vmoveto 191 196
a6eb515f 35
d7bffd44 36set x_coord 129
37set y_coord 172
a6eb515f 38
39checkcolor $x_coord $y_coord 0 1 1
40
41if { $stat != 1 } {
42 puts "Error : Highlighting of radius dimension with 3d text is wrong."
43}
44
45set only_screen 1