mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-07-25 12:55:50 +03:00
45 lines
941 B
Plaintext
Executable File
45 lines
941 B
Plaintext
Executable File
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
|
|
|
|
QAMoveTo $x_coord $y_coord
|
|
QAMoveTo $x_coord $y_coord
|
|
|
|
QAUpdateLights
|
|
|
|
checkcolor $x_coord $y_coord 0 1 1
|
|
|
|
set only_screen 1
|
|
|