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
33
34
35
36
37
38
39
40
41
|
puts "========================"
puts "OCC137"
puts "========================"
###############################################################
#Patch description:
#
#MIT010717 : 3D selection management
#>>> MIT010717 : Selection management
#
# * Package OpenGl (OpenGl_execstruct.c)
#
# @ Avoid drawing quality problem on selected face,
# enable/disable Z offset on highlighted faces.
#
#>>> MIT010717 : drawing management
#
# * Package OpenGl (OpenGl_indexpolygon.c, ...)
#
# @ Avoid to undraw faces with confused points
###############################################################
puts "========================"
vinit
box b 10 10 10
vdisplay b
vfit
vsetdispmode 1
puts "Whole shape should be highlighted."
OCC137 1
set x_coord 105
set y_coord 100
vmoveto $x_coord $y_coord
checkcolor $x_coord $y_coord 0 1 1
set only_screen 1
|
