0023510: Integration of test grid "vis" into the new testing system
[occt.git] / tests / bugs / vis / bug154_2
CommitLineData
a87752f3 1puts "========"
2puts "OCC154"
3puts "========"
4puts ""
5#####################################################
6##puts "Checking of function V2DERASE "
7##puts "(visual checking for this case is desirable)"
8#####################################################
9
10v2dinit
11
12box b 1 1 1
13v2ddisplay b
14box b1 10 10 10 1 1 1
15v2ddisplay b1
16v2dfit
17
18v2derase b1
19
f1aa2b62 20set x_coord 370
21set y_coord 37
22set color2d 1
a87752f3 23
f1aa2b62 24checkcolor $x_coord $y_coord 0 0 0
25
26if { $stat != 1 } {
a87752f3 27 puts "Object was not erased"
28}
29
30set only_screen2d 1
31
f1aa2b62 32