Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_4 / bug625
CommitLineData
f1aa2b62 1puts "========================"
2puts "OCC625"
3puts "========================"
4puts ""
5###############################################################################
6## Created filler looks strange (see attached picture) inspite of checkshapes told about correct source and result shapes.
7###############################################################################
8
9pload QAcommands
10
11restore [locate_data_file OCC625.brep] a
352ffd73 12checkshape a
f1aa2b62 13
14vinit
15tclean a
16explode a e
17
18blend res1 a 10 a_22 10 a_14
19blend result res1 10 a_17 10 a_4
352ffd73 20checkshape result
f1aa2b62 21
22vinit
23vdisplay result
24vfit
25vsetdispmode result 1
26
f1aa2b62 27set x_coord 116
28set y_coord 252
29
30checkcolor $x_coord $y_coord 0.82 0.58 0.09
31
32set square 19977
33set 3dviewer 1