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
|
puts "================"
puts "OCC22900"
puts "================"
puts ""
#######################################################################################
# Problem with shape displaying in shading mode
######################################################################################
set BugNumber OCC22900
set x1 204
set y1 202
vertex v1 0 0 0
vertex v2 0 0 30
edge e1 v1 v2
pcone con1 5 0 10
ttranslate con1 0 0 30
compound con1 e1 c1
don c1
fit
vinit
vdisplay c1
vfit
vsetcolor c1 RED
vsetcolor c1 GREEN
vsetdispmode 1
vsetcolor c1 RED
checkcolor ${x1} ${y1} 1 0 0
set only_screen 1
|
