0024326: Get rid of confusing extension line
[occt.git] / tests / bugs / vis / bug641
1 puts "================"
2 puts "OCC641"
3 puts "SAM1559"
4 puts "================"
5 puts ""
6 #################################################
7 ## Exception during attemption to display shape ==>SAM1559 (#2901)
8 #################################################
9
10 restore [locate_data_file OCC641.brep] a
11
12 vinit
13 vdisplay a
14 vfit
15
16 copy a b
17
18 if [catch {tmirror result 0 0 0 0 1 0 } res] {
19    puts "Error : function tmirror works wrongly"
20 } else {
21    if [catch { vdisplay result } res] {
22       puts "Error : result shape is displaed wrongly"
23    }
24    vfit
25 }
26
27 set only_screen 1
28