0028107: Visualization - provide a flexible interface to set custom hatch styles
[occt.git] / tests / bugs / vis / bug25935
1 puts "============"
2 puts "CR25935"
3 puts "============"
4 puts ""
5
6 pload VISUALIZATION MODELING
7
8 restore [locate_data_file bug25935.brep] aShape
9 explode aShape Sh
10
11 vinit
12
13 # check displaying and selection of a sub-shell of the shape
14 vdisplay aShape_3
15 vfit
16 vmoveto 210 200
17 checkcolor 210 200 0 1 1
18
19 vremove -all
20
21 # check displaying and selection of the whole shape
22 vdisplay aShape
23 vfit
24 vmoveto 192 211
25 vmoveto 213 191
26 vmoveto 205 205
27 vmoveto 197 194
28 checkcolor 205 212 0 1 1