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
|
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 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 3.61568258316782
set at_Y 3.30626448080767
set at_Z 3.11631746104816
# 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 ${scale} -proj ${proj_X} ${proj_Y} ${proj_Z} -up ${up_X} ${up_Y} ${up_Z} -at ${at_X} ${at_Y} ${at_Z}
set only_screen 1
|
