Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug322
1 pload QAcommands
2 puts "================"
3 puts "OCC322"
4 puts "================"
5 puts ""
6
7 restore [locate_data_file OCC322.brep] a 
8 puts [checkshape a]
9
10 sewing result a
11
12 vinit
13 vdisplay result
14 vfit
15
16 set Yellow_R 1
17 set Yellow_G 1
18 set Yellow_B 0
19
20 set x1 204
21 set y1 297
22
23 set x2 251
24 set y2 230
25
26 QAGetPixelColor $x1 $y1 $Yellow_R $Yellow_G $Yellow_B
27 QAGetPixelColor $x2 $y2 $Yellow_R $Yellow_G $Yellow_B
28
29 set square 20000
30 set 3dviewer 2