Adding test cases from chl grid
[occt.git] / tests / bugs / vis / bug23225
1 puts "============"
2 puts "OCC23363"
3 puts "============"
4 puts ""
5 ####################################################################################
6 # ZBufer trihedron drawn without shading
7 ####################################################################################
8
9 vinit
10 vzbufftrihedron
11 pcylinder p 100 200
12 vdisplay p
13 vsetdispmode p 1
14 vsetinteriorstyle p 1
15
16 set x_coord 59
17 set y_coord 380
18 checkcolor $x_coord $y_coord 0.54 0 0
19 set x_coord 50
20 set y_coord 362
21 checkcolor $x_coord $y_coord 0 0.77 0
22 set x_coord 41
23 set y_coord 354
24 checkcolor $x_coord $y_coord 0 0 0.62
25
26 set only_screen 1
27
28