6fcb77aa |
1 | puts "============" |
2 | puts "OCC7691" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Wrong hidden lines computed by HLRBRep_PolyAlgo and |
7 | # HLRBRep_PolyHLRToShape in OCC 5.1 |
8 | ####################################################################### |
9 | |
10 | set BugNumber OCC7691 |
11 | set status 0 |
12 | |
13 | # load shape |
14 | restore [locate_data_file OCC7691-bottle.brep] shape |
15 | trotate shape 0 0 0 1 0 0 -90 |
16 | |
17 | # init viewer and compute hlr shape |
18 | vinit |
19 | vtop |
20 | vcomputehlr shape hlr |
21 | vfit |
22 | |
23 | set colorR 1 |
24 | set colorG 0 |
25 | set colorB 0 |
26 | |
27 | # move cursor not to select shape |
28 | vmoveto 0 0 |
29 | |
30 | # start position of color picking |
31 | set ptx 2 |
32 | set pty 200 |
33 | checkcolor $ptx $pty $colorR $colorG $colorB |
34 | |
35 | if { ${stat} != 0 } { |
36 | puts "HLR shape is correct" |
37 | puts "OK ${BugNumber}" |
38 | } else { |
39 | puts "HLR shape is incorrect" |
40 | puts "Faulty ${BugNumber}" |
41 | } |
42 | |
43 | set only_screen 1 |
44 | |