tests/bugs/modalg_5/bug25568

   1 puts "============"
   2 puts "OCC25568"
   3 puts "============"
   4 puts ""
   5 #########################################################################
   6 # SIGSEGV in thrusections with edge without 3D curve
   7 #########################################################################
   8
   9 restore [locate_data_file bug25568_loft-inv1-draw-Loft-00-section.brep] Loft-00-section
  10 restore [locate_data_file bug25568_loft-inv1-draw-Loft-01-section.brep] Loft-01-section
  11
  12 if [info exists result] {unset result}
  13
  14 thrusections result 0 0 Loft-00-section Loft-01-section
  15
  16 if ![isdraw result] {
  17   if {[info commands fixshape] == ""} {pload XSDRAW}
  18   fixshape Loft-00-section_fixed Loft-00-section
  19   thrusections result 0 0 Loft-00-section_fixed Loft-01-section
  20   if ![isdraw result] {
  21     puts "Error : thrusection is failed even after fixing arguments"
  22   }
  23 }
  24
  25 checkprops result -s 25.236
  26 checkshape result
  27 checkview -display result -2d -path ${imagedir}/${test_image}.png