tests/lowalgos/intss/bug24643

   1 puts "================"
   2 puts "OCC24643"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # No section curve between plane and cone
   7 #######################################################################
   8
   9 restore [locate_data_file bug24643_b1.brep] b1
  10 restore [locate_data_file bug24643_b2.brep] b2
  11 bopcurves b1 b2
  12 checklength c_1 -l 107.39085794960783
  13
  14 set log [dump c_1]
  15 if {[regexp {Trimmed +curve} ${log}]} {
  16   puts "OK: section curve is good"
  17 } else {
  18   puts "Error: section curve is bad"
  19 }
  20
  21 smallview
  22 donly c_1 b1 b2
  23 fit
  24
  25 checkview -screenshot -2d -path ${imagedir}/${test_image}.png