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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
puts "================"
puts "OCC113"
puts "BUC60978"
puts "================"
puts ""
# Data
set X_01 29
set Y_01 170
set X_02 204
set Y_02 300
set scale 60.6309
set center_X 7.07107
set center_Y 4.08248
set proj_X 0.479541
set proj_Y 0.586729
set proj_Z 0.652525
set up_X -0.838029
set up_Y 0.0856396
set up_Z 0.538863
set at_X 8.87741
set at_Y -2.73728
set at_Z 4.68363
# Display two face
vinit
box b 10 10 10
explode b f
vdisplay b_1
vdisplay b_2
vfit
# Check face color
checkcolor ${X_01} ${Y_01} 0 1 0
checkcolor ${X_02} ${Y_02} 0 1 0
# Select faces
vchangeselected b_1
vchangeselected b_2
# Check face color
checkcolor ${X_01} ${Y_01} 0.8 0.8 0.8
checkcolor ${X_02} ${Y_02} 0.8 0.8 0.8
# Hilight face
vmoveto ${X_01} ${Y_01}
# Check face color
vselect 10 10
vmoveto ${X_01} ${Y_01}
checkcolor ${X_01} ${Y_01} 0 1 1
vmoveto ${X_02} ${Y_02}
checkcolor ${X_02} ${Y_02} 0 1 1
# Rotation
vviewparams ${scale} ${center_X} ${center_Y} ${proj_X} ${proj_Y} ${proj_Z} ${up_X} ${up_Y} ${up_Z} ${at_X} ${at_Y} ${at_Z}
set only_screen 1
|
