0028107: Visualization - provide a flexible interface to set custom hatch styles
[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
6fb1a930 11vfont add [locate_data_file DejaVuSans.ttf] SansFont
12
a6eb515f 13vinit
14vpoint diamP1 0 0 0
15vpoint diamP2 50 50 0
16vpoint diamP3 100 0 0
2ec85268 17vcircle circle1 diamP1 diamP2 diamP3 0
a6eb515f 18verase diamP1 diamP2 diamP3
2ec85268 19vdimension dim1 -diameter -shapes circle1 -font SansFont
a6eb515f 20vfit
21vmoveto 208 205
22
23set x_coord 296
24set y_coord 257
25
26checkcolor $x_coord $y_coord 0 1 1
27
28if { $stat != 1 } {
29 puts "Error : Highlighting of diameter dimension with 2d text is wrong."
30}
31
d7bffd44 32vinit Viewer2/View2
2ec85268 33vcircle circle2 diamP1 diamP2 diamP3 0
34vdimension dim2 -diameter -text 3d -shapes circle2 -font SansFont
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
5747059b 47checkview -screenshot -3d -path ${imagedir}/${test_image}.png