0032155: Tests - remove broken command OCC280
[occt.git] / tests / bugs / vis / bug349_1
1 puts "========"
2 puts "OCC349"
3 puts "========"
4 puts ""
5 puts "2. Fitall with hidden line removal algorithm works incorrect in the perspective view"
6
7 vinit
8 box b 100 900 300
9 vdisplay b
10
11 OCC280 1 1
12
13 vfit
14
15 set yellow_coords {{135 119} {387 33} {172 144} {28 190} {212 272} {60 343} {26 255} {389 113} {60 276}}
16
17 set black_coords {{160 257} {365 150} {353 99}}
18
19 #
20 #              ___________2________________
21 #             /|                          /|
22 #            / |                         / |
23 #           /  |                        /  |
24 #          /   |                       /   |
25 #         /    |                      /    |
26 #        1     |                     3     |
27 #       /      |                    /      |
28 #      /       |                   /       |
29 #     /        |                  /        |
30 #    /         |                 /         |
31 #   ----------------4------------          |
32 #   |          |                |          |
33 #   |          |                |          |
34 #   |          |                |          |
35 #   |         10                |         11
36 #   |          |                |          |
37 #   |          |                |          |
38 #   |          |                |          |
39 #   |          |                |          |
40 #   |          |                |          |
41 #   9          |               12          |
42 #   |          |___________6____|__________|
43 #   |         /                 |         /
44 #   |        /                  |        /
45 #   |       /                   |       /
46 #   |      /                    |      /
47 #   |     5                     |     /
48 #   |    /                      |    7
49 #   |   /                       |   /
50 #   |  /                        |  /
51 #   | /                         | /
52 #   |/                          |/
53 #   |--------------8------------|
54 #
55 #
56
57 vaspects -setwidth 5
58
59 foreach i $yellow_coords {
60   if {"[vreadpixel [lindex $i 0] [lindex $i 1] rgb name]" != "YELLOW" } {
61     puts "Error : ${i} is not yellow"
62   }
63 }
64
65 foreach i $black_coords {
66   if {"[vreadpixel [lindex $i 0] [lindex $i 1] rgb name]" != "BLACK" } {
67     puts "Error : ${i} is not black"
68   }
69 }
70
71 checkview -screenshot -3d -path ${imagedir}/${test_image}.png