0027986: Visualization - AIS_InteractiveContext::SetLocation() does not update dynami...
[occt.git] / tests / bugs / vis / bug24133_4
1 puts "============"
2 puts "CR24133"
3 puts "============"
4 puts ""
5 #######################################################################
6 #  Development of improvement of dimensions implementation
7 #  Diameter dimension
8 #######################################################################
9 pload VISUALIZATION
10
11 vfont add [locate_data_file DejaVuSans.ttf] SansFont
12
13 vinit
14 vpoint diamP1 0 0 0
15 vpoint diamP2 50 50 0
16 vpoint diamP3 100 0 0
17 vcircle circle1 diamP1 diamP2 diamP3 0
18 verase diamP1 diamP2 diamP3
19 vdimension dim1 -diameter -shapes circle1 -font SansFont
20 vfit
21 vmoveto 208 205
22
23 set x_coord 296
24 set y_coord 257
25
26 checkcolor $x_coord $y_coord 0 1 1
27
28 if { $stat != 1 } {
29    puts "Error : Highlighting of diameter dimension with 2d text is wrong."
30 }
31
32 vinit Viewer2/View2
33 vcircle circle2 diamP1 diamP2 diamP3 0
34 vdimension dim2 -diameter -text 3d -shapes circle2 -font SansFont
35 vfit
36 vmoveto 208 205
37
38 set x_coord 296
39 set y_coord 257
40
41 checkcolor $x_coord $y_coord 0 1 1
42
43 if { $stat != 1 } {
44    puts "Error : Highlighting of diameter dimension with 3d text is wrong."
45 }
46
47 checkview -screenshot -3d -path ${imagedir}/${test_image}.png