0025235: Draw Harness - improve commands vdimension and vdimparam
[occt.git] / tests / bugs / vis / bug24133_4
... / ...
CommitLineData
1puts "============"
2puts "CR24133"
3puts "============"
4puts ""
5#######################################################################
6# Development of improvement of dimensions implementation
7# Diameter dimension
8#######################################################################
9pload VISUALIZATION
10
11vinit
12vpoint diamP1 0 0 0
13vpoint diamP2 50 50 0
14vpoint diamP3 100 0 0
15vcircle circle diamP1 diamP2 diamP3 0
16verase diamP1 diamP2 diamP3
17vdimension dim1 -diameter -shapes circle
18vfit
19vmoveto 208 205
20
21set x_coord 296
22set y_coord 257
23
24checkcolor $x_coord $y_coord 0 1 1
25
26if { $stat != 1 } {
27 puts "Error : Highlighting of diameter dimension with 2d text is wrong."
28}
29
30vinit Viewer2/View2
31vdisplay circle
32vdimension dim2 -diameter -text 3d -shapes circle
33vfit
34vmoveto 208 205
35
36set x_coord 296
37set y_coord 257
38
39checkcolor $x_coord $y_coord 0 1 1
40
41if { $stat != 1 } {
42 puts "Error : Highlighting of diameter dimension with 3d text is wrong."
43}
44
45set only_screen 1