0025109: Check PolygonOnTriangulation contained in edges
[occt.git] / tests / bugs / vis / bug24133_4
CommitLineData
a6eb515f 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
1d7ca641 17vdimension diameter name=dim1 circle
d7bffd44 18vdisplay dim1
a6eb515f 19vfit
20vmoveto 208 205
21
22set x_coord 296
23set y_coord 257
24
25checkcolor $x_coord $y_coord 0 1 1
26
27if { $stat != 1 } {
28 puts "Error : Highlighting of diameter dimension with 2d text is wrong."
29}
30
d7bffd44 31vinit Viewer2/View2
32vdisplay circle
1d7ca641 33vdimension diameter name=dim2 text=3d circle
d7bffd44 34vdisplay dim2
a6eb515f 35vfit
36vmoveto 208 205
37
38set x_coord 296
39set y_coord 257
40
41checkcolor $x_coord $y_coord 0 1 1
42
43if { $stat != 1 } {
44 puts "Error : Highlighting of diameter dimension with 3d text is wrong."
45}
46
47set only_screen 1