Adding test cases from chl grid
[occt.git] / tests / bugs / vis / bug23253
1 puts "============"
2 puts "OCC23253"
3 puts "============"
4 puts ""
5 #######################################################################
6 # Additional viewer 3d draw-commands vleft, vfront, ...
7 #######################################################################
8
9 set BugNumber OCC23253
10
11 box b 10 20 30
12 ptorus t 50 10
13
14 vinit
15 vsetdispmode 1
16
17 vdisplay b
18 vdisplay t
19 vfit
20
21 set status 0
22
23 #####
24 vaxo
25 #####
26
27 set x1 120
28 set y1 260
29 checkcolor $x1 $y1 0.91 0.64 0.11
30
31 set x2 120
32 set y2 260
33 checkcolor $x2 $y2 0.91 0.64 0.11
34
35 #####
36 vtop
37 #####
38
39 set x1 125
40 set y1 135
41 checkcolor $x1 $y1 1 1 0.92
42
43 set x2 220
44 set y2 200
45 checkcolor $x2 $y2 1 1 0.94
46
47 #####
48 vleft
49 #####
50
51 set x1 120
52 set y1 230
53 checkcolor $x1 $y1 0.92 0.66 0.11
54
55 set x2 190
56 set y2 170
57 checkcolor $x2 $y2 1 1 0.94
58
59 #####
60 vright
61 #####
62
63 set x1 120
64 set y1 230
65 checkcolor $x1 $y1 0.93 0.66 0.11
66
67 set x2 220
68 set y2 170
69 checkcolor $x2 $y2 1 1 0.94
70
71 #####
72 vfront
73 #####
74
75 set x1 120
76 set y1 230
77 checkcolor $x1 $y1 0.92 0.66 0.11
78
79 set x2 240
80 set y2 170
81 checkcolor $x2 $y2 1 1 0.94
82
83 #####
84 vback
85 #####
86
87 set x1 120
88 set y1 230
89 checkcolor $x1 $y1 0.93 0.66 0.11
90
91 set x2 170
92 set y2 170
93 checkcolor $x2 $y2 1 1 0.94
94
95 #####
96 vbottom
97 #####
98
99 set x1 90
100 set y1 300
101 checkcolor $x1 $y1 0.81 0.58 0.09
102
103 set x2 220
104 set y2 250
105 checkcolor $x2 $y2 1 1 0.94
106
107 set only_screen 1