projects
/
occt.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
0022785: Draw Harness - add possibility to remove a text drawn by the command vdrawtext
[occt.git]
/
tests
/
bugs
/
vis
/
bug185
1
puts "========"
2
puts "OCC185"
3
puts "========"
4
5
pload XDE
6
7
igesbrep [locate_data_file OCC185.igs] a *
8
9
tpcompound result
10
tclean result
11
12
vinit
13
vdisplay result
14
vfit
15
16
set x_coord 235
17
set y_coord 214
18
19
vsetdispmode result 1
20
21
checkcolor $x_coord $y_coord 0.78 0.55 0.9
22
23
if { $stat != 1 } {
24
puts "Error : Shading is OFF, but should be ON"
25
}
26
27
vsetdispmode result 0
28
29
checkcolor $x_coord $y_coord 0 1 0
30
31
if { $stat != 1 } {
32
puts "Error : Shading is ON, but should be OFF"
33
}
34
35
set only_screen 1
36