projects
/
occt.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
0023539: QASelect and QAShiftSelect commands
[occt.git]
/
tests
/
bugs
/
vis
/
bug60
1
puts "========"
2
puts "OCC60"
3
puts "SAM723"
4
puts "BUC60916"
5
puts "========"
6
7
vinit
8
box b 10 10 10
9
vdisplay b
10
vfit
11
12
set x_coord 83
13
set y_coord 337
14
15
checkcolor $x_coord $y_coord 1 1 0
16
17
set xmin 1
18
set ymin 1
19
set xmax 409
20
set ymax 300
21
22
# Select part of box
23
OCC60 ${xmin} ${ymin} ${xmax} ${ymax}
24
OCC60 ${xmin} ${ymin} ${xmax} ${ymax}
25
26
set Selection_R 0.8
27
set Selection_G 0.8
28
set Selection_B 0.8
29
30
checkcolor $x_coord $y_coord 0.8 0.8 0.8
31
32
set only_screen 1