0027126: Create command checktrinfo to verify meshes
[occt.git] / tests / bugs / vis / bug349_1
CommitLineData
7faaccfd 1puts "========"
2puts "OCC349"
3puts "========"
4puts ""
5puts "2. Fitall with hidden line removal algorithm works incorrect in the perspective view"
6
7vinit
8box b 100 900 300
9vdisplay b
10
11OCC280 1 1
12
13vfit
14
ccadc126 15set yellow_coords {{135 119} {387 33} {172 144} {28 190} {212 272} {60 343} {26 255} {389 113} {60 276}}
7faaccfd 16
ccadc126 17set black_coords {{160 257} {365 150} {353 99}}
7faaccfd 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
ccadc126 57vaspects -setwidth 5
58
59foreach 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
65foreach i $black_coords {
66 if {"[vreadpixel [lindex $i 0] [lindex $i 1] rgb name]" != "BLACK" } {
67 puts "Error : ${i} is not black"
68 }
69}
7faaccfd 70
5747059b 71checkview -screenshot -3d -path ${imagedir}/${test_image}.png