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