0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug21507
1 puts "=========="
2 puts "OCC21507"
3 puts "=========="
4 puts ""
5 ############################################################
6 # Bug in BOP: bcut produces invalid result without notice 
7 ############################################################
8
9 # Demonstrates bug in bcut command
10 pload XDE
11
12 # Load face
13 puts "Loading face"
14 restore [locate_data_file bug21507_bcut_bug_face.brep] face
15
16 # Make tool - an elliptic cylinder
17 puts "Constructing tool"
18 ellipse c 10000 0 0 0 1 0 600 300
19 mkedge e c
20 wire w e
21 tcopy w w1
22 tcopy w w2
23 ttranslate w1 0  5000 0
24 ttranslate w2 0 -5000 0
25 thrusections tool 1 1 w1 w2
26
27 # Check validity of face and tool
28 puts "Checking face: [checkshape face]; [lrange [tolerance face] 0 1]"
29 puts "Checking tool: [checkshape tool]; [lrange [tolerance tool] 0 1]"
30 bopcheck face
31 bopcheck tool
32
33 # Do cut
34 puts "Running bcut"
35 bcut result face tool
36
37 # Evaluate result by number of faces (bcut)
38 set rfaces [explode result f]
39 if { [llength $rfaces] != 1 } {
40   puts "Error: [llength $rfaces] faces instead of 1"
41 } else {
42   puts "Result is as expected"
43 }
44
45 # Do the same using cut
46 puts "Now running old cut"
47 cut rcut face tool
48
49 # Evaluate result by number of faces (cut)
50 set rcfaces [explode rcut f]
51 if { [llength $rcfaces] != 1 } {
52   puts "Error: [llength $rcfaces] faces instead of 1"
53 } else {
54   puts "Result is as expected"
55 }
56
57 checkview -display result -2d -path ${imagedir}/${test_image}.png