0029076: Visualization - implement element shrinking Shader
[occt.git] / tests / bugs / vis / buc60738
1 puts "========================"
2 puts "BUC60738"                
3 puts "========================"
4 puts ""                                  
5
6 vclear
7 vinit View1
8 vaxo
9
10 psphere s 20
11 ttranslate s -40 0 0
12 vdisplay -dispMode 1 s
13 vfit
14 vaspects s -setInteriorStyle HOLLOW -setDrawEdges 1 -setEdgeType DASH -setEdgeColor GREEN
15
16 checkcolor 261 314 0 1 0
17 if {$stat != 1} { puts "Error : The style of edge is NOT dash" }
18 vdump $imagedir/${casename}.png