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
|
puts "================"
puts "OCC71"
puts "BUC61045"
puts "================"
puts ""
# Data
set Triedron_X 29
set Triedron_Y 380
set Shape_X 120
set Shape_Y 250
# Display box
vinit
box b 10 10 10
vdisplay b
# Display triedron
OCC71
vfit
# Check triedron color
checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1
# Shading box
vsetdispmode b 1
# Check box color
checkcolor ${Shape_X} ${Shape_Y} 0.78 0.54 0.09
# Check triedron color
checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1
# Select box
vselect ${Shape_X} ${Shape_Y}
# Check box color
checkcolor ${Shape_X} ${Shape_Y} 0.78 0.54 0.09
# Check triedron color
checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1
# Select empty view
vselect 1 1
# Check box color
checkcolor ${Shape_X} ${Shape_Y} 0.78 0.54 0.09
# Check triedron color
checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1
set only_screen 1
|
