0027957: Visualization, AIS_InteractiveContext - protect from displaying the same...
[occt.git] / tests / bugs / vis / bug24133_3
1 puts "============"
2 puts "CR24133"
3 puts "============"
4 puts ""
5 #######################################################################
6 #  Development of improvement of dimensions implementation
7 #  Radius dimension
8 #######################################################################
9 pload VISUALIZATION
10
11 vfont add [locate_data_file DejaVuSans.ttf] SansFont
12
13 vinit
14 vpoint radP1 0 0 0
15 vpoint radP2 50 50 0
16 vpoint radP3 100 0 0
17 vcircle circle1 radP1 radP2 radP3 0
18 verase radP1 radP2 radP3
19 vdimension dim1 -radius -shapes circle1 -font SansFont
20 vfit
21 vmoveto 123 158
22
23 set x_coord 112
24 set y_coord 151
25
26 checkcolor $x_coord $y_coord 0 1 1
27
28 if { $stat != 1 } {
29    puts "Error : Highlighting of radius dimension with 2d text is wrong."
30 }
31
32 vinit Viewer2/View2
33 vcircle circle2 radP1 radP2 radP3 0
34 vdimension dim2 -radius -text 3d -shapes circle2 -font SansFont
35 vfit
36 vmoveto 191 196
37
38 set x_coord 112
39 set y_coord 151
40
41 checkcolor $x_coord $y_coord 0 1 1
42
43 if { $stat != 1 } {
44    puts "Error : Highlighting of radius dimension with 3d text is wrong."
45 }
46
47 checkview -screenshot -3d -path ${imagedir}/${test_image}.png