projects
/
occt.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
005092f46dc45af332bfda1cc6920c9d757cae10
[occt.git]
/
tests
/
bugs
/
modalg
/
bug397
1
puts "========================"
2
puts " OCC397 "
3
puts "========================"
4
5
pload QAcommands
6
7
restore [locate_data_file OCC397.brep] a
8
checkshape a
9
10
tclean a
11
explode a f
12
renamevar a_55 result
13
14
vinit
15
vdisplay result
16
vfit
17
vsetdispmode result 1
18
19
set x_coord 235
20
set y_coord 180
21
22
checkcolor $x_coord $y_coord 0.5 0.35 0.05
23
24
if { ${stat} != 1 } {
25
puts "Error : Shading is missing in 3D Viewer"
26
}
27
28
QASelect 220 170
29
QASelect 220 170
30
31
set square 92.9029
32
set only_screen 1
33
34