Adding test cases from chl grid
[occt.git] / tests / bugs / vis / bug22900
1 puts "================"
2 puts "OCC22900"
3 puts "================"
4 puts ""
5 #######################################################################################
6 # Problem with shape displaying in shading mode
7 ######################################################################################
8
9 set BugNumber OCC22900
10
11 set x1 204
12 set y1 202
13
14 vertex v1 0 0 0
15 vertex v2 0 0 30
16 edge e1 v1 v2
17 pcone con1 5 0 10
18 ttranslate con1 0 0 30
19 compound con1 e1 c1
20 don c1
21 fit
22 vinit
23 vdisplay c1
24 vfit
25 vsetcolor c1 RED
26 vsetcolor c1 GREEN
27 vsetdispmode 1
28 vsetcolor c1 RED
29
30 checkcolor ${x1} ${y1}] 1 0 0
31
32 set only_screen 1