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