Updating test for current state of OCCT
[occt.git] / tests / bugs / vis / bug22332
1 puts "============"
2 puts "OCC22332"
3 puts "============"
4 puts ""
5
6 ######################################################
7
8 ######################################################
9
10 set BUGNUMBER OCC22332
11
12 vinit
13 vclear
14 box b 100 100 100
15 vsetdispmode b 1
16 vdisplay b
17 vtrihedron tri
18 vfit
19  
20 vmoveto 0 0
21
22 # TEST LINEWIDTH
23 # draw a 10px horizontal line at (10,10) - (400,10)
24 vlayerline 10 10 400 10 10
25
26 checkcolor 15 5 1 0 0
27 checkcolor 15 13 1 0 0
28 checkcolor 15 14 0 0 0
29
30 # TEST LINETYPE
31 # draw a slashed 10px horizontal line at (10,10) - (400,10)
32 vlayerline 10 10 400 10 10 1
33
34 checkcolor 23 10 1 0 0
35 checkcolor 25 10 1 0 0
36 checkcolor 26 10 0 0 0
37 checkcolor 30 10 0 0 0
38 checkcolor 32 10 1 0 0
39
40 set only_screen 1
41