2 puts "========================"
\r
4 puts "========================"
\r
5 ###############################################################
\r
8 #MIT010717 : 3D selection management
\r
9 #>>> MIT010717 : Selection management
\r
11 # * Package OpenGl (OpenGl_execstruct.c)
\r
13 # @ Avoid drawing quality problem on selected face,
\r
14 # enable/disable Z offset on highlighted faces.
\r
16 #>>> MIT010717 : drawing management
\r
18 # * Package OpenGl (OpenGl_indexpolygon.c, ...)
\r
20 # @ Avoid to undraw faces with confused points
\r
21 ###############################################################
\r
22 puts "========================"
\r
30 puts "Only bottom face should be highlighted."
\r
40 vmoveto $x_coord $y_coord
\r
45 checkcolor $x_coord $y_coord 0 1 1
\r
49 vviewparams -scale 60.6309 -proj 0.592163 -0.60038 -0.537482 -up 0.369921 -0.390032 0.843228 -at 3.29057034725635 6.73314999296002 6.55157729015654
\r
51 checkcolor $x_coord $y_coord 0.78 0.54 0.09
\r