0027674: BRepOffsetAPI_ThruSections make invalid shape if sections are connected...
[occt.git] / tests / bugs / modalg_6 / bug27674
1 puts "============"
2 puts "OCC27674"
3 puts "============"
4 puts ""
5 ############################################################################
6 # BRepOffsetAPI_ThruSections make invalid
7 # shape if sections are connected at ends
8 ############################################################################
9
10 restore [locate_data_file bug27674_CircleLineWires.brep] a
11
12 explode a
13 wire w a_1 a_2
14 explode w
15 wire a1 w_1
16 wire a2 w_2
17 thrusections r 0 0 a1 a2
18 checkshape r
19
20 checknbshapes r -vertex 2 -edge 4
21
22 puts "Check that edges degenerated and has no 3d curve..."
23 explode r E
24 if [regexp {degenerated} [dump r_2]] {
25    puts "OK: r_2 is a degenerated edge."
26    if [catch {mkcurve c1 r_2} catch_result] {
27       puts "OK: r_2 has no 3d curve."
28    } else {
29       puts "Faulty: r_2 has 3d curve"
30    }
31 } else {
32    puts "Faulty: r_2 is not degenerated edge."
33 }
34
35 if [regexp {degenerated} [dump r_4]] {
36    puts "OK: r_4 is a degenerated edge."
37    if [catch {mkcurve c1 r_4} catch_result] {
38       puts "OK: r_4 has no 3d curve."
39    } else {
40       puts "Faulty: r_4 has 3d curve"
41    }
42 } else {
43    puts "Faulty: r_4 is not degenerated edge."
44 }
45
46 checkview -display r -2d -path ${imagedir}/${test_image}.png
47