0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug23902
1 puts "TODO OCC23902 ALL: Error: Cannot build fillet"
2
3 puts "========"
4 puts "OCC23902"
5 puts "========"
6 puts ""
7 #####################
8 # Cannot build fillet
9 #####################
10
11 bsplinecurve r 4 3 1 5 2 2 3 5 0 8 0 1 2 8 2 1 4 8 3 1 4 8 3 1 4 8 3 1 6 8 4 1 10 8 10 1
12
13 mkedge e1 r
14 vertex v1 10 8 10
15 vertex v2 5 8 8
16 edge e2 v1 v2
17 vertex v3 0 8 0
18 edge e3 v2 v3
19 wire w e1 e2 e3
20 mkplane f w
21 prism p f 0 5 0
22 explode p e
23
24 if {![catch {fillet result p 0.5 p_3}]} {
25   if {[regexp "This shape seems to be valid" [checkshape result] ] != 1} {
26       puts "Error: Cannot build fillet (1)"
27   }
28   if {[regexp "This shape seems to be OK" [bopcheck result] ] != 1} {
29       puts "Error: Cannot build fillet (2)"
30   }
31 } else {
32   puts "Error: Cannot build fillet (3)"
33 }