0023510: Integration of test grid "vis" into the new testing system
[occt.git] / tests / bugs / vis / bug224
1 puts "========================"
2 puts " OCC224 "
3 puts "========================"
4 puts ""
5 #################################################
6 ##puts "Checking of function V2DUNSETWIDTH  for shapes "
7 ##puts "(visual checking for this case is desirable)"
8 #################################################
9
10 v2dinit
11
12 psphere s_p 100 360
13 set mistake1 0
14 v2ddisplay s_p 0 0 0 1 1 1 1 0 0
15 v2dfit
16 v2dsetwidth s_p VERYTHICK
17
18 set x_coord 393
19 set y_coord 210
20 set color2d 1
21
22 checkcolor $x_coord $y_coord 1 1 0
23
24 if { $stat != 1 } {
25     puts "Error : New widht was NOT assigned"
26 }
27
28 v2dunsetwidth s_p
29
30 checkcolor $x_coord $y_coord 0 0 0
31
32 if { $stat != 1 } {
33     puts "Error : Function V2DUNSETWIDTH for shapes does NOT WORK properly"
34 }
35
36 set only_screen2d 1
37
38